File: funnyban

package info (click to toggle)
epic 3.004-10
  • links: PTS
  • area: main
  • in suites: slink
  • size: 5,180 kB
  • ctags: 3,207
  • sloc: ansic: 40,836; makefile: 526; sh: 121; perl: 17
file content (29 lines) | stat: -rw-r--r-- 625 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
/*
 * Funnyban, 1993
 * Requires ircii-EPIC, woe to he that runs it on anything else
 * this alias is   S    L    O   W
 */

load guh
alias funnyban {
        @ interval = [$1]?[$1]:2
        @ ban = [*!]
        @ userh = uh($0)
        @ counter = 0
        while (counter < @userh) 
        {
            	if (counter % interval) {
                	@ ban #= mid($counter 1 $userh)
            	} {
                	if (mid($counter 1 $userh) == [@]) {
                     		@ counter++
                     		@ ban #= [@]
			}
			@ ban #= [*]
		}
             	@ counter++
      	}
        eval mode * +b $ban
}

#hop'93