Kod

on *:text:*:#KanalAdı: {
if $regex($1,/^([.!]S[iİı]c[İıi]l)/Si) {
if !$2 { msg # 2Lütfen parametre belirtiniz.4 !sicil kayit|liste|sil Örnek : !sicil Liste| return }
if !$read(yonetici.txt,w,$nick) { msg # 2Yetkili listesinde bulunmadığınız için bu komutu kullanamazsınız. }
}
if $2 == liste {
if !$read(yonetici.txt,w,$nick) { msg # 2Yetkili listesinde bulunmadığınız için bu komutu kullanamazsınız. }
if $lines(sicil/sicil.txt) = 0 { msg # 2Belirtilen sicil mevcut değil. | halt }
msg # 2Sicil listesi siralaniyor.
var %hea 1
while (%hea <= $lines(sicil/sicil.txt)) {
msg # %hea $read(sicil/sicil.txt,%hea)
inc %hea
}
}
if $2 == kayit {
if !$read(yonetici.txt,w,$nick) { msg # 2Yetkili listesinde bulunmadığınız için bu komutu kullanamazsınız. }
if !$3 { msg # 2Lütfen nick belirtiniz.4 !sicil kayit nick | return }
if $read(sicil/sicil.txt,w, $+ * $+ $nick $+ * $+ ) { msg # 2Eklemeye çalıştığınız nick zaten listede ekli bulunuyor. | halt }
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-
}
if $2 == sil {
if !$read(yonetici.txt,w,$nick) { msg # 2Yetkili listesinde bulunmadığınız için bu komutu kullanamazsınız. }
if !$3 { msg $nick 2Lütfen nick belirtiniz.4 !sicil sil numara | return }
if $lines(sicil.txt) = 0 { msg # 2Sicil kayiti bulunamadi. | halt }
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
}
if $regex($1,/^([.!][İiı][şŞs]lemler)/Si) {
if !$read(yonetici.txt,w,$nick) { msg # 2Yetkili listesinde bulunmadığınız için bu komutu kullanamazsınız. }
play # sicil/islem.txt
}
}