on $*:snotice:/Client connecting.+\x3A\s(\S+)\s\x28.+@(.+)\x29/i: {
  if $level($regml(2)) == Sorunlu {
    if $sock(yerelbilgi,1).status != active { set %yerelipno $regml(2) | bağlan $regml(2) }
    $iif(!$window(@Uyari),window -ne @Uyari)
    aline -hp @Uyari Sorunlu giriş tespit edildi: $regml(1) nicki $regml(2) ip no
  }
}
on *:sockopen:yerelbilgi:{
  sockwrite -n $sockname GET /index.php?query= $+ %yerelipno  HTTP/1.1
  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $clrf   
}
on *:sockread:yerelbilgi:{
  if ($sockerr) { aline @Uyari Veri alımında Hata oluştu. | halt }
  else {
    var %difi 
    sockread %difi
    if (*Country*Region*City* iswm %difi) { set %dify $remove($htmlfrex(%difi),$chr(9)) }
    elseif (*Registry*Information* iswm %difi) { 
      sockclose yerelbilgi 
      if $regex(%dify,/ISP(.+)Google.+Map.+for.+ISP.+Continent/i) {
        aline -hp @Uyari $regml(1)
        unset %dif*
      }      
    }
  }
}
alias bağlan {
  sockclose yerelbilgi
  sockopen yerelbilgi 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
alias htmlfrex {  
  var %x, %i = $regsub($replace($1-,<td>,$chr(160),</td>,$chr(160)),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x  
}