egghelp/eggheads community

Need someone to code this important script for me.

2008-07-31T17:50:59-04:00

Thanks so much I'll run it tomorrow when my freakin bot is up I really appreciate it. speechless and dark

Statistics: Posted by samhain — Thu Jul 31, 2008 5:50 pm

Need someone to code this important script for me.

2008-08-07T02:36:57-04:00

Code:

set modeD(channel) "#yourchan"# time in minutes to poll set modeD(timermin) "1" ;#minimum time wait until pollset modeD(timermax) "3" ;#maximum time wait until pollbind RAW - 355 modeD:receives:namesbind RAW - 352 modeD:receives:whoproc modeD:send:names { } {        global modeD        if {[validchan $modeD(channel)]} {                if {[regexp {D|d} [lindex [getchanmode $modeD(channel)] 0]]} {                        putquick "NAMES -d $modeD(channel)"                }        }        timer [expr $modeD(timermin)+[rand [expr $modeD(timermax)-$modeD(timermin)]]] [list modeD:send:names]}proc modeD:receives:names { from raw text } {        global modeD        set chan [lindex [split $text] 2]        set nicklist [lindex [split $text :] 1]        if {[string tolower $chan] == [string tolower $modeD(channel)] && $nicklist != "" } {                foreach user [split $nicklist] {                        puthelp "WHO $user"                }        }}proc modeD:receives:who { from raw text } {        global modeD        set identd [lindex [split $text] 2]        set host [lindex [split $text] 3]        set nick [lindex [split $text] 5]        set chan $modeD(channel)        if {![matchban $nick!$identd@$host] && ![matchban $nick!$identd@$host $chan]} {                if {[onchan X $chan]} {                        utimer [rand 8] [list puthelp "PRIVMSG X :voice $chan $nick"]                }        }        # hidden user appear in ".channel #chan" command and        # stays there even when they parts or disconnect.        resetchan $chan}timer [expr $modeD(timermin)+[rand [expr $modeD(timermax)-$modeD(timermin)]]] [list modeD:send:names]

Every 1-3 minutes the script will poll the names list and act upon it. If instead you wanted seconds, use the script I posted which used utimer. It's events were based upon seconds.

Statistics: Posted by speechles — Thu Jul 31, 2008 5:10 pm

Need someone to code this important script for me.

2008-07-31T17:06:35-04:00

Can you please modify it and give me the full code once again. I can modify those two things. but my english is not good and can't fully understand what you just said.

Statistics: Posted by samhain — Thu Jul 31, 2008 5:06 pm

Need someone to code this important script for me.

2008-07-31T17:06:47-04:00

what If I want to do it after every minute? I have to change utimer '10' to '60' ?

Then use the time binding originally given. Or use a timer similar to how I've used the utimer. The best both can do is every minute. If you mean 45 seconds up to 90 seconds. Put the timermin at 45, and timermax at 90 and somewhere in that range the script will randomly pick each time to pull it's name list. Keep in mind the other script has no range, doesn't randomize it''s polling so eventually services may get disturbed a bot is doing this. Randomly polling gives the impression of human behavior.

To keep the randomness and use minutes:

Code:

set modeD(channel) "#yourchan"set modeD(timermin) "10"'set modeD(timermax) "15"

This is the only part you really need to tailor..Change all the timermin/timermax values to reflect minutes (they currently are set to values in seconds, remember) and change the word utimer into timer in 2 places.

Statistics: Posted by speechles — Thu Jul 31, 2008 4:58 pm

Need someone to code this important script for me.

2008-07-31T16:56:55-04:00

what If I want to do it after every minute? I have to change utimer '10' to '60' ?

Statistics: Posted by samhain — Thu Jul 31, 2008 4:56 pm

Need someone to code this important script for me.

2008-08-07T02:38:29-04:00

I wish I was a coder, so then I would have changed that to something more appropriate, and as I am not a coder, that's why I asked you to change it for me sir. to something appropriate.

