simple "parrot" script

[shixxor]

hi there,

i need a simple TCL script that just makes the bot repeat what 2 ppl said. for example

[shixxor]: lol
[peter]: lol

then

[eggdrop]: lol



would be cool if you could help me

[tueb]

Code: Select all

bind pubm - * repeat_pubm
variable lastsaid

proc repeat_pubm {nick host handle channel text} {
global lastsaid
  if {[string equal -nocase $text $lastsaid]} {
     putserv "PRIVMSG $channel :$text"
     set lastsaid $text
  }
}

untested

[nml375]

tueb:
You'd probably like to have the "set lastsaid $text" line outside of the conditional, otherwize it would never be set in the first place.
Also, you'd better test that the variable exists before attempting to read it..

Code: Select all

bind pubm - * repeat_pubm
variable lastsaid

proc repeat_pubm {nick host handle channel text} {
  global lastsaid
  if {[info exists lastsaid] &&[string equal -nocase $text $lastsaid]} {
    putserv "PRIVMSG $channel :$text"
  }
  set lastsaid $text
}

[tueb]

i agree

[username]

I've found this script train.tcl somewhere in french eggdrop site.

[shixxor]

THANK YOU ALL SO MUCH

works perfectly. i <3 u



/closed