помогите разобратся с алгоритмом
есть код, компилится правильно без ошибок но та телефоне запускаться не хочет. подозреваю что неправильно делаю алгоритм звязаный с вложеными repeat но както непридумаю как би можно было сделать еще...
program dvijok;
var
main_displey: image; //переменная для картинки главного экрана
Main_game: image; //переменная для картинки главного экрана в игре
inventar: image;
key, // код нажатой клавиши
menu: integer; //позицыя меню
begin
main_displey := LoadImage('/main.png');
Main_game := LoadImage('/main_games.png');
inventar := LoadImage('/inventar.png');
repeat // вход на основноу меню
drawImage(main_displey, 0, 0);
Setcolor(255, 255, 255);
drawtext('Игра', 3, 306);
drawtext('Выход', 218, 306);
repaint;
key := GetKeyPressed;
if (key = -6) then //вход на экран игры
repeat
menu := 1;
SetColor(0, 0, 0);
FillRect(0, 0, GetWidth, GetHeight); //Черный фон
drawImage(Main_game, 0, 0);
drawtext('Инвентарь', 5, 315);
drawtext('Назад', 5, 315);
key := GetKeyPressed;
if ((key = -6) and (menu = 1)) then
repeat
menu := 2;
drawImage(main_displey, 0, 0);
drawtext('Игра', 3, 306);
repaint;
key := GetKeyPressed;
until ((Key = -6) and (menu = 2));
until ((Key = -7) and (menu = 1));
until (Key = -7);
end.
p,s. интересуюсь давно но взялся за програмирование совсем недвно. наставте на путь истиный...
может выйдет неплохой движок.
|