a mimic tcl please

harry · Post by **harry** » Thu Oct 30, 2003 4:04 pm

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

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

Post by **CrazyCat** » Fri Oct 31, 2003 3:58 am

Code: Select all

bind pub -|o "!mimic" mimic:start
bind pub -|o "!nomimic" mimic:stop

set 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"
   }
}

Post by **Sir_Fz** » Fri Oct 31, 2003 9:31 am

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

harry · Post by **harry** » Sat Nov 01, 2003 4:05 am

thanks guys

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