Can someone please help Script Search

[joshprice]

I am looking for a script that when someone enters the channel the bot will msg that person and ask them to enter a pass. if the user doesn't enter a pass within a given amount of time the bot will kick+ban the user.

Is there a script like this out there somewhere or can someone please write a small one for me.

Thanks very much

[ppslim]

A simple search on the egghelp.org tcl search would have found you CheckFake.TCL

[joshprice]

Thank you very much, but this script will op the user once they enter the correct pass is there anyway that the bot will do nothing once the user enters the right pass.

Here is the code:
In the code the is a : and a P

Code: Select all

bind join p * check_fake

proc 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 !"

<font size=-1>[ This Message was edited by: joshprice on 2001-11-22 08:03 ]</font>