egghelp/eggheads community

cupbot error

2005-06-27T17:09:14-04:00

now, this is a big error, the script does not work as such:

When i set $cup(cup,$chan) off
and type .start 5on5 8 testing
the bot replys, Error: a cup is alreadt running, blah

But, the cup is not running, and $cup(cup,$chan) is set to off, please can you check the script, it will be a big help to me as im trying to get this finished asap for my channel.

Ths script:

Code:

proc start:cup {nick host handle chan text} { global cup set cup(slots,$chan) [lindex [split $text] 2] set cup(prize,$chan) [join [lrange [split $text] 3 end]] set cup(type,$chan) [lindex [split $text] 1] set cup(admin,$chan) $nick set cup(map,$chan) de_dust2 if {![matchattr $handle o|o $chan] && ![matchattr $handle C|C $chan]} { putserv "PRIVMSG $chan :Error: you do not have access to this command $nick." } elseif {[matchattr $handle o|o $chan] || [matchattr $handle C|C $chan] && ($cup(cup,$chan) == on)} { putserv "PRIVMSG $chan :Error: a cup is already running, use ./!/?stop to stop the cup." } elseif {[matchattr $handle o|o $chan] || [matchattr $handle C|C $chan] && ($cup(cup,$chan) == off)} { if {($cup(type,$chan) != "1on1") && ($cup(type,$chan) != "2on2") && ($cup(type,$chan) != "5on5") && ($cup(type,$chan) == "")} { putserv "PRIVMSG $chan :Error: No cup type was given, or invalid entery, please use ./!/?start 1on1/2on2/5on5 4/8/16/32 prize." } elseif {($cup(slots,$chan) == "")} { putserv "PRIVMSG $chan :Error: no slots was given, please use ./!/?start slots prize." } elseif {($cup(prize,$chan) == "")} { putserv "PRIVMSG $chan :Error: no prize was given, please use ./!/?start slots prize." } elseif {($cup(slots,$chan) != "") && ($cup(prize,$chan) != "") && ($cup(type,$chan) != "")} { putserv "PRIVMSG $chan :The $chan $cup(type,$chan) cup has begun with $cup(slots,$chan) slots." putserv "PRIVMSG $chan :Your admin is: $cup(admin,$chan) and the map is $cup(map,$chan)."set cup(cup,$chan) on  } } }

Thanks in advance!!

Statistics: Posted by r0t3n — Mon Jun 27, 2005 5:09 pm

cupbot error

2005-06-27T16:16:43-04:00

arrh, Hmm, i fixed that earlier, i think i must have pasted the old scropt, oh well, thanks!!

Statistics: Posted by r0t3n — Mon Jun 27, 2005 4:16 pm

cupbot error

2005-06-27T16:09:50-04:00

check your damn parenthesis and stop asking for help on [censored] that you can damn well fix on your own if you just look at your own [censored] code.

