egghelp/eggheads community

need help with my tcl script

2003-05-01T18:02:45-04:00

Please re-read your logic.

Code:

proc pub_slap { nick uhost hand dest chan keyword text } { global botnick global slapreply if {[string index $dest 0] != "#"} { return 0 } if {[lindex $text 1] == "slaps"} { if {[lindex $text 1] == $botnick} { putserv "PRIVMSG $chan :[lindex $slapreply [rand [llength $slapreply]]]" } } }

The above requores that the 2nd word be slaps, and that your botnick be slaps.

My guess is you want the index to be 0 for the slaps match.

Aditionaly, you are using list commands (lindex) on a string ($text). You need to convert the string into a list first using [split]

Statistics: Posted by ppslim — Thu May 01, 2003 6:02 pm

need help with my tcl script

2003-05-01T15:11:38-04:00

doesnt work still

Statistics: Posted by Guest — Thu May 01, 2003 3:11 pm

need help with my tcl script

2003-05-01T13:52:51-04:00

Code:

proc pub_slap { nick uhost hand dest chan keyword text } {

this line is wrong, read the tcl-commands.doc about binds

Code:

proc pub_slap { nick uhost hand dest keyword text } {

Statistics: Posted by Papillon — Thu May 01, 2003 1:52 pm

need help with my tcl script

2003-05-01T13:17:17-04:00

Can someone tell me whats wrong with my code?
this is the error i got.

TCL error [pub_slap]: no value given for parameter "keyword" to "pub_slap"

#### Revenge - Slap - Start ####

bind ctcp - "ACTION" pub_slap

set slapreply {
"reply 1"
"reply 2"
"reply 3"
"reply 4"
"reply 5"
}

proc pub_slap { nick uhost hand dest chan keyword text } {
global botnick
global slapreply
if {[string index $dest 0] != "#"} { return 0 }
if {[lindex $text 1] == "slaps"} {
if {[lindex $text 1] == $botnick} {
putserv "PRIVMSG $chan :[lindex $slapreply [rand [llength $slapreply]]]"
}
}
}

#### Revenge - Slap - End ####

Statistics: Posted by Guest — Thu May 01, 2003 1:17 pm