alias nerden {
  set %ip $1
  sockclose nerden
  sockopen nerden 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:sockopen:nerden:{
  sockwrite -n $sockname GET $+(/lookups/iplocation.asp?ipaddress=,%ip) HTTP/1.1
  sockwrite -n $sockname Host: $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:nerden:{
  var %happen
  sockread $htmlfree(%happen)
  tokenize 32 $htmlfree(%happen)
  if (*City* iswm $1-) {
    .set %yerelsehir $remove($2,City)
  }
  if (*Country* iswm $1-) {
    .set %yerelulke $remove($2,Country)
  }
  if (*>ISP<* iswm %happen) {
    .set %yerelisp $2-
    .set %yerelisp $remove(%yerelisp,ISP)
    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 ISP  : %yerelisp
  }
}
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
}