egghelp/eggheads community

Help with script to say all nicks from chan

2009-03-25T19:44:34-04:00

Variables are case sensitive...
Change this:

Code:

utimer 5 [list set vflood 0]

Into this:

Code:

utimer 5 [list set vFlood 0]

And everything should work just fine (assuming you are using arfer's code).

Also disregard speechles' talk 'bout global namespaces. Timers are always executed in the global namespace, and vFlood was linked to globalspace using the global command in that code.

Statistics: Posted by nml375 — Wed Mar 25, 2009 7:44 pm

Help with script to say all nicks from chan

2009-03-25T19:19:40-04:00

I have no idea what i'm doing wrong, but i can't get it to work properly with the "flood protection" ;/
i have to use it like this, otherwise it won't work more then once..

set vFlood 0
utimer 5

Statistics: Posted by unb0rn — Wed Mar 25, 2009 7:19 pm

Help with script to say all nicks from chan

2009-03-25T17:44:41-04:00

I get this :

Code:

[22:27] Tcl error [pNicklist]: invalid command name "wordwrap"

Well, did you include the procedure by user in the script by arfer? If not, then of course it's an invalid command name. The procedure supporting it must be added to the script...

Code:

proc wordwrap {str {len 70} {splitChr { }}} {   set out [set cur {}]; set i 0   foreach word [split [set str][unset str] $splitChr] {      if {[incr i [string len $word]]>$len} {         lappend out [join $cur $splitChr]         set cur [list $word]         set i [string len $word]      } {         lappend cur $word      }      incr i   }   lappend out [join $cur $splitChr]}

Add the above to the bottom of the script (Full credit goes to user for the above, find the thread here).

Statistics: Posted by speechles — Wed Mar 25, 2009 5:44 pm

Help with script to say all nicks from chan

2009-03-25T17:32:15-04:00

I get this :

Code:

[22:27] Tcl error [pNicklist]: invalid command name "wordwrap"

Statistics: Posted by DaRkOoO — Wed Mar 25, 2009 5:32 pm

Help with script to say all nicks from chan

2009-03-25T17:13:58-04:00

Yes I agree. I warned the original poster about the issue of many nicks exceeding the allowed text length in my first respionse to this thread.

Statistics: Posted by arfer — Wed Mar 25, 2009 5:13 pm

Help with script to say all nicks from chan

2009-03-25T17:06:33-04:00

This dont work.If there is,for example,more than 50 nicks in channel bot will say just how much he can say in one msg,so lets say he can say about 40 nicks,and what about rest of nicks?

Incorporate a wordwrap procedure, such as this one by user.

Code:

putserv "PRIVMSG $channel :[join [chanlist $tchan] ", "]"

Change that above to this below...

Code:

foreach line [wordwrap [join [chanlist $tchan] ", "]]] { putserv "privmsg $chan :$line" }

Statistics: Posted by speechles — Wed Mar 25, 2009 5:06 pm

Help with script to say all nicks from chan

2009-03-25T17:04:39-04:00

I have tested the script pretty much as it stands, after increasing the flood time to a realistic value of 30 seconds. It works fine. Perhaps a return command at the end of the proc would be proper, as below (not convinced though that it would matter in this instance).

One other thing that could I suppose effect scripts. When I copy/paste from this site to my text editor, I get a whitespace at the end of each line. If that happens to you, get rid of them before you load the script on the bot.

Code:

