Adventure Point

[NGC]

Вот делал мобильную версию своей игры Adventure Point специально для телефона Nokia 6070. Вроде бы и похоже на компьютерную версию, но вот что-то не так с движением главного героя. Клавиши бывает не срабатывают или наоборот срабатывают несколько раз, когда нужно один.
Возможно, что-то в том месте, где идет определение кода клавиши и вызов процедур перемещений. Возможно, Delay...

Может подскажите, как лучше сделать управление героем, как в компьютерной версии?

[ViNT]

Лучше использовать такой цикл опроса клавиатуры:

var
 Act:integer;

begin
 repeat
  Act:=KeyToAction(GetKeyPressed);
  if Act=GA_UP then
   jump
  else if Act=GA_LEFT then
   GoLeft
  else if ...
  Delay(200);
 until ... 


[Igor]

Лучше использовать такой цикл опроса клавиатуры:

Не знал. Большое спасибо.

[odd]

Пауза великовата да и смысл проверять клавиши каждый раз?
Я обычно делаю конструкции такого вида:

repeat
repeat
key:=GetKeyPressed;
Delay(20);
if (key<>0) then break;
until false;
key:=KeyToAction(key);
if (key = GA_LEFT) then MoveLeft;
if (key = GA_RIGHT) then MoveRIght;
.....
until false; 


[Igor]

Не проще делать так?

repeat
repeat
key:=GetKeyPressed;
Delay(20);
until key<>0;
key:=KeyToAction(key);
if (key = GA_LEFT) then MoveLeft;
if (key = GA_RIGHT) then MoveRIght;
.....
until false;

[NGC]

Используя всё, что здесь было написано, за что вам всем спасибо, я сделал вот что:

Repeat
      Repeat
       act:=GetKeyPressed;
       Delay(20);
      Until act<>0;
      act:=KeyToAction(act);
      IF act=GA_RIGHT Then GoRight
      ELSE IF act=GA_LEFT Then GoLeft
      ELSE IF act=GA_UP Then Jump;
     Until win=true; 


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

Процедура прыжка:

procedure Jump;
begin
 IF (py-1)>=1 Then IF bas[px,py-1]=0 Then
 begin
  SetColor(87,192,255);
  x:=(px-1)*10;
  y:=(py-1)*10;
  FillRect(x,y,10,10);
  py:=py-1;
  y:=(py-1)*10;
  DrawImage(pl,x,y);
  repaint;
  i:=0;
  Repeat
     Repeat
      act:=GetKeyPressed;
      Delay(20);
      i:=i+1;
      IF i=10 Then break;
     Until act<>0;
     act:=KeyToAction(act);
     IF act=GA_RIGHT Then GoRight
     ELSE IF act=GA_LEFT Then GoLeft
     ELSE IF act=GA_UP Then Jump;
    Until i=10;
    i:=0;
    Fall;
 end;
end; 


[Igor]

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

Дело в том, что функция ждет нажатия кнопки и потом выполняется
для игры лучше попробовать

act:=GetKeyPressed;
if act<>ke_none then
  begin
    act:=KeyToAction(act); 
      IF act=GA_RIGHT Then 
        GoRight 
      ELSE
        IF act=GA_LEFT Then 
          GoLeft 
        ELSE
         IF act=GA_UP Then 
           Jump;
  end; 


[abcdef]

NGC, хорошие исходники, понятные.
переделал их - без использования подпрограмм.

[NGC]

Огромное спасибо за ответы. abcdef, ваш вариант работает отлично! Я и сам продолжал делать игру... Только вот почему-то вчера всё летало, а сегодня снова не хочет! abcdef, я попробую подробнее рассмотреть ваши исходники. Ёще раз спасибо!