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