Движение объекта в Pascal

[W. Aron]

Смог задать только движение вправо, то есть если нажать и удерживать стрелку вправо. фигура поползет вправо. Если продублировать код с небольшим изменением ничего хорошего не получается. Мучаюсь уже часа четыре. Помогите исправить пожалуйста.
P.s. вторую часть кода не трогал по той простой причине, что так она хотя бы работает))

program winob;
uses crt,graph;

type Win=object
x1,y1,x2,y2,color:integer;

procedure Init(xn1,yn1,xn2,yn2,cf:integer);
procedure Make;
end;

LinOb=object(Win)
procedure Init(xn1,yn1,xn2,yn2,cf:integer);
procedure Make;
end;

procedure Win.Init;begin
x1:=xn1;y1:=yn1;x2:=xn2;y2:=yn2;color:=cf;
end;

procedure Win.Make;begin
setfillstyle(1,color);
bar(x1,y1,x2,y2);
end;

procedure LinOb.Init;begin
x1:=xn1;y1:=yn1;x2:=xn2;y2:=yn2;color:=cf;
end;

procedure LinOb.Make;begin
setcolor(color);
line(x1,y1,x2,y2);
end;

var d,m,i:integer;
bool1,bool:boolean;
c:char;
cub1,cub2,cub3,cub4:Win;
lin:LinOb;

BEGIN
d:=detect;
initgraph(d,m,'egavga.bgi');
setbkcolor(15);
i:=0;
bool:=true;
bool1:=true;

lin.Init(0,470,640,470,1);
lin.Make;

cub1.Init(61,429,81,449,4);cub1.Make;
cub2.Init(41,450,101,469,4);cub2.Make;

while bool do
begin

c:=readkey;
if c=#75 then

cub1.Init(61+i,429,81+i,449,4);cub1.Make;
cub2.Init(41+i,450,101+i,469,4);cub2.Make;

cub4.Init(41+i,450,101+i,469,15);cub4.Make;
cub3.Init(61+i,429,81+i,449,15);cub3.Make;
i:=i+1;
if i>599 then bool:=false;

begin
bool1:=true;
while bool1=true do begin

cub1.Init(61+i,429,81+i,449,4);cub1.Make;
cub2.Init(41+i,450,101+i,469,4);cub2.Make;

if i=0 then begin bool1:=false;bool:=false;end;
c:=readkey;
if c=#77 then bool1:=false;
end;
end;

end;

closegraph;
END.

[Serge_Bliznykov]

код написан, конечно, страшноватенько (мне непонятно, почему чтение клавиатуры в разных местах разбросано).
Но суть не в этом. я не понял, а что у Вас не получается то? чего Вы пытаетесь добится в конечном итоге?

[W. Aron]

В данном случае я хочу заставить ее двигаться вдоль линии и если фигура выйдет краем за экран, то конец.
Чтение разбросано, потому что изначально фигура двигалась сама с интервалом 1, а я с горем пополам смог заставить ее двигаться вправо по нажатию кнопки...
Не получается движение влево, то есть жму влево - фигура движется все равно вправо. Доходит до правого края...и начинает двигаться влево, причем и при нажатой кнопке вправо.

В идеале же эта штука должна еще и стрелять, но увы моих мозгов на это не хватает (сижу уже часов 10).

[W. Aron]

Все, проблема решена. К сожалению код я оставил в универе, так что как будет на руках, выложу сюда.

[DiemonStar]

обычно такой код с обработкой сканкодов делался примерно так:

ch := readkey();
if ch = #0 then
  begin
    ch := readkey();
    case ch of
       КодЛевойКнопки: if x1 - dx < 0 then
                                   begin
                                      x1 := x1 - dx;
                                      x2 := x2 - dx;
                                   end;
       КодПравойКнопки: if x2 + dx < Ширина экрана then
                                   begin
                                      x1 := x1 + dx;
                                      x2 := x2 + dx;
                                   end;
    end;{case}
    РисуемФигуру(x1,y1,x2,y2);
  end;

p.s. Лениво лазить в поисках констант)