# actban variable is setting ban time in minutes
# use 0 to make perm
set actban 10
bind ctcp - ACTION ban:act
proc ban:act { nick uhost hand dest key text } {
#uncomment next line to exclude chanops
if {[isop $nick] || [matchattr $hand f|f $dest]} { return 0 }
newban ~q:*!$uhost $::botnick action_ban $::actban
foreach chan [channels] {
if [onchan $nick $chan] { pushmode $chan +b ~q:*!*@[lindex [split $uhost @] 1] }
}
}