on *:text:*:#kanal:{
  if $regex($1,/^([.!]s[iİı]c[İıi]l)/Si) {
    if !$read(master.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }  
    elseif !$regex($2,/(kay[ıiİ]t|s[ıiİ]l|l[ıiİ]st(e)?)/Si) { msg # 2Lütfen parametre belirtiniz.4 !sicil kayit|liste|sil | return }
    elseif $regex($2,/^list(e)?$/Si) {
      if $lines(sicil.txt) = 0 { msg # 2Sicil kayiti bulunamadi. | halt }
      msg # 2Sicil listesi siralaniyor.
      var %massacre 1 | while (%massacre <= $lines(sicil.txt)) {
        msg # %massacre $read(sicil.txt,%massacre)
        inc %massacre
      }
    }
    elseif $regex($2,/^kay[ıiİ]t$/Si) {
      var %scl $address( $+ $3 $+ ,10)
      if !$3 { msg # 2Lütfen nick belirtiniz.4 !sicil kayit nick | return }
      elseif $read(sicil.txt,w,$nick) { msg # 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. }
      else {
        write sicil.txt 4Nick:2 $+ $3 - 4Ident@Host:2 $+ %scl - 4Sebep:2 $+ $4- - 4Ekleyen:2 $+ $nick 
        write islemler.txt 4Nick:2 $+ $3 - 4Ident@Host:2 $+ %scl - 4Sebep:2 $+ $4- - 4Ekleyen:2 $+ $nick 
        msg # 4 $+ $3 $+ , 2sicil listesine eklenmiştir. 4Ident@Host:2 $+ %scl 4Sebep:2 $+ $4-
      }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg $nick 2Lütfen nick belirtiniz.4 !sicil sil numara | return }
      else {
        write $+(,-dl,$3,) sicil.txt
        write islemler.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(master.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    play # islemler.txt
  }
}