alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x  
}
alias sehir { sockopen Ulke ip-address-lookup-v4.com 80  }  
on *:SockOpen:Ulke:{  
  sockwrite -n $sockname GET /lookup.php?ip= $+ %Ulke HTTP/1.1
  sockwrite -n $sockname host: ip-address-lookup-v4.com
  sockwrite -n $sockname $crlf  
}  
on *:SockRead:Ulke: {  
  var %bilgi
  sockread %bilgi
  if (host name isin $htmlfree(%bilgi)) {
    if ($len($gettok($gettok($htmlfree(%bilgi),6,32),2,58)) == 1) { msg %aktifpencere Host: Bulunamadı }
    else { msg %aktifpencere Host: $gettok($gettok($htmlfree(%bilgi),6,32),2,58) }
  }
  if (Country Code isin $htmlfree(%bilgi)) { msg %aktifpencere Ulke: $remove($gettok($htmlfree(%bilgi),1,58),Country Code) }
  if (Country Code isin $htmlfree(%bilgi)) { msg %aktifpencere Ulke Kodu: $remove($gettok($htmlfree(%bilgi),2,58),Region) 
  }
  if (Country Code isin $htmlfree(%bilgi)) { msg %aktifpencere Bölge: $remove($gettok($htmlfree(%bilgi),3,58),City) }
  if (Country Code isin $htmlfree(%bilgi)) { msg %aktifpencere Sehir: $remove($gettok($htmlfree(%bilgi),4,58),Latitude,Postal Code) }
  if (Postal Code isin $htmlfree(%bilgi)) { msg %aktifpencere Posta Kodu: $remove($gettok($htmlfree(%bilgi),5,58),Latitude) }
  if (Area Code isin $htmlfree(%bilgi)) { msg %aktifpencere Alan Kodu: $remove($gettok($htmlfree(%bilgi),8,58),DMA Code) }
  if (Country Code isin $htmlfree(%bilgi)) { 
    if (TR isin $remove($gettok($htmlfree(%bilgi),2,58),Region)) { 
      msg %aktifpencere Enlem: $remove($gettok($htmlfree(%bilgi),5,58),Longitude) 
      msg %aktifpencere Boylam: $remove($gettok($htmlfree(%bilgi),6,58),Whois* Information NetRange)
    }
    else { 
      msg %Aktifpencere Enlem: $remove($gettok($htmlfree(%bilgi),6,58),Longitude)
      msg %Aktifpencere Boylam: $remove($gettok($htmlfree(%bilgi),7,58),Area Code)
    }
  }
}
on *:input:*: {
  if ($regex($1,/(^[!.](iptara|iptrace)$)/i)) {
    .set -u10 %ulke $2 | set -u10 %aktifpencere $active
    .sehir $2
    .timer 1 5 .sockclose ulke
  }
}

alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x  
}
alias sehir { sockopen Ulke ip-address-lookup-v4.com 80  }  
on *:SockOpen:Ulke:{  
  sockwrite -n $sockname GET /ip/ $+ %Ulke HTTP/1.1
  sockwrite -n $sockname host: ip-address-lookup-v4.com
  sockwrite -n $sockname $crlf  
}  
on *:SockRead:Ulke: {  
  var %bilgi
  sockread %bilgi
  if (*IP in* iswm $htmlfree(%bilgi)) { msg %aktifpencere Host: $remove($htmlfree(%bilgi),- Comments and Complaints) }
}

on *:input:*: {
  if ($regex($1,/(^[!.](iptara|iptrace)$)/i)) {
    .set -u10 %Ulke $2 | set -u10 %aktifpencere $active
    .sehir $2
    .timer 1 5 .sockclose ulke
  }
}