IRCALEM.Com Genel Forum, IRC Forumu IF - mIRC Scripting mIRC Scripting Hazır Kodlar mIRC Ceza Puanı Ekleme Kodu
irc

mIRC Ceza Puanı Ekleme Kodu
Aytac
mIRC Ceza Puanı Ekleme Kodu
0
427
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
mirc puanı kodu ceza ekleme

Bu konuyu görüntüleyen kullanıcı(lar):1 Ziyaretçi
Şuan Offine!
Şuan Offine!
Aytac Administrator
********
Proje Sorumlusu

  • Üyelik tarihi    04.02.2020
  • Konum  78 Karabük
  • Konular351
  • Mesajlar364
  • Verilen beğeni8 in 5 posts
  • Alınan beğeni6
  • Rep puanı 6

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.
      }
    }
  }
}
“İnsanların en hayırlısı, insanlara faydalı olandır”. H.Ş.


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  mIRC Youtube Remote Aytac 3 1,931 03.04.2021, 12:30
Son Mesaj: iSyan
  mIRC Yurt Dışı Girişlerini Yasaklama Aytac 1 1,933 03.04.2021, 12:29
Son Mesaj: iSyan
  mIRC Tüm Kanalları Aynı Moda Alma Aytac 0 1,891 20.02.2021, 00:03
Son Mesaj: Aytac
  mIRC Namaz vakitleri Aytac 0 1,815 03.02.2021, 02:03
Son Mesaj: Aytac
  mIRC Ozele Gelen Saldırıları Engelleme Aytac 1 595 12.10.2020, 21:41
Son Mesaj: Core

Foruma Git: