[XcLusive]

Eğlence amaçlı yazdığım kodu paylaşmak istedim belki arkadaşlarımız sunucularına koymak ister..

Kodun Çalışması için Bot Nick'inin Oper Olması Gerek ve Aynı Mirc Üzerinden Denemeyin Farklı Mirc Açıp Deneyin.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

raw 340:*:{
if $2- == $null { msg #dns Ulkesine Baktığınız Nick - %ulkenick - Sunucumuzda Online Değil, Lütfen Başka Bir Nick Deneyiniz. | halt }
set %ulkenick $remove($gettok($2-,1,61),*)
set %ulkeip $gettok($2-,2,64)
ulkebul
halt
}
alias ulkebul {
sockclose ulke
sockopen ulke [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockopen:ulke:{
if ($sockerr) { msg #dns İşlem Gerçekleştirilemedi Lütfen Daha Sonra Tekrar Deneyin | halt }
sockwrite -n $sockname GET /lookups/iplocation.asp?ipaddress= $+ %ulkeip HTTP/1.1
sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf
sockwrite -n $sockname $clrf
}
on *:sockread:ulke:{
var %ulkeoku
sockread %ulkeoku
if (%ulkeoku != $null) { 
if (*>City<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Sehir :4 $remove(%ulkeoku,<tr><td align="right">City</td><td><b>,</b></td></tr>, ) }
if (*State*or*Region* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Bolge :4 $remove(%ulkeoku,<tr><td align="right">State or Region</td><td><b>,</b></td></tr>, ) }
if (*>Country<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Ulke :4 $remove(%ulkeoku,<tr><td align="right">Country</td><td><b>,</b></td></tr>, ) }
if (*>ISP<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Baglandigi ADSL :4 $remove(%ulkeoku,<tr><td align="right">ISP</td><td><b>,&nbsp;</b></td></tr>, ) | sockclose $sockname }
}
}
on *:text:*:#dns:{
if ($1 == !ulke) {
if ($sock(ulke)) { msg #dns Suanda Baska Bir Nick'in Bilgilerine Bakılıyor Lütfen Daha Sonra Tekrar Deneyin | halt }
set %ulkenick $remove($2,*)
set %mesajnick $nick
userip $2
msg $chan Lütfen Bekleyiniz...
msg $chan $2 Nick'inin ISP Adresi Kontrol Ediliyor..
}
}

Kodu remoteye ekledikten sonra #dns kanalında !ulke nick komutunu kullanarak kişilerin nerden bağlandığına bakabilirsiniz

NOT : bazen sehir cikmayabilir

Örnek :

[17:18:11] <Nick> !ulke Maria
[17:18:11] <Bot> Lütfen Bekleyiniz...
[17:18:11] <Botl> Maria Nick'inin ISP Adresi Kontrol Ediliyor..
[17:18:13] <Bot> Ozgur MaRiA Sehir : ISTANBUL
[17:18:13] <Bot> Ozgur MaRiA Bolge : ISTANBUL
[17:18:13] <Bot> Ozgur MaRiA Ulke : TURKEY
[17:18:13] <Bot> Ozgur MaRiA Baglandigi ADSL : TT ADSL-ALCATEL DYNAMIC_GAY.

[17:13:35] <Nick> !ulke ESmer_CaDi
[17:13:35] <Bot> Lütfen Bekleyiniz...
[17:13:35] <Bot> ESmer_CaDi Nick'inin ISP Adresi Kontrol Ediliyor..
[17:13:39] <Bot> Ozgur ESmer_CaDi Sehir : -
[17:13:39] <Bot> Ozgur ESmer_CaDi Bolge : -
[17:13:39] <Bot> Ozgur ESmer_CaDi Ulke : TURKEY
[17:13:39] <Bot> Ozgur ESmer_CaDi Baglandigi ADSL : TT ADSL-ALCATEL_ULU.

Umarım Beğenirsiniz Kolay Gelsin Arkadaşlar.

HaLiL (XcLusive)