mIRC Ceza Puanı Ekleme Kodu

Aytac

Developer
Yönetici
Developer
Katılım
4 Şub 2020
Mesajlar
373
Tepkime puanı
17
Puanları
18
Konum
ircland
Web sitesi
www.ircalem.net
mIRC Ceza puanı ekleme remotesi;

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