on *:Text:*:#kontrolkanal: { 

  if $1 == !iptal && %rcsil { msg $chan İşlem iptal edildi. | unset %rcsil | return } 

  if $1 == !devam && %rcsil { msg $chan [RCDepo/ $+ %rcsil $+ / $+ $nick $+ ] $2 nickine ait RC girdileri silinmiştir. | .remove RC/ $+ %rcsil $+ .txt | unset %rcsil }  

  elseif $1 == !RC { 

    if !$2 {  

      .msg $chan Kullanım şekli:  

      .msg $chan !RC list (RC bilgilerini Listeler) 

      .msg $chan !RC ekle Nick mesajınız (Nick'e RC bilgisi ekler) 

      .msg $chan !RC oku Nick (Nick'in RC bilgisini okur) 

      .msg $chan !RC sil Nick (Nick'e ait RC dosyasını siler) 

      return  

    } 

    if $2 == list { 

      if $findfile($mircdirrc,*.txt,0) == 0 { 

        .msg $chan Hata! RC Deposu boş. 

      } 

      else { 

        .msg $chan [RCDepo/ $+ $nick $+ ] - RC Deposu kontrol ediliyor.. 

        var %a = 1 

        while $findfile($mircdirrc,*.txt,%a) { 

          msg $chan  $+ $gettok($nopath($v1),1,46) $+  kayıtlı RC dosyası 

          inc %a 

        } 

      } 

    } 

    if $2 == ekle { 

      if !$exists(RC) { mkdir RC } 

      .write RC/ $+ $3 $+ .txt [ $+ $date $+ - $+ $time $+ - $+ $3 $+ ] : $4- [Ekleyen: $nick ] 

      .write RC/ $+ $3 $+ .txt - 

      .msg $chan [RCDepo/ $+ $3 $+ / $+ $nick $+ ] $3 nickine RC geçilmiştir. 

    } 

    if $2 == oku { 

      if !$file(RC/ $+ $3- $+ .txt) { 

        .msg $chan  $+ $3 $+  kayıtlı bilgi girdisi bulunamadı. 

      } 

      else { 

        .msg $chan [RCDepo/ $+ $nick $+ ] - $3- kayıtlı RC dosyası kontrol ediliyor.. 

        saydır $2- 

      } 

    }       

    if $2 == sil { 

      if !$isfile(RC/ $+ $3- $+ .txt) { 

        .msg $chan Hata! $2 kayıtlı RC dosyası bulunamadı. 

      } 

      else { 

        .msg $chan UYARI! Bu komut ile $2 kaydına ait bütün girdileri silersiniz. 

        .msg $chan Uygulamaya devam etmek istiyorsanız ; !Devam , 

        .msg $chan Uygulamayı iptal etmek istiyorsanız ; !iptal yazınız. 

        .set -e %rcsil $3 

      } 

    } 

  } 

} 

 
alias saydır { 

  .timersaydır.* off 

  var %s 1 

  var %a 1 

  while %s <= $lines(RC/ $+ $2- $+ .txt) { 

    .timersaydır. $+ %s 1 %a msg $chan $read(RC/ $+ $2- $+ .txt,%s) 

    inc %s 

    inc %a 2 

  } 

}