on *:text:*:?:{
  if !kayit* iswm $1- {  
    if $read(kayit.txt,w,Ad: $2 Soyad:  $3  Yaş:  $4  Semt:  $5-) { 
      .echo -a 4 $2- 2 Listede zaten ekli  
      .msg $nick 4 $2- 2 Listede zaten ekli  
    } 
    else { 
      write kayit.txt  Ad: $2 Soyad:  $3  Yaş:  $4  Semt:  $5-  {
        .echo -a   4 Ad: 2 $2 4 Soyad: 2 $3 4 Yaş: 2 $4 4 Semt: 2 $5-  Kayit Listesine Eklendi
        .msg $nick 4 Ad: 2 $2 4 Soyad: 2 $3 4 Yaş: 2 $4 4 Semt: 2 $5-  Kayit Listesine Eklendi 
      } 
    } 
  }
}

on *:text:!kayit *:?:{
  if !$2 { .msg $nick Neyi kayıt edeceğiz abi?:S }
  elseif !$3 || !$4 || !$5 { .msg $nick Bilgiler eksik verildi. Kullanım: "!kayit <ad> <soyad> <yaş> <semt>" şeklinde olmalıdır. }
  elseif $kyt($nick) { .msg $nick Zaten dosyada varsın yahu. Yüz tane satır mı ayıracağız sana?:S }
  else write kayit.txt Nick: $nick - Ad: $2 - Soyad: $3 - Yaş: $4 - Semt: $5 | .msg $nick Bilgileriniz, başarıyla kayıt edildi.
}
alias kyt var %d = 1 | while %d <= $lines(kayit.txt) { $iif($regex($1,$read(kayit.txt,%d)),return $true) | inc %d } | return $false

on *:text:*:?:{
  if !kayit* iswm $1- {  
    if $read(kayit.txt,w,Nick: $nick Ad: $2 Soyad:  $3  Yaş:  $4  Semt:  $5-) { 
      .echo -a 4 $2- 2 Listede zaten ekli  
      .msg $nick 4 $2- 2 Listede zaten ekli  
    } 
    else { 
      write kayit.txt  Nick: $nick Ad: $2 Soyad:  $3  Yaş:  $4  Semt:  $5-  {
        .echo -a   4Nick: 2 $nick Ad: 2 $2 4 Soyad: 2 $3 4 Yaş: 2 $4 4 Semt: 2 $5-  Kayit Listesine Eklendi
        .msg $nick 4Nick: 2 $nick 4 Ad: 2 $2 4 Soyad: 2 $3 4 Yaş: 2 $4 4 Semt: 2 $5-  Kayit Listesine Eklendi 
      } 
    } 
  }
}