(37) TIME (stackable)
bind time
proc-name

Description: allows you to schedule procedure calls at certain
times. mask matches 5 space separated integers of the form:
"minute hour day month year". minute, hour, day, month have a
zero padding so they are exactly two characters long; year is
extended to four characters in the same way.
Module: core

In effect, the best this can ever do is bind to time every minute. Polling a /names -d #chan userlist, then checking every single name against a ban, if it isn't banned, if X is on the channel, X will voice it, basically identical to the behavior of using timer, as the best it can do is every minute as well.

If you want to go crazy, and it sounds like you do with "polling every 10-15 seconds", well... We can venture into the realm of insanity to prove a point:

Code:

set modeD(channel) "#yourchan"set modeD(timermin) "10"'set modeD(timermax) "15"bind RAW - 355 modeD:receives:namesbind RAW - 352 modeD:receives:whoproc modeD:send:names { } {        global modeD        if {[validchan $modeD(channel)]} {                if {[regexp {D|d} [lindex [getchanmode $modeD(channel)] 0]]} {                        putquick "NAMES -d $modeD(channel)"                }        }        utimer [expr $modeD(timermin)+[rand [expr $modeD(timermax)-$modeD(timermin)]]] [list modeD:send:names]}proc modeD:receives:names { from raw text } {        global modeD        set chan [lindex [split $text] 2]        set nicklist [lindex [split $text :] 1]        if {[string tolower $chan] == [string tolower $modeD(channel)] && $nicklist != "" } {                foreach user [split $nicklist] {                        puthelp "WHO $user"                }        }}proc modeD:receives:who { from raw text } {        global modeD        set identd [lindex [split $text] 2]        set host [lindex [split $text] 3]        set nick [lindex [split $text] 5]        set chan $modeD(channel)        if {![matchban $nick!$identd@$host] && ![matchban $nick!$identd@$host $chan]} {                utimer [rand 8] [list puthelp "PRIVMSG X :voice $chan $nick"]        }        # hidden user appear in ".channel #chan" command and        # stays there even when they parts or disconnect.        resetchan $chan}utimer [expr $modeD(timermin)+[rand [expr $modeD(timermax)-$modeD(timermin)]]] [list modeD:send:names]

This is basically a utimer event occuring at least every 10 seconds (modeD(timermin)). The script will randomly select a time between the timermin and timermax you set which will poll for a names -d #chan list (services might not tolerate this repeated polling.. who knows and is why we randomly time it so it doesn't appear so scripted..heh). It will then interpret that list, and if the nick isn't banned and X is on the channel will voice that user who was previously -d. This is even more a resource hog than binding to time, but it fits your request. Play with the timermin/timermax until you find a comfortable range.

Statistics: Posted by speechles — Thu Jul 31, 2008 4:40 pm

Need someone to code this important script for me.

2008-07-31T16:17:30-04:00

I wish I was a coder, so then I would have changed that to something more appropriate, and as I am not a coder, that's why I asked you to change it for me sir. to something appropriate.

Statistics: Posted by samhain — Thu Jul 31, 2008 4:17 pm

Need someone to code this important script for me.

2008-07-31T16:03:46-04:00

I want it to voice everyone hidden on the channel? will it do the same?

The code he posted using $text and not $args should. But you might want to change this part.

Code:

bind TIME - "* * * * *" modeD:send:names

The above will be a resource hog biding time to all wildcards.... You may want to use something more sane.

Statistics: Posted by speechles — Thu Jul 31, 2008 4:03 pm

Need someone to code this important script for me.

2008-07-31T15:56:54-04:00

I want it to voice everyone hidden on the channel? will it do the same?

Statistics: Posted by samhain — Thu Jul 31, 2008 3:56 pm

Need someone to code this important script for me.

2008-07-31T15:33:25-04:00

