on *:JOIN:#opers: {
  var %found 0, %i 1
  while (%i <= $lines(cezalist.txt)) {
    var %line = $read(cezalist.txt,nt,%i)
    var %nick = $gettok(%line,1,124)
    var %bitis = $gettok(%line,2,124)
    if ($lower(%nick) == $lower($nick)) {
      if (%bitis > $ctime) {
        var %kalan $duration($calc(%bitis - $ctime))
        msg #opers Cezalı Oper/Admin girişi yapıldı! Nick: $nick — Kalan ceza süresi: %kalan
        .kill $nick Ceza süreniz devam ediyor. Lütfen %kalan bekleyin.
        %found = 1
        break
      }
      else {
        ; Ceza süresi bitmişse otomatik temizle
        write -dl %i cezalist.txt
        write -dl $readn cban.txt
      }
    }
    inc %i
  }
  ; Eğer cezalist.txt’de bulunamadıysa ama cban.txt’de varsa yine kill at
  if (!%found) && ($read(cban.txt,w,$nick)) {
    msg #opers Cezalı Oper/Admin girişi yapıldı! Nick: $nick
    .kill $nick Ceza süreniz devam ediyor.
  }
}