on *:text:*:#kanal: {
  if $regex($1,/^([!.&]sicil)$/Si) { 
    if !$2 { msg # :Lütfen 2[!.&]4sicil 2<ekle|sil|oku> olarak belirtiniz. | return }
    if !$3 { msg # :Lütfen 2[!.&]4sicil 2ekle nick olarak belirtiniz. | return }
    elseif $regex($2,/^ekle$/Si) {
      .write $+(Sicil/,$strip($3),.txt) $+($date,¿,$time,¿,$4-,®,¿ $nick )
      msg # $+(,$strip($3),) nick'ine sicil geçilmiştir.
    }
    elseif $regex($2,/^oku$/Si) {
      if !$regex($3,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { msg # :Lütfen 2[!.&]4sicil 2<oku> <Nick> olarak belirtiniz. | return }
      elseif !$findfile(Sicil/,$+($regml(1),.txt),0) { msg # :Sicil nick listesinde bulunmamaktadır. | return }
      elseif !$lines($+(Sicil/,$regml(1),.txt)) { msg # : $regml(1) nick'inde herhangi bir sicil kayıt yok. | return }
      msg #  $regml(1) kayıtlı sicil dosyası kontrol ediliyor..
      msg # :
      var %sc = 1 | while (%sc <= $lines($+(Sicil/,$regml(1),.txt))) {
        var %:sicil $read($+(Sicil/,$regml(1),.txt),%sc)
        msg # : ID:4 %sc - $token($token($token(%:sicil,3-,191),1,169),1,174) - Tarih:4 $token(%:sicil,1,191) Saat:4 $token(%:sicil,2,191) Ekleyen: $token(%:sicil,4,191)   
        inc %sc
      }        
      msg # :
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$regex($strip($3),/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) || !$4 { msg # :Lütfen 2[!.&]4sicil 2<sil> <Nick> <ID> olarak belirtiniz. | return }
      if !$regex($4,/\d/S) { msg # :Lütfen 2[!.&]4sicil 2<sil> <Nick> <ID> olarak belirtiniz. | return }          
      if !$findfile(Sicil/,$+($strip($3),.txt),0) { msg # :Sicil nick listesinde bulunmamaktadır. | return }
      if $lines($+(Sicil/,$strip($3),.txt)) < $strip($4) { msg # : $strip($3) nick'inde böyle bir id yok. | return }       
      $iif($lines($+(Sicil/,$strip($3),.txt)) == 1,.remove $+(Sicil/,$strip($3),.txt),.write $+(-,dl,$strip($4)) $+(Sicil/,$strip($3),.txt))
      msg # $+(,$strip($3),) Sicil nick listesinden silindi.
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$findfile(Sicil/,*.txt,0) { msg # :Sicil nick listesinde kayıt bulunmamaktadır. | return }
      msg # :Sicil nick listesi
      msg # :
      var %sc = 1 | while (%sc <= $findfile(Sicil/,*.txt,0)) {
        msg # $+(%sc,-4,$chr(41),) $remove($token($findfile(Sicil/,*.txt,%sc),-1,92),.txt)
        inc %sc
      }
      msg # :
      msg # :Sicil nick listesi sonu
    }
  }