on *:sockopen:whoiz:{
  sockwrite -n $sockname Get /ip/ $+ %difyipno HTTP/1.1
  sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */*
  sockwrite -n $sockname Accept-Language: tr-TR
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)
  sockwrite -n $sockname Host: whatismyipaddress.com
  sockwrite -n $sockname DNT: 1
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname $crlf
}
on *:sockread:whoiz:{
  var %difi
  sockread %difi
  if !$hget(_whois) { hmake _whois }
  if (IP: isin %difi) {
    whobilgi IP $remove($gettok($htmlfree(%difi),2,58),Decimal)
  }
  if (Organization: isin %difi) {
    whobilgi Organization $remove($gettok($htmlfree(%difi),6,58),Services)
  }
  if (<tr><th>Country:</th><td> isin %difi) {
    whobilgi Country $gettok($htmlfree(%difi),2,58)
  }
  if (<tr><th>State/Region:</th><td> isin %difi) {
    whobilgi Region  $addtok(%difuzyon,$gettok($htmlfree(%difi),2,58),32) 
  }
  if (<tr><th>City:</th><td> isin %difi) {
    whobilgi City $gettok($htmlfree(%difi),2,58)
    sockclose $sockname
    if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is) { window -adk0 +let @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 700 80 290 132 Verdana 12 | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is yerel bilgiler... }
    else { window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is }
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Nick1...11:8 %difyyerelnick 1....................................................           
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1IP no1.11:8 $hget(_whois,IP) 1.....................................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Ülke1...............11:9 $hget(_whois,Country) 1............................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Bölge1.............11:9 $hget(_whois,Region) 1.......................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Şehir1..............11:9 $hget(_whois,City) 1......................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Organizasyon:9 $hget(_whois,Organization) 1.................................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 0,1----------------Bilgi Sonu------------------------------------------------------------
    unset %dif*
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
alias whobilgi { if $hget(_whois,$1) { hdel _whois $1 } | hadd _whois $1 $2- }
alias bağlantı {
  sockclose whoiz
  sockopen whoiz [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:snotice:*whois*on*you*: { 
  if !$sock(whoiz) { 
    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...
  }
}