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

[zyxel-md]

Сообщение от 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;

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

ок, постараюсь разобраться, спасибо, но главная проблема заключаеться в том чтобы эти действия все записывались в какую-то форму и после нажатия клавиши выполняли действия. например: я нажал 4 раза на стрелочку вверх и нажал закончить построение алгоритма, после чего я просто нажимаю кнопку начать движение, и фигурка двигается. это самая основная проблема(не считая движения)

[RuVarez]

Кидай на форму TListBox, потом нажимаю на "начать запись" делай какуето переменную true и при действиях начинай записывать в ListBox! А потом при "начать движения" делай так:

var SomeStr : String;
for i := 1 to ListBox.Items.Count do
begin
  SomeStr := ListBox.Items.String[i-1];
  if SomeStr = 'Left' then
    MoveLeft; //процедура движения влево
  ...  
end;

и т.д.

[zyxel-md]

ага спс попробу, а функцию я попробовал сделать, но я не знаю что брать за Wall;
координат квадратика ?
или как ?

ну о движении пока молчу, знаю что я нуб, но мне очень срочно надо написать эту программу до завтра если не осилю то кранты.

[RuVarez]

Извените за вас не могу сделать)
за Wall можно координат квадратика!
Удачи

[zyxel-md]

Спасибо за помощь

[phomm]

Советую подробно изучить темку http://programmersforum.ru/showthread.php?t=153883
Очень много вопросов освещено - столкновение со стенами, прохождение трассы по стрелкам, так же всякие подбирания предметов и прочая игровая логика, в т.ч гравитация.

[zyxel-md]

большое спасибо посмотрю эту тему, как раз проблема со столкновением