module_en.lua - master - Luckyuk/instead-sturman

module_en.lua
1 515 строк34 KB
Antokolos
Language selection was implemented
29 апр 2018, 22:16
29 апр 2018, 22:167aba672
-- $Name: Shturman$
-- $Version: 0.6.4$
-- $Autor: kerbal$
-- $Info: The remake of the game "Штурман" by Oleg Shamshura for MSX. Thank you very much to gl00my, Minoru and spline for help in the making a this remake. Thank you very much to Oleg Shamshura for having invented this wonderful game!$

require "sprite"
require "keys"
require "click"
require "fonts"
require "timer"
require "snd"

dofile "interpreter.lua"
dofile "maps.lua"
dofile "animations.lua"

local fnt = _'$fnt'
fnt:face ('psst', 'themes/default/PressStart2P.ttf', 12)

declare{
canvas_map = false; spr_map = false, ship = false, base = false, camp = false, camp_catch = false, w_way = false, h_way = false,
danger = false, turn_left = false, turn_right = false, empt = false, main_stack = false,sub0_stack = false, sub1_stack = false, sub2_stack = false,}

global{
	active_slot = 1; -- 1 = "[P]", 2 = "[0]", 3 = "[1]", 4 = "[2]"
	active_register = 1;
	repeat_local = 24;
	step_local = 4;
	animation_repeats = 24;
	animation_step = 4;
	animation_counter = 24;
	shift_register_P = 0;
	lim_steps = 256;
	lim_P = 100;
	lim_012 = 21;
	sub0_flag = 0;
	sub1_flag = 0;
	sub2_flag = 0;
	ship_orientation = "up";
	drop_goods = true;
	ship_on_desc = false;
	turn_flag = true;
	prew_pos_x = 0; -- переменные для хранения позиции предыдущего хода
	prew_pos_y = 0; -- -- переменные для хранения позиции предыдущего хода
	ship_pos_x = 0;
	ship_pos_y = 0;
	mission_stage = "";
slotter = {
		{},
		{},
		{},
		{},
	};
map = {
		{},
		{},
		{},
		{},
		{},
		{},
		{},
		{},
		{},
		{},
		{},
		{},
		{},
		{},
		{},
		{},
	};
}

