menu = 'main' //переменная, которая будет служить переходом между меню. В самом начале она равна 'main'
select = 1 /*Текущий выбор пункта меню. допустим пункты в меню идут в такой последовательности:
New Game
Load Game
Quit
Тогда значит, если select будет равняться двум, будет выбран второй пункт меню "Load Game". Думаю мою логику и принцип поняли. */
maxbtn = 5 //Переменная служит для того, что-бы в определённом меню задавать определённое кол-во пунктов меню, чтобы например, если select == 5, а пунктов меню всего 3, то указатель просто исчезнет с вида.
menu_x = 250 //Положение меню по оси Х
menu_y = 240 //Положение меню по оси У
title_x = 250 //Положение названия меню по оси Х
title_y = 210/ /Положение названия меню по оси У

//Далее создаём переменные, содержащие текст, который будет использоваться в меню
text_new_game = 'New Game' //Пункт "Новая игра"
text_load = 'Load' // Пункт "Загрузить"
text_info = 'About' //Ну и так далее...
text_quit = 'Quit'
text_continue = 'Continue'
text_main_menu = 'Main Menu'
text_options = 'Options'
text_language = 'Language'
text_back = 'Back'
text_screen = 'Resolution'
text_pause = 'Pause'

if keyboard_check_pressed(vk_up) {select -= 1} //Если нажата стрелка UP, то уменьшаем переменную выбора пунктов на 1
if keyboard_check_pressed(vk_down) {select += 1} //Если нажата стрелка DOWN, то увеличиваем переменную выбора пунктов на 1
if select > maxbtn {select = 1} //Тут делаем ограничение выбора пунктов, в зависимости от меню
if select < 1 {select = maxbtn}
if global.resolution > 2 {global.resolution = 1} //Тут делаем ограничение переменной настроек экрана
if global.resolution < 1 {global.resolution = 2}
if global.switch_language > 2 {global.switch_language = 1} //Тут делаем ограничение переменной смены языка
if global.switch_language < 1 {global.switch_language = 2}

//Теперь переходим к созданию настройки переключения языка
if global.switch_language == 1 { //Если переменная настр. языка равна 1, то переменным текста присваиваем англ. текст
text_new_game = 'New Game'
text_load = 'Load'
text_info = 'About'
text_quit = 'Quit'
text_continue = 'Continue'
text_main_menu = 'Main Menu'
text_options = 'Options'
if global.switch_language == 1 text_language = 'Language: English'
text_back = 'Back'
if global.resolution == 1 text_screen = 'Fullscreen: off'
if global.resolution == 2 text_screen = 'Fullscreen: on'
text_pause = 'Pause'
}
if global.switch_language == 2 {//Если переменная настр. языка равна 2, то переменным текста присваиваем рус. текст
text_new_game = 'Новая игра'
text_load = 'Загрузить'
text_info = 'О игре'
text_quit = 'Выход'
text_continue = 'Продолжить'
text_main_menu = 'Главное меню'
text_options = 'Опции'
if global.switch_language == 2 text_language = 'Язык: Русский'
text_back = 'Назад'
if global.resolution == 1 text_screen = 'Фуллскрин: выкл.'
if global.resolution == 2 text_screen = 'Фуллскрин: вкл.'
text_pause = 'Пауза'
}
//Параметры разрешения экрана
rm = room_get_name(self)
if global.resolution == 1 { //если переменная разр. экрана равна 1, то переводим игру в оконный режим
window_set_fullscreen(0)
}
if global.resolution == 2 {
window_set_fullscreen(1)//если переменная разр. экрана равна 2, то переводим игру в полноэкранный режим
window_set_sizeable(1)
}

if menu == 'options' {maxbtn = 3} //Тут для каждого меню устанавливаем кол-во пунктов
if menu == 'menu' {maxbtn = 5}
if menu == 'pause' {maxbtn = 2}
if keyboard_check_pressed(vk_escape) { //Если нажата клавиша Enter и мы в игре, то объекты деактивируются и игра переходит в режим паузы
if menu == 'game' {
instance_deactivate_all(true)
menu = 'pause'
}
}

if keyboard_check_pressed(vk_enter) {
if menu == 'main' {
if select == 1 {room_goto(level_1); menu = 'game'}
if select == 2 {/*game_load('gamesave.inc')*/menu = 'options' select = 0}
if select == 3 {menu = 'options'}
if select == 4 {show_info()}
if select == 5 {game_end()}
}
if menu == 'pause' {
if select == 1 {instance_activate_all(); menu = 'game'}
if select == 2 {menu = 'main'; maxbtn = 5; select = 0}
}
if menu == 'options' {
if select == 1 {global.switch_language += 1}
if select == 2 {global.resolution += 1}
if select == 3 {menu = 'main'; maxbtn = 5; select = 0}
}
}

