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.