| immortaL | 28 Mayıs 2017 17:11 |
!Ceza ekle|sil|temizle mIRC Code
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.
}
}
}
}
|
