and now when I use that command plain without a server it jumps to another network then...to Undernet again.. that means that it has saved that server (?)
How can I delete servers from netbots?

Code: Select all
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"
}