var MoveLeftPressed : boolean;
...
WM_TIMER: begin
if MoveLeftPressed then
inc(CurrentXposition, StepCoord);
end;
WM_KEYDOWN: case WParam of
VK_LEFT:MoveLeftPressed := TRUE;
...
WM_KEYUP: case WParam of
VL_LEFT:MoveLeftPressed := FALSE;
Возможно ли как-то перезапустить event
Есть идейка написать игру жанра платформер. И очень остро стала проблема управления. То есть бегать бегает, прыгать прыгает, а вот чтобы прыгнул и не пере нажимая клавишу он после прыжка дальше побежал. То есть как например в марио, бежал бежал нажал на прыжок и дальше побежал.
Это вообще реально осуществить на delphi?
Это вообще реально осуществить на delphi?
Это осуществимо на любом императивном языке программирования. В том числе и на Delphi.
Кто мешает запомнить предыдущее состояние и после окончания прыжка его восстановить? Либо просто сделать прыжок и бег ортогональными типами состояний?
Вариантов реализации - масса.
Кто мешает запомнить предыдущее состояние и после окончания прыжка его восстановить? Либо просто сделать прыжок и бег ортогональными типами состояний?
Вариантов реализации - масса.
а можно в виде примера привести фрагмент кода реализующий этот момент?
Хоть модераторы и будут "пинать" за ответы в этой теме, не удержался.
Можно то конечно можно, вот только в том же Марио он бежит вперед после прыжка только потому, что вы продолжаете нажимать ->. Отпустите ее и во время прыжка и он также остановится.
Можно то конечно можно, вот только в том же Марио он бежит вперед после прыжка только потому, что вы продолжаете нажимать ->. Отпустите ее и во время прыжка и он также остановится.
Мне нужно чтобы он продолжал бежать после прыжка, у меня же он останавливается во все после прыжка, и надо перенажимать кнопку.
Какие события нажатия клавиш обрабатываешь? Нужно ловить KeyUp/KeyPress/KeyDown в зависимости от действия примерно так: KeyDown:Бег -> Побежали -> KeyPress:Прыжок -> Прыгнули -> Побежали -> KeyUp:Бег -> Остановились.
Кроме того, необходимо помнить, что у драйвера клавиатуры есть ограничения на количество одновременно нажатых клавиш. Тут уж только курение DirectX поможет...
Кроме того, необходимо помнить, что у драйвера клавиатуры есть ограничения на количество одновременно нажатых клавиш. Тут уж только курение DirectX поможет...