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

Kırmızı işaretli yere işlem yapılacak kanalının adını yaz

Oper olmanız lazım kullanım için kod XcLusive'ye aittir...
Kod:
raw 340:*:{

  if $2- == $null { echo 4 -a 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) { echo 4 -a  İş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) { echo 4 -a  %mesajnick 2 $+ %ulkenick Sehir :4 $remove(%ulkeoku,<tr><td align="right">City</td><td><b>,</b></td></tr>, ) }

    if (*State*or*Region* iswm %ulkeoku) { echo 4 -a  %mesajnick 2 $+ %ulkenick Bolge :4 $remove(%ulkeoku,<tr><td align="right">State or Region</td><td><b>,</b></td></tr>, ) }

    if (*>Country<* iswm %ulkeoku) { echo 4 -a  %mesajnick 2 $+ %ulkenick Ulke :4 $remove(%ulkeoku,<tr><td align="right">Country</td><td><b>,</b></td></tr>, ) }

    if (*>ISP<* iswm %ulkeoku) { echo 4 -a  %mesajnick 2 $+ %ulkenick Baglandigi ADSL :4 $remove(%ulkeoku,<tr><td align="right">ISP</td><td><b>,&nbsp;</b></td></tr>, ) | sockclose $sockname }

  }

}

on *:join:#sohbet:{

  ulke $nick

}

alias ulke {

  if ($sock(ulke)) { echo 4 -a Suanda Baska Bir Nick'in Bilgilerine Bakılıyor Lütfen Daha Sonra Tekrar Deneyin | halt }

  set %ulkenick $remove($1,*)

  userip $1

  echo 4 -a Lütfen Bekleyiniz...

  echo 4 -a $1 Nick'inin ISP Adresi Kontrol Ediliyor.. | halt

}