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