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

Kod:
w 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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="#007700">.melissadata.com 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: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="#007700">.melissadata.com $+ $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 Nickinin ISP Adresi Kontrol Ediliyor.. 

} 

}
istediğin tam olarak bu değil ama belki işine yarayabilir.

CODED : HaLiL (XcLusive)