on *:TEXT:*:#opers: {
  ; Ceza bitiş zamanı hesaplama (gün sayısını saniyeye çeviriyoruz)
  if $regex($1-,/^[\.\!]cezaekle/Si) {
    if (!$2) { msg # Hatalı kullanım. .cezaekle nick gün sebep şeklinde deneyin. | halt }
    if (!$istok(Mylife wrath nick3 nick4 nick5,$nick,32)) { msg # Oper/admin ceza eklemek için yetkili değilsiniz. | halt }
    if ($2 !ison #opers) { msg # Üzgünüm $qt($2) #opers kanalında bulunmuyor. | halt }
    if (!$regex($3,/^\d+$/)) { msg # Hatalı kullanım. .cezaekle nick gün sebep şeklinde deneyin. | halt }

    var %bitis $calc($ctime + ($3 * 86400))
    var %sebep $iif($4-, $4-, Belirtilmedi)
    write cban.txt $2
    ; nick|bitis_timestamp|sebep (| ayraç olarak kullanıldı)
    write cezalist.txt $2|%bitis|%sebep (Ceza ekleyen: $nick)
    msg # $2 nickine $3 gün ceza eklendi. Sebep: %sebep | kill $2 reconnect
    halt
  }

  if $regex($1-,/^[\.\!]cezalist/Si) {
    if ($lines(cezalist.txt) == 0) { msg # Herhangi bir Oper/Admin ceza almamış. | halt }
    msg # Oper/Admin ceza listesi sıralanıyor.
    .play # cezalist.txt 2000
    halt
  }

  if $regex($1-,/^[\.\!]cezasil/Si) {
    if (!$2) { msg # Hatalı kullanım. .cezasil nick şeklinde deneyin. | halt }
    if (!$istok(Mylife wrath nick3 nick4 nick5,$nick,32)) { msg # Oper/admin ceza silebilmek için yetkili değilsiniz. | halt }

    ; Nick geçen satırları silme (readn ile eşleşen satırı kaldır)
    var %found $read(cezalist.txt, w, $2*)
    if (%found) { write -dl $readn cezalist.txt }
    var %found2 $read(cban.txt, w, $2*)
    if (%found2) { write -dl $readn cban.txt }

    msg # $2 nickine verilen ceza kaldırıldı.
    halt
  }
}

on *:JOIN:#opers: {
  var %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)) {
      var %kalan $duration($calc(%bitis - $ctime))
      if (%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.
      }
      break
    }
    inc %i
  }
}