alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x  
}
alias sehir { sockopen Ulke ip-address-lookup-v4.com 80  }  
on *:SockOpen:Ulke:{  
  sockwrite -n $sockname GET /ip/ $+ %Ulke HTTP/1.1
  sockwrite -n $sockname host: ip-address-lookup-v4.com
  sockwrite -n $sockname $crlf  
}  
on *:SockRead:Ulke: {  
  var %bilgi
  sockread %bilgi
  if (*IP in* iswm $htmlfree(%bilgi)) { msg %aktifpencere Host: $remove($htmlfree(%bilgi),- Comments and Complaints) }
}

on *:input:*: {
  if ($regex($1,/(^[!.](iptara|iptrace)$)/i)) {
    .set -u10 %Ulke $2 | set -u10 %aktifpencere $active
    .sehir $2
    .timer 1 5 .sockclose ulke
  }
}