ctcp @!*:*:#: { if ($nick isreg #) { .signal -n a # $nick | haltdef } }
on *:signal:*: {
if ($signal == a) { signal -n d $gettok($1-,1-2,32) ctcp }
if ($signal == d) {
if ($gettok($1-,2,32) ison $gettok($1-,1,32)) {
.hinc -u3m d y
;if ($hget(d,y) > 19) {
.inc -u2 %dy
if (%dy < 22) { !.quote -qmcH kick $gettok($1-,1-2,32) $3 %logo }
.hadd -u2m o $+($2,*@*banned*)
.timer_ 1 3 !mode $chan $1 $+(+,$str(b,$hget(o,*).item)) $hget(o,1).item $hget(o,2).item $hget(o,3).item $hget(o,4).item $hget(o,5).item $hget(o,6).item $hget(o,7).item $hget(o,8).item $hget(o,9).item $hget(o,10).item $hget(o,11).item $hget(o,12).item }
}
}