on *:snotice:*: {
  if (Client connecting isin $1-) {
    if (!$hget(Giris)) { hmake giris 100 }
    hadd Giris $9 $10
    $iif(!$window(@Bilgi),window -en @Bilgi)
    echo 2 @Bilgi $9 Nicki $10 Ip Adresi ile Giriş Yapmıştır.
  }
  if (Client exiting isin $1-) {
    if $hget(Giris,$6) { hdel Giris $6 } 
  }
}

on $*:snotice:/Client connecting.+\x3A\s(\S+)\s\x28.+@(.+)\x29/i: {
  if $level($regml(2)) == Sorunlu {
    $iif(!$window(@Uyari),window -ne @Uyari)
    aline -hp @Uyari Sorunlu giriş tespit edildi: $regml(1) nicki $regml(2) ip no
  }
}

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  
}