draw_set_font(fnt_russian)
draw_text(100,100,""+string(menu))
if menu == 'main' {
draw_text(title_x,title_y,""+string(text_main_menu))
draw_line(250,233,350,233)
if select == 1 {draw_text(menu_x,menu_y,"> "+string(text_new_game)+"#"+string(text_load)+"#"+string(text_options)+"#"+string(text_info)+"#"+string(text_quit))}
if select == 2 {draw_text(menu_x,menu_y,""+string(text_new_game)+"#> "+string(text_load)+"#"+string(text_options)+"#"+string(text_info)+"#"+string(text_quit))}
if select == 3 {draw_text(menu_x,menu_y,""+string(text_new_game)+"#"+string(text_load)+"#> "+string(text_options)+"#"+string(text_info)+"#"+string(text_quit))}
if select == 4 {draw_text(menu_x,menu_y,""+string(text_new_game)+"#"+string(text_load)+"#"+string(text_options)+"#> "+string(text_info)+"#"+string(text_quit))}
if select == 5 {draw_text(menu_x,menu_y,""+string(text_new_game)+"#"+string(text_load)+"#"+string(text_options)+"#"+string(text_info)+"#> "+string(text_quit))}
}
if menu == 'options' {
draw_text(title_x,title_y,""+string(text_options))
draw_line(250,233,350,233)
if select == 1 {draw_text(menu_x,menu_y,"> "+string(text_language)+"#"+string(text_screen)+"##"+string(text_back))}
if select == 2 {draw_text(menu_x,menu_y,""+string(text_language)+"#> "+string(text_screen)+"##"+string(text_back))}
if select == 3 {draw_text(menu_x,menu_y,""+string(text_language)+"#"+string(text_screen)+"##> "+string(text_back))}
}
if menu == 'pause' {
draw_text(title_x,title_y,""+string(text_pause))
draw_line(250,233,350,233)
if select == 1 {draw_text(menu_x,menu_y,"> "+string(text_continue)+"#"+string(text_main_menu))}
if select == 2 {draw_text(menu_x,menu_y,""+string(text_continue)+"#> "+string(text_main_menu))}
}

global.language = 'English'
global.resolution = 1
global.switch_language = 1

ammo_size = 120 //патронов в запасе
ammo_clip = 30 //патронов в обойме

if keyboard_check_pressed(ord('R')) { //клавиша, нажатием на которую будет осуществляться перезарядка
                       if ammo_clip < 30 && ammo_size > 0 { //если обойма неполная и есть патроны в запасе, то
                          rel = 30-ammo_clip //вычитаем из обоймы кол-во оставшихся патронов и записываем значение в переменную rel
                          ammo_clip += rel //прибавляем к обойме выстрелянное кол-во пуль
                          ammo_size -= rel //отнимаем из запасных патронов выстрелянные пули
                       }
}

width = 3;
height = 3;
for(i = 0; i < width; i += 1;)
for(j = 0; j < height; j += 1;)
cell[i,j] = instance_create(i*32, j*32, o_case)

for(j = 0; j < inv.height; j += 1;)
{
for(i = 0; i < inv.width; i += 1;)
{
if inv.cell[i,j].sprite_index == s_non
{
inv.cell[i,j].sprite_index = sprite_index;
instance_destroy();
exit;
}
}
}

if sprite_index == o_fruit //Тут проверяем спрайт объекта, который находится в данной ячейке
{o_player.hp += 10 //Если условие истина, то прибавляем игроку 10 единиц здоровья и
sprite_index = s_non;} //Опустошаем ячейку, на которую нажали

draw_set_alpha(0.3); //Устанавливаем прозрачность на 0.3
draw_rectangle(x, y, x+32, y+32, 0); //Рисуем вокруг спрайта заполненный квадрат
draw_set_alpha(1); //Устанавливаем прозрачность на 1
draw_rectangle(x, y, x+32, y+32, 1); //И поверх рисуем не заполненный квадрат
draw_sprite_ext(sprite_index, image_index, x, y, 1, 1, image_angle, c_white, 1);
//И наконец отрисовываем сам спрайт ячейки

w = 3;
h = 3;
for(i = 0; i < w; i += 1)
{
for(j = 0; j < h; j += 1)
{
Spr[i,j] = -1;
Amount[i,j] = 1;
}
}

for(i = 0; i < w; i += 1)
{
for(j = 0; j < h; j += 1)
{
draw_set_alpha(0.2);
draw_rectangle(i*32, j*32, i*32+32, j*32+32, 0);
draw_set_alpha(1);
draw_rectangle(i*32, j*32, i*32+32, j*32+32, 1);
if Spr[i,j] != -1
{
draw_sprite(Spr[i,j], -1, i*32+16, j*32+16)
}
if Amount[i,j] > 1
draw_text(i*32+16, j*32+16, Amount[i,j])
}
}

for(j = 0; j < inv.h; j += 1)
{
for(i = 0; i < inv.w; i += 1)
{
if inv.Spr[i,j] == -1
{
inv.Spr[i,j] = sprite_index;
instance_destroy();
exit;
}
else
if inv.Spr[i,j] == sprite_index
{
inv.Amount[i,j] += 1;
instance_destroy();
exit;
}
}
}

add_item();

