egghelp/eggheads community

Problem with arrays

2006-11-27T01:11:44-04:00

Instead of a foreach loop to catch all the users on the channel and setting them in an array, why not check if the variable for the user exists then set it if not.

For example:

Code:

proc battle:mainchan {nick host hand chan text} {   global warned   set chan [string tolower $chan]   if {[string equal $chan "#century0"]} {     if {![info exists warned($nick)]} {       set warned($nick) "0"       return     }     ..... rest of code here ......}

Also maybe put all of those string match's into one simple regexp.

Hope this helps..!

Statistics: Posted by r0t3n — Mon Nov 27, 2006 1:11 am

Problem with arrays

2006-11-26T22:05:57-04:00

You're testing {$nick == $botnick} first, so of course the part where the array is being set, is not going to be set unless the nick is the botnick..

You probably want to do {foreach nick [chanlist #century0]} {if {$nick != $botnick} and so on, so that the arrays are set for each nick except botnick...But, actually, that will only work on existing names in the channel, and not when they join/part/quit. It would be more reasonable to test for some condition that you're trying to warn for, set the array var for the nick, then execute whatever warning/punishment..

The logic and intention of your original script is not very clear, so it's difficult to make suggestions..

Statistics: Posted by rosc2112 — Sun Nov 26, 2006 10:05 pm

Problem with arrays

2006-11-26T20:44:57-04:00

Alright, this is my solution, but sadly, it doesn't work for the main part (if $nick == $botnick, then find all nicks in chan and set them to 0.

Code:

bind join - "#century0 *" battle:setnicksarray set warned {}proc battle:setnicks {nick uhost handle chan} {global warned botnickif {$nick == $botnick} {foreach nick [chanlist #century0] {set warned($nick) 0}} else {set warned($nick) 0}}

Could it be because the code is executing before the bot has got the list or did I just do it wrong?

Statistics: Posted by Nara — Sun Nov 26, 2006 8:44 pm

Problem with arrays

2006-11-26T00:27:36-04:00

look here for "chanlist"

Statistics: Posted by DragnLord — Sun Nov 26, 2006 12:27 am

Problem with arrays

2006-11-26T00:23:52-04:00

http://www.eggheads.org/support/egghtml ... mands.html

Statistics: Posted by rosc2112 — Sun Nov 26, 2006 12:23 am

Problem with arrays

2006-11-25T23:52:21-04:00

What's the command to see names in a chan, preferably one I could use like [foreach nick chan]?

Statistics: Posted by Nara — Sat Nov 25, 2006 11:52 pm

Problem with arrays

2006-11-25T23:45:44-04:00

You have to at least init the var with the nick, so somewhere you need to do like: set warned($nick) ""

Statistics: Posted by rosc2112 — Sat Nov 25, 2006 11:45 pm

Problem with arrays

2006-11-25T23:38:34-04:00

Well, can you help me come up with a way to initialize the variable, because I can't just set it to a value because it could be 1 or 0.

Statistics: Posted by Nara — Sat Nov 25, 2006 11:38 pm

Problem with arrays

2006-11-25T23:31:00-04:00

Code:

if {$warned($nick) == 1} {               putserv "PRIVMSG Chanserv :#century0 addtimedban $nick 3m Advertising is not permitted in #hotrockplanet. Please read @advertising and @rockrules when you return. \[3 minute ban\]"               set warned($nick) 0

You test the var before ever setting it elsewhere (line 9 of the proc)..

Statistics: Posted by rosc2112 — Sat Nov 25, 2006 11:31 pm

Problem with arrays

2006-11-25T23:19:07-04:00

Besides the fact it's probably an obvious method, I did follow that topic unless you're talking about .set errorInfo?

If so:

Code:

[22:18] #Century0# set errorInfoCurrently: can't read "warned(Ging_sleepTIME)": no such element in arrayCurrently:     while executingCurrently: "if {$warned($nick) == 1} {Currently:                                      putserv "PRIVMSG Chanserv :#cent                                              ury0 addtimedban $nick 3m Advertising is not permitted in #hotrockplanet. Please                                               read ..."Currently:     (procedure "battle:mainchan" line 9)Currently:     invoked from withinCurrently: "battle:mainchan $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"

Statistics: Posted by Nara — Sat Nov 25, 2006 11:19 pm

Problem with arrays

2006-11-25T21:14:48-04:00

Help us to help you

Statistics: Posted by rosc2112 — Sat Nov 25, 2006 9:14 pm

Problem with arrays

2006-11-25T21:09:53-04:00

Alright, here's what I got:

Code:

bind notc - * battle:noticekickbind pubm - * battle:mainchanbind time - "00 * * * *" battle:unsetwarnarray set warned {}proc battle:noticekick {nick uhost handle text dest} {if {[validchan $dest]} {set dest [string tolower $dest]if {[string equal $dest "#century0"] && ![matchattr $handle D]} {putquick "PRIVMSG Chanserv :#century0 addtimedban $nick 3m Please for the love all that’s holy and rocky don’t do that. Trust us if we want the channel to make a large beeping sound…..we can do it ourselves. \[3 minute ban\]"}}}proc battle:warnnick {nick host hand chan text} {putserv "NOTICE $nick :You almost stepped on a landmine there Mr. Rockstar. Check out @rockrules and @advertising"}proc battle:mainchan {nick host hand chan text} {global warnedset chan [string tolower $chan]if {[string equal $chan "#century0"]} {set text [stripcodes bcr $text]if {[string match -nocase "*hotrockplanet*" $text] || [string match -nocase "*egln*" $text]} {return 0} elseif {[string match -nocase "*#*" $text] || [string match -nocase "*www*" $text] || [string match -nocase "*.com*" $text] || [string match -nocase "*.net*" $text] || [string match -nocase "*.org*" $text] || [string match -nocase "*http*" $text]} {if {$warned($nick) == 1} {putserv "PRIVMSG Chanserv :#century0 addtimedban $nick 3m Advertising is not permitted in #hotrockplanet. Please read @advertising and @rockrules when you return. \[3 minute ban\]"set warned($nick) 0} else {set warned($nick) 1battle:warnnick nick host hand chan text}} else {return 0}}}proc battle:unsetwarn { min hour day month year } {global warned foreach nick [array names warned] { if {$warned($nick) == 1} {   set $warned($nick) 0  }}}

Here's the error:

Code:

[19:59] Tcl error [battle:mainchan]: can't read "warned(HRock|Darin)": no such element in array

~Nara

Statistics: Posted by Nara — Sat Nov 25, 2006 9:09 pm