Движении объекта
- program move;
- var
- x, y, key: integer; // координаты, клавиша
- // Процедура очистки экрана
- Procedure cls;
- begin
- setColor(255, 255, 255);
- fillRect(0, 0, getWidth, getHeight); // getWidth - ширина экрана, getHeight - высота. Можно просто 240 и 320, но это типо мультиэкран :Д
- end;
- begin
- repeat // цикл, без которого не будет пахать
- key:= getKeyPressed; // клавиши
- setColor(0, 0, 0); // черный цвет
- fillRect(x, y, 25, 25); // закрашеный прямоугольник, размером 25х25
- // Управление. Если жмем 2, 4, 6, 8 то...
- if key = KE_KEY2 then y:= y - 1;
- if key = KE_KEY4 then x:= x - 1;
- if key = KE_KEY6 then x:= x + 1;
- if key = KE_KEY8 then y:= y + 1;
- repaint; // выводим
- cls; // очищаем, чтоб не было следа от прямоугольника
- until key = KE_STAR; // если нажать "*" то выходим из цикла
- end.
Для MIDlet Pascal.
В коде рассмотрена простая реализация движения персонажа, в главной роли черный прямоугольник.
В коде рассмотрена простая реализация движения персонажа, в главной роли черный прямоугольник.
