и вообще, как организовать игровой цикл тогда? где кнопки обрабатывать?

Цитата Kalter:

---

ВитаминКО, на самом деле ты не запрашиваешь нажатую кнопку а берёшь её с переменной (которую ты не видишь). После использования процедуры getKeyClicked она онуляется. То есть запиши код нажатой кнопкичерт, я ведь так и делал, выдавало E429 identifier 'getkeycliked' is not constant, function or variable name. И только что увидел опечатку в своем коде Причем я ее уже исправлял

Ок, теперь можно сделать ограничения

ВитаминКО, в целом, я бы так сделал:

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. program Example;
2.  
3. var
4.     menuLoop: boolean;
5.  
6. procedure menuCheckKey;
7. var
8.     key: integer;
9. begin
10.     key := keyToAction(getKeyClicked);
11.     if key = GA_UP then
12.     begin
13.         //TODO
14.     end;
15.     if key = GA_DOWN then
16.     begin
17.         //TODO
18.     end;
19. end;
20.  
21. procedure menuUpdate;
22. begin
23.  
24. end;
25.  
26. procedure menuPaint;
27. begin
28.     repaint;
29. end;
30.  
31. procedure menuInit;
32. begin
33.     menuLoop := true;
34. end;
35.  
36. procedure menuStop;
37. begin
38.     menuLoop := false;
39. end;
40.  
41. procedure setMenuScreen;
42. begin
43.     menuInit;
44.     while menuLoop do
45.     begin
46.         menuCheckKey;
47.         menuUpdate;
48.         menuPaint;
49.         delay(20);
50.     end;
51. end;
52.  
53. begin
54.     setMenuScreen;
55. end.

Если экранов много, логичнее на модули разбить.

Kalter, ок, посмотрю потом, если переписывать буду, щас головва опухла. Пока хочу заюзать exit в нужных местах

Цитата ВитаминКО:

---

черт, я ведь так и делал, выдавало E429 identifier 'getkeycliked' is not constant, function or variable name. И только что увидел опечатку в своем коде Причем я ее уже исправлял

Ок,Да бывает такие очень смешные ситуации

Есть люди, которые много работали со звуками на телефонах? Как там происходит временное их хранение?
Просто есть необходимость воспроизводить их с минимальной задержкой, а загрузка звуков дело не быстрое.

Randomize вообще работает?
На какой изврат только не иду, все равно почти все спрайты смещаются равномерно..Или при таком малом смещении мне нужно искусственно замедлять? Просто ерунда какая-то..

ВитаминКО, странно. Я вообще никогда не использовал Randomize.

ВитаминКО, randomize вызывают один раз. Если не поможет, то попробуй random(1000) mod 2. Если не поможет, то это плохой генератор.

Если плохой генератор, вот хороший.