Eggdrop/TCL random answers

tessa · Post by **tessa** » Sat Jan 15, 2005 11:52 am

Hi@all,

need a little bit help with tcl

My Eggdrop should vote between 3 possible random answers.

Example:

Trigger:

------> !hello Testuser

Possible Answers:

------> $nick says hello to $args !
------> $args , ur welcome!
------> $nick says: $args , nice to see you!

Can't find a tcl-example in google....plz,plz help me

Greetzzz, Tessa

sry 4 my bad english ^^

spock · Post by **spock** » Sat Jan 15, 2005 1:03 pm

Code: Select all

bind pub o !hello pub:hello
proc pub:hello { n u h c t } {
  if {[llength [split $t]] != 1} { return }
  switch [rand 3] {
    0 { puthelp "PRIVMSG $c :$n says hello to $t" }
    1 { puthelp "PRIVMSG $c :$t, ur welcome" }
    2 { puthelp "PRIVMSG $c :$n says: $t, nice to see you" }
  }
  return
}

tessa · Post by **tessa** » Sat Jan 15, 2005 1:08 pm

IT WORXXX!!!

1000 thanks and kisses