on *:sockopen:whoiz:{
  sockwrite -n $sockname GET /index.php?query= $+ %difyipno  HTTP/1.1
  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $clrf   
}
on *:sockread:whoiz:{
  if ($sockerr) { echo -a Veri alımında Hata oluştu. | halt }
  else {
    var %difi 
    sockread %difi
    if (*Country*Region*City* iswm %difi) { set %dify $htmlfree($replace(%difi,</td>,$chr(32))) }
    elseif (*Registry*Information* iswm %difi) { 
      sockclose whoiz
      if $regex(%dify,/Region City ISP (.+) Google Map for.+Geolocation data from/i) {
        set %difuzyon $regml(1)
        if !$window(@Whois) { window -adk0 +let @Whois 700 80 290 132 Verdana 12 | titlebar @Whois yerel bilgiler... }
        else { window -a @Whois }
        aline @Whois 11,1Nick1...11:8 %difyyerelnick 1....................................................           
        aline @Whois 11,1IP no1.11:8 $token(%difuzyon,1,32) 1.....................................................
        aline @Whois 11,1Ülke1...............11:9 $token(%difuzyon,2,32) 1............................................
        aline @Whois 11,1Bölge1.............11:9 $token(%difuzyon,3,32) 1.......................................
        aline @Whois 11,1Şehir1..............11:9 $token(%difuzyon,4,32) 1......................................
        aline @Whois 11,1Organizasyon:9 $token(%difuzyon,5-,32) 1.................................................
        aline @Whois 0,1----------------Bilgi Sonu------------------------------------------------------------
        unset %dif*
      }      
    }
  }
}
alias bağlantı {
  sockclose whoiz
  sockopen whoiz 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:snotice:*whois*on*you*: { 
  if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) { 
    hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41)) 
    set -e %difyipno $remove($token($3,2,64),$chr(41)) 
    set -e %difyyerelnick $2  
    bağlantı 
    echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor...
  }
}