alias hashran return $rand(0,999999)
on *:snotice:*connecting*: {
  var %nick $9, %ip $remove($token($10,2,64),$chr(41)), %rapor @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  if ($nickbul(%ip)) {
    if ($numtok($nickler(%ip),32) > 2) { 
      if (!$window(%rapor)) { window -a %rapor }
      echo %rapor 4 %nick 5Gizli Ajan:2 $nickler(%ip)
    }
  }
  hadd -m seens $hashran $+($date,+,%ip,+,%nick)
}
alias nickbul {
  if (!$hget(seens)) { hmake seens | hload seens seens.63 }
  var %s 1
  while $hget(seens,%s).data {
    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43)
    $iif($1 == %adres,return 1)
    inc %s
  }
  return 0
} 
alias nickler {
  if (!$hget(seens)) { hmake seens | hload seens seens.63 }
  unset %nickler
  var %s 1
  while $hget(seens,%s).data {
    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43)
    if ($1 == %adres) { %nickler = $addtok(%nickler,%nick,32) }
    inc %s
  }
  return  $replace(%nickler,$chr(32),$+($chr(32),4,-,,$chr(32)))
}
alias kontrols {
  if (!$hget(seens)) { hmake seens | hload seens seens.63 }
  unset %nickler
  var %s 1
  while $hget(seens,%s).data {
    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43), %v1 $v1
    if ($calc($ctime(%tarih) - $ctime($date)) >= 0) { hdel -m seens $hfind(seens,%v1,1,W).data }
    inc %s
  }
  hsave -o seens seens.63
  hfree -sw seens
  hmake seens
  hload seens seens.63
}
on *:start: {
  hmake seens
  if ($findfile($mircdir,seens.63,0) >= 1) { hload seens seens.63 | kontrols }
}
on *:exit: {
  hsave -o seens seens.63
}