Ответ: Procedure and Function
Ещё одна просьба: А как зделать так, если я столкнусь(дотронусь) до обьекта какого нибудь.Например у меня красный квадрат. Вот код:
Program tst:
var x,y:integer;
i,e,c:image;
begin
i:=loadImage('fon5.PNG');
e:=loadImage('object1.png');
c:=loadImage('object2.png');
repeat
if getKeyPressed=KE_KEY4 then x:=x-1;
if getKeyPressed=KE_KEY6 then x:=x+1;
if getKeyPressed=KE_KEY8 then y:=y+1;
if getKeyPressed=KE_KEY2 then y:=y-1;
drawImage(i,0,0); drawImage(c,40,40);
drawImage(e,x,y);
repaint;
until false;
end.
Хочу так, если двинуться на красный квадрат(обьект2) то пускай прога закроеться.
Пожалуйста додайте кода!
|