Neler yeni

!Ceza ekle sil temizle code

Disket

Moderatör
Katılım
24 Nis 2019
Mesajlar
1,000
Tepkime puanı
3
Konum
Ankara
Kod:

on :text::?:{
if ($1 == !cezalist) { if $lines(Cezalar.txt) == 0 { msg #Opers Listede kayit bulunmamaktadir. | return } | var %t = 1 | while %t <= $lines(Cezalar.txt) { msg #Opers Nick: $gettok($read(Cezalar.txt,%t),1,58) Ceza Puani: $gettok($read(Cezalar.txt,%t),2,58) | inc %t } }
if ($1 == !cezaekle) {
if !$2 { msg $nick Nick belirtiniz. | return }
if !$3 || $3 !isnum { msg $nick Ceza Puani belirtiniz. | return }
if $read(Cezalar.txt,w,$+(,$2,:,$chr(32),)) { .copy Cezalar.txt Cezalar1.txt | .write $+(-,dl,$readn) Cezalar.txt | .write Cezalar.txt $+($2,:,$chr(32),$calc($gettok($read(Cezalar1.txt,w,$+(,$2,:,$chr(32),)),2,58) + $3)) | .remove Cezalar1.txt | msg #Opers $2 Nick'ine $3 Ceza Puani eklenmistir. Toplam Ceza Puani: $read(Cezalar.txt,w,$+(,$2,:,$chr(32),)) }
else { .write Cezalar.txt $+($2,:,$chr(32),$3) | msg #Opers $2 Nick'ine $3 Ceza Puani eklenmistir. Toplam Ceza Puani: $read(Cezalar.txt,w,$+(,$2,:,$chr(32),)) }
}
if ($1 == !cezasil) {
if !$2 { msg $nick Nick belirtiniz. | return }
if !$3 || $3 !isnum { msg $nick Ceza Puani belirtiniz. | return }
if $read(Cezalar.txt,w,$+(,$2,:,$chr(32),)) { .copy Cezalar.txt Cezalar1.txt | .write $+(-,dl,$readn) Cezalar.txt | .write Cezalar.txt $+($2,:,$chr(32),$calc($gettok($read(Cezalar1.txt,w,$+(,$2,:,$chr(32),)),2,58) - $3)) | .remove Cezalar1.txt | msg #Opers $2 Nick'inin $3 Ceza Puani silinmistir. Toplam Ceza Puani: $read(Cezalar.txt,w,$+(,$2,:,$chr(32),)) }
}
if ($1 == !cezatemizle) {
remove Cezalar.txt
remove Cezalar1.txt
msg #Opers Tüm cezalar sifirlanmistir.
}
if ($1 == !temizle) {
var %flw Cezalar.txt
if $read(%flw,w,$+(,$2,)) {
write $+(-dl,$readn) %flw
msg #Opers $2 nickinin cezalari temizlendi.
}
}
}
}
 
Üst