alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:text:*:#: if ($1 == !nerden) && $2 { .enable #nerden | set %:kanal # | who +I $2 }
#nerden on
raw 352:*:var %:r $r(100,99999) | sockopen $+(nerden,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(nerden,%:r) $4
#nerden end
on *:sockopen:nerden*:{  
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -n $sockname $crlf  
}
on *:sockread:nerden*: {  
  if ($sockerr) { .sockclose $sockname | return }
  var %:nerden | sockread %:nerden
  if $regex(%:nerden,/(Hostname\:.+|IP Country Code\:.+|IP Continent\:.+|IP Country\:.+|IP City\:.+|IP Latitude\:.+|IP Longitude\:.+|ISP Provider\:.+)) { msg %:kanal $htmlfree($regml(1)) }