Procedure pr_knopka;
Var i,k:integer;
Begin
repeat
mousecondition(x,y,lt,rt,ct);
until rt;
rightnum(x,y);
for i:= 1 to 12 do
for k:= 1 to 24 do
if ((pos[i,k].x-7)<x) and (x<(pos[i,k].x+7))
and ((pos[i,k].y-7)<y) and (y<(pos[i,k].y+7))
then if mesto_fishek[i,k]=0
then if mesto_fishek[m,z]=3
then
begin
mesto_fishek[m,z]:=0;
mesto_fishek[i,k]:=1;
end
else
if mesto_fishek[m,z]=4
then
begin
mesto_fishek[m,z]:=0;
mesto_fishek[i,k]:=2;
end;
cleardevice;
setbkcolor(7);
draw_desk;
kubik(c,d);
for i:=1 to 12 do
for k:=1 to 24 do fischka(pos[i,k].x,pos[i,k].y);
End;Добавлено (23.06.2009, 20:07)
---------------------------------------------
Люде но пожайлуста помогите
Добавлено (23.06.2009, 20:07)
---------------------------------------------
Пожайлуста помогите
