Проблема с разработкой алгоритма движения, и его выполнением.

[zyxel-md]

Пишу игру - При нажатии на стрелочку вверх, должна выполняться запись действия, к примеру нажатие перемещения фигурки наверх - запись в какое- нибудь поле надпись, "вверх" и так же для всех действий, после создания алгоритма движения , при нажатии на кнопку фигура начинает двигаться согласно ранее задаваемым действиям, уже неделю мучаюсь ничего не могу поделать !
Очень прошу помогите!!!



фото-

http://s019.radikal.ru/i601/1204/f3/734a14c6fed3.jpg

Скачать Архив

Текст программы

[RuVarez]

Код выложите пожалуйста, а лучше исходники если можно

[zyxel-md]

Сообщение от RuVarez

Код выложите пожалуйста, а лучше исходники если можно

Код слишком большой привышает нормы
и форум запрещает могу как архив скинуть

[RuVarez]

выкладывай

[zyxel-md]

Сообщение от RuVarez

выкладывай

Выложил ниже фото

[RuVarez]

Не ну ты красавец! Ты волижил ток Unit3, Project! А остальное?

[zyxel-md]

Уже добавил все что есть.

[RuVarez]

Господи боже мой! Мама роди меня обратно! А зачем такие большие условия! Создай что то типа этого

type TPos = record
  X,Y : Integer;
end;

Walls : array [1..n] of TPos; //n - кол-во преград
MyCar : TPos;

Это будут твои преграды.
Далее создай функцию и перед движений вызывай ее!
В ней проверка на преграду! Процедура что типа:

function IsWallNear : Boolean;
var i : Integer;
begin
  Result := false;
 
  for i := 1 to n do
  begin
    if (MyCar.X = Walls[i].X) and (MyCar.Y = Walls[i].Y) then
    begin
      Result := true;
      Break;
    end;  
  end;  
end;

Короч оптимизируй сначало а потом делайн дальше

[zyxel-md]

Сообщение от RuVarez

Господи боже мой! Мама роди меня обратно! А зачем такие большие условия! Создай что то типа этого

type TPos = record
  X,Y : Integer;
end;

Walls : array [1..n] of TPos; //n - кол-во преград
MyCar : TPos;

Это будут твои преграды.
Далее создай функцию и перед движений вызывай ее!
В ней проверка на преграду! Процедура что типа:

function IsWallNear : Boolean;
var i : Integer;
begin
  Result := false;
 
  for i := 1 to n do
  begin
    if (MyCar.X = Walls[i].X) and (MyCar.Y = Walls[i].Y) then
    begin
      Result := true;
      Break;
    end;  
  end;  
end;

Короч оптимизируй сначало а потом делайн дальше

А можно еще по подробнее я просто новичок в этом деле не понимаю как и что

[RuVarez]

Ну смотри ты пишеш:

if(imgtruck.left+111)<=576 then
  if not ((imgtruck.Left+111=576) and (imgtruck.Top=328)) then
  if not ((imgtruck.Left+111=112) and (imgtruck.Top=664)) then
  if not ((imgtruck.Left+111=112) and (imgtruck.Top=664)) then
  if not ((imgtruck.Left+111=113) and (imgtruck.Top=664)) then
  if not ((imgtruck.Left+111=114) and (imgtruck.Top=664)) then
  if not ((imgtruck.Left+111=115) and (imgtruck.Top=664)) then
  if not ((imgtruck.Left+111=116) and (imgtruck.Top=664)) then
  if not ((imgtruck.Left+111=117) and (imgtruck.Top=664)) then
  if not ((imgtruck.Left+111=118) and (imgtruck.Top=664)) then
  if not ((imgtruck.Left+111=119) and (imgtruck.Top=664)) then


  if not ((imgtruck.Left+111=112) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=113) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=114) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=115) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=116) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=117) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=118) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=119) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=121) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=122) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=123) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=124) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=125) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=126) and (imgtruck.Top=553))  then

  if not ((imgtruck.Left+111=110) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=111) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=127) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=128) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=115) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=116) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=117) and (imgtruck.Top=553))  then
  if not ((imgtruck.Left+111=120) and (imgtruck.Top=553))  then




  if not ((imgtruck.Left+111=208) and (imgtruck.Top=128))  then

imgtruck.Left:=imgtruck.left+111;

Страшно становится, правда?) Замени это на функцию (ток ее чучуть надо оптимизировать), которую я описал и получится:

If IsWallNear then
  imgtruck.Left:=imgtruck.left+111;

Короч используй циклы и процедуры с функциями