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.
  }
}

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

[04:51]» <03Subzero> !sebepekle Abcd 1.12.3.112 deneme
[04:51]» <04Rota> Abcd Nickine Ait 1.12.3.112 deneme 2Kaydı Eklenmiştir.
[04:51]» <03Subzero> !sebepara Abcd
[04:51]» <04Rota> -
[04:51]» <04Rota> 4 Nick : 2 Abcd - 4Kayıtlar : 2 - 1.12.3.112 deneme 05/06/2024-04:51:01
[04:51]» <04Rota> -
[04:51]» <04Rota> 4* Bilgi: 2 Abcd Nick'ine ait 4 1 2 Adet Kayıt Bulunmaktadır.
[04:51]» <03Subzero> !sebepsil Abcd
[04:51]» <04Rota> Abcd nickine ait kayıtlar silindi.
[04:51]» <03Subzero> !Skomut
[04:51]» <04Rota> 2 !sebepekle Nick - İp - Sebep
[04:51]» <04Rota> 2 !sebepara
[04:51]» <04Rota> 2 !sebepsil Nick

on *:text:*:#:{   Bu Kısmıda Kullanacagın Kanalı Yazarsın #kanal gibi.