With args, the list end with "}" but not with text. Thanks nml375. I have learned something today

Args invokes the interpreter to 'swallow' all the arguments passed to it into a list. This involves encapsulating it all within curly braces {}, using double-quotes "" around the parameter if it contains spaces and escaping any potential tcl special characters. It creates a list by doing as I just explained so that you can have a variable number of arguments invoke your procedure. Your use of [split $args] suggested to me that you misunderstood this. $args is already a list, and splitting it in effect destroys this list and creates a 2nd list. The 2nd list will escape the present curly braces from the first list, and use these in the new list [split] creates (hence you seeing those { and } in odd places). It will also potentially escape escapes and destroy several other things. That is why it is best to avoid using $args ever unless you fully understand the consequences.

Statistics: Posted by speechles — Thu Jul 31, 2008 3:33 pm

Need someone to code this important script for me.

2008-07-31T15:08:25-04:00

i hope this work

Code:

set modeD(channel) "#yourchan"bind TIME - "* * * * *" modeD:send:namesbind RAW - 355 modeD:receives:namesbind RAW - 352 modeD:receives:whoproc modeD:send:names { minutes hours days months years } {        global modeD sl_flooded        if {[validchan $modeD(channel)]} {                if {[regexp {D|d} [lindex [getchanmode $modeD(channel)] 0]] &&                    $sl_flooded([string tolower $modeD(channel)]) != "1" } {                        putquick "NAMES -d $modeD(channel)"                }        }}proc modeD:receives:names { from raw text } {        global modeD        set chan [lindex [split $text] 2]        set nicklist [lindex [split $text :] 1]        if {[string tolower $chan] == [string tolower $modeD(channel)] && $nicklist != "" } {                foreach user [split $nicklist] {                        puthelp "WHO $user"                }        }}proc modeD:receives:who { from raw text } {        global modeD        set identd [lindex [split $text] 2]        set host [lindex [split $text] 3]        set nick [lindex [split $text] 5]        set chan $modeD(channel)        if {![matchban $nick!$identd@$host] && ![matchban $nick!$identd@$host $chan]} {                if {[onchan X $chan]} {                        utimer [rand 8] [list puthelp "PRIVMSG X :voice $chan $nick"]                }        }        resetchan $chan}

With args, the list end with "}" but not with text. Thanks nml375. I have learned something today

Statistics: Posted by DarkRaptor — Thu Jul 31, 2008 3:08 pm

Need someone to code this important script for me.

2008-07-31T14:26:49-04:00

What speechles is pointing out, is that "args" is a special argument-name. It allows a proc to accept 0 or more parameters; each parameter will be added as a list item to args. When using bindings with eggdrop, it is advised to avoid using "args", as bindings always will call the proc with a fixed number of arguments (specified by the binding).

Simple fix would be to rename args into something different (such as "arg" or "text") throughout the script.

Statistics: Posted by nml375 — Thu Jul 31, 2008 2:26 pm

Need someone to code this important script for me.

2008-07-31T14:20:50-04:00

work only if nickname is like {nick} [nick]. I have forget to verify with nickname like [nick} {nick[...

@speechles: I'm not TCL expert. If you think you can correct this, show us how. I'm just asking to learn.

Statistics: Posted by DarkRaptor — Thu Jul 31, 2008 2:20 pm

Need someone to code this important script for me.

2008-07-31T13:49:26-04:00

# hidden user appear in ".channel #chan" command and
# stays there even when they parts or disconnect.
what does this mean? and speechless can you please work at it and fix it for me. i really need it badly, regards.

Statistics: Posted by samhain — Thu Jul 31, 2008 1:49 pm

Need someone to code this important script for me.

2008-07-31T13:33:21-04:00

How come you use 'args' and then you [split] it??! Args will already be a list, this script is flawed majorly.

Statistics: Posted by speechles — Thu Jul 31, 2008 1:33 pm