Pascal - [Risolto] Snake

Ho modificato la procedura editor
si usano i trasti w s a d

procedure editor;
var d,a,b:integer;
    tasto:char;
    f:text;
    exi:boolean;
    punti:array[1..1000] of integer;
    salvataggio:string[15];
begin
 clrscr;
 exi:=false;
 a:=0;
 b:=0;
 d:=0;
 gotoxy(1,1);
 write('Nome mappa: '); readln(salvataggio);
 clrscr;
 repeat
  if a=81 then a:=80;
  if a=-1 then a:=1;
  if b=23 then b:=22;
  if b=-1 then b:=1;
  gotoxy(a,b);
  tasto:=readkey;
  if tasto='d' then a:=a+1;
  if tasto='a' then a:=a-1;
  if tasto='w' then b:=b-1;
  if tasto='s' then b:=b+1;
  if tasto=#13 then
                     begin
                      d:=d+1;
                      punti[d]:=b*100+a;
                      write('#');
                   end;
  if tasto=char(27) then exi:=true;
 until exi;
 a:=0;
 assign(f,salvataggio);
 rewrite(f);
 for a:=1 to d do
  begin
   write(f,punti[a]);
   write(f,' ');
  end;
 close(f);
end;

scusa, ma che cambia tra i tasti direzionali e w,s,a,d?

cambia ke con i tasti direzionali non si sposta a me
forse perche lo sto facendo con pascal for windows e uso la wincrt

Forse sto risolvendo

EDIT: avevo implementato la procedura per riordinare l'array copiando la stessa che avevo utilizzato in un'applicazione che simula un'estrazione del superenalotto..però adesso mi sono reso conto che forse non serve a nulla dato che già c'è la procedura per inserire i nuovi valori che si preoccupa di andare a collocare i nuovi punteggi al posto giusto..basta inizializzare il registro dei punteggi con 5 valori tutti pari a 0..sarebbe una buona cosa se riuscissi a verificare l'esistenza del file registro_punteggi senza fare ricorso a snake.conf

Dovrebbe esserci una funzione che vede se il file esiste!!

Terminato tutto! Prova a compilare..sostituisco il sorgente non funzionante nel primo post con quello che ho corretto..grazie x l'aiuto a gigisoft e Poggi Marco (pierotofy.it/pages/extras/forum/71/1001022-verificare_esistenza_file/)


Se qualcuno ha qualche idea/critica per migliorare il sorgente sono qui proprio per imparare quindi qualsiasi cosa è ben accetta.