IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

Kod:

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 (Silence@CAB0966.83D9852F.E23805AD.IP (Belirlenemedi)) Quit Local kill by Mylife (reconnect))
(22:43:06) <Mylife> Cezalı Oper/Admin girişi yapıldı. Nick: wrath
(22:43:06) *** wrath (Silence@CAB0966.83D9852F.E23805AD.IP (Belirlenemedi)) has joined #Mylife
(22:43:06) * ChanServ mod değiştirdi:+oq wrath wrath
(22:43:06) *** wrath (Silence@CAB0966.83D9852F.E23805AD.IP (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.