on *:text:*:#opers: {
  set -u30 %:a $calc($replace($date,/,.) + $3) $+ .2022
  if $regex($1-,/^[\.!]cezalist/Si) && ($read(cezalist.txt) == $null) {
    msg # Herhangi bir Oper/Admin ceza almamış.
  }
  elseif $regex($1-,/^[\.!]cezasil/Si) && $read(cban.txt,nt,$2) {
    write $+(-dl,$readn) cezalist.txt
    write $+(-dl,$readn) cban.txt
    msg # $2 nickine verilen ceza kaldırıldı.
  }

  elseif $regex($1-,/^[\.!]cezalist/Si) {
    msg # Oper/Admin ceza listesi sıralanıyor.
    .play # cezalist.txt 2000
  }
  if $regex($1-,/^[\.!]cezaekle/Si) {
    if (!$2) {
      msg # hatalı kullanım. .cezaekle nick gün sebep olarak deneyin.
    }
    elseif !$istok(Mylife wrath nick 3 nick 4 nick5,$nick,32) {
      msg # Oper/admin ceza eklemek için yetkili değilsiniz.
    }
    elseif ($2 !ison #Opers) {
      msg # Üzgünüm $qt($2) #opers kanalında bulunmuyor.
    }
    elseif (!$regex($3,/\d+?/i)) {
      msg # Hatalı kullanım. .cezaekle nick gün sebep olarak deneyin.
    }
else {  msg #  $2 nickine $3 gün $4- sebebi ile ceza eklendi. | .kill $2 reconnect | write cban.txt $2 | write cezalist.txt $2 - $4- sebebi ile $3 gün ceza eklenmiştir. Ceza ekleyen: $nick Bitiş süresi: %:a } } }
on ^*:join:#opers: {
  if $read(cban.txt,w,$nick) {
    msg #opers Cezalı Oper/Admin girişi yapıldı. Nick: $nick
    .kill $nick reconnect
  }
}