Ofloo
Owner
Joined: 13 May 2003
Posts: 953
Location: Belguim
|
 Posted: Sun Jun 22, 2003 2:36 pm Post subject: What am i doing wrong |
 |
|
Hmm i am trying to add some features to the netbots script, to jump servers, and show ip on dcc well features these are for personal use so ... i require it i do this stuff now from channel but i would prefer to do it from dcc over botnet haven't realy figured out yet how to script for a botnet so my question :
what am i doing wrong ??
cause the ip thing isn't showing i mean i am doing something wrong cause it only executes it local and not on the botnet, my other commands do ..
| Code: | bind dcc m netchange send:netchange
bind bot - netchange bot:netchange
bind dcc m netip send:netip
bind bot - netip bot:netip
proc send:netchange {handle idx arg} {
set srv [lindex $arg 0]
set prt [lindex $arg 1]
set psd [lindex $arg 2]
if {$srv == ""} {
putdcc $idx "Syntax Error at least define a server Useage: .netchange <server> <port> <password>"
} else {
jump $srv $prd $psd
}
}
proc bot:netchange {handle idx arg} {
set srv [lindex $arg 0]
set prt [lindex $arg 1]
set psd [lindex $arg 2]
if {$srv == ""} {
putdcc $idx "Syntax Error at least define a server Useage: .netchange <server> <port> <password>"
} else {
jump $srv $prd $psd
}
}
proc send:netip {handle idx arg} {
global botnick
set MyIP ""
foreach a {a b c d e f g h i j k} {
catch {
set external [socket $a.root-servers.net 53]
set MyIP [lindex [fconfigure $external -sockname] 0]
close $external
}
if { ![string equal $MyIP ""] } { break }
}
putdcc $idx "Botnick: $botnick BotIP: $MyIP"
}
proc bot:netip {handle idx arg} {
global botnick
set MyIP ""
foreach a {a b c d e f g h i j k} {
catch {
set external [socket $a.root-servers.net 53]
set MyIP [lindex [fconfigure $external -sockname] 0]
close $external
}
if { ![string equal $MyIP ""] } { break }
}
putdcc $idx "Botnick: $botnick BotIP: $MyIP"
} |
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