local function forwerts()
	if drop_goods and ship_on_desc then
		local c, r, s = main_stack[1][1], main_stack[1][2], main_stack[1][3];
		table.remove(main_stack, 1);
		--	print(c, r, s);
		show_command_cur(r, s);
		if map[ship_pos_y][ship_pos_x] == "D" then
			mission_stage = "Danger";
			snd.play("sfx/6.ogg")
			timer:stop();
			walkout();
			return;
		end;
		if map[ship_pos_y][ship_pos_x] == "H" then
			if ship_orientation == "up" or ship_orientation == "down" then
				if not (c == "→" or c == "←") then
					mission_stage = "Barrier";
					snd.play("sfx/6.ogg")
					timer:stop();
					walkout();
					return;
				end;
			end;
		end;
		if map[ship_pos_y][ship_pos_x] == "W" then
			if ship_orientation == "left" or ship_orientation == "right" then
				if not (c == "→" or c == "←") then
					mission_stage = "Barrier";
					snd.play("sfx/6.ogg")
					timer:stop();
					walkout();
					return;
				end;
			end;
		end;
		if map[ship_pos_y][ship_pos_x] == "◀" and turn_flag then
			turn_flag = false;
			do_thurn_contrclockwise();
		end;
		if map[ship_pos_y][ship_pos_x] == "▶" and turn_flag then
			turn_flag = false;
			do_thurn_clockwise();
		end;

		if c == "↑" then
			do_move_forward();
			--	print (#main_stack);
		elseif c == "→" then
			snd.play("sfx/2.ogg")
			do_thurn_clockwise();
		elseif c == "←" then
			snd.play("sfx/2.ogg")
			do_thurn_contrclockwise();
		elseif c == "*" then
			do_drop_conteiner();
		elseif c == "end_of_sub0" then
			sub0_flag = 0;
			return;
		elseif c == "end_of_sub1" then
			sub1_flag = 0;
			return;
		elseif c == "end_of_sub2" then
			sub2_flag = 0;
			return;
		elseif c == "0" then
			if sub0_flag == 0 then
				if #sub0_stack > 0 then
					table.insert(main_stack, 1, {"end_of_sub0", r, s})
					for i = #sub0_stack, 1, -1 do
						table.insert(main_stack, 1, sub0_stack[i])
					end;
					sub0_flag = 1;
					return true; -- again
				else
					return;
				end;
			else
				timer:stop()
				snd.play("sfx/7.ogg")
				mission_stage = "Recursion";
				walkout();
				return;
			end;
		elseif c == "1" then
			if sub1_flag == 0 then
				if #sub1_stack > 0 then
					table.insert(main_stack, 1, {"end_of_sub1", r, s})
					for i = #sub1_stack, 1, -1 do
						table.insert(main_stack, 1, sub1_stack[i])
					end;
					sub1_flag = 1;
					return true; -- again;
				else
					return;
				end;
			else
				timer:stop()
				snd.play("sfx/7.ogg")
				mission_stage = "Recursion";
				walkout();
				return;
			end;
		elseif c == "2" then
			if sub2_flag == 0 then
				if #sub2_stack > 0 then
					table.insert(main_stack, 1, {"end_of_sub2", r, s})
					for i = #sub2_stack, 1, -1 do
						table.insert(main_stack, 1, sub2_stack[i])
					end;
					sub2_flag = 1;
					return true; -- again;
				else
					return;
				end;
			else
				timer:stop()
				snd.play("sfx/7.ogg")
				mission_stage = "Recursion";
				walkout();
				return;
			end;
		end;
	else
		if drop_goods then
			timer:stop()
			mission_stage = "Field border";
			snd.play("sfx/6.ogg")
			walkout();
		else
			timer:stop()
			mission_stage = "Miss";
			walkout();
		end;
		timer:stop()
		return;
	end;
end

game.timer = function(s)
	local function halt()
		-- halt logic
	end
--	if animation_counter < 24 then
	if animation_counter < repeat_local then
		animation_counter = animation_counter + 1;
		play_animation();
		halt();
		return;
	elseif #main_stack > 0 then
		repeat_local = animation_repeats;
		step_local = animation_step;
		while forwerts() do
		-- nothing to do
		end
		halt()
	else
		walkout();
		camps_calc();
	end;
end;

set_map = function(m)
	for i = 1, #m do
		for j = 1, #m[i] do
		map[i][j] = m[i][j];
		end;
	end;
end;

camps_calc = function()
local camps_incomplete = 0;
local camps_complete = 0;
	for i = 1, 16 do
		for j = 1, 16 do
			if map[i][j] == "C" then
				camps_incomplete = camps_incomplete + 1;
			end;
			if map[i][j] == "S" then
				camps_complete = camps_complete + 1;
			end;
		end;
	end;
	if camps_incomplete == 0 then
		timer:stop()
		mission_stage = "Mission Complete";
		ways():enable();
		instead.autosave();
	else
		timer:stop()
		mission_stage = "Remained another bases: "..camps_incomplete;
	end;
end;


reset_recur_flags = function()
	sub0_flag = 0;
	sub1_flag = 0;
	sub2_flag = 0;
end;

show_command_cur = function(r,s)
	active_slot = s;
	if r > 21 then
		active_register = 21;
		shift_register_P = r - 21;
	else active_register = r;
	end;
end;

ship_start_pos = function()
	for i = 1, 16 do
		for j = 1, 16 do
			if map[i][j] == "P" then
				ship_pos_x = j;
				ship_pos_y = i;
				mission_stage = "Runway^coordinates: "..ship_pos_x.." "..ship_pos_y;
			end;
		end;
	end;
end;

function keys:filter(press, key)
--  if key == 'z' then -- только нажатия z ловим
--      return press
--  end
    return press -- ловим все нажатия
end;

--[[
game.onkey = function(s, press, key)
    if key == 'z' then
        p("pressed: ", key)
        return
    end
    return false
end
--]]

set_command = function(command)
	if active_slot == 1 then
		local k = shift_register_P + active_register;
		table.insert(slotter[active_slot], k, command);
		table.remove(slotter[active_slot], lim_P + 1);
		if active_register == 21 and shift_register_P < 79 then
			shift_register_P = shift_register_P + 1;
		elseif active_register <= 20 then
			active_register = active_register + 1;
		end;
	else
		table.insert(slotter[active_slot], active_register, command);
		table.remove(slotter[active_slot], lim_012 + 1);
		if active_register <= 20 then
			active_register = active_register + 1;
		end;
	end;
end;

del_command = function()
	if active_slot == 1 then
		local k = shift_register_P + active_register;
		table.insert(slotter[active_slot], lim_P + 1, "-");
		table.remove(slotter[active_slot], k);
	else
		table.insert(slotter[active_slot], lim_012 + 1, "-");
		table.remove(slotter[active_slot], active_register);
	end;
end;

cur_up = function()
	if active_slot == 1 and active_register == 1 and shift_register_P > 0 then
		shift_register_P = shift_register_P - 1;
	end;
	if active_register >= 2 then
		active_register = active_register - 1;
	end;
end;

next_register = function()
	if active_slot == 1 then
		if active_register == 21 then
			shift_register_P = shift_register_P + 1;
		end;
		if active_register <= 20 then
		active_register = active_register + 1;
		end;
	else
		active_register = active_register + 1;
	end;
end;

cur_down = function()
	if active_slot == 1 and active_register == 21 and shift_register_P < 79 then
		shift_register_P = shift_register_P + 1;
	end;
	if active_register <= 20 then
		active_register = active_register + 1;
	end;
end;

cur_left = function()
	if active_slot >= 2 then
		active_slot = active_slot - 1;
	end;
end;

cur_right = function()
	if active_slot <= 3 then
		active_slot = active_slot + 1;
	end;
end;

game.onkey = function(s, press, key)
	if #objs(here()) > 1 then
		if key == 'left' then
			cur_left();
			return;
		end;
		if key == 'right' then
			cur_right();
			return;
		end;
		if key == 'up' then
			cur_up();
			return;
		end;
		if key == 'down' then
			cur_down();
			return;
		end;
		if key == 'backspace' then
			del_command();
			return;
		end;
		if key == 'space' then
			set_command("*");
			return;
		end;
		if key == '=' then
			set_command("↑");
			return;
		end;
		if key == '.' then
			set_command("→");
			return;
		end;
		if key == ',' then
			set_command("←");
			return;
		end;
		if key == '0' then
			set_command("0");
			return;
		end;
		if key == '1' then
			set_command("1");
			return;
		end;
		if key == '2' then
			set_command("2");
			return;
		end;
		if key == '3' then
			set_command("3");
			return;
		end;
		if key == '4' then
			set_command("4");
			return;
		end;
		if key == '5' then
			set_command("5");
			return;
		end;
		if key == '6' then
			set_command("6");
			return;
		end;
		if key == '7' then
			set_command("7");
			return;
		end;
		if key == '8' then
			set_command("8");
			return;
		end;
		if key == '9' then
			set_command("9");
			return;
		end;
		if key == 'return' then
			run_program();
			return;
		end;
		return false;
	else
		return false;
	end;
end;

init_stack = function(w, reg_lim)
	for i = 1, reg_lim do
		table.insert(w, "-");
	end;
end;

clear_slot = function(w)
	for i = 1, #w do
		w[i] = "-";
	end;
end;

clear_slotter = function()
	clear_slot(slotter[4]);
	clear_slot(slotter[3]);
	clear_slot(slotter[2]);
	clear_slot(slotter[1]);
	active_register = 1;
	shift_register_P = 0;
end;

draw_register = function(i,j,w)
	local register
	local color_w = "";
	if w == '0' then color_w = '{$fnt psst, "red"|0}';
	elseif w == '1' then color_w = '{$fnt psst, "yellow"|1}';
	elseif w == '2' then color_w = '{$fnt psst, "blue" |2}';
	elseif w == '3' then color_w = '{$fnt psst, "lightgreen" |3}';
	elseif w == '4' then color_w = '{$fnt psst, "lightgreen" |4}';
	elseif w == '5' then color_w = '{$fnt psst, "lightgreen" |5}';
	elseif w == '6' then color_w = '{$fnt psst, "lightgreen" |6}';
	elseif w == '7' then color_w = '{$fnt psst, "lightgreen" |7}';
	elseif w == '8' then color_w = '{$fnt psst, "lightgreen" |8}';
	elseif w == '9' then color_w = '{$fnt psst, "lightgreen" |9}';
	elseif w == '*' then color_w = '{$fnt psst, "magenta" |*}';
	elseif w == '↑' then color_w = '{$fnt psst, "white" |↑}';
	elseif w == '→' then color_w = '{$fnt psst, "white" |→}';
	elseif w == '←' then color_w = '{$fnt psst, "white" |←}';
	else color_w = w;
	end;
	if i == active_slot and j == active_register then
		register = "|"..'{$fnt psst, "red"|▶}'..color_w..'{$fnt psst, "red"|◀}'.."|";
	else register = "| "..color_w.." |";
	end;
	return register;
end;

make_ship = function()
--	local f = sprite.fnt('themes/default/PressStart2P.ttf', 30);
	ship = sprite.new (32,32);
--	f:text("O", "sandybrown"):draw(ship, 1, 0);
--	f:text("¤", "navy"):compose(ship, 0, 1);
	s3:copy(ship, 0, 0);
	s4:copy(ship, 16, 0);
	s1:copy(ship, 0, 16);
	s2:copy(ship, 16, 16);
end;

draw_items = function()
	canvas_map = sprite.new "box:518x518, lawngreen";
	spr_map = sprite.new "box:512x512, lightblue";
	local f = sprite.fnt('themes/default/PressStart2P.ttf', 32);

	base = sprite.new "box:32x32, magenta";
--	f:text("P", "yellow"):copy(base, 1, 1);
	s5:copy(base, 0, 0);
	s6:copy(base, 16, 0);
	s7:copy(base, 0, 16);
	s8:copy(base, 16, 16);
	
	camp = sprite.new "box:32x32, white";
--	f:text("г", "red"):copy(camp, 1, 1);
	h7:copy(camp, 0, 0);
	f1:copy(camp, 16, 0);
	w1:copy(camp, 0, 16);
	s0:copy(camp, 16, 16);
	
	camp_catch = sprite.new "box:32x32, white";
--	f:text("г", "green"):copy(camp_catch, 1, 1);
	h7:copy(camp_catch, 0, 0);
	f1:copy(camp_catch, 16, 0);
	w1:copy(camp_catch, 0, 16);
	t1:copy(camp_catch, 16, 16);

	empt = sprite.new "box:32x32, blue";
--	local dot = sprite.new "box:2x2, yellow";
--[[
	dot:copy(empt, 0, 0);
	dot:copy(empt, 4, 0);
	dot:copy(empt, 8, 0);
	dot:copy(empt, 0, 4);
	dot:copy(empt, 0, 8);
--]]
	e1:copy(empt, 0, 0);
	e2:copy(empt, 16, 0);
	e3:copy(empt, 0, 16);
	e4:copy(empt, 16, 16);

	danger = sprite.new "box:32x32, blue";
--	local red_kvad = sprite.new "box:30x30, red";
--	red_kvad:copy(danger, 1, 1);
	d1:copy(danger, 0, 0);
	d2:copy(danger, 16, 0);
	d3:copy(danger, 0, 16);
	d4:copy(danger, 16, 16);

	h_way = sprite.new "box:32x32, yellow";
--	local h_line = sprite.new "box:10x2, magenta";
--	h_line:copy(h_way, 1, 5);
	h6:copy(h_way, 0, 0);
	h6:copy(h_way, 16, 0);
	h5:copy(h_way, 0, 16);
	h5:copy(h_way, 16, 16);

	w_way = sprite.new "box:32x32, yellow";
--	local w_line = sprite.new "box:2x10, magenta";
--	w_line:copy(w_way, 5, 1);
	w4:copy(w_way, 0, 0);
	w6:copy(w_way, 16, 0);
	w4:copy(w_way, 0, 16);
	w6:copy(w_way, 16, 16);
	
	turn_left = sprite.new "box:32x32, green";
--	f:text("◀", "black"):copy(turn_left, 1, 2);
	g2:copy(turn_left, 0, 0);
	g4:copy(turn_left, 16, 0);
	g1:copy(turn_left, 0, 16);
	g3:copy(turn_left, 16, 16);

	turn_right = sprite.new "box:32x32, green";
--	f:text("▶", "black"):copy(turn_right, 2, 2);
	g6:copy(turn_right, 0, 0);
	g8:copy(turn_right, 16, 0);
	g5:copy(turn_right, 0, 16);
	g7:copy(turn_right, 16, 16);
	
end;

draw_map = function()
local locmap = "";
	for i = 1, 16 do
		for j = 1, 16 do
			local l = i * 32 - 32;
			local k = j * 32 - 32;
			locmap = map[j][i];
			if locmap == "P" then base:copy(spr_map, l, k);
			elseif locmap == "C" then camp:copy(spr_map, l, k);
			elseif locmap == "S" then camp_catch:copy(spr_map, l, k);
			elseif locmap == "D" then danger:copy(spr_map, l, k);
			elseif locmap == "H" then h_way:copy(spr_map, l, k);
			elseif locmap == "W" then w_way:copy(spr_map, l, k);
			elseif locmap == "◀" then turn_left:copy(spr_map, l, k);
			elseif locmap == "▶" then turn_right:copy(spr_map, l, k);
			else empt:copy(spr_map, l, k);
			end;
		end;
	end;
end;

draw_space = function()
	spr_map:copy(canvas_map, 3, 3);
end;

function init()
        theme.win.reset();
	std.strip_call = false;
	init_stack(slotter[1], lim_P);
	init_stack(slotter[2], lim_012);
	init_stack(slotter[3], lim_012);
	init_stack(slotter[4], lim_012);
	slotter[2][0] = {};
	slotter[3][0] = {};
	slotter[4][0] = {};
end;

function start()
	main_stack = {};
	sub0_stack = {};
	sub1_stack = {};
	sub2_stack = {};
	make_ship();
	draw_items();
	draw_map();
	draw_space();
	make_all_sprites();
	draw_map_a();
	place("hlp", me());
	place("mission_messages", me());
	place("anim_speed_menu", me());
	place("inf", me());
end;

stat {
	nam = "inf",
	disp = "Command Control Reference:^",
	obj = {"inf1", "inf2", "inf3", "ret"},
}:disable();

menu {
	nam = "inf1",
	disp = "Control Basics^",
	dsc = "{Control Basics}",
	act = function()
		return p ("Basic Commands:^^".."["..'{$fnt psst, "white"|↑}'.."] ("..'{$fnt psst, "white"|+}'..") - flight to the next square at the rate^^".."["..'{$fnt psst, "white"|←}'.."] ("..'{$fnt psst, "white"|<}'..") - turn left in place^^".."["..'{$fnt psst, "white"|→}'.."] ("..'{$fnt psst, "white"|>}'..") - turn right in place^^".."["..'{$fnt psst, "magenta"|*}'.."] ("..'{$fnt psst, "white"|Space}'..") - cargo discharge^^".."["..'{$fnt psst, "red"|R}'.."] ("..'{$fnt psst, "white"|Enter}'..") - run program^^".."["..'{$fnt psst, "cadetblue"|D}'.."] ("..'{$fnt psst, "white"|Backspace}'..") - removing command^^");
	end,
}:disable();

menu {
	nam = "inf2",
	disp = "Procedures^",
	dsc = "{Procedures}",
	act = function()
		return p ([[You can combine command sequences into procedures so that you do not specify the same sequence multiple times.]].."^^"..[[The procedure is specified in the column ]].."["..'{$fnt psst, "red"|0}'.."], ["..'{$fnt psst, "yellow"|1}'.."] или ["..'{$fnt psst, "blue"|2}'.."], and in the right place of the program is enough to press the "..'{$fnt psst, "white"|0}'..", "..'{$fnt psst, "white"|1}'.." or "..'{$fnt psst, "white"|2}'.." key.^^");
	end,
}:disable();

menu {
	nam = "inf3",
	disp = "Loops^",
	dsc = "{Loops}",
	act = function()
		return p ([[Another way to shorten a record is applied to chains of the same command.]].."^^"..[[You must specify how many times to repeat the command. This technique is called a cycle. To do this, use the keys ]].."["..'{$fnt psst, "lightgreen"|3}'.."], ".."["..'{$fnt psst, "lightgreen"|4}'.."], ".."["..'{$fnt psst, "lightgreen"|5}'.."], ".."["..'{$fnt psst, "lightgreen"|6}'.."], ^".."["..'{$fnt psst, "lightgreen"|7}'.."], ".."["..'{$fnt psst, "lightgreen"|8}'.."], ".."["..'{$fnt psst, "lightgreen"|9}'.."].^^"..[[Procedures can also be repeated in a loop.]]);
	end,
}:disable();

menu {
	nam = "ret",
	disp = "Back^",
	dsc = "{Back}",
	act = function()
		walkout();
	end,
};

menu {
	nam = "hlp",
	disp = "Help^",
	dsc = "{Help}",
	act = function()
		walk("Help");
	end,
}:disable();

menu {
	nam = "anim_speed_x1",
	disp = "Economical <<^",
	act = function(s)
		s.disp = "Economical <<^";
		_"anim_speed_x2".disp = "Full^";
		_"anim_speed_x4".disp = "Afterburn^";
--		pn ("The economic speed of the ship is established");
		animation_repeats = 24;
		animation_step = 4;
--		repeat_local = 24;
--		step_local = 4;
	end,
}

menu {
	nam = "anim_speed_x2",
	disp = "Full^",
	act = function(s)
		s.disp = "Full <<^";
		_"anim_speed_x1".disp = "Economical^";
		_"anim_speed_x4".disp = "Afterburn^";
--		pn ("The full speed of the ship is established");
		animation_repeats = 12;
		animation_step = 8;
--		repeat_local = 12;
--		step_local = 8;
	end,
}

menu {
	nam = "anim_speed_x4",
	disp = "Afterburn^",
	act = function(s)
		s.disp = "Afterburn <<^";
		_"anim_speed_x1".disp = "Economical^";
		_"anim_speed_x2".disp = "Full^";
--		pn ("The afterburned rush speed of the ship is established");
		animation_repeats = 6;
		animation_step = 16;
--		repeat_local = 6;
--		step_local = 16;
	end,
}

stat {
	nam = "anim_speed_menu",
	disp = "Ship speed:^",
	obj = {"anim_speed_x1", "anim_speed_x2", "anim_speed_x4"},
}:disable();

obj {
	nam = "deck",
	dsc = function(s)
		local body = "";
		body = "<c>".."-{[P]|["..'{$fnt psst, "magenta"|P}'.."]}-".."-{[0]|["..'{$fnt psst, "red"|0}'.."]}-".."-{[1]|["..'{$fnt psst, "yellow"|1}'.."]}-".."-{[2]|["..'{$fnt psst, "blue"|2}'.."]}-^";
		for j = 1, 21 do
			for i = 1, 4 do
				if i == 1 then
					local k = shift_register_P + j;
					body = body..draw_register(i,j, slotter[i][k]);
				else
					body = body..draw_register(i,j, slotter[i][j]);
				end;
			end;
				body = body.."^";
		end;
		body = body.."--------------------";
		return pn(body.."</c>".."^");
	end;
	obj = {"[P]","[0]","[1]","[2]"};
};

obj {
	nam = "[P]",
};

obj {
	nam = "[0]",
}

obj {
	nam = "[1]",
}

obj {
	nam = "[2]",
}


obj {
	nam = "key_board",
	dsc = function(s)
		local body = "";
		body = "<c>".."^{btn_1|["..'{$fnt psst, "yellow"|1}'.."]}".." {btn_2|["..'{$fnt psst, "blue"|2}'.."]}".." {btn_3|["..'{$fnt psst, "lightgreen"|3}'.."]}".." {btn_4|["..'{$fnt psst, "lightgreen"|4}'.."]}".." {btn_d|["..'{$fnt psst, "magenta"|*}'.."]}^^^".."{btn_5|["..'{$fnt psst, "lightgreen"|5}'.."]}".." {btn_6|["..'{$fnt psst, "lightgreen"|6}'.."]}".." {btn_7|["..'{$fnt psst, "lightgreen"|7}'.."]}".." {btn_8|["..'{$fnt psst, "lightgreen"|8}'.."]}".." {btn_f|["..'{$fnt psst, "white"|↑}'.."]}^^^".."{btn_9|["..'{$fnt psst, "lightgreen"|9}'.."]}".." {arr_up|["..'{$fnt psst, "cadetblue"|▲}'.."]}".." {btn_0|["..'{$fnt psst, "red"|0}'.."]}".." {btn_tl|["..'{$fnt psst, "white"|←}'.."]}".." {btn_tr|["..'{$fnt psst, "white"|→}'.."]}^^^".."{arr_left|["..'{$fnt psst, "cadetblue"|◀}'.."]}".." {arr_down|["..'{$fnt psst, "cadetblue"|▼}'.."]}".." {arr_right|["..'{$fnt psst, "cadetblue"|▶}'.."]}".." {btn_del|["..'{$fnt psst, "cadetblue"|D}'.."]}".." {btn_run|["..'{$fnt psst, "red"|R}'.."]}".."</c>";
		return pn(body);
	end,
	obj = {"btn_0","btn_1","btn_2","btn_3","btn_4","btn_5","btn_6","btn_7","btn_8","btn_9","btn_d","btn_f","btn_tl","btn_tr","arr_up","arr_left","arr_down","arr_right","btn_run","btn_del"};
}

obj {
	nam = "btn_0",
	act = function(s) set_command("0"); end,
}

obj {
	nam = "btn_1",
	act = function(s) set_command("1"); end,
}

obj {
	nam = "btn_2",
	act = function(s) set_command("2"); end,
}

obj {
	nam = "btn_3",
	act = function(s) set_command("3"); end,
}

obj {
	nam = "btn_4",
	act = function(s) set_command("4"); end,
}

obj {
	nam = "btn_5",
	act = function(s) set_command("5"); end,
}

obj {
	nam = "btn_6",
	act = function(s) set_command("6"); end,
}

obj {
	nam = "btn_7",
	act = function(s) set_command("7"); end,
}

obj {
	nam = "btn_8",
	act = function(s) set_command("8"); end,
}

obj {
	nam = "btn_9",
	act = function(s) set_command("9"); end,
}

obj {
	nam = "btn_d",
	act = function(s) set_command("*"); end,
}

obj {
	nam = "btn_f",
	act = function(s) set_command("↑"); end,
}

obj {
	nam = "btn_tl",
	act = function(s) set_command("←"); end,
}

obj {
	nam = "btn_tr",
	act = function(s) set_command("→"); end,
}

obj {
	nam = "arr_up",
	act = function(s) cur_up(); end,
}

obj {
	nam = "arr_down",
	act = function(s) cur_down(); end,
}

obj {
	nam = "arr_left",
	act = function(s) cur_left(); end,
}

obj {
	nam = "arr_right",
	act = function(s) cur_right(); end,
}

obj {
	nam = "btn_run",
	act = function(s)
		run_program();
	end,
}

obj {
	nam = "btn_del",
	act = function(s) del_command(); end,
}

stat {
	nam = "mission_messages",
	disp = function(s)
		return pn (s.message..mission_stage);
	end,
	{
		message = "",
	},
}
--

room {
	nam = "main",
	disp = "Intro",
	title = "",
	{
		ship_x = -48,
		ship_y = 379,
		autor =  " ",
		postf = "",
	},
	timer = function(s)
		if s.ship_x < 526 then
			if s.ship_x > 140 then
				s.autor = "L";
			end;
			if s.ship_x > 170 then
				s.autor = "Lu";
			end;
			if s.ship_x > 200 then
				s.autor = "Luc";
			end;
			if s.ship_x > 230 then
				s.autor = "Luck";
			end;
			if s.ship_x > 260 then
				s.autor = "Lucky";
			end;
			if s.ship_x > 290 then
				s.autor = "Luckyu";
			end;
			if s.ship_x > 320 then
				s.autor = "Luckyuk";
			end;
			s.ship_x = s.ship_x + 8;
			s:pic();
			s:dsc();
		else
			timer:stop();
			walk("instr_0");
		end;
	end,
	onenter = function(s)
		timer:set(30);
	end;
	pic = function(s)
		local f = sprite.fnt('themes/default/PressStart2P.ttf', 30);
		local t = sprite.fnt('themes/default/PressStart2P.ttf', 30);
		deep_sky:copy(canvas, 0, 0);
		intro_a:draw(canvas, 0, 128);
		t:text(s.autor, "yellow"):draw(canvas, 144, 380);
		f:text(s.autor, "white"):draw(0, 0, 256, 15, canvas, 144, 380);
		ship:copy(canvas, s.ship_x, s.ship_y);
		return canvas;
	end,
	dsc = function(s)
		if s.postf == "" then
			s.postf = ".";
		elseif s.postf == "." then
			s.postf = "..";
		elseif  s.postf == ".." then
			s.postf = "...";
		elseif  s.postf == "..." then
			s.postf = " ...";
		elseif  s.postf == " ..." then
			s.postf = "  ..";
		elseif  s.postf == "  .." then
			s.postf = "   .";
		elseif s.postf == "   ." then
			s.postf = "";
		end;
		p ([[Remake of the game "Shturman" by Oleg Shamshura]]..s.postf);
	end,
}

room {
	nam = "instr_0",
	disp = "***Briefing***",
	{
		dsc_txt = "^"..[[You are a cadet of the flying academy. Your task - to master the laying of the course with the help of the newest cybernetics complex of navigation "Autopilot of the Higher Sort. Abbreviated - A0HS.]].."^^"..[[Lay the course so that the ship could avoid troubles and deliver cargo to all bases. The ship always starts from the landing site.]],
		letter_mark = 0,
		disp_text = [[]],
	},
	enter = function(s)
		timer:set(30);
	end,
	onenter = function()
		if disabled("hlp") then
			 _'hlp':enable();
		end
	end,
	pic = function()
		return deep_sky;
	end,
	dsc = function(s)
		if s.letter_mark < string.len (s.dsc_txt) then
			s.letter_mark = s.letter_mark + 1;
			s.disp_text = s.disp_text..string.sub (s.dsc_txt, s.letter_mark, s.letter_mark)
			p (s.disp_text);
		else
			p (s.disp_text);
			ways():open();
			timer:stop();
			
		end;
	end,
	timer = function(s)
		s:dsc();
	end,
	way = {"instr_1"},
}

room {
	nam = "instr_1",
	disp = "Control Basics",
	title = "***Control***",
	{
		dsc_txt = "^"..[[The behavior of the ship is set by the program.
	It consists of commands and is written^in a stack ]].."["..'{$fnt psst, "magenta"|P}'.."]^^".."Basic commands:^^".."["..'{$fnt psst, "white"|↑}'.."] ("..'{$fnt psst, "white"|+}'..") - flight to the next square at the exchange rate^^".."["..'{$fnt psst, "white"|←}'.."] ("..'{$fnt psst, "white"|<}'..") - rotate in place to the left^^".."["..'{$fnt psst, "white"|→}'.."] ("..'{$fnt psst, "white"|>}'..") - rotate in place to the right^^".."["..'{$fnt psst, "magenta"|*}'.."] ("..'{$fnt psst, "white"|Space}'..") - cargo discharge^^".."["..'{$fnt psst, "red"|R}'.."] ("..'{$fnt psst, "white"|Enter}'..") - run program^^".."["..'{$fnt psst, "cadetblue"|D}'.."] ("..'{$fnt psst, "white"|Backspace}'..") - remove command",
		letter_mark = 0,
		disp_text = [[]],
	},
	enter = function(s)
		timer:set(30);
	end;
	onenter = function()
		if disabled("inf1") then
			 _'inf1':enable();
		end;
	end,	pic = function()
		return deep_sky;
	end,
	dsc = function(s)
		if s.letter_mark < string.len (s.dsc_txt) then
			s.letter_mark = s.letter_mark + 1;
			s.disp_text = s.disp_text..string.sub (s.dsc_txt, s.letter_mark, s.letter_mark)
			p (s.disp_text);
		else
			p (s.disp_text);
			ways():open();
			timer:stop();
			
		end;
	end,
	timer = function(s)
		s:dsc();
	end,
	way = {"lesson_1"},
}

room {
	nam = "Anim",
	disp = "",
	title = "",
	onenter = function(s)
		_('hlp'):disable();
		_('anim_speed_menu'):enable();
	end,
	onexit = function(s)
		mission_stage = "";
		_('hlp'):enable();
		_('anim_speed_menu'):disable();
	end,
	pic = function()
		return canvas;
	end,
	obj = {"deck"},
}

room {
	nam = "lesson_1",
	disp = "Begin lesson 1",
	title = "Lesson 1",
	cur_map = function()
		set_map(map_1);
	end,
	pic = function()
		return canvas_map;
	end,
	onenter = function(s)
		ways(s):disable();
		clear_slotter();
		s.cur_map();
		draw_map();
		draw_map_a();
		draw_space();
		ship_start_pos();
		s:pic();
	end,
	obj = {"deck", "key_board"},
	way = {"instr_2"},
}

room {
	nam = "instr_2",
	disp = "Lesson 2",
	{
		dsc_txt = "^"..[[You can combine command sequences into procedures so that you do not specify the same sequence multiple times.]].."^^"..[[The procedure is specified in the column ]].."["..'{$fnt psst, "red"|0}'.."], ".."["..'{$fnt psst, "yellow"|1}'.."] or ".."["..'{$fnt psst, "blue"|2}'.."], and in the right place of the program is enough to press the {$fnt psst, 'white'|0}, {$fnt psst, 'white'|1} or {$fnt psst, 'white'|2} key.",
		letter_mark = 0,
		disp_text = [[]],
	},
	title = "***Procedures***",
	enter = function(s)
		timer:set(30);
	end;
	onenter = function()
		if disabled("inf2") then
			 _'inf2':enable();
		end;
	end,
	pic = function()
		return deep_sky;
	end,
	dsc = function(s)
		if s.letter_mark < string.len (s.dsc_txt) then
			s.letter_mark = s.letter_mark + 1;
			s.disp_text = s.disp_text..string.sub (s.dsc_txt, s.letter_mark, s.letter_mark)
			p (s.disp_text);
		else
			p (s.disp_text);
			ways():open();
			timer:stop();
			
		end;
	end,
	timer = function(s)
		s:dsc();
	end,
	way = {"lesson_2"},
}

room {
	nam = "lesson_2",
	disp = "Begin lesson 2",
	title = "Lesson 2",
	cur_map = function()
		set_map(map_2);
	end,
	pic = function()
		return canvas_map;
	end,
	onenter = function(s)
		ways(s):disable();
		clear_slotter();
		s.cur_map();
		draw_map();
		draw_map_a();
		draw_space();
		ship_start_pos();
		s:pic();
	end,
	obj = {"deck", "key_board"},
	way = {"instr_3"},
}

room {
	nam = "instr_3",
	disp = "Lesson 3",
	{
		dsc_txt = "^"..[[Another way to shorten the entry applies to chains of identical commands.]].."^^"..[[You must specify how many times to repeat the command. This technique is called a loop. To do this, use the keys ]].."["..'{$fnt psst, "lightgreen"|3}'.."], ".."["..'{$fnt psst, "lightgreen"|4}'.."], ".."["..'{$fnt psst, "lightgreen"|5}'.."], ".."["..'{$fnt psst, "lightgreen"|6}'.."], ^".."["..'{$fnt psst, "lightgreen"|7}'.."], ".."["..'{$fnt psst, "lightgreen"|8}'.."], ".."["..'{$fnt psst, "lightgreen"|9}'.."].",
		letter_mark = 0,
		disp_text = [[]],
	},
	title = "***Loops***",
	enter = function(s)
		timer:set(30);
	end;
	onenter = function()
		if disabled("inf3") then
			 _'inf3':enable();
		end;
	end,
	pic = function()
		return deep_sky;
	end,
	dsc = function(s)
		if s.letter_mark < string.len (s.dsc_txt) then
			s.letter_mark = s.letter_mark + 1;
			s.disp_text = s.disp_text..string.sub (s.dsc_txt, s.letter_mark, s.letter_mark)
			p (s.disp_text);
		else
			p (s.disp_text);
			ways():open();
			timer:stop();
			
		end;
	end,
	timer = function(s)
		s:dsc();
	end,
	way = {"lesson_3"},
}

room {
	nam = "lesson_3",
	disp = "Begin lesson 3",
	title = "Lesson 3",
	cur_map = function()
		set_map(map_3);
	end,
	pic = function()
		return canvas_map;
	end,
	onenter = function(s)
		ways(s):disable();
		clear_slotter();
		s.cur_map();
		draw_map();
		draw_map_a();
		draw_space();
		ship_start_pos();
		s:pic();
	end,
	obj = {"deck", "key_board"},
	way = {"instr_4"},
}

room {
	nam = "instr_4",
	disp = "Lesson 4",
	{
		dsc_txt = "^"..[[Procedures can also be repeated in a loop.]],
		letter_mark = 0,
		disp_text = [[]],
	},
	title = "***Loops of procedures***",
	enter = function(s)
		timer:set(30);
	end;
	pic = function()
		return deep_sky;
	end,
	dsc = function(s)
		if s.letter_mark < string.len (s.dsc_txt) then
			s.letter_mark = s.letter_mark + 1;
			s.disp_text = s.disp_text..string.sub (s.dsc_txt, s.letter_mark, s.letter_mark)
			p (s.disp_text);
		else
			p (s.disp_text);
			ways():open();
			timer:stop();
			
		end;
	end,
	timer = function(s)
		s:dsc();
	end,
	way = {"lesson_4"},
}

room {
	nam = "lesson_4",
	disp = "Begin lesson 4",
	title = "Lesson 4",
	cur_map = function()
		set_map(map_4);
	end,
	pic = function()
		return canvas_map;
	end,
	onenter = function(s)
		ways(s):disable();
		clear_slotter();
		s.cur_map();
		draw_map();
		draw_map_a();
		draw_space();
		ship_start_pos();
		s:pic();
	end,
	obj = {"deck", "key_board"},
	way = {"lesson_5"},
}

room {
	nam = "lesson_5",
	disp = "Begin lesson 5",
	title = "Lesson 5",
	cur_map = function()
		set_map(map_5);
	end,
	pic = function()
		return canvas_map;
	end,
	onenter = function(s)
		ways(s):disable();
		clear_slotter();
		s.cur_map();
		draw_map();
		draw_map_a();
		draw_space();
		ship_start_pos();
		s:pic();
	end,
	obj = {"deck", "key_board"},
	way = {"lesson_6"},
}

room {
	nam = "lesson_6",
	disp = "Begin lesson 6",
	title = "Lesson 6",
	cur_map = function()
		set_map(map_6);
	end,
	pic = function()
		return canvas_map;
	end,
	onenter = function(s)
		ways(s):disable();
		clear_slotter();
		s.cur_map();
		draw_map();
		draw_map_a();
		draw_space();
		ship_start_pos();
		s:pic();
	end,
	obj = {"deck", "key_board"},
	way = {"lesson_7"},
}

room {
	nam = "lesson_7",
	disp = "Begin lesson 7",
	title = "Lesson 7",
	cur_map = function()
		set_map(map_7);
	end,
	pic = function()
		return canvas_map;
	end,
	onenter = function(s)
		ways(s):disable();
		clear_slotter();
		s.cur_map();
		draw_map();
		draw_map_a();
		draw_space();
		ship_start_pos();
		s:pic();
	end,
	obj = {"deck", "key_board"},
	way = {"lesson_8"},
}

room {
	nam = "lesson_8",
	disp = "Begin lesson 8",
	title = "Lesson 8",
	cur_map = function()
		set_map(map_8);
	end,
	pic = function()
		return canvas_map;
	end,
	onenter = function(s)
		ways(s):disable();
		clear_slotter();
		s.cur_map();
		draw_map();
		draw_map_a();
		draw_space();
		ship_start_pos();
		s:pic();
	end,
	obj = {"deck", "key_board"},
	way = {"lesson_9"},
}

room {
	nam = "lesson_9",
	disp = "Begin lesson 9",
	title = "Lesson 9",
	cur_map = function()
		set_map(map_9);
	end,
	pic = function()
		return canvas_map;
	end,
	onenter = function(s)
		ways(s):disable();
		clear_slotter();
		s.cur_map();
		draw_map();
		draw_map_a();
		draw_space();
		ship_start_pos();
		s:pic();
	end,
	obj = {"deck", "key_board"},
	way = {"lesson_10"},
}

room {
	nam = "lesson_10",
	disp = "Begin lesson 10",
	title = "Lesson 10",
	cur_map = function()
		set_map(map_10);
	end,
	pic = function()
		return canvas_map;
	end,
	onenter = function(s)
		ways(s):disable();
		clear_slotter();
		s.cur_map();
		draw_map();
		draw_map_a();
		draw_space();
		ship_start_pos();
		s:pic();
	end,
	obj = {"deck", "key_board"},
	way = {"fin"},
}

room {
	nam = "fin",
	disp = "End of the game",
	title = "",
	{
		ship_x = 224,
		ship_y = 560,
		finish_x = 0,
		finish_y = 320,
		info_x = 0,
		info_y = -40,
		info =  "Congratulations, you will be good!",
		postf = "",
		time_line = 0,
	},
	timer = function(s)
		if s.time_line < 36 then
			s.ship_y = s.ship_y - 8;
		end;
		if s.time_line >= 36 and s.time_line < 68 then
			s.finish_y = s.finish_y + 8;
		end;
		if s.time_line >= 68 and s.time_line < 120 then
			s.info_y = s.info_y + 8;
		end;
		if s.time_line >= 120 and s.time_line < 192 then
			s.ship_y = s.ship_y - 8;
		end;
			s:pic();
			s.time_line = s.time_line + 1;
		if s.time_line > 192 then
			timer:stop();
			ways(s):enable();
		end;
	end,
	onenter = function(s)
		ways(s):disable();
		timer:set(30);
	end;
	pic = function(s)
		local f = sprite.fnt('themes/default/PressStart2P.ttf', 16);
		local t = sprite.fnt('themes/default/PressStart2P.ttf', 16);
		deep_sky:copy(canvas, 0, 0);
		finish_a:draw(canvas, s.finish_x, s.finish_y);
		t:text(s.info, "yellow"):draw(canvas, s.info_x, s.info_y);
		f:text(s.info, "white"):draw(0, 0, 512, 8, canvas, s.info_x, s.info_y);
		ship:copy(canvas, s.ship_x, s.ship_y);
		return canvas;
	end,
	dsc = "",
	way = {"main"},
}

room {
	nam = "Help",
	disp = "?",
	title = "Info:",
	onenter = function(s)
		_('hlp'):disable();
		_('inf'):enable();
	end;
	onexit = function(s)
		_('hlp'):enable();
		_('inf'):disable();
	end;
	pic = function()
		return deep_sky;
	end,
	dsc = " ",
}