alias nerden { 
  set %ufuk on | userip $1
}
raw 340:*: {
  if %ufuk == on {
    if $remove($2,:) == $null { echo -sa Böyle bir nick yok }
    if $remove($2,:) != $null { set %ip $gettok($2,2,64) | sockopen nerden www.ipaddresslocation.org 80 }
    unset %ufuk
  } 
}
on *:sockopen:nerden: { 
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %ip HTTP/1.1
  sockwrite -n $sockname host: www.ipaddresslocation.org
  sockwrite -n $sockname Cache-Control: max-age=0
  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; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/38.0.2125.111 Safari/537.36
  sockwrite -n $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  sockwrite -n $sockname $crlf  
}
on *:sockread:nerden: { 
  var %i 
  sockread %i
  if *IP City:* iswm %i { echo -sa 10 $gettok($htmlfree(%i),2,$asc(:)) | sockclose $sockname  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:join:#kanaladıburayagelecek: { nerden $nick }