alias nerden {
  set %ip $1
  sockclose nerden
  sockopen nerden whatismyipaddress.com 80
}
on *:sockopen:nerden:{
  sockwrite -n $sockname GET /ip/ $+ %ip HTTP/1.1
  sockwrite -n $sockname Host: whatismyipaddress.com $+ $crlf $+ $crlf
}
on *:sockread:nerden:{
  var %happen
  sockread $htmlfree(%happen)
  .tokenize 32 $htmlfree(%happen)
  if (*City:* iswm %happen) {
    .set %yerelsehir 0
    .set %yerelsehir $1 $2
    .set %yerelsehir $remove(%yerelsehir,City:)
  }
  if (*Country:* iswm %happen) {
    .set %yerelulke 0
    .set %yerelulke $1 $2
    .set %yerelulke $remove(%yerelulke,Country:)
  }
  if (*Latitude:* iswm %happen) {
    .set %yerelenlem 0
    .set %yerelenlem $1 $2
    .set %yerelenlem $remove(%yerelenlem,Latitude:)
  }
  if (*Longitude:* iswm %happen) {
    .set %yerelboylam 0
    .set %yerelboylam $1 $2
    .set %yerelboylam $remove(%yerelboylam,Longitude:)
    msg #nerden Nick: %yerelnick
    msg #nerden IP No: %ip
    msg #nerden Şehir: %yerelsehir
    msg #nerden Ülke: $replace(%yerelulke,TURKEY,Türkiye,GERMANY,Almanya,NETHERLANDS,Hollanda,UNITED KINGDOM,Ingiltere,UNITED STATES,Amerika B. Devletleri,CHINA,Çin)
    msg #nerden Enlem: %yerelenlem
    msg #nerden Boylam: %yerelboylam
  }
}
on *:text:*:#nerden:{
  if ($1 == !nerden) && $2 { bak $2 }
}
alias bak { .whois $1 | enable #dirim }
#dirim off
raw 378:*: { nerden $7 | .set %yerelnick $2 | disable #dirim }
#dirim end
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}