egghelp/eggheads community

need help with a cupbot !add !remove and !whois system

2005-07-05T01:47:57-04:00

My god, Are you still too stupid to test your own scripts?

And, Use the [censored] edit button. There is no need to see all these posts from you when it was you who made the last reply anyway.

Test your OWN scripts, FIND out if there is something wrong.
THEN if you absolutely can't fix it ask us what the problem could be and ALWAYS include the error message.

Don't simply go around asking us if every brace you add is correct. There is also no need to make so much posts all containing the same code that is just slightly altered, Try the edit button for once.

Statistics: Posted by metroid — Tue Jul 05, 2005 1:47 am

need help with a cupbot !add !remove and !whois system

2005-07-04T14:28:33-04:00

oki. I did fixed the script. I didnt delete all the if {[$bla != "bla"]} because i thought if i delete it, people could type 1/2/3/4/5 instaed of 5on5 or 3on3 etc and then the script will be useless. Oh well. Heres the new script. Can you check i have done what you said correct Sir_Fz please.

Code:

proc cup:start {nick host hand chan text} {  if {[matchattr $hand |C $chan]} {    if {[channel get $chan "cup"]} {      putserv "PRIVMSG $chan :Error: Cup is already running."    }    } else {    set cup(slots,$chan) [lindex [split $text] 1]    set cup(type,$chan) [lindex [split $text] 0]    set cup(prize,$chan) [join [lrange [split $text] 2 end]]    if {($cup(type,$chan) != "5on5") && ($cup(type,$chan) != "4on4") && ($cup(type,$chan) != "3on3") && ($cup(type,$chan) != "2on2") && ($cup(type,$chan) != "1on1") && ($cup(type,$chan) == "")} {      putserv "NOTICE $nick :Error: Please enter a correct cup type. ( 5on5 or 4on4 or 3on3 or 2on2 or 1on1 )"      } else {      if {($cup(slots,$chan) != "4") && ($cup(slots,$chan) != "8") && ($cup(slots,$chan) != "16") && ($cup(slots,$chan) != "32") && ($cup(slots,$chan) == "")} {        putserv "NOTICE $nick :Error: Please enter a correct slot entry. ( 4 or 8 or 16 or 32 )"        } else {        if {($cup(prize,$chan) == "")} {          putserv "NOTICE $nick Error: Please enter a prize. ( prize can be anything )"          } else {          channel set $chan +cup          channel set $chan s_cup_slots $cup(slots,$chan)           channel set $chan s_cup_type $cup(type,$chan)           channel set $chan s_cup_prize $cup(prize,$chan)           channel set $chan s_cup_teams 0          channel set $chan s_cup_admin $nick          channel set $chan s_cup_HLTV None set          channel set $chan s_cup_maps de_dust2          putserv "PRIVMSG $chan :The $chan [channel get $chan "s_cup_type"] is now on with [channel get $chan "s_cup_slots"] slots."          putserv "PRIVMSG $chan :Your admin is [channel get $chan "s_cup_admin"] and the map is [channel get $chan "s_cup_maps"]."          putserv "PRIVMSG $chan :Bot by #cupcentrum join to request your bot."          } else {          if {![matchattr $hand |C $chan]} {            putserv "NOTICE $nick :Error: you do not have access to this command."          }           }      }    }     }}

Statistics: Posted by r0t3n — Mon Jul 04, 2005 2:28 pm

need help with a cupbot !add !remove and !whois system

2005-07-04T13:35:33-04:00

oki, ill fix it. Thanks Sir_Fz

Statistics: Posted by r0t3n — Mon Jul 04, 2005 1:35 pm

need help with a cupbot !add !remove and !whois system

2005-07-03T19:29:22-04:00

Ok for starters:

Code:

