alias geriplay {
   if !$1 { echo -ea Komut kullanimi /geriplay (#Kanal|nick) dosya.txt Saniye  | return }
   if !$isfile($2) { echo -ea $2 boyle bir dosya bulunmadi. | return }
   var %x $lines($2) 
   while $read($2,%x) {
     .timer 1 $3 $1 $v1
     dec %x
   }
   echo -ea $1 play islemi bitti.
 }

alias geriyesay { var %s $lines(dosya.txt) | while (%s) { echo -a $read(dosya.txt,%s) | dec %s } }

  alias gerisay { var %x $lines($1) 
   :.
   if $read($1,%x) { echo -a $v1 | dec %x | goto . }
 }
 /gerisay dosya.txt

alias say {
  if !$1 || !$regex($1,/\.txt$/Si) { echo -a Lütfen txt uzantılı bir metin belgesi belirtiniz. | return }
  var %:d $1
  tokenize 32 $regsubex($str(-,$lines(%:d)),/./g, $read(%:d,$calc($lines(%:d) - \n +1)) $chr(32))
  echo -a $*
}

alias say {
  if !$1 || !$regex($1,/\.txt$/Si) { echo -a Lütfen txt uzantılı bir metin belgesi belirtiniz. | return }
  var %:d $1
  tokenize 191 $regsubex($str(-,$lines(%:d)),/./g, $read(%:d,$calc($lines(%:d) - \n +1)) $chr(191))
  echo -a $*
}

x %. = $lines($1) | .timer %. 0 echo $$!read( $1 ,% $+ .) $(|) dec %.

x .timer $calc($lines($1)+1) 0 echo -q $$!read( $1 , $!timer(1).reps)

1
2
3
4
5

5
4
3
2
1