alias .ip {
  return %ip
}
on 1:SOCKOPEN:ipbilgi: {
  sockwrite -n $sockname GET $+(/lookups/iplocation.asp?ipaddress=,$.ip HTTP/1.1)
  sockwrite -n $sockname Host: $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
2)) 
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -n $sockname $crlf
}
on *:sockread:ipbilgi:{ 
  if ($sockerr) {
    echo 4 -a Hata var hata | halt
  }
  else {
    var %sessiz
    sockread $htmlfree(%sessiz)
    .tokenize 32 $htmlfree(%sessiz) 
    if (*Country* iswm $1-) && $4 == $null  {
      .set %ulke 0
      .set %ulke $remove($2,Country)

    }
    if (*City* iswm $1-) && $4 == $null  { 
      .set %sehir 0
      .set %sehir $remove($2,City)   
      echo -a 4Whois:1 Nick : %wn - Ulke: %ulke - Sehir: %sehir - IP: $.ip
      echo @Whois2 4Whois:1 Nick : %wn - Ulke: %ulke - Sehir: %sehir - IP: $.ip
    }
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
alias ipcik {
  if $sock(ipbilgi) {
    sockclose $ifmatch
  }
  sockopen ipbilgi 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 
  echo -a Whois çekildi bilgiler alınıyor.

}
on ^*:snotice:*size whois çekti*: { if !$window(@Whois2) { window -gn @Whois2 }
  set %ip $remove($gettok($3,2,64),-1,$chr(41))
  set %wn $2
  Echo -tm @Whois2 $2 Nicki Su Anda Bilgilerinize Bakıyor !
  ipcik 
  halt
}
; +W Flag'ı olan arkadaşlar için hazırlanmıştır. Whois cekenin bilgilerini echolar.
; Coded Sessiz & SiyahKaR