[angvelem]

Удалено...

[Kaktuz]

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

Подправил как обещал, с учётом использования таймера.

"Подправил" - хм. Как по мне так там большая часть переделанная.
Не в обиду сказано, но вы его пробовали в действии? Персонаж двигается с задержкой в 1000 мс. (хотя в таймере указанно 100 мс. мистика однако), один шаг занимает 4 сек в место 400 мс. Явно где-то скрытый баг висит.
Код я не разбирал, как-то мне он замудреным кажется, но это наверно потому что я еще плохо знаюсь в Delphi.
Вот мой вариант движения через таймер. Работает отлично!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122

// ---------- Движение персонажа ---------- // procedure TForm1.TimerUpP(Sender: TObject); begin if TimerN = 1 then   begin   Player.Canvas.CopyRect(Rect(0, 0, 32, 32), PlayerBit.Canvas, Rect(16, 16, 32, 32));   Player.Top:=Player.Top-8;   TimerN := 2;   Exit;   end; if TimerN = 2 then   begin   Player.Canvas.CopyRect(Rect(0, 0, 32, 32), PlayerBit.Canvas, Rect(0, 16, 16, 32));   Player.Top:=Player.Top-8;   TimerN := 3;   Exit;   end; if TimerN = 3 then   begin   Player.Canvas.CopyRect(Rect(0, 0, 32, 32), PlayerBit.Canvas, Rect(32, 16, 48, 32));   Player.Top:=Player.Top-8;   TimerN := 4;   Exit;   end; if TimerN = 4 then   begin   Player.Canvas.CopyRect(Rect(0, 0, 32, 32), PlayerBit.Canvas, Rect(0, 16, 16, 32));   Player.Top:=Player.Top-8;   TimerMove.Enabled := False;   Up.Enabled := True;   Down.Enabled := True;   Left.Enabled := True;   Right.Enabled := True;   Exit;   end; end; // ---------- Движение персонажа и карты ---------- // procedure TForm1.TimerUpPM(Sender: TObject); begin if TimerN = 1 then   begin   Player.Canvas.CopyRect(Rect(0, 0, 32, 32), PlayerBit.Canvas, Rect(16, 16, 32, 32));   Player.Top := Player.Top - 8;   Panel_Game.Top := Panel_Game.Top + 8;   TimerN := 2;   Exit;   end; if TimerN = 2 then   begin   Player.Canvas.CopyRect(Rect(0, 0, 32, 32), PlayerBit.Canvas, Rect(0, 16, 16, 32));   Player.Top := Player.Top - 8;   Panel_Game.Top := Panel_Game.Top + 8;   TimerN := 3;   Exit;   end; if TimerN = 3 then   begin   Player.Canvas.CopyRect(Rect(0, 0, 32, 32), PlayerBit.Canvas, Rect(32, 16, 48, 32));   Player.Top := Player.Top - 8;   Panel_Game.Top := Panel_Game.Top + 8;   TimerN := 4;   Exit;   end; if TimerN = 4 then   begin   Player.Canvas.CopyRect(Rect(0, 0, 32, 32), PlayerBit.Canvas, Rect(0, 16, 16, 32));   Player.Top := Player.Top - 8;   Panel_Game.Top := Panel_Game.Top + 8;   TimerMove.Enabled := False;   Up.Enabled := True;   Down.Enabled := True;   Left.Enabled := True;   Right.Enabled := True;   Exit;   end; end; // ---------- Процедура запуска движения ---------- // procedure TForm1.UpExecute(Sender: TObject); var u: string; begin Up.Enabled := False; Down.Enabled := False; Left.Enabled := False; Right.Enabled := False; if PD = pdUp then   begin   u := Map.Strings[StrToInt(PlayerY)-1][StrToInt(PlayerX)];   if (u = '0') or (u = '2') or (u = '3') or (u = '5') then     begin     if (Player.Top < 244) or (Player.Top >= 544) then       begin       PlayerY := IntToStr(StrToInt(PlayerY)-1);       TimerN := 1;       TimerMove.OnTimer := TimerUpP;       TimerMove.Enabled := True;       end     else       begin       PlayerY := IntToStr(StrToInt(PlayerY)-1);       TimerN := 1;       TimerMove.OnTimer := TimerUpPM;       TimerMove.Enabled := True;       end;     end   else     begin     Up.Enabled := True;     Down.Enabled := True;     Left.Enabled := True;     Right.Enabled := True;     end;   end else   begin   Player.Canvas.CopyRect(Rect(0, 0, 32, 32), PlayerBit.Canvas, Rect(0, 16, 16, 32));   PD := pdUp;   Up.Enabled := True;   Down.Enabled := True;   Left.Enabled := True;   Right.Enabled := True;   end; end;

Вот попробуй как у меня получилось. Правда вкинул в оригинальный проект, ну да ладно, просто жми New Game и тестируй

[angvelem]

Удалено...

[Kaktuz]

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

Пробовал, ещё как пробовал , косяков, как ты выразился, там нет.
Ещё раз повторюсь, твой проект - это как не нужно делать.

Ну не знаю. Но у меня персонаж медленно перемещается, очень медленно.
А вот новый проект, так годится?

[angvelem]

Удалено...

[Kaktuz]

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

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

Ну этот уже работает, движется от таймера.
Естественно разбирать не прошу, за свой пример большое спасибо, думаю найду что подправить у себя. Но вот такое замедление в движении конечно пугает и вводит в заблуждение. Почему. Ну вот почему так. Хз.

[angvelem]

Удалено...

[Kaktuz]

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

у меня сделано так:
одной строкой, для одного направления.

Возможно и одной строкой, проще, но в работе это заметно хуже. Смотрим видео, наблюдаем за нагрузкой на ЦП. И дело не в том что у меня система слабовата, а в том что такое приложение (с таким кодом) жрет гораздо больше ресурсов системы в отличии от моего.

[angvelem]

Ну-да, ну-да. 0.39 это очень большая загрузка процессора, но с вами всё ясно. Жаль только, что потратил время на бездарность.

[Kaktuz]

Большая или малая (0.39), но как ни как приложение требует больше ресурсов системы и это минус. Понятное дело что сейчас системы достаточно мощные и все такое. Но суть остается сутью.
Чем меньше - тем лучше. Хоть в размере, хоть в использовании ресурсов.