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! }
  }
}