[oliwin]

Я буквально пару дней назад начал изучать midletPascal
И вот решил написать игру!
Возник вопрос-как ограничить поле игры,например у меня передвигается по экрану кубик в 4 разных направлениях,как сделать чтобы он не заходил за экран?
И еще как организовать цикл, чтобы кубик передвигался сам с заданным шагом до границ экрана?
Спасибо!

Все! С ограничением поля разобрался сам! И с передвижение кубика тоже! Возник другой вопрос

Вот кусок кода:

pw:=getWidth;
ph:=getHeight;
.....

Key:=keyToAction 
(getKeyClicked );
    
  begin
   setColor(255, 255, 255); 
fillRect(x, y, 5, 5); 
 repaint; 
 
  if (Key=GA_RIGHT) then 
     WHILE (x=(pw-5)) do
     
  repaint;

      drawImage(loadImage('/1.png'), x, y);    

 setColor(255, 255, 255); 
fillRect(x, y, 5, 5); 

   x:=x+1; 
  

 
   end;

Проблема такая: сразу как запускается эмулятор-начинает двигаться кубик!
И еще, как сделать, чтобы при нажатии на GA_RIGHT GA_LEFT GA_DOWN кубик двигался по тойже логике, что и выше в моем коде, причем мгновенно.
У меня так не получается: Делал проверку на нажатую кнопку и если нажата GA_DOWN, то кубик останавливается, и только по повторному нажатию, кубик двигается вниз!
Помогите решить проблему!
Кто-то есть живой на форуме??((