IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi (https://www.ircrehberi.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/)
-   -   Ceza Puan'lama Sistemi (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/10427-ceza-puanlama-sistemi.html)

Zadrich 08 Mart 2020 18:40

Ceza Puan'lama Sistemi
 
Kod:

alias -l ek { if !$isid { %admin = $addtok(%admin,$1,32) } }
alias -l sl { if !$isid { %admin = $remtok(%admin,$1,32) } }

alias knl {
  if $isid { return #ZSop }
  else { echo -a Kullanım Komutları: 1-) Yetkililer için: <!pnick ekle Nick> <!pnick sil Nick> <!plist>
    echo -a  2-) Yetkilendirilmiş kullanıcılar için: <!puanekle Nick Puan> <!cezaekle Nick Puan> <!puan Nick> <!puanlar> <!nicksil Nick>
  }
}

alias -l ynt return Zady

on $*:text:/^[.!]pnick\s+ekle\s+\S+$/Si:$($knl): {
  if $regex($nick,/^( $+ $ynt $+ )$/i) {
    if $findtok(%admin,$3,32) { msg $chan $3 Nicki zaten listede ekli! }
    else { ek $3 | msg $chan $3 Nicki yetkili listesine eklendi. }
  }
  else { msg $chan Bu komutu kullanmaya yetkili değilsin! }
}

on $*:text:/^[.!]pnick\s+sil\s+\S+$/Si:$($knl): {
  if $regex($nick,/^( $+ $ynt $+ )$/i) {
    if $findtok(%admin,$3,32) { sl $3 | msg $chan $3 Nicki listeden silindi. }
    else { msg $chan $3 Nicki zaten ekli değil! }
  }
  else { msg $chan Bu komutu kullanmaya yetkili değilsin! }
}

on $*:text:/^[.!]plist$/Si:$($knl): {
  if $regex($nick,/^( $+ $ynt $+ )$/i) {
    if !%admin { msg $chan Yetkili listesi boş! }
    else { msg $chan Yetkililer: %admin }
  }
  else { msg $chan Bu komutu kullanmaya yetkili değilsin! }
}

on $*:text:/^[.!]cezaekle\s+\S+\s+\d+$/Si:$($knl): {
  if $findtok(%admin,$nick,32) { writeini -n cezalar.ini $2 Puan: $calc($readini(cezalar.ini,$2,Puan:) - $3)
    msg $chan $2 Nickine $3 Ceza puanı eklendi. | msg $chan $2 Nickinin Toplam Puanı: $readini(cezalar.ini,$2,Puan:)
  }
  else { msg $chan Bu komutu kullanmak için yetkili değilsin! }
}

on $*:text:/^[.!]puanekle\s+\S+\s+\d+$/Si:$($knl): {
  if $findtok(%admin,$nick,32) { writeini -n cezalar.ini $2 Puan: $calc($readini(cezalar.ini,$2,Puan:) + $3)
    msg $chan $2 Nickine $3 Puan eklendi. | msg $chan $2 Nickinin Toplam Puanı: $readini(cezalar.ini,$2,Puan:)
  }
  else { msg $chan Bu komutu kullanmak için yetkili değilsin! }
}

on $*:text:/^[.!]puan\s+\S+$/Si:$($knl): {
  if $findtok(%admin,$nick,32) {
    if !$lines(cezalar.ini) { msg $chan Liste Boş! }
    else {
      if !$readini(cezalar.ini,$2,Puan:) { msg $chan $2 Nicki listede yok! }
      else { msg $chan Nick: $ini(cezalar.ini,$ini(cezalar.ini,$2)) Puan: $readini(cezalar.ini,$2,Puan:)  }
    }
  }
  else { msg $chan Bu komutu kullanmak için yetkili değilsin! }
}

on $*:text:/^[.!]puanlar$/Si:$($knl): {
  if $findtok(%admin,$nick,32) {
    if !$lines(cezalar.ini) { msg $chan Liste Boş! }
    else {
      var %a = 1,%b = $lines(cezalar.ini)
      while %a <= %b { msg $chan Nick: $$ini(cezalar.ini,%a) Puan: $readini(cezalar.ini,$ini(cezalar.ini,%a),Puan:) | inc %a } 
    }
  }
  else { msg $chan Bu komutu kullanmak için yetkili değilsin! }
}

on $*:text:/^[.!]nicksil\s+\S+$/Si:$($knl): {
  if $findtok(%admin,$nick,32) {
    if !$lines(cezalar.ini) { msg $chan Liste Boş! }
    else {
      if !$ini(cezalar.ini,$2,0) { msg $chan $2 Nicki listede  yok! }
      else { remini cezalar.ini $2 | msg $chan $2 Nicki ve bilgileri silindi. }
    }
    else { msg $chan Bu komutu kullanmak için yetkili değilsin! }
  }
}

-
Kullanımı:
Yetkililer için: <!pnick ekle Nick> <!pnick sil
Yetkilendirilmiş kullanıcılar için: <!puanekle Nick Puan> <!cezaekle Nick Puan> <!puan Nick> <!puanlar> <!nicksil Nick>
-
Klavyeniz den Alt + R Tuşlarına Basarak Acılan Pencere de REMOTE Kısmına Basıyoruz
Ardından DOSYA Kısmına Basarak Yeni Bir Sayfa acarak içine atıyoruz ve kapatıyoruz

She 22 Ağustos 2020 21:44

Emeğinize sağlık

CaNeRR 22 Ağustos 2020 21:47

Emeğinize Sağlik. . . ((:


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:25.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.

Copyright ©2019 - 2025 | IRCRehberi.Net