Code:

bind dcc m netchange send:netchangebind bot - netchange bot:netchangebind dcc m netip send:netipbind bot - netip bot:netipproc 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" }