помогите разобратся с алгоритмом

[Oleksandro]

есть код, компилится правильно без ошибок но та телефоне запускаться не хочет. подозреваю что неправильно делаю алгоритм звязаный с вложеными 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. интересуюсь давно но взялся за програмирование совсем недвно. наставте на путь истиный...
может выйдет неплохой движок.

[GRAY_WOLF]

Если я тебя правильно понял то тебе надо написать меню. В библиотеках есть либы menu32 font32 и в них есть не счетное количество примеров меню....

[psih1]

Только работай в англиской версии

[Oleksandro]

Немного посидел, перебрал код по новой
всьо неплохо работает

program dvijok;
uses Games;
var
key, // код нажатой клавиши
menu: integer; //позицыя меню
begin
InitWRtext;
main_displey := LoadImage('/main.png');
Main_game := LoadImage('/main_games.png');
inventar := LoadImage('/inventar.png');
menu := 1;
drawImage(main_displey, 0, 0);
Setcolor(255, 255, 255);
wrtext( 2, 306,utf2win('Игра'));
wrtext( 210, 306,utf2win('Выход'));
repeat // основной цыкл
SetColor(0, 0, 0);
FillRect(0, 0, GetWidth, GetHeight); //Черный фон
key := GetKeyPressed;
if key = -7 then menu:=menu-1;
if ((key = -6) or (key=-5)) then menu:=menu+1;
if menu>=3 then menu:=3;
if menu = 3 then inventr;
if menu = 2 then Maingame;
if menu = 1 then maindispley;
if menu = 0 then QuitGames;
repaint;
Delay(100);
until menu = -1;//выйти
end.

с модулями menu32 font32 такого графического интерфейса я не получу(точно не уверен), по примерах не видел. там только оконные формы..


пример того что вышло

[Oleksandro]

Сообщение от psih1

Только работай в англиской версии

Делал в МР3.1 и правда при компиляции не хочет работать
перешел на МР202 все просто супер, пасибки

[Oleksandro]

подскажите, умельцы, как исправить бок с процедурой рисования окна.
процедура win.
исходник прилагается