alias -l fld {
  hinc $+(-mu,$1) fld $+($3,½,$4,$encode($5)) 1
  if ($hget(fld,$+($3,½,$4,$encode($5))) >= $2) return $true
  else return $false
}
alias temizle {
  var %t 1
  while %t <= $lines(temizle.mrc) {
    msg $1 $read(temizle.mrc,%t)
    inc %t
  }
}
on @*:text:*:#: {
  if $nick isreg # && $fld(10,3,#,$nick,$1-) {
    ban -k # $nick 2 sebeb.
    mode # +m
    temizle #
    msg # Kanal güvenlik amaçlı 25 sn +m moduna alındı.
    if !$timer($+(#,½,fld)) {
      $+(.timer,½,#) 1 25 mode # -m
      .timer 1 26 msg # Kanal açıldı.
    }
  }
}