Движущиеся обьекты Опции

[Spinne]

Задали мне такую интересную задачку: нарисовать некий обьект, который двигается по экрану с помощью кнопок клавиатуры и еще одну прогу для движения обьекта мышкой. Если чесно, то мне в голову ничего не приходит. ООООчень надеюсь на помощь.

[samsa]

Двигай например так:

Код

var
x,y,dx,dy:integer;

begin
dx:=1; dy:=1;
x:=10; y:=10;

repeat
Begin
         putpixel(x,y,0);
         if (x=640) or (x=0)   then dx:=-dx;{или скока размер экрана}                  
         if (y=480) or (y=0)   then dy:=-dy;
         x:=x+dx; y:=y+dy;
          putpixel(x,y,15);

end;
until (пока не зае...т);
end.

Наслаждайся