on *:text:*!istek *tarkan*:#: {
  if !$read(nickler.txt,w,$address($nick,2)) {
    .timer 1 1 /msg $nick $read(F:\liste)
    /msg # istek tarkan sent to $nick
    .write nickler.txt $address($nick,2)
    .timer 1 3600 /ksil $address($nick,2)
  }
  else {
  msg $nick sen 1 tane aldin simdi bekle }
}

alias ksil { if $read(nickler.txt, w, $1)  { write $+(-dl,$readn) nickler.txt  } }