File: autokick

package info (click to toggle)
epic 3.004-17.1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 5,192 kB
  • ctags: 3,197
  • sloc: ansic: 40,843; makefile: 530; sh: 129; perl: 17
file content (34 lines) | stat: -rw-r--r-- 545 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
30
31
32
33
34
 
/* Autokick and kicknban 1993, 1994 */

load guh
@ auto.kicks = []

alias autokick {
	if (is_on($0) == [$0]) {
		push auto.kicks $uh($0)
	} {
		echo *** $0 is not on irc right now
	}
}
alias unkick {
	if (is_on($0) == [$0]) {
		@ auto.kicks = remw($uh($0) $auto.kicks)
	} {
		echo *** $0 is not on irc right now
	}
}

^on #-join -30 '% % \\[$auto.kicks\\]' {
	kick $1 $0 autokicked
	echo *** AUTOKICK PROTECTION ACTIVATED AGAINST $0
	mode $1 +b *!$2
}

alias kicknban {
	kick * $0 $1
	if (onchannel($0 $C)) {
		mode * +b *!$uh($0)
	}
}

#hop'94