proc ab:act {nick uhost hand dest keyword text} {
if {([string match -nocase "*is*away*" $text]) || ([string match -nocase "*is*back*" $text])} {
putquick "mode #channel +b *!*@[lindex [split $uhost @] 1]"
putquick "kick #channel $nick :Public Away/Back = KickBan" }
}
bind ctcp - "ACTION" ab:act