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. 
  }
}

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) {
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { 
      bulip $2 
      } else {
      .enable #nerdenmis
      .who +I $2
    }
    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
  }
}

#nerdenmis off
raw 352:*: bulip $4 
raw 315:*:.disable #nerdenmis
#nerdenmis end
alias bulip { var %:r $r(1000,99999) | sockopen $+(ipbul,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ipbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:ipbul*:{  
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) 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 Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -n $sockname $crlf  
} 
on *:sockread:ipbul*:{  
  window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is
  var %:ipbul | sockread -f %:ipbul
  if (Hostname: isin %:ipbul) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 0,1 Hostname. : 4 $iif(!$token($htmlfree(%:ipbul),3,58),Belirsiz,$token($htmlfree(%:ipbul),3,58)) }
  if (IP Country: isin %:ipbul) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 0,1 Ülke..... : 8 $iif(!$token($htmlfree(%:ipbul),2,58),Belirsiz,$token($htmlfree(%:ipbul),2,58)) }
  if (IP Continent: isin %:ipbul) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 0,1 Kıta..... : 7 $iif(!$token($htmlfree(%:ipbul),2,58),Belirsiz,$token($htmlfree(%:ipbul),2,58)) }
  if (IP City: isin %:ipbul) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 0,1 Sehir.... : 9 $iif(!$token($htmlfree(%:ipbul),2,58),Belirsiz,$token($htmlfree(%:ipbul),2,58)) }
  if (ISP Provider: isin %:ipbul) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 0,1 ISP...... : 11 $iif(!$token($htmlfree(%:ipbul),2,58),Belirsiz,$token($htmlfree(%:ipbul),2,58)) | sockclose $sockname }
}

on *:input:#:{
  if $regex($1,/^([!\.]nerden)$/i) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { bulip $2 }
    else { .enable #nerdenmis | .who +I $2 }
    halt
  }
}