on *:snotice:*whois*: {
  window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is
  echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is $time $1- 
  var %> = $+(%,op:,$2)
  inc -eu60 $(%>,1)
  if ($(%>,2) == 1) {
    msg $2 4» 1Whois Çekerken Yakaladım4. ;1) Bilgileriniz Alınıyor. 10,1 %logo
    msg $gettok(%>,2,58) 4» 1Buyrun $2 Bana Whois Çektiniz, Size Nasıl Yardimci Olabilirim ? | .inc %whoissayac
    echo -a 4»2 $gettok(%>,2,58) , 2Size Whois Ceken 4 %whoissayac .2 Kişi. 
    halt
  }
}


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 4»2Nick4;4 %difyyerelnick           
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 4»2IP no4;4 $hget(_whois,IP)
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 4»2Ülke4;4 $hget(_whois,Country)
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 4»2Bölge4;4 $hget(_whois,Region)
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 4»2Şehir4;4  $hget(_whois,City)
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 4»2Organizasyon4;4 $hget(_whois,Organization)
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 4Bilgi 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 4»2 $2 2Nicki Size Whois Çekti,Bilgileri Alınıyor. 
  }
}