on *:TEXT:*:#opers: {
  if $regex($1-,/^[\.!]cezaekle/Si) {
    if (!$2) { msg # Hatalı kullanım. .cezaekle nick gün sebep olarak 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 olarak deneyin. | halt }
    var %bitis $calc($ctime + ($3 * 86400))
    var %sebep $iif($4-, $4-, Belirtilmedi)
    write cban.txt $2
    write cezalist.txt $2|%bitis|%sebep (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 olarak deneyin. | halt }
    if (!$istok(Mylife wrath nick3 nick4 nick5,$nick,32)) { msg # Oper/admin ceza silebilmek için yetkili değilsiniz. | halt }
    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 *:SNOTICE:*: {
  if (is now isin $1-) {
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),.window -zne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    .echo -em @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $_gri($_tarih) $+(,$1) $+(,$3) ID'ini Kullanarak Oper Oldu : $oflags($remove($right($1-,3),$chr(40),$chr(41))))

    var %nick $gettok($1-,1,32)
    var %i 1
    while (%i <= $lines(cezalist.txt)) {
      var %line = $read(cezalist.txt,nt,%i)
      var %cnick = $gettok(%line,1,124)
      var %bitis = $gettok(%line,2,124)
      if ($lower(%cnick) == $lower(%nick)) {
        if (%bitis > $ctime) {
          var %kalan $duration($calc(%bitis - $ctime))
          .echo -em @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [CEZA] %nick OPER olmaya çalıştı, kalan süre: %kalan
          .kill %nick Ceza süreniz devam ediyor. Lütfen %kalan bekleyin.
          halt
        }
        else {
          write -dl %i cezalist.txt
          write -dl $readn cban.txt
        }
      }
      inc %i
    }
  }
}

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)) {
      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.
      }
      else {
        write -dl %i cezalist.txt
        write -dl $readn cban.txt
      }
      break
    }
    inc %i
  }
}

[22:44] -irc.test.net- Ahmet (test@185.111.22.33) [Mehmet] is now a root administrator (X)
-
echo %nick= Ahmet
echo %cnick = boş
-

[22:44] -irc.test.net- Ahmet (test@185.111.22.33) [Mehmet] is now a root administrator (X)
-
echo %nick= Ahmet
-