image_angle = point_direction(x,y,mouse_x,mouse_y)
if keyboard_check(ord('W')) {y -= 5}
if keyboard_check(ord('S')) {y += 5}
if keyboard_check(ord('A')) {x -= 5}
if keyboard_check(ord('D')) {x += 5}

x = xprevious
y = yprevious

move_towards_point(mouse_x,mouse_y,10)
image_angle = direction

instance_create(x,y,o_bullet) //создаёт объект пули в координатах игрока

instance_destroy() //уничтожаем пулю при столкновении с объектом стены

var Dir, D, xn, yn;
if image_xscale == -1      
{Dir = 180; D = -10}
else      
{Dir = 0; D = 10}

if place_meeting(x+D, y, o_solid)
{

for(i = 0; i < 135; i += 2)
{
xn = x + lengthdir_x(speed, Dir + i);
yn = y + lengthdir_y(speed, Dir + i);
if place_free(xn, yn) {x = xn; y = yn; exit;}
}
}

image_alpha -= life; //уменьшаем прозрачность на значение из переменной life
if image_alpha <= 0 {instance_destroy();} //удаляем объект, когда он станет невидимым
if radius_min < radius_max {radius_min += radius_up;} //увеличиваем размер партикла до максимального заданного

draw_set_alpha(alpha); //устанавливаем прозрачность из переменной alpha
draw_set_color(make_color_rgb(red, green, blue)); //устанавливаем цвет партиклов из переменных
draw_circle(x, y, radius_min, 0); //и рисуем сам партикл с радиусом radius_min

repeat (argument14) //арг14 - кол-во частиц, создаваемых за раз
{
        with instance_create(argument0, argument1, o_eff) //применяет действия к созданому объекту
        {
            speed = argument2; //скорость полёта
            direction = argument3; //направление
            life = argument4; //жизни
            alpha = argument5; //прозрачность
            clr = argument6; //один цвет для всех. Например (134,134,134) или (150,150,150).
            if argument13 == true {red = clr; green = clr; blue = clr;} //если параметр общего цвета истинна
            else //то присваиваем всем партиклам один заданный цвет, иначе
            {red = argument7; green = argument8; blue = argument9;} //присваиваем произвольный
            radius_max = argument11; //максимальный размер     
            radius_min = argument10; //начальный размер
            radius_up = argument12; //скорость увеличения размера до максимального
        }
}

t[1] = 'Text 1';
t[2] = 'Text 2';
t[3] = 'Text 3';
t[4] = 'Text 4';
t[5] = 'Text 5';
Tabs = 5;
Show = false;
Sel = 'Not';
mY = noone;

Color_triangle = noone;
Color_tab = noone;

w = 100;
h = 20;

if mouse_x > x+82 && mouse_x < x+98
&& mouse_y > y+2 && mouse_y < y+18
   {
   Color_triangle = c_green;
   Color_tab = c_dkgray;
   if mouse_check_button_pressed(mb_left)
    {
    if Show == false
    {with o_combobox_papa Show = false;}
    Show = !Show;
      
    }
   }
   else
   {
   Color_triangle = c_dkgray;
   Color_tab = c_gray;
   }
     
     
if mouse_x > x && mouse_x < x+100
&& mouse_y > y+h && mouse_y < y+h+(h*Tabs)
   {
   if Show
    {
    Color_tab = c_dkgray;
    mY = (mouse_y-h - y+h) div h;
    if mouse_check_button_pressed(mb_left)
     {
     Sel = t[mY];
     Show = false;
     }
    }
   }

draw_set_color(Color_tab);
draw_set_alpha(0.5);
draw_rectangle(x, y, x+w, y+h, 0);
draw_set_color(c_orange);
draw_set_alpha(1);
draw_rectangle(x, y, x+w, y+h, 1);
draw_set_color(c_orange);
draw_rectangle(x+80, y, x+w, y+h, 1);
draw_set_color(Color_triangle);
draw_triangle(x+82, y+2, x+98, y+2, x+90, y+18, 0);
draw_set_color(c_black);
draw_triangle(x+82, y+2, x+98, y+2, x+90, y+18, 1);
draw_set_valign(fa_center);
draw_set_halign(fa_center);
if Show   
   {
   for(i = 1; i <= Tabs; i += 1)
    {
    draw_set_color(c_white);
    draw_rectangle(x, y+h+(h*i), x+w, y+h*i, 0)
    draw_set_color(c_black);
    draw_rectangle(x, y+h+(h*i), x+w, y+h*i, 1)
    show_text2(x+h*2, y+h/2+(h*i), t[i]);
    }
   }
show_text(x+40, y+h/2, Sel, 0)

draw_set_color(c_dkgray)
draw_text(argument0, argument1, argument2);
draw_set_color(c_black)
draw_text(argument0+1, argument1+1, argument2);
draw_set_color(c_white)
draw_text(argument0+2, argument1+2, argument2);

draw_set_color(c_ltgray)
draw_text(argument0, argument1, argument2);
draw_set_color(c_ltgray)
draw_text(argument0+1, argument1+1, argument2);
draw_set_color(c_teal)
draw_text(argument0+2, argument1+2, argument2);