set vChannels "#EggTCL"set vFlood 0bind PUB - !nicks pNicklistproc pNicklist {nick uhost hand channel txt} {  global vChannels vFlood  if {!$vFlood} {    switch -- [llength [split $txt]] {      0 {set tchan $channel}      1 {set tchan $txt}    }    if {[info exists tchan]} {      if {[regexp {^#} $tchan]} {        if {[validchan $tchan]} {          if {[botonchan $tchan]} {            if {[lsearch -exact [string tolower $vChannels] [string tolower $tchan]] != -1} {              putserv "PRIVMSG $channel :[join [chanlist $tchan] ", "]"            }          } else {putserv "PRIVMSG $channel :-error- bot is not currently monitoring $tchan"}        } else {putserv "PRIVMSG $channel :-error- bot does not have a channel record for $tchan"}      } else {putserv "PRIVMSG $channel :-error- $tchan is not in the format of a valid channel name"}    } else {putserv "PRIVMSG $channel :-error- correct syntax is !nicks ?#channel?"}    set vFlood 1    utimer 30 [list set vFlood 0]  } else {putserv "PRIVMSG $channel :-flood- please try again later"}  return 0}

This is the output at in the channel #EggTCL on DALnet :-

[20:45] <@arfer> !nicks
[20:45] <@Baal> Baal, Colossus, McKay, arfer
[20:45] <@arfer> !nicks
[20:45] <@Baal> -flood- please try again later
[20:45] <@arfer> !nicks
[20:45] <@Baal> -flood- please try again later
[20:45] <@arfer> !nicks
[20:45] <@Baal> -flood- please try again later
[20:46] <@arfer> !nicks
[20:46] <@Baal> Baal, Colossus, McKay, arfer

Following the first successful use of the command !nicks, subsequent use within the 30 seconds wait time results in the -flood- message. after 30 seconds the command responds again as expected.

The command has to get from your IRC client to the server and then from the server to your bot which then executes the code, responds to the server which responds to your IRC client. Whilst the Tcl code on your bot probably takes milliseconds to execute per cycle, the to'ing and fro'ing possibly takes up most if not all of the 5 seconds. Hence the next command works even though it appears to you to be within the 5 seconds flood time.

Anyway, I can now confirm that there is nothing wrong with the code (in my opinion). I don't intend modifying it further.

Statistics: Posted by arfer — Wed Mar 25, 2009 5:04 pm

Help with script to say all nicks from chan

2009-03-25T17:00:17-04:00

This dont work.If there is,for example,more than 50 nicks in channel bot will say just how much he can say in one msg,so lets say he can say about 40 nicks,and what about rest of nicks?

Statistics: Posted by DaRkOoO — Wed Mar 25, 2009 5:00 pm

Help with script to say all nicks from chan

2009-03-25T17:00:38-04:00

Code:

set vFlood 1 utimer 5 [list set vflood 0]

There is the issue. The script tracks the global variable vflood and uses the global command to associate the local references as global ones. This works fine to set vflood to 1, meaning it's been used recently. The problem is, this timer will execute after the proc ends, meaning the association to the global variable vflood is lost. The set vflood 0 will occur in local space as a local variable and is immediately destroyed. The global variable vflood will remain set to 1, forever. Back and forth. The same 1.

Code:

utimer 5 [list set ::vflood 0]

We can use the global namespace identifier (::) and prefix vflood with this and it will now work, and remain tied to the global variable vflood. When the timer is invoked, it will return the global variable vflood to 0 and all is well in the world.

Statistics: Posted by speechles — Wed Mar 25, 2009 4:45 pm

Help with script to say all nicks from chan

2009-03-25T13:57:23-04:00

Once again i have to thank you for your help, but the reason why i don't know, but if i use the script, the only way to make it work again, i have to rehash it... ;/

i've been editing stuff, and i detected that if a change the "1" to "0", the problem stops, but the script doesn't stop when people flood it, and the "utimer" it's not doing nothing, 'cos i've tried to change from "5" to "1" and "0", and it's the same...

utimer 5 [list set vflood 0]

Can you please help me using the other part of the script that i've pasted here, on this one?[/b][/quote]

Statistics: Posted by unb0rn — Wed Mar 25, 2009 1:57 pm

Help with script to say all nicks from chan

2009-03-25T12:43:55-04:00

I can't think why the script has stuck with the flood setting but simply rehashing the bot would fix things.

Yes you could use something similar to the code you have seen in a previous script.

My personal prefference in these situations is to unbind the pub bind for 5 seconds to prevent its reuse within that timeframe but that method doesnt give easy opportunity to output a flood message.

Statistics: Posted by arfer — Wed Mar 25, 2009 12:43 pm

Help with script to say all nicks from chan

2009-03-25T05:29:09-04:00

I detected a problem ;x
I didn't change the time of wait before using the script again, to prevent flood, but, i do the command !nicks, and even if a wait 5s, or more(i tried waiting 2m, and the only thing that i see, is the message from flood), the command doesn't work, it always shows the message from the flood protection.

What could be?

btw, i have this from another script that i've done, that works pretty much the same way, but for another thing, it's possible to use this(what im about to show) on this script?

set usedcmd [expr {[unixtime]-5}]

proc cmd {nick uhost hand chan arg} {
global usedcmd sex
if {[set t [expr {[unixtime]-$usedcmd}]] < 5} {
puthelp "privmsg $chan :Wait [expr {5-$t}] sc(s) or gtfo"
return 0

Statistics: Posted by unb0rn — Wed Mar 25, 2009 5:29 am

Help with script to say all nicks from chan

2009-03-24T13:27:27-04:00

Thank you, it's working perfectly.

Statistics: Posted by unb0rn — Tue Mar 24, 2009 1:27 pm

Help with script to say all nicks from chan

2009-03-24T08:41:11-04:00

Code:

set vChannels "#chan1 #chan2"set vFlood 0bind PUB - !nicks pNicklistproc pNicklist {nick uhost hand channel txt} {  global vChannels vFlood  if {!$vFlood} {    switch -- [llength [split $txt]] {      0 {set tchan $channel}      1 {set tchan $txt}    }    if {[info exists tchan]} {      if {[regexp {^#} $tchan]} {        if {[validchan $tchan]} {          if {[botonchan $tchan]} {            if {[lsearch -exact [string tolower $vChannels] [string tolower $tchan]] != -1} {              putserv "PRIVMSG $channel :ALL NICKS FROM $tchan"              putserv "PRIVMSG $channel :[join [chanlist $tchan] ", "]"            }          } else {putserv "PRIVMSG $channel :-error- bot is not currently monitoring $tchan"}        } else {putserv "PRIVMSG $channel :-error- bot does not have a channel record for $tchan"}      } else {putserv "PRIVMSG $channel :-error- $tchan is not in the format of a valid channel name"}    } else {putserv "PRIVMSG $channel :-error- correct syntax is !nicks ?#channel?"}    set vFlood 1    utimer 5 [list set vflood 0]  } else {putserv "PRIVMSG $channel :-flood- please try again later"}}

Statistics: Posted by arfer — Tue Mar 24, 2009 8:41 am

Help with script to say all nicks from chan

2009-03-24T08:01:22-04:00

How do i set the limit of time of commands that the users can use?

ex:
someone: !nicks
bot: ALL NICKS FROM THE CHANNEL
someone: !nicks
bot: you have to wait 5s, before using the command again

I want to put a selected time, so they have to wait a couple of seconds, and not flooding the bot/server.

and how do i put a message before the eggdrop says all nicks from the channel?

Statistics: Posted by unb0rn — Tue Mar 24, 2009 8:01 am