File: autokick

package info (click to toggle)
epic4 1%3A3.0-2.2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 3,756 kB
  • sloc: ansic: 56,285; makefile: 631; sh: 161; perl: 30
file content (34 lines) | stat: -rw-r--r-- 551 bytes parent folder | download | duplicates (12)
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 *!$userhost($0)
	}
}

#hop'94