alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x  
}
alias nerden { sockopen yerbul 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  }  
on *:sockopen:yerbul:{  
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %nrd 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 $crlf  
}  
on *:sockread:yerbul: {  
  var %yerbul
  sockread %yerbul
  if (*<i>*</i><b>* iswm %yerbul) { msg %aktif 4Hostu:2 $gettok($replacecs($htmlfree(%yerbul),Hostname:,@),2,64) }
  if (<i>*</i> <b>* iswm %yerbul) || (<i>*<b>*</b><br />* iswm %yerbul) { msg %aktif 4 $+ $replacecs($gettok($htmlfree(%yerbul),1,58),IP Country,Ülke,Code,Kodu,IP Continent,Kıta,IP Region,Bölge,IP City,Şehir,IP Latitude,Enlem,IP Longitude,Boylam,Organization,Şirket,ISP Provider,Servis Sağlayıcı) $+ : $+ 2 $+ $gettok($htmlfree(%yerbul),2,58) }
}
on *:text:*:#: {
  if ($1 == !nerden) || ($1 == .nerden) && ($2) {
    if ($left($2,1) isnum) { 
      .set -e %nrd $2 | set -e %aktif $chan
      .nerden $2
      .timer 1 2 .sockclose nerden  
    }
    else {
      who $2 
      .enable #nerdenbul
      set -e %aktif $chan
      .timer 1 2 .sockclose nerden

    }
  }
}
#nerdenbul off
raw 352:*:{
  set %nrd $4
  nerden $4
  .disable #nerdenbul
}
#nerdenbul end