egghelp/eggheads community

a mimic tcl please

2003-11-01T04:05:16-04:00

thanks guys

but i cant seem to get it working it doesnt say there are any errors , so i dont know

Statistics: Posted by harry — Sat Nov 01, 2003 4:05 am

a mimic tcl please

2003-10-31T09:31:33-04:00

use [string tolower $chan] == [string tolower $channel] and same thing for matching $nick with victim.. incase of case-differences.

Statistics: Posted by Sir_Fz — Fri Oct 31, 2003 9:31 am

a mimic tcl please

2003-10-31T03:58:56-04:00

Code:

bind pub -|o "!mimic" mimic:startbind pub -|o "!nomimic" mimic:stopset channel "#your_chan"proc mimic:start {nick uhost handle chan args} {   global botnick channel victim   if {$chan != [string tolower $channel]} {      return 0   }   if {$args == ""} {      return 0   }   if {[info exists victim]} {      putserv "PRIVMSG $chan :I'm allready working"      return 0   }   set victim $nick   bind pubm - * mimic:repeat}proc mimic:stop {nick uhost handle chan args} {   global botnick channel victim   if {$chan != [string tolower $channel]} {      return 0   }   if {$args == ""} {      return 0   }   if {![info exists victim]} {      putserv "PRIVMSG $chan :I'm noy working"      return 0   }   unset victim   unbind pubm - * mimic:repeat}proc mimic:repeat {nick uhost hand chan text} {   global botnick victim channel   if {$nick == $victim} {      putserv "PRIVMSG $channel :$text"   }}

Statistics: Posted by CrazyCat — Fri Oct 31, 2003 3:58 am

a mimic tcl please

2003-10-30T16:04:59-04:00

i need a script that will repeat everything a user says with this public command: !mimic ,then make it stop by: !nomimic
master specific

note it only is going to be used in a private channel

Statistics: Posted by harry — Thu Oct 30, 2003 4:04 pm