| Forbidden | 03 Ocak 2024 21:00 |
Kullanıcıya belirli saniyede ceza verme
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Kodun amacı belirli bir kanalda belirli kişilere ceza kodu.
ceza hafiften agıra dogru ilerliyor.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Komutlar;
!ceza1 nick
50 karakter yazarsa 50 saniye ceza alır.
!ceza2 nick
100 karakter yazarsa 100 saniye ceza alır.
!ceza3 nick
200 karakter yazarsa 200 saniye ceza alır.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Not:Ceza saniyeleri ve karakter sayısı degiştirilebilir.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Code Sahibi: jeun
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Kod:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Kodun calisacagi kanallar
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias cezakanallar return #mirchelp,#sohbet,#felsefe,#radyo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
;Ceza aktif hale geldiginde uygulayabilecegi Karakter sayisi bir deger girilmelidir.
alias -l ceza1karakter return 200
alias -l ceza2karakter return 100
alias -l ceza3karakter return 50
;Karakter Sayisini Astiginda Saniye cinsinden bir deger girilmelidir.
alias -l ceza1sure return 50
alias -l ceza2sure return 100
alias -l ceza3sure return 200
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:Text:*:$($cezakanallar):{
if ?ceza* iswm $1 {
if ($2 !ison $chan) { notice $nick > Ceza uygulanacak nick kanalda degil ! | return }
if $nick($chan,$2,.~&@%).pnick { notice $nick > Kanal Operatorlerine ceza veremezsiniz ! | return }
if !$2 { notice $nick > Ceza alacak nicki belirtmediniz ! | return }
if (?ceza1 iswm $1) {
set $+(%,cezalinick-,$2,-,$chan) $ceza1karakter
set $+(%,cezalinicksure-,$2,-,$chan) $ceza1sure
msg # > $2 nicki icin !ceza1 [Hafif Ceza] komutu uygulandi. Maksimum yazacagi $ceza1karakter karakter asarsa uygulanacak ban suresi $zcvr($duration($ceza1sure))
return
}
if (?ceza2 iswm $1) {
set $+(%,cezalinick-,$2,-,$chan) $ceza2karakter
set $+(%,cezalinicksure-,$2,-,$chan) $ceza2sure
msg # > $2 nicki icin !ceza2 [Orta Ceza] komutu uygulandi. Maksimum yazacagi $ceza2karakter karakter asarsa uygulanacak ban suresi $zcvr($duration($ceza2sure))
return
}
if (?ceza3 iswm $1) {
set $+(%,cezalinick-,$2,-,$chan) $ceza3karakter
set $+(%,cezalinicksure-,$2,-,$chan) $ceza3sure
msg # > $2 nicki icin !ceza3 [Agir Ceza] komutu uygulandi. Maksimum yazacagi $ceza3karakter karakter asarsa uygulanacak ban suresi $zcvr($duration($ceza3sure))
return
}
}
if $eval($+(%,cezalinick-,$nick,-,$chan),2) {
dec -e $+(%,cezalinick-,$nick,-,$chan) $len($strip($1-))
if ($v1 <= 0) {
ban -u $+ $eval($+(%,cezalinicksure-,$nick,-,$chan),2) $chan $nick 2
mode $chan -v $nick
msg # > $nick , Nickinize uygulanan ceza aktif hale getirildi ve konusmaniz $zcvr($duration($eval($+(%,cezalinicksure-,$nick,-,$chan),2))) sure ile engellendi.
unset $+(%,cezalinick-,$nick,-,$chan) $+(%,cezalinicksure-,$nick,-,$chan)
}
}
}
alias zcvr return $replace($1-,secs, sn,mins,dk,min,dk,sec,sn,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta)
|
