движение в pacman, pascalABC

[postman]

Делаю курсовую по игре пакман , и возникла сложность с реализацией движения . В оригинальной игре герой движется сам пока не упрётся в препятствие или пользователь изменит направление движения.Никак не получается это сделать ,, движение или зацикливается или вообще не работает

procedure moveRight;
var
  x, y, i, j: integer;
begin
  
  while (map[a.x + 1, a.y] = true) and (keypressed=false) do // здесь просто попытался остановить движущийся шарик 
  begin
    for x := round((a.x) * 100 / 2)  to round((a.x + 1) * 100 / 2)  do
    begin
      window.Clear;
      fillcircle(x, round(a.y * 100 / 2), round(50 / 2)); 
      paintmap; 
      redraw;
    end;
    a.x := (a.x + 1);
    i := i + 1;
  end;

всё пространство разбито на клетки , описываемые массивом map , если значение map в некоторой клетке true то она проходима , если false то не проходима .

[Sciv]

Вопрос 1. А при упирании в препятствие шарик останавливается?
Вопрос 2. В каком месте у Вас реакция на нажатие клавиши прописана (то бишь проверка, какая клавиша + смена направления движения)?
Вопрос 3. Что значит "зацикливается"?

[postman]

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

[phomm]

Лучше весь проект сюда кинуть - быстрее сориентируемся.

[DiemonStar]

обычно это делается так:
1. цикл задержки (устанавливается относительно системного таймера)
2. обработка очередного шага (движения игрока, движения монстров, различные события и нажатия кнопок)
3. если игра не закончена, то к п.1

[postman]

вот собственно весь код

uses
  graphABC, abcobjects;

type
  point = record
    x: integer;
    y: integer;
  end;

var
  map: array [1..10] of array [1..10] of boolean;
  a: point;

procedure fillMap;//стенки  карты
var
  i, j: integer;
begin
  for i := 1 to 10 do
    for j := 1 to 10 do
      map[i, j] := true;
  
  
  for i := 1 to 10 do
    map[i, 1] := false;
  
  for i := 1 to 10 do
    map[1, i] := false;
  
  for i := 1 to 10 do
    map[i, 10] := false;
  
  for i := 1 to 10 do
    map[10, i] := false;
  
  for i := 1 to 10 do 
    map[random(9) + 1, random(9) + 1] := false;// некоторое количество рандомных препятствий
end;




procedure paintMap;//отрисовка карты
var
  x, y: integer;
begin
  for x := 1 to 10 do
    for y := 1 to 10 do
    begin
      if map[x, y] = false then 
        fillrect(round((x * 100 - 50) / 2), round((y * 100 - 50) / 2), round((x * 100 + 50) / 2), round((y * 100 + 50) / 2));
    end;
end;



procedure moveLeft;
var
  x, y, target, start: integer;
begin
  target := round((a.x - 1) * 100 / 2);
  start := round((a.x) * 100 / 2);
//  for x := start downto target  do
x:=start;
while x >= target do
  begin
    x:=x-3;
    window.Clear;
    fillcircle(x, round(a.y * 100 / 2), round(50 / 2)); 
    paintmap;
    sleep(1);
    redraw;
    
  end;
  a.x := (a.x - 1);
end;


procedure moveRight;
var
  x, y, i, j, target, start: integer;
begin
  for i := a.x to 10 do
    if map[a.x + 1, a.y] = true then
    begin
      for x := round((a.x) * 100 / 2)  to round((a.x + 1) * 100 / 2)  do
      begin
        window.Clear;
        fillcircle(x, round(a.y * 100 / 2), round(50 / 2)); 
        paintmap;
        redraw;
      end;
      a.x := (a.x + 1);
    end
    else
      break;
end;

procedure Move(Key: integer);
begin
  
  window.Clear;
  case Key of
    VK_Left:  if map[a.x - 1, a.y] <> false then moveleft;
    VK_Right: if map[a.x + 1, a.y] <> false then moveright; 
    VK_Up:    if map[a.x, a.y - 1] <> false then a.y := (a.y - 1);
    VK_Down:  if map[a.x, a.y + 1] <> false then a.y := (a.y + 1);
  end;
  fillcircle(round(a.x * 100 / 2), round(a.y * 100 / 2), round(50 / 2)); 
  paintmap;
  redraw;
  window.Caption := 'x=' + inttostr(a.x) + ' y=' + inttostr(a.y);
end;





begin
  lockdrawing;
                      
  brush.Color := clblack;
  window.Width := 525;
  window.Height := 520;
  fillmap;
  paintMap;
               
  a.x := 3;
  a.y := 2;
 
  fillcircle(round((a.x * 100) / 2), round((a.y * 100) / 2), round(50 / 2));
  redraw;
  onkeydown := Move;
end.