задача
написать игру змейка в ББ
проблемы:
0) организация управления: клавиши перехватывать не нашел как, сделал пульт - форма с кнопками вверх, вниз и тд
1) нужны задержки между ходами
реализовал такой процедурой:
Код:
PROCEDURE Жди*;
VAR t1,t2:D.Time;
BEGIN
D.GetTime(t1);
D.GetTime(t2);
WHILE t2.second-t1.second<1 DO
D.GetTime(t2);
END;
END Жди;
VAR t1,t2:D.Time;
BEGIN
D.GetTime(t1);
D.GetTime(t2);
WHILE t2.second-t1.second<1 DO
D.GetTime(t2);
END;
END Жди;
проблема такая: в цикле эта процедура так завешивает все, что на форму с кнопками нажать не получается, следовательно змейка просто врезается в стену
подскажите как реализовать задержку нормально, но не сложными способами, тк этот пример хотел студентам дать (либо как написать обертку если способа не сложного нет)
возможно так же есть не сложный вариант перехвата клавишь? (либо обертку)
ну и возможно в принципе замечания по программе, неудачные решения и тд
| Вложения: |
zmey.7z [2.89 КБ]
Скачиваний: 558 |
