Code:

bind join p * check_fakeproc check_fake {nick uhost hand channel} {  global botnick  if {[botisop $channel] == 0} {return 1}  putserv "privmsg $nick :razz:lease enter your password (you have 3 minutes)"  putserv "privmsg $nick :Type  /msg $botnick op <your password> $channel"  set timer_id [utimer 180 "chk_tpass $nick $uhost $hand $channel"]}proc chk_tpass {nick uhost hand channel} {  global banmask botnick      if {[onchan [hand2nick $hand $channel] $channel] == 0} {return 1}    if {[isop [hand2nick $hand $channel] $channel] == 0} {    set lhost "*!*[string range $uhost [string first "@" $uhost] end]"    set ftolhost "[string range $lhost 3 end]"      if {([string match "*ppp*" $ftolhost] || [string match "*dial*" $ftolhost] || [string match "*slip*" $ftolhost])} {        set banmask "*!*[string range $uhost [string first "@" $uhost] end]"      } else {          set banmask "*!*[string trimleft [maskhost $uhost] *!]"        }               putserv "mode $channel -o+b $nick $banmask"      putserv "kick $channel [hand2nick $hand $channel] :Fake OP !"      newchanban $channel $banmask $botnick "Fake OP !" 10      putserv "privmsg $nick :Wrong password !"      return 1    }    putserv "privmsg [hand2nick $hand $channel] :Thank you, $hand !"    return 1}putlog "CheckFake.TCL v1.2 by TeraByte loaded !"