set channels "#chan1 #chan2"
bind notc - "*" notice
proc notice {nick host hand text dest} {
global channels botnick
foreach chan $channels {
if {$chan == $dest} {
set x [split $host @]
newchanban $chan *!*@[lindex $x 1] $botnick "Another noticing dickhead bites the dust.." 60
}
}
}Statistics: Posted by Guest — Fri Apr 12, 2002 5:38 am
]]>