Code:

proc antitrout:ctcp:action {nick uhost hand dest keyword arg} { global botnick troutkickmethod troutkickreason troutbantime if { [validchan $dest] == 1 && ([string tolower [lindex $arg 0]] == "slaps" || [string tolower [lindex $arg 0]] == "slap") && [lsearch [string tolower $arg] trout] >= 2 && [string tolower $nick] != [string tolower $botnick] && [botisop $dest] == 1 } {  if { $troutkickmethod == 0 && [string tolower [lindex $arg 1]] == [string tolower $botnick] } {   putserv "kick $dest $nick :$troutkickreason"  }  if { $troutkickmethod == 1 } {   putserv "kick $dest $nick :$troutkickreason"  }  if { $troutkickmethod == 2 && [string tolower [lindex $arg 1]] == [string tolower $botnick] } {   scan [string tolower [getchanhost $nick $dest]] "%\[^@]@%s" host host   newchanban $dest *!*@$host $botnick "$troutkickreason" $troutbantime  }  if { $troutkickmethod == 3 } {   scan [string tolower [getchanhost $nick $dest]] "%\[^@]@%s" host host   newchanban $dest *!*@$host $botnick "$troutkickreason" $troutbantime  } } return 0}putlog "Anti Trout Slap v1.1 By Dude \002Loaded...\002"