on  $*:text:/(^[!.@]not.(ekle|sil|list|temizle))/gi:*: {

  var %admin cocorico admin

  if $istok(%admin,$nick,32) {
    var %msg msg $target
    if $2 == ekle &&  $3 && $4 {
      var  %rd $readini(not.ini,$3,$left($md5($4-),5))
      if %rd {  
        %msg bu not daha önce eklenmis.  
        return   
      }
      if !%rd {  
        %msg $3 için $left($md5($4-),5) ID ile Notunuz eklendi  
        writeini not.ini $3 $left($md5($4-),5) $4-  
        return   
      }
    }
    if $2 == list && !$3 { 
      %msg $ini(not.ini,0) kişi için not var  
      return
    }

    if $2 == list && $3 == * {  
      var %i  1   
      while ($ini(not.ini,%i)) { 
        %msg  Nick: $ini(not.ini,%i) Not: $ini(not.ini,%i,0)  |  inc %i   
      }  
      return    
    }
    if $2 == list && $3 && $3 != * { 
      %msg $3 için $iif(!$ini(not.ini,$3,0),hic not yok,$ini(not.ini,$3,0) Not bulundu  ) 
      var %i  1 
      while ($ini(not.ini,$3,%i)) {  
        %msg  ID: $v1  NOT: $readini(not.ini,$3,$ini(not.ini,$3,%i)) 
        inc %i  
      }
      return
    }
    if $2 == sil {    
      if !$readini(not.ini,$3,$4)  {
        %msg bu  $3 ID 'de not bulunamadı.  
        return  
      }
      if $readini(not.ini,$3,$4)  {  
        remini not.ini $3 $4 
        %msg $3 notlarından $4 ID'deki not silindi  $iif(!$ini(not.ini,$3,0),kalan hic not yok, kalan not $ini(not.ini,$3,0) ) 
        if !$ini(not.ini,$3,0) { remini not.ini $3 } 
      }
      return
    }
    if $2 == temizle && $3 && $3 != * {    
      if !$ini(not.ini,$3) {  %msg bu kisiye ait not bulunamadı.  
        return  
      }
      if $ini(not.ini,$3) {  
        %msg $3 notları silindi  
        remini not.ini $3
      }
      return
    }
    if $2 == temizle && $3 == * || !$3 {   
      %msg $iif($ini(not.ini,0) =< 1 , $v1 kisi için, $v1 kisilerin)  tüm notlar temizlendi.  
      write -c not.ini
    }
    return
  }
}