ülke şehir bulma

[TWEETY]

alias findip {
if ($sock(MyIp)) { sockclose MyIp }
sockopen MyIp whatismyipaddress.com 80
if ($1) { sockmark myip $1 }
else { echo -a Used: /findip <IP> }
}
on *:sockopen:myip: {
sockwrite -nt $sockname GET $iif($sock(myip).mark,/ip/ $+ $v1,/) HTTP/1.1
sockwrite -nt $sockname Host: whatismyipaddress.com
sockwrite -nt $sockname $crlf
}
on *:Sockread:myip: {
var %ipinfo
sockread %ipinfo
if ($sock(MyIp)) {
set %ip $sock(myip).mark
tokenize 32 %ipinfo
var %boo, %get
%boo = $z(%ipinfo)
;write $scriptdirlog.html %ipinfo
if (<title> isin %ipinfo) { %tempIP = $gettok(%ipinfo,2,60) | .timer 1 2 echo -a $gettok(%tempIP,2,62) }
if (Country isin $gettok(%boo,1,58)) { .timer 1 3 echo -a Country: $gettok(%boo,2,58) }
if (State/Region isin $gettok(%boo,1,58)) { .timer 1 4 echo -a State/Region: $gettok(%boo,2,58) }
if (<th>City:</th> isin %ipinfo) { %tempC = $gettok(%ipinfo,5,62) | .timer 1 5 echo -a City: $gettok(%tempC,1,60) }
if (Latitude isin $gettok(%boo,1,58)) { .timer 1 6 echo -a Latitude: $gettok(%boo,2,58) }
if (Longitude isin $gettok(%boo,1,58)) { .timer 1 7 echo -a Longitude: $gettok(%boo,2,58) }
if (<th>Hostname:</th> isin %ipinfo) { %tempH = $gettok(%ipinfo,10,62) | .timer 1 10 echo -a Hostname: $gettok(%tempH,1,60) }
if (<th>ISP:</th> isin %ipinfo) { %tempISP = $gettok(%ipinfo,16,62) | .timer 1 11 echo -a ISP: $gettok(%tempISP,1,60) }
if (<th>Organization:</th> isin %ipinfo) { %tempORG = $gettok(%ipinfo,16,62) | .timer 1 12 echo -a Organization: $gettok(%tempORG,1,60) }
if (<th>Services:</th> isin %ipinfo) { %tempSEV = $gettok(%ipinfo,28,62) | .timer 1 13 echo -a Services: $gettok(%tempSEV,1,60) }
if (<th>Type:</th> isin %ipinfo) { %tempTP = $gettok(%ipinfo,35,62) | %tempTP2 = $gettok(%tempTP,1,47) | %tempTP3 = $gettok(%tempTP2,1,9) | .timer 1 14 echo -a Type: $gettok(%tempTP3,1,60) }
if (<th>Assignment:</th> isin %ipinfo) { %tempASSG = $gettok(%ipinfo,43,62) | %tempASSG2 = $gettok(%tempASSG,1,60) | .timer 1 15 echo -a Assignment: %tempASSG2 }
}
}
}
alias -l z {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp
return %x
}

/findip ip şeklinde Çalışmaktadır
IP Address: 88.246.140.218
City: Istanbul
Hostname: 88.246.140.218
ISP: 1492552922
Organization: 1492552922
Services: Turk Telekom
Type:
Assignment: th


Bunu /findip ip Yerine !findip ip şeklinde Yapa Bilirmiyiz Yani Bot icin olucak Bota opers kanalında !findip ip Yapınca kanalda Gösterse O şekilde

[RomantiC]

TWEETY GüzeL OLmuŞ payLaŞım İçin TeŞekür Ederim ArkadaŞım

[Carpediem]

Konu tekrarı bu ben daha önce ekledim tweety bunu Hazır Kodlar bölümünde))