alias kyetki {
  if $1 == add {
    if $read(kyetki.txt,$2) { msg $3 $qt($2) Saten Ekli | halt }
    else { write kyetki.txt $2 | msg $3 $qt($2) Listeye Eklendi. }
  }
  if $1 == del { 
    if !$read(kyetki.txt,$2) { msg $3 $qt($2) Ekli Değil | halt }
    elseif $read(kyetki.txt,$2) { write -d kyetki.txt $readn | msg $3 $qt($2) Listeden Silindi. }
  }
  if $1 == list { 
    var %x = 1,%y = $lines(kyetki.txt)
    while (%x <= %y) {
      .notice $2 $read(kyetki.txt,%x)
      inc %x 1
    }
    .notice $2 Toplam %y Kisi.
  }
  if $read(kyetki.txt,$1) { return $ture }
  else { return $false }
}
on *:text:*:#deneme:{
  if $1 == !kyetki && $2 == add { $kyetki($2,$3,$chan) }
  if $1 == !kyetki && $2 == del { $kyetki($2,$3,$chan) }
  if $1 == !kyetki && $2 == list { $kyetki($2,$nick) }
}

on *:text:!komut:#kanal:{
  if $1 == !test {
    if $kyetki($nick) == $false { msg # $nick Bu Komutu Kullanmaya Yetkili Değilsin! | halt }
    else { msg # $nick Komut vs.. işlem tamam }
  }
}