не получается узнать угол линии по координатам двух точек через atan2, эта функция у кого-нить пашет? результат перевожу в градусы, но лезет лишь ересь.

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

Пост #355505
как оказалось сложные мат функции работаю только в режиме floating-point
------------
sergeyew, делал так

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

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

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

1. program code;
2. var
3. come,key: integer;
4. procedure Game; forward; //основной игровой цикл
5.  
6. procedure menu;
7. begin
8. //код меню
9. repeat
10. key:=getkeyclicked; //клик любой клавишой
11. if key<>0 then begin
12. come:=2;
13. Game; //переход в меню 2
14. end;
15. until false;
16. end;
17.  
18. procedure menu2;
19. begin
20. //для примера
21. come:=0;
22. Game; //переход в игру
23. end;
24.  
25. procedure game;
26. if come=1 then menu; //переход по разным меню
27. if come=2 then menu2;
28. repeat
29. //код игры
30. key:=getkeyclicked;
31. if key<>0 then menu; //переход в меню
32. until false;
33. end;
34.  
35. begin //начало
36. menu;
37. end.

sergeyew, Обращайся если нужен помощь

А что вообще значит <>?

AHiLLA, неравенство

RblSb, Большое Спасибо А вот как вписать ваш код мне в код ?

sergeyew, по аналогии

St@SyaN, А почему тогда используется как равенство?Например if key<>0 then begin
Это же проверка на нажатие нуля

AHiLLA, нет, на комм выше глянь. Это если нажато не ничего, то делать то-то