need help with my tcl script

cupid- · Post by **cupid-** » Thu May 01, 2003 1:17 pm

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 ####

Papillon · Post by **Papillon** » Thu May 01, 2003 1:52 pm

Code: Select all

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

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

Code: Select all

proc pub_slap { nick uhost hand dest keyword text } {

cupid- · Post by **cupid-** » Thu May 01, 2003 3:11 pm

doesnt work still

ppslim · Post by **ppslim** » Thu May 01, 2003 6:02 pm

Please re-read your logic.

Code: Select all

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]