Addon .Sicil Ekle|Sil|Liste

[KaLpSizZz]

Kullanımı: [.!]sicil ekle nick | [.!]sicil sil numara | [.!]sicil liste şeklindedir.
Kullanımı: [.!]işlemler yaparak, sicil komutunu kullanan nickleri takip edebilirsiniz.
Code Sahibi: Mecnun & Samet

on *:text:*:%operchan: {
  if $regex($1,/^([.!]S[iİı]c[İıi]l)/Si) {
    if !$2 { msg # 2Lütfen parametre belirtiniz.4 !sicil kayit|liste|sil }
    elseif !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    elseif $regex($2,/^([.!]l[ıiİ]ste)/Si) {
      if $lines(sicil/sicil.txt) = 0 { msg # 2Sicil kayiti bulunamadi. }
      else {
        msg # 2Sicil listesi siralaniyor.
        var %hea = 1 | while (%hea <= $lines(sicil/sicil.txt)) {
          msg # %hea $read(sicil/sicil.txt,%hea)
          inc %hea
        }
      }
    }
    elseif $regex($2,/^([.!]kay[ıiİ]t)/Si) {
      if !$3 { msg # 2Lütfen nick belirtiniz.4 !sicil kayit nick }
      elseif $read(sicil/sicil.txt,w, $+ * $+ $nick $+ * $+ ) { msg # 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. }
      else {
        .write sicil/sicil.txt 4Nick:2 $+ $3 - 4Sebep:2 $+ $4- - 4Ekleyen:2 $+ $nick
        .write sicil/islem.txt 4Nick:2 $+ $3 - 4Sebep:2 $+ $4- - 4Ekleyen:2 $+ $nick
        msg # 4 $+ $3 $+ , 2sicil listesine eklenmiştir. 4Sebep:2 $+ $4-
      }
    }
    elseif $regex($2,/^([.!]s[ıiİ]l)/Si) {
      if !$3 { msg $nick 2Lütfen nick belirtiniz.4 !sicil sil numara }
      elseif $lines(sicil.txt) = 0 { msg # 2Sicil kayiti bulunamadi. }
      else {
        .write $+(,-dl,$3,) sicil/sicil.txt

        .write sicil/islem.txt 4 $+ $3 $+ , 2sicil kaydı silinmiştir.4 Silen:2 $+ $nick

        msg # $3 $+ , 2numaralı nickin sicil kaydı silinmiştir.4 Silen:2 $+ $nick
      }
    }
  }
  elseif $regex($1,/^([.!][İiı][şŞs]lemler)/Si) {
    if !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    else { play # sicil/islem.txt }
  }
}