Lisede ki bilgisayar öğretmenimizin turbo pascal 7 ile yazmış olduğu snake oyunu vardı eski dosyaları karıştırırken buldum turbo pascal 7 16 bit olduğu ve windows 10 da çalışmadığı için freepascal ile compile etim hata vermedi ama çalıştırdığımda karakterler bozuk görünüyordu örnek çerçeve procedurunde ascii karakterleri yanlış geliyordu devpascal kurdum onunla compile etim çalıştırdım karakterler v.s her şey düzgün yılan çok yavaş hareket ediyordu delay değerlerini düşürdüğümde hızlandı normale döndü.
Aşağıdaki kodu windows xp üzerinde turbo pascal 7 ile çalıştırdığımda düzgün, windows 10 devpascal düzgün , windows 10 free pascalda bozuk
Kod: Tümünü seç
write(#187);
olan kısımları
Kod: Tümünü seç
write(chr(187));
olarak ta değiştirdim bir şey değişmedi.
Kod: Tümünü seç
uses crt;
var
i:integer;
s:string;
x1,
x2,
y1,
y2,
renk:integer;
procedure cerceve(x1,x2,y1,y2,renk:integer );(* procedure lerin bulundugu yerin basi *)
var
k,i:integer;
begin
For i:=y1+1 to y2-1 do begin (*dikey ‡izgilerin baŸlangc*)
gotoxy(x1,i);textBackground(renk);textcolor(white);write(#186);
gotoxy(x2,i);textBackground(renk);textcolor(white);write(#186);
end; (*dikey ‡izgilerin sonu*)
for i:=x1 to x2 do begin (*yatay ‡iz§ilerin baŸlangc*)
if i=x1 then begin
gotoxy(i,y1);textBackground(renk);textcolor(white);write(#201);
gotoxy(i,y2);textBackground(renk);textcolor(white);write(#200);
end else begin
if i=x2 then begin
gotoxy(i,y1);textBackground(renk);textcolor(white);write(#187);
gotoxy(i,y2);textBackground(renk);textcolor(white);write(#188);
end else begin
gotoxy(i,y1);textBackground(renk);textcolor(white);write(#205);
gotoxy(i,y2);textBackground(renk);textcolor(white);write(#205);
end;
end;
end; (*yatay ciz§ilerin sonu*)
for i:=y1+1 to y2-1 do begin(*cercevenin i‡ini boyar*)
for k:=x1+1 to x2-1 do begin
gotoxy(k,i);textBackground(renk);textcolor(renk);write(#32);
end;
end;
end;(* procedure lerin bulundugu yerin sonu*)
begin
clrscr;
x1:=25;x2:=55;y1:=8;y2:=17;renk:=13;
cerceve(x1,x2,y1,y2,renk);
readln;
end.