##Type: Bot
##Author: TuToneBK
##Name: SuperIPBot

xecho -b
xecho -b 58ÕÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍ͸
xecho -b 58ÿ53ÚÁ¿57ô52ÖÄÄÄÄÄÄÄÄÄÄÄÄÄÄÒ·57ô53ÚÁ¿58Ú´
xecho -b 58³³53Æѵ57³52Ì»53ø56÷÷÷÷÷5356÷÷÷÷÷55è52ȹ57³53Æѵ58³³
xecho -b 58ÃÙ53øøø57õ52ÓÐÄÄÄÄÄÄÄÄÄÄÄÄÄĽ57õ53øøø58À´
xecho -b 58³ÚÄÂÒÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÒÄÄ¿³
xecho -b 58ÆصԹ    51Super53IP54Bot     58̸Æص
xecho -b 58ÆصԹ 57Author 50: 54Tu53Tone54B53K 58̸Æص
xecho -b 58ÆصԹ 53TuTone, 54Inc. 572001 58̸Æص
xecho -b 58³ÀÄÂÐÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÐÅÄÙ³
xecho -b 58ÿ53ÚÁ¿57ô52ÖÄÄÄÄÄÄÄÄÄÄÄÄÄÄÒ·57ô53ÚÁ¿58Ú´
xecho -b 58³³53Æѵ57³52Ì»55è56÷÷÷÷÷5356÷÷÷÷÷53ø52ȹ57³53Æѵ58³³
xecho -b 58ÃÙ53øøø57õ52ÓÐÄÄÄÄÄÄÄÄÄÄÄÄÄĽ57õ53øøø58À´
xecho -b 58ÃÄÄÒÒÒÄÒÒÄÒÒÄÒÄÒÄÒÒÄÒÒÄÒÒÒÄÄ´
xecho -b 53ø  58ÓÐÐÄÐÐÄÐÐÄÐÄÐÄÐÐÄÐÐÄÐн  53ø
xecho -b
xecho -b 57usage for this script is 54!xip (username)

assign IPGL c:\TekNap\IPsgot.txt
assign ipgetter ""
assign name ""
assign mynick EnigmaticSwordzman


on -public "*"
{
 ^assign ipgetter $0
 ^assign name $3
 switch ($2)
 {
  (!xip)
  {
  xecho -b 57Getting $name 's IP for $ipgetter
   /get_ip $name
  }
 }
 (*)
 {
 }
}

alias get_ip
{
 ^assign name $1
 if ([$name] == [""]) 
 {
  m $ipgetter I need a name please
 }
 if ([$name] != [""])
 {
  ^raw 211 $name
  ^on ^213 "*" 
  {
   ^assign getip1 $1
   if ([$getip1] != 0 ) 
   {
    @ dgt4 = [$getip1] / [16777216]
    @ getip2 = [$dgt4] * [16777216]
    @ getip2 = [$getip1] - [$getip2]
    @ dgt3 = [$getip2] / [65536]
    @ getip3 = [$dgt3] * [65536]
    @ getip3 = [$getip2] - [$getip3]
    @ dgt2 = [$getip3] / [256]
    @ dgt1 = [$dgt2] * [256]
    @ dgt1 = [$getip3] - [$dgt1]
    ^assign dot .
    @ getip1 = [$dgt1] ## [$dot] ## [$dgt2] ## [$dot] ## [$dgt3] ## [$dot] ## [$dgt4]
    m $ipgetter Hello $ipgetter , $name 's IP is : $getip1
    @ fd = open($IPGL w)
    @ write($fd $ipgetter got $name 's IP ' $getip1 ' at $strftime(%X) )
    @ close($fd)
 ^assign name ""
 ^assign getip1 "" 
   }
  }
 }
}