[Mylife]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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
  }
}

Kullanım;

.cezaekle nick gün sebep => Belirtilen nicke #opers kanalında bulunuyorsa ceza ekler.
.cezalist => Verilen cezaları listeler.
.cezasil nick => Verilen cezayı kaldırır.

Örnek görünüm;

(22:40:12) <wrath> .cezalist
(22:40:12) <Mylife> Herhangi bir Oper/Admin ceza almamış.
(22:40:24) <wrath> .cezaekle deneme 2 rüşvet almak
(22:40:24) <Mylife> Üzgünüm "deneme" #opers kanalında bulunmuyor.
(22:40:32) <wrath> .cezaekle
(22:40:32) <Mylife> hatalı kullanım. .cezaekle nick gün sebep olarak deneyin.
(22:40:38) <wrath> .cezaekle ksjdskdjksjksg
(22:40:38) <Mylife> Üzgünüm "ksjdskdjksjksg" #opers kanalında bulunmuyor.
(22:40:52) <wrath> .cezaekle wrath dksdjskdjsg
(22:40:52) <Mylife> Hatalı kullanım. .cezaekle nick gün sebep olarak deneyin.
(22:41:01) <wrath> .cezaekle wrath dksdjs rüşvet almak
(22:41:01) <Mylife> Hatalı kullanım. .cezaekle nick gün sebep olarak deneyin.
(22:41:13) <wrath> .cezaekle wrath 2 rüşvet almak
(22:41:13) <Mylife> wrath nickine 2 gün rüşvet almak sebebi ile ceza eklendi.
(22:41:14) *** wrath (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(Belirlenemedi)) Quit Local kill by Mylife (reconnect))
(22:43:06) <Mylife> Cezalı Oper/Admin girişi yapıldı. Nick: wrath
(22:43:06) *** wrath (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(Belirlenemedi)) has joined #Mylife
(22:43:06) * ChanServ mod değiştirdi:+oq wrath wrath
(22:43:06) *** wrath (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(Belirlenemedi)) Quit Local kill by Mylife (reconnect))
(22:45:05) <wrath> .cezalist
(22:45:05) <Mylife> Oper/Admin ceza listesi sıralanıyor.
(22:45:07) <Mylife> wrath - rüşvet almak sebebi ile 2 gün ceza eklenmiştir. Ceza ekleyen: wrath Bitiş süresi: 6.07.2022
(22:45:37) <wrath> .cezasil wrath
(22:45:37) <Mylife> wrath nickine verilen ceza kaldırıldı.
(22:45:54) <wrath> .cezalist
(22:45:54) <Mylife> Herhangi bir Oper/Admin ceza almamış.

Not; Kod kural ihlali yapan Oper/Adminlere ceza verilmesi için hazırlanmıştır. Eklenen nickler #opers kanalına giriş yaptığı zaman kill atarak sunucudan düşürür. Üzerinde değiştirme yapıp kendinize göre uyarlıyabilirsiniz.

Kırmızı ile işaretlediğim kısımda bir yetkilendirme var oraya eklenen nickler kullanabilir.İyi forumlar.