egghelp/eggheads community

Does utimer/timer have to be a proc or can it be like an if?

2006-11-12T22:22:11-04:00

"array names" is your friend here; returns a list of all the keys in a speciffic array.
Something like this I suppose:

Code:

proc test_nicks {} { global warned foreach nick [array names warned] {  if {$warned($nick) == 1} {   #evil spammer  } }}

Modify to suit your needs

Statistics: Posted by nml375 — Sun Nov 12, 2006 10:22 pm

Does utimer/timer have to be a proc or can it be like an if?

2006-11-12T20:32:12-04:00

Store them in an array (as I showed you above).

Then where does the list of nicks to check come from? [I never got much experience in lists and while loops, so if you could help, I'd most appreciate.]

~Nara

Statistics: Posted by Nara — Sun Nov 12, 2006 8:32 pm

Does utimer/timer have to be a proc or can it be like an if?

2006-11-12T20:18:36-04:00

Store them in an array (as I showed you above).

Statistics: Posted by Sir_Fz — Sun Nov 12, 2006 8:18 pm

Does utimer/timer have to be a proc or can it be like an if?

2006-11-12T20:16:52-04:00

Alright - here's what I'm trying to do, so help me out here.

This is an anti-ad script. I already fixed the wildcard and the bind [mistakes from coding all of this in under 2 minutes].

It needs to have a warning system, hence the $nick.warned stuff. I need a good way to store all nicks that are warned and then permit me to run them all through hourly. [probably with a bind time for hourly if it can be put into a protocol?]

Statistics: Posted by Nara — Sun Nov 12, 2006 8:16 pm

Does utimer/timer have to be a proc or can it be like an if?

2006-11-12T12:30:45-04:00

I noticed it, but didn't edit it. After all, it's just an example

Statistics: Posted by Sir_Fz — Sun Nov 12, 2006 12:30 pm

Does utimer/timer have to be a proc or can it be like an if?

2006-11-12T12:25:55-04:00

I think you mean

Code:

set warned($nick) 1

in the first proc

Statistics: Posted by metroid — Sun Nov 12, 2006 12:25 pm

Does utimer/timer have to be a proc or can it be like an if?

2006-11-12T12:09:53-04:00

You need to create not a variable, but an array. A global array. For example:

Code:

proc bla {nick uhost hand chan} { global warned # ...etc set warned($nick) 0 timer 60 [list blo $nick]}proc blo nick { global warned if {$warned($nick) == 1} { set warned($nick) 0 }}

Statistics: Posted by Sir_Fz — Sun Nov 12, 2006 12:09 pm

Does utimer/timer have to be a proc or can it be like an if?

2006-11-12T01:11:32-04:00

Ohh my..is that the entire script? Cos..it's wrong in a lot of places..Starting with:

bind pub - * battle:mainchan

if you want a trigger to work on any possible input, you need to use pubm, which accepts wildcards, bind pub does not.

Where are the text1 and text2 global vars defined? They're not in the script as posted..

"string match" needs wildcards like

string match -nocase "*.com*" $text

unless you anticipate an exact match (just .com in the $text var)

text input from users should be split, [split $text] to make it safe, many functions will choke on tcl-special chars, otherwise. Read: http://www.peterre.com/characters.html

And actually, instead of using string match so much, and since you'd be wise to [split $text] you'd prolly be better off using lsearch to compare lists, like for your channel check:

in the global space:
set mychans "#mychan #chan2 #etc"

then within the pub (or pubm)q proc:

Code:

proc whatever {nick uhost hand chan text} {global mychansif {[lsearch -exact $mychans $chan]} {          #this is a matching channel          # do stuff} else {           # this is not a match           # return}

Using [split] creates a list, on which you can use lsearch, lindex, lrange, lreplace, etc.

As for the timer, I'd make a seperate proc to run the test in. You'd need to set a global var to pass to the other proc as well, so within your
proc battle:mainchan, make nickwarned a global var, add it to the list of global vars at the beginning of the proc, then have it set by the proc. Also within the proc battle:mainchan you set your timer:

timer 60 [list someproc $nick]

Then when your timer runs the seperate proc for testing, you add that nickwarned var as a global there too:

Code:

proc someproc {nick}    global nickwarned     if {$nick.warned == 1} {set $nick.warned 0}}

Statistics: Posted by rosc2112 — Sun Nov 12, 2006 1:11 am

Does utimer/timer have to be a proc or can it be like an if?

2006-11-11T18:59:20-04:00

It will need some modifications..
First of all, (u)timer take two arguments, of which one is the delay..

Code:

timer 60 if {$nick.warned == 1} {set $nick.warned 0}

has 4 arguments == 2 too many...
Would have to be changed into something like this:

Code:

timer 60 [list if {$nick.warned == 1} {set $nick.warned 0}]

However, this will only work as expected if $nick.warned is a variable in globalspace, as this code snippet is not run within the environment of of the proc... Also, since the code includes a variable controlled by users, there's the risk of code injection (changing nick to foo[die]bar might get ugly if proper encapsulations are not in place)..

There's a few more things to considder, that I'll get to alittle later this evening

edit:
The main problem with your code above is the $nick.warned variable. You mix using it as a proc-local variable and a globalspace variable, without using "global" or any other means of accessing globalspace variables from proc's..
Since you wish to use dynamic variable names, this gets alittle messier..
Also due to the same reason, you really should test wether the variable actually exists before you try to use it (even in if-conditionals)

Finally, using a dot "." in your variable name will cause problems with conditional statements, considder using a different separator-char or named arrays (also solves the problem with dynamic variable names)

Statistics: Posted by nml375 — Sat Nov 11, 2006 6:59 pm

Does utimer/timer have to be a proc or can it be like an if?

2006-11-11T18:26:36-04:00

Alright, here's what I'm doing:

I'm doing a warning script within my ads/kicks, and this is the script I plan on using. Will this work or will it need mods?

Code:

bind pub - * battle:mainchanproc battle:warnnick {nick host hand chan text} {putserv "NOTICE $nick :You almost stepped on a landmine there Mr. Rock star. check out @rockrules and @advertising"}proc battle:mainchan {nick host hand chan text} {        global text1 text2 mainchanset chan [string tolower $chan]if {[string equal $chan $mainchan]} {set text [stripcodes bcruag $text]if {[string match -nocase "text1" $text] || [string match -nocase "text2" $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]} {battle:warnnick nick host hand chan textif {$nick.warned == 1} {putserv "PRIVMSG Chanserv :$mainchan addtimedban $nick 3m Ads"set $nick.warned 0} else {set $nick.warned 1timer 60 if {$nick.warned == 1} {set $nick.warned 0}}} else {return 0}}}

~Nara

Statistics: Posted by Nara — Sat Nov 11, 2006 6:26 pm

Does utimer/timer have to be a proc or can it be like an if?

2006-11-11T15:30:22-04:00

Yes, it can be run from an if test within the global space, as nml said, of a script (eg, outside of a proc)

Statistics: Posted by rosc2112 — Sat Nov 11, 2006 3:30 pm

Does utimer/timer have to be a proc or can it be like an if?

2006-11-11T13:37:14-04:00

(u)timer takes two arguments, the time to delay, and
That is, anything in will be executed by the tcl-interpreter once the delay has passed. You'll have to remember that this will be run in globalspace, and not the namespace occupied by the proc that called it (if any).
Also, keep in mind the ways the tcl-interpreter operates, especially the variable- and command substitutions.
The two snippets below look quite similar, yet behave quite differently (both assumed to be run in globalspace)

Code:

timer 10 [list puthelp "PRIVMSG #mychannel :I'm $botnick"]timer 10 [list puthelp {PRIVMSG #mychannel :I'm $botnick}]

Statistics: Posted by nml375 — Sat Nov 11, 2006 1:37 pm

Does utimer/timer have to be a proc or can it be like an if?

2006-11-11T09:24:34-04:00

Alright - just a quick q, no script. See topic.

~Nara

Statistics: Posted by Nara — Sat Nov 11, 2006 9:24 am