This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Released v1.02 by [DrN] problem

Old posts that have not been replied to for several years.
Locked
S
SmokeyOne
Halfop
Posts: 69
Joined: Tue Jan 14, 2003 6:04 am

Released v1.02 by [DrN] problem

Post by SmokeyOne »

okay everything works fine, but when you have 2 bots linked together and you use the command to add a new release it doesn't always work with the other bot, it also seems to cut off half the name when it announces on the leaf bot, has anyone seen this problem before ?

Here is the 2 lines that is used for the putallbots code

# putallbots "reloadreleased $released(netcode) $network"
bind bot - reloadreleased reloadreleased_in
proc reloadreleased_in {bot cmd arg} {
global released
set c [lindex $arg 0]
set n [lindex $arg 1]
if {$c == $released(netcode)} {
putlog "RELEASED: Reload Request from $n -$c-"
load_released
} else {putlog "RELEASED: Ignored Reload Request from $n -$c-"}
}


# putallbots "announcereleased $released(netcode) $network prgname"
bind bot - announcereleased announcereleased_in
proc announcereleased_in {bot cmd arg} {
global released
if {$released(announce_botnet) != 1} {return 0}
set c [lindex $arg 0]
set n [lindex $arg 1]
set t [lrange $arg 2 end]
if {$c == $released(netcode)} {
putlog "RELEASED: Announce Request from $n -$c- :$t"
announce_release "$t"
} else {putlog "RELEASED: Ignored Reload Request from $n -$c-"}
}


If more is Needed I'll just post up the whole script. Hope someone can help me with my problem.. thanks
S
SmokeyOne
Halfop
Posts: 69
Joined: Tue Jan 14, 2003 6:04 am

Post by SmokeyOne »

i guess no one can help me on this =/
User avatar
Dedan
Master
Posts: 260
Joined: Wed Jul 09, 2003 10:50 pm
Location: Memphis

re

Post by Dedan »

Maybe this will help:

change this:
set c [lindex $arg 0]
set n [lindex $arg 1]
set t [lrange $arg 2 end]

to:
set c [lindex [split $arg] 0]
set n [lindex [split $arg] 1]
set t [lrange [split $arg] 2 end]
I once was an intelligent young man, now i am old and i can not remember who i was.
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

set t [join [lrange [split $arg] 2 end]]

would be better
Locked