ПОСМОТРИТЕ В ЧЁМ ОШИБКА

[Nikitos_]

КАЧУ СДЕЛАТЬ ЧТОБЫ КРАСНЫЙ КВАДРАТ ДВИГАЛСЯ А ОН НЕ ДВИГАЕТСЯ НЕ МОГУ ПОНЯТЬ ИЗ ЗА ЧЕГО ПОСМОТРИТЕ

Program fift;
uses crt,graph;
const
n=4;
type mas=array[1..n,1..n] of integer;

VAR gm,gd,ch,vx,vy,l,i,j,n1,b:integer;
a:mas;
o:char;
procedure  zastavka;
 begin
 end;
procedure kvadrat(x,y,c,k:integer) ;
var i,j:integer;
begin
for i:=0 to k-1 do
for j:=0 to k-1 do
rectangle(x+i*c,y+j*c,x+i*c+c,y+j*c+c);

end;



procedure massiv;
var
i,j,k: integer;
s: set of byte;
begin
s:=[];

randomize;
for i:=1 to n do   begin
for j:=1 to n do begin
repeat
k:=random(16)+1;
until not (k in s );
a[i,j]:=k; s:=s+[k];

end ;
end;
end;

procedure odin (x,y,h:integer);
var i,j,d:integer;
ds:string;
begin
for i:=0 to 4-1 do
for j:=0 to 4-1   do    begin
d:=a[i+1,j+1];
str(d,ds);

if d<>16 then
outtextXY (x+h div 2+h*j,y+h div 2+h*i, ds);
end;
end;
procedure pusto(i,j:integer);
begin

for i:=1 to n do
for j:=1 to n do
if a[i,j]=16 then
floodfill(vx+n,vy+n,15);

end;
procedure kvadrat2(i,j,h,j1:integer);
begin
j1:=red;
setcolor(j1);
rectangle(i+2,j+2,i+h-2,j+h-2);
end;
procedure dvig(i,j,h,j1:integer);

begin
if keypressed then
begin
o:=readkey;
end;

if o=#115 then
begin
delay(100);
kvadrat2(i,j,h,0);
j:=j-h;
kvadrat2(i,j,h,j1);
end;


if o=#119 then
begin
delay(100);
kvadrat2(i,j,h,0);
j:=j+h;
kvadrat2(i,j,h,j1);
end;

if o=#100 then
begin
delay(100);
kvadrat2(i,j,h,0);
i:=i+h;
kvadrat2(i,j,h,j1);
end;

if o=#97 then
begin
delay(100);
kvadrat2(i,j,h,0);
i:=i-h;
kvadrat2(i,j,h,j1);

end;

if o=#27 then exit;
end;
BEGIN
gd:=detect;
Initgraph(gm,gd,'C:\TP7.1\TP\BGI');
vx:=250;
vy:=200;
l:=60;
ch:=4;
n1:=red;
kvadrat2(vx,vy,l,n1);
setcolor(15);
massiv;
kvadrat(vx,vy,l,ch);

odin(vx,vy,l) ;


outtext('exit "enter"');

repeat;
dvig(vx,vy,l,n1);
until o=#27;

end.

[zhenka619]

можешь поосмотреть мой исходник, там танк (прямоугольник) глючит когда стреляет но двигается он норм!!
http://www.cyberforum.ru/pascal/thread592851.html

[Nikitos_]

он тоже не двигается походу((

[zhenka619]

Просто компилируй не free pascal а turbo pascal!!!(free pascal не читает кнопки!!!)

[TinMan]

Сообщение от zhenka619

Просто компилируй не free pascal а turbo pascal!!!(free pascal не читает кнопки!!!)

женька619, не надо людей вводить в заблуждение и перетягивать обратно на старье..
FreePascal прекрасно читает "кнопки" (клавиши, если точнее). Просто надо в строке USES вместо CRT поставить WinCRT.

[Nikitos_]

поставил я WinCRT, и толку то, раньше хоть клавишу ESC выходило из программи а сейчас и она не действует

[Poma][a]

Free Pascal открывает 2 окна - одно для графики, другое для чтение\вывода, переключаешься между окнами и в выводе жмем свой "ESC"...

[Nikitos_]

это я знаю но он всё равно не выходит

а может вы ещё знаете как сделать чтобы пустой квадрат в игре пятнашки появлялся всегда в нижнем правом угло, а он у меня постоянно рондомом появляется

[TinMan]

Сообщение от Poma][a

Free Pascal открывает 2 окна - одно для графики, другое для чтение\вывода, переключаешься между окнами и в выводе жмем свой "ESC"...

Ромаха, не сбивай народ с толку. Не надо никаких переключений между окнами, если используешь WinCRT.

По Esc прекрасно выходит. И вообще, я отвечал на пост zhenka619. Никитос, я понимаю, что у тебя проблемы с движением квадрата, но на это я не отвечал. Если хочешь - посмотрю, но не сейчас..

[Nikitos_]

посмотри плиз