Code:

} elseif {($cup(prize,$chan) == ""} {

^^ spot the mistake sir_fz told you about earlier.

Statistics: Posted by ^DooM^ — Mon Jun 27, 2005 4:09 pm

cupbot error

2005-06-27T14:33:47-04:00

well, i got the start system as you can see, just fixing the errors, i got the stop, prize, setprize, hltv sethltv, etc etc. Making a !add system aswell, and a !remove then some more stuff. Coming on good. Someone please help with that error shown above!!

Statistics: Posted by r0t3n — Mon Jun 27, 2005 2:33 pm

cupbot error

2005-06-27T14:10:53-04:00

glad to hear ur getting there! how large is the total script so far?

Statistics: Posted by fajja — Mon Jun 27, 2005 2:10 pm

cupbot error

2005-06-27T14:10:53-04:00

omg, these errors are flying at me, <[Cup-Bot]> [19:09] Tcl error [start:cup]: syntax error in expression "($cup(prize,$chan) == """: looking for close parenthesis

please help!!
im nuub at tcl now

Statistics: Posted by r0t3n — Mon Jun 27, 2005 2:10 pm

cupbot error

2005-06-27T14:05:28-04:00

arrh, ok, also the 5on5 ;p, ok, thanks Sir_Fz

Statistics: Posted by r0t3n — Mon Jun 27, 2005 2:05 pm

cupbot error

2005-06-27T13:58:54-04:00

1on1 and 2on2 should be between quotes ""

Statistics: Posted by Sir_Fz — Mon Jun 27, 2005 1:58 pm

cupbot error

2005-06-27T13:55:11-04:00

ok, this is the new code, the brackets are fixed now.

Code:

proc start:cup {nick host hand chan text} { global cup set cup(slots,$chan) [lindex [split $text] 2] set cup(prize,$chan) [join [lrange [split $text] 3 end]] set cup(type,$chan) [lindex [split $text] 1] set cup(admin,$chan) $nick set cup(map,$chan) de_dust2 if {![matchattr $handle o|o $chan] && ![matchattr $handle C|C $chan]} { putserv "PRIVMSG $chan :Error: you do not have access to this command $nick." } elseif {[matchattr $handle o|o $chan] || [matchattr $handle C|C $chan] && ($cup(cup,$chan) == on)} { putserv "PRIVMSG $chan :Error: a cup is already running, use ./!/?stop to stop the cup." } elseif {[matchattr $handle o|o $chan] || [matchattr $handle C|C $chan] && ($cup(cup,$chan) == off)} { set cup(cup,$chan) on if {($cup(type,$chan) != 1on1) && ($cup(type,$chan) != 2on2) && ($cup(type,$chan) != 5on5) && ($cup(type,$chan) == "")} { putserv "PRIVMSG $chan :Error: No cup type was given, or invalid entery, please use ./!/?start 1on1/2on2/5on5 4/8/16/32 prize." } elseif {($cup(slots,$chan) == "")} { putserv "PRIVMSG $chan :Error: no slots was given, please use ./!/?start slots prize." } elseif {($cup(prize,$chan) == ""} { putserv "PRIVMSG $chan :Error: no prize was given, please use ./!/?start slots prize." } elseif {($cup(slots,$chan) != "") && ($cup(prize,$chan) != "") && ($cup(type,$chan) != "")} { putserv "PRIVMSG $chan :The $chan $cup(type,$chan) cup has begun with $cup(slots,$chan) slots." putserv "PRIVMSG $chan :Your admin is: $cup(admin,$chan) and the map is $cup(map,$chan)." } } }

but, another error,

<[Cup-Bot]> [18:51] Tcl error [start:cup]: syntax error in expression "($cup(type,$chan) != 1on1) && ($cup(type,$chan) != 2on2) && ...": looking for close parenthesis

Dont know what the heck that means, please help, thanks in advance!!

Statistics: Posted by r0t3n — Mon Jun 27, 2005 1:55 pm

cupbot error

2005-06-27T13:16:08-04:00

arrh, stupid me, thanks Sir_Fz

Statistics: Posted by r0t3n — Mon Jun 27, 2005 1:16 pm

cupbot error

2005-06-27T12:58:06-04:00

The same problem over and over... Look at your open and close braces, do you see them as balanced ? when you open a brace ('{') you close it with a another brace ('}') while ')' closes a '('.

Statistics: Posted by Sir_Fz — Mon Jun 27, 2005 12:58 pm

cupbot error

2005-06-27T12:57:04-04:00

try putting the elseif statement on a new line after the close braces...
dunno much about tcl myself, but in other languages it can screw things up

hope this helps..

Statistics: Posted by fajja — Mon Jun 27, 2005 12:57 pm

cupbot error

2005-06-27T12:35:50-04:00

Code:

proc start:cup {nick host hand chan text} {  global cup  set cup(slots,$chan) [lindex [split $text] 2]  set cup(prize,$chan) [join [lrange [split $text] 3 end]]   set cup(type,$chan) [lindex [split $text] 1]   set cup(admin,$chan) $nick  set cup(map,$chan) de_dust2  if {![matchattr $handle o|o $chan] && ![matchattr $handle C|C $chan]} {    putserv "PRIVMSG $chan :Error: you do not have access to this command $nick."    } elseif {[matchattr $handle o|o $chan] || [matchattr $handle C|C $chan] && ($cup(cup,$chan) == on)} {    putserv "PRIVMSG $chan :Error: a cup is already running, use ./!/?stop to stop the cup."    } elseif {[matchattr $handle o|o $chan] || [matchattr $handle C|C $chan] && ($cup(cup,$chan) == off)} {    set cup(cup,$chan) on    if {($cup(type,$chan) != 1on1) && ($cup(type,$chan) != 2on2) && ($cup(type,$chan) != 5on5)} && ($cup(type,$chan) == "")  {      putserv "PRIVMSG $chan :Error: No cup type was given, or invalid entery, please use ./!/?start 1on1/2on2/5on5 4/8/16/32 prize."      } elseif {($cup(slots,$chan) == "")} {      putserv "PRIVMSG $chan :Error: no slots was given, please use ./!/?start slots prize."      } elseif {($cup(prize,$chan) == ""} {      putserv "PRIVMSG $chan :Error: no prize was given, please use ./!/?start slots prize."      } elseif {$cup(slots,$chan) != "") && ($cup(prize,$chan) != "")} && ($cup(type,$chan) != "")  {      putserv "PRIVMSG $chan :The $chan $cup(type,$chan) cup has begun with $cup(slots,$chan) slots."      putserv "PRIVMSG $chan :Your admin is: $cup(admin,$chan) and the map is $cup(map,$chan)."    }  }}

<[Cup-Bot]> [16:47] Tcl error [start:cup]: extra characters after close-quote

I cant find the error in this script, i have tryed fixing it, it still dont work. Maybe im not looking hard enough ;p please help, Thanks in advance!!

Statistics: Posted by r0t3n — Mon Jun 27, 2005 12:35 pm