Рандомное движение изображения по заданным координатам.
Добавлено: 01 ноя 2012, 19:01
Всем привет! Вот есть игровая программа, в которой нужно уворачиваться от препятствий, машина двигается, а вот препятствий нету, не пойму как это сделать... Помогите с этим. Нужно что бы загруженная картинка была препятствием.
Код: Выделить всё
uses crt,graphabc,abcobjects;
var a,b:array[1..10] of string;
x,y,k,img,img2,img3,img4,img5,img6,img7,img8,g:integer;
s:string;
c:char;
Car: pictureabc;
begin
setwindowsize(800,600);
fillwindow('doroga.jpg');
car:=pictureabc.create(360,450,'bollid.png');
x:=60;y:=370;
repeat
c:=readkey;
if (c=#75) and (x<120) then begin car.moveon(50,0);x:=x+60; end else
if (c=#77) and (x>0) then begin car.moveon(-50,0);x:=x-60;end;
until c=#27;
end.