alias sebep {
  if ($1 == ekle)   {
    if !$regex($2,/./Si) { echo -a Nick giriniz.. ÖRN; 2 /sebep ekle Nick - İp - Sebep | return }  
    if !$regex($3,/\d+\.\d+\.\d+\.\d+/Si) { echo -a :Lütfen IP belirtiniz. ÖRN; 4/sebep ekle Nick - İp Adresi - Sebep | return } 
    if !$regex($4,/./Si) { echo -a Sebep giriniz.. ÖRN; 2 /sebep ekle Nick - İp - Sebep | return }  
    $iif(!$isdir(Sebepler),.mkdir Sebepler)
    .write $+(Sebepler/,$2,.txt) $3  $4- $+($date,-,$time) 
    echo -a $2 Nickine Ait  $3 $4-  2Kaydı Eklenmiştir.
  }
  elseif ($1 == ara) {
    if !$isfile($+(Sebepler/,$strip($2),.txt)) { echo -a 4 $strip($2) 2 Nick'ine ait kayıt bulunamadı. | return }
    $iif(!$window(@Sebepler),window -e @Sebepler)      
    echo @Sebepler -
    var %:sbp = $lines($+(Sebepler/,$strip($2),.txt)) | while %:sbp {
      var %:read = $read($+(Sebepler/,$strip($2),.txt),%:sbp)
      echo @Sebepler 4 Nick : 2 $2 - 4Kayıtlar : 2 - %:read
      dec %:sbp
    }
    echo @Sebepler  -
    echo @Sebepler 4* Bilgi: 2 $strip($2) Nick'ine ait 4 $lines($+(Sebepler/,$strip($2),.txt)) 2 Adet Kayıt Bulunmaktadır.
  }
  elseif ($1 == sil) {
    if !$isfile($+(Sebepler/,$strip($2),.txt)) { echo -a 4 $strip($2) 2 Nick'ine ait kayıt bulunamadı. | return }
    remove  $+(Sebepler/,$2,.txt) | echo $2 nickine ait kayıtlar silindi.
  }
}