if {($bla != "bla") && ($bla != "bla1") && ($bla != "bla2") && ($bla == "")} {

is the same as

Code:

if {$bla == ""} {

and

Code:

if {[something]} { # bla} elseif {![something]} { # bla}

is the same as

Code:

if {[something]} { # bla} else { # bla}

Also you can't use two consecutive elses. i.e

Code:

if {[foo]} { # bla} else { # bli} else { # blo}

is wrong, it's either if-else, if-elseif or if-elseif-else (and you can specify as much elseifs as you want).
Try to fix these out, and let's see what happens then.

Statistics: Posted by Sir_Fz — Sun Jul 03, 2005 7:29 pm

need help with a cupbot !add !remove and !whois system

2005-07-03T09:57:39-04:00

ok, here we are Sir_Fz the script is sorted and ready for you

Code:

proc cup:start {nick host hand chan text} {  if {[matchattr $hand |C $chan]} {    if {[channel get $chan "cup"]} {      putserv "PRIVMSG $chan :Error: Cup is already running."      } elseif {![channel get $chan "cup"]} {      set cup(slots,$chan) [lindex [split $text] 1]      set cup(type,$chan) [lindex [split $text] 0]      set cup(prize,$chan) [join [lrange [split $text] 2 end]]      if {($cup(type,$chan) != "5on5") && ($cup(type,$chan) != "4on4") && ($cup(type,$chan) != "3on3") && ($cup(type,$chan) != "2on2") && ($cup(type,$chan) != "1on1") && ($cup(type,$chan) == "")} {        putserv "NOTICE $nick :Error: Please enter a correct cup type. ( 5on5 or 4on4 or 3on3 or 2on2 or 1on1 )"        } elseif {($cup(slots,$chan) != "4") && ($cup(slots,$chan) != "8") && ($cup(slots,$chan) != "16") && ($cup(slots,$chan) != "32") && ($cup(slots,$chan) == "")} {        putserv "NOTICE $nick :Error: Please enter a correct slot entry. ( 4 or 8 or 16 or 32 )"        } elseif {($cup(prize,$chan) == "")} {        putserv "NOTICE $nick Error: Please enter a prize. ( prize can be anything )"        } else {        channel set $chan +cup        channel set $chan s_cup_slots $cup(slots,$chan)         channel set $chan s_cup_type $cup(type,$chan)         channel set $chan s_cup_prize $cup(prize,$chan)         channel set $chan s_cup_teams 0        channel set $chan s_cup_admin $nick        channel set $chan s_cup_HLTV None set        channel set $chan s_cup_maps de_dust2        putserv "PRIVMSG $chan :The $chan [channel get $chan "s_cup_type"] is now on with [channel get $chan "s_cup_slots"] slots."        putserv "PRIVMSG $chan :Your admin is [channel get $chan "s_cup_admin"] and the map is [channel get $chan "s_cup_maps"]."        putserv "PRIVMSG $chan :Bot by #cupcentrum join to request your bot."        } else {        putserv "NOTICE $nick :Error: you do not have access to this command."      }       }  }}

i sorted out the layout.

Statistics: Posted by r0t3n — Sun Jul 03, 2005 9:57 am

need help with a cupbot !add !remove and !whois system

2005-07-02T19:30:08-04:00

ok. Thanks Sir_Fz ill do that tomorrow

Statistics: Posted by r0t3n — Sat Jul 02, 2005 7:30 pm

need help with a cupbot !add !remove and !whois system

2005-07-02T18:56:33-04:00

No, I'm saying write your code in a good format so we would want to help you.

Statistics: Posted by Sir_Fz — Sat Jul 02, 2005 6:56 pm

need help with a cupbot !add !remove and !whois system

2005-07-02T16:10:11-04:00

ok. But Sir_Fz i dont understand. What is the error. Are you saying its a layout error, bracket error or script error?

Statistics: Posted by r0t3n — Sat Jul 02, 2005 4:10 pm

need help with a cupbot !add !remove and !whois system

2005-07-02T15:49:58-04:00

First, try to have a nice format in your scripts. Read this post from the 'Tip of the day' topic.

Statistics: Posted by Sir_Fz — Sat Jul 02, 2005 3:49 pm

need help with a cupbot !add !remove and !whois system

2005-07-02T15:17:06-04:00

so, whats the error then Sir_Fz if you dont mind helping me ;p

Statistics: Posted by r0t3n — Sat Jul 02, 2005 3:17 pm

need help with a cupbot !add !remove and !whois system

2005-07-02T14:07:23-04:00

Actually, that would return 1 if you have a global C flag or a $chan C flag. (the first if statement)

Statistics: Posted by Sir_Fz — Sat Jul 02, 2005 2:07 pm

need help with a cupbot !add !remove and !whois system

2005-07-02T13:43:32-04:00

i think i found the error:

Code:

if {[matchattr $hand C|C $chan]} {

should be

Code:

if {[matchattr $hand |C $chan]} {

Otherwise it means you need global and channel flag +C

Statistics: Posted by r0t3n — Sat Jul 02, 2005 1:43 pm

need help with a cupbot !add !remove and !whois system

2005-07-02T12:42:53-04:00

Also, can anyone tell me why this script says i have no access, even when i have given myself the global and channel +C flag for cupadmin.

does the bot recognizes your hostmask?

Statistics: Posted by YooHoo — Sat Jul 02, 2005 12:42 pm

need help with a cupbot !add !remove and !whois system

2005-07-02T10:19:54-04:00

Also, can anyone tell me why this script says i have no access, even when i have given myself the global and channel +C flag for cupadmin.

Code:

proc cup:start {nick host hand chan text} {if {[matchattr $hand C|C $chan]} {if {[channel get $chan "cup"]} {putserv "PRIVMSG $chan :Error: Cup is already running."} elseif {![channel get $chan "cup"]} {set cup(slots,$chan) [lindex [split $text] 1]set cup(type,$chan) [lindex [split $text] 0]set cup(prize,$chan) [join [lrange [split $text] 2 end]]if {($cup(type,$chan) != "5on5") && ($cup(type,$chan) != "4on4") && ($cup(type,$chan) != "3on3") && ($cup(type,$chan) != "2on2") && ($cup(type,$chan) != "1on1") && ($cup(type,$chan) == "")} {putserv "NOTICE $nick :Error: Please enter a correct cup type. ( 5on5 or 4on4 or 3on3 or 2on2 or 1on1 )"} elseif {($cup(slots,$chan) != "4") && ($cup(slots,$chan) != "8") && ($cup(slots,$chan) != "16") && ($cup(slots,$chan) != "32") && ($cup(slots,$chan) == "")} {putserv "NOTICE $nick :Error: Please enter a correct slot entry. ( 4 or 8 or 16 or 32 )"} elseif {($cup(prize,$chan) == "")} {putserv "NOTICE $nick Error: Please enter a prize. ( prize can be anything )"} else {channel set $chan +cupchannel set $chan s_cup_slots $cup(slots,$chan) channel set $chan s_cup_type $cup(type,$chan) channel set $chan s_cup_prize $cup(prize,$chan) channel set $chan s_cup_teams 0channel set $chan s_cup_admin $nickchannel set $chan s_cup_HLTV None setchannel set $chan s_cup_maps de_dust2putserv "PRIVMSG $chan :The $chan [channel get $chan "s_cup_type"] is now on with [channel get $chan "s_cup_slots"] slots."putserv "PRIVMSG $chan :Your admin is [channel get $chan "s_cup_admin"] and the map is [channel get $chan "s_cup_maps"]."putserv "PRIVMSG $chan :Bot by #cupcentrum join to request your bot."} else {putserv "NOTICE $nick :Error: you do not have access to this command."}   }}}

Thanks in advance!!

Statistics: Posted by r0t3n — Sat Jul 02, 2005 10:19 am

need help with a cupbot !add !remove and !whois system

2005-07-02T09:44:21-04:00

ok, i read lsearch, but dont understand what the script would look like.

Code:

bind pub - !add cup:addproc cup:add {nick host hand chan text} {if {![channel get $chan "cup"]} {putserv "PRIVMSG $chan :Error: $nick there is no cup runnnig."} elseif {[channel get $chan "cup"]} {set teamname [lindex [split $text] 5]set p1 [lindex [split $text] 1]set p2 [lindex [split $text] 2]set p3 [lindex [split $text] 3]set p4 [lindex [split $text] 4]if {([channel get $chan "s_cup_type"] == 5on5)} {blah} elseif 4on4 2on3 2on2 1on1 etc {blah} else {list $teamname $nick $p1 $p2 $p3 $p4putserv "PRIVMSG $chan :$nick signed up $p1 & $2 & $p3 & $p4 as team: $teamname."}}Would that work, please helpThanks in advance!! im a nuub and list operations!

Statistics: Posted by r0t3n — Sat Jul 02, 2005 9:44 am