IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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:

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)