как заставить шарик прыгать?

[Stilet]

Вернее работает, но шарик внизу не останавливается и продолжает дальше падать

Ну и что мешает поправить?

[sheka]

не знаю, у меня все работает!

[alex(21)]

а если сделать ему препятствие. например коротенькую линию нарисовать немного выше и чтобы шарик сквозь линию не проходил и мог запрыгивать на неё не проваливаясь?

[Stilet]

а если

Зделай. Что мешает?

[alex(21)]

Что мешает?

шарик в прыжке не двигается

[sheka]

вставь проверку на нажатие клавиши, только уже без прыжка!!!

if KeyPressed then
              begin
              case readkey of
                   'a':if x-step>=0 then
                          begin
                          draw(x,y);
                          dec(x,step);
                          draw(x,y);
                          end;
                   'd':if x+step<=GetMaxX-2*Radius then
                          begin
                          draw(x,y);
                          inc(x,step);
                          draw(x,y);
                          end;
                   #27: begin
                        CloseGraph;
                        halt;
                        end;
                   end;
              end;

procedure jump;
begin
     for y:=yl-radius downto yl-radius-h do
         begin
         draw(x,y);
         draw(x,y-1);
         delay(((yl-radius)-y)*zaderzhka);
         //вот сюда
         end;
     for y:=yl-radius-h to  yl-radius do
         begin
         draw(x,y-1);
         draw(x,y);
         delay(((yl-radius)-y)*zaderzhka);
         //и вот сюда
         end;
end;

там организуй это все красиво у себя в проге, процедурами. и все будет чики-пики