Code:

set lamerusage "Usage: $lamercommand <nick> \[time\]"bind pub $lamerglobalflag|$lamerlocalflag $lamercommand pub:lamerproc pub:lamer { nick uhost handle channel arg } {global botnick lamerdefaulttime lamerusageif {([llength $arg]==0) || (![string is digit [lindex [split $arg] 1]]) || ([llength [lindex [split $arg] 2]])} {putserv "PRIVMSG $channel :$lamerusage"} elseif {[lsearch -exact [string tolower [chanlist $channel]] [string tolower [lindex [split $arg] 0]]]==-1} {putserv "PRIVMSG $channel :Error: \"[lindex [split $arg] 0]\" ist nicht in diesem Channel! $lamerusage"} elseif {![botisop $channel]} {putserv "PRIVMSG $channel :$nick: Ja, du Scherzkeks, dann gib mir OP!"} elseif {[string tolower [lindex [split $arg] 0]]==[string tolower $botnick]} {putserv "PRIVMSG $channel :$nick: So blöd bin ich nun wirklich nicht..."} else {if {[llength [lindex [split $arg] 1]]!=0} {set lamerbantime [lindex [split $arg] 1]} else {set lamerbantime $lamerdefaulttime}set lamerhost [getchanhost [lindex [split $arg] 0] $channel]putserv "MODE $channel +b [lindex [split $arg] 0]!$lamerhost"if {$bantime==1} {set lamermins "minute"} else {set lamermins "minutes"}utimer 2 [list putkick $channel [lindex [split $arg] 0] "banned for $lamerbantime $lamermins"] timer $lamerbantime [list putserv "MODE $channel -b [lindex [split $arg] 0]!$lamerhost"]}}