egghelp/eggheads community

ok, i read lsearch, but dont understand what the script would look like. bind pub - !add cup:add proc 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"...

Hmm, i dont know much about lists. But, i guess i use: list - to create the new list linsert - to insert the elements lreplace - to replace any elements lsearch - to search the list Thats al i know, i dint know how to use all of them. Could you please help me with these commands. lsearch -exact *$te...

Ok, i have made the script now, it works, but now im at the stage of making the !add !remove and !whois team system. Can anyone give me any ideas who to store the team information like teamname and the nicknames of the people in that team. Also any ideas how to go with the !whois and !remove system ...

Well, you could try searching the TCL Archive or learning TCL. If you looked at a TCL Guide, the first thing you would notice is the binds and the proc. bind notc - * ::ircd::notice That bind looks fine to me, now you need to make a proc for this. proc ::ircd::notice {nick host hand} { if {($nick ==...

demond, would you need the check if the user is added to the bot, [matchattr $h f|f $chan] ?
Otherwise a user could be kicked...?

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

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

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

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

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

ok, this is the new code, the brackets are fixed now. 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,$cha...

arrh, stupid me, thanks Sir_Fz

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] &&...

Hmm, theres a error somewhere in the script, whenever i type !badword add/del word or !badword list nothjing happens, the bot does not report a erro in dcc, and the bot does not reply. Please help!! bind pub - * badwords:check bind pub - !badword bad:words proc badwords:check {nick host hand chan te...

ok, thanks De Kus!