1. Getting you sailing
Module_Game_Menus;
Add this anywhere in the file, allows you to get on a pre-existing boat and get off it again.
(
"disembark",0,
"Do you wish to disembark?",
"none",
[],
[
("disembark_yes", [], "Yes.",
[(assign, "$g_player_icon_state", pis_normal),
(party_set_flags, "p_main_party", pf_is_ship, 0),
(party_get_position, pos1, "p_main_party"),
(party_set_position, "p_main_party", pos0),
(try_begin),
(le, "$g_main_ship_party", 0),
(set_spawn_radius, 0),
(spawn_around_party, "p_main_party", "pt_none"),
(assign, "$g_main_ship_party", reg0),
(party_set_flags, "$g_main_ship_party", pf_is_static|pf_always_visible|pf_hide_defenders|pf_is_ship, 1),
(str_store_troop_name, s1, "trp_player"),
(party_set_name, "$g_main_ship_party", "@{s1}'s Ship"),
(party_set_icon, "$g_main_ship_party", "icon_ship"),
(party_set_slot, "$g_main_ship_party", slot_party_type, spt_ship),
(try_end),
(enable_party, "$g_main_ship_party"),
(party_set_position, "$g_main_ship_party", pos0),
(party_set_icon, "$g_main_ship_party", "icon_ship_on_land"),
(assign, "$g_main_ship_party", -1),
(change_screen_return),
]),
("disembark_no", [], "No.",
[(change_screen_return),
]),
]
),
(
"ship_reembark",0,
"Do you wish to embark?",
"none",
[],
[
("reembark_yes", [], "Yes.",
[(assign, "$g_player_icon_state", pis_ship),
(party_set_flags, "p_main_party", pf_is_ship, 1),
(party_get_position, pos1, "p_main_party"),
(map_get_water_position_around_position, pos2, pos1, 6),
(party_set_position, "p_main_party", pos2),
(assign, "$g_main_ship_party", "$g_encountered_party"),
(disable_party, "$g_encountered_party"),
(change_screen_return),
]),
("reembark_no", [], "No.",
[(change_screen_return),
]),
]
),
And add this somewhere within the town menus, allowing you to get a ship;
("sail_from_port",[(party_slot_eq,"$current_town",slot_party_type, spt_town),
# (party_slot_eq,"$current_town",slot_town_near_shore, 1),
], "Buy a ship (2000 denars)",
[(assign, "$g_player_icon_state", pis_ship),
(party_set_flags, "p_main_party", pf_is_ship, 1),
(troop_remove_gold, "trp_player", 2000),
(party_get_position, pos1, "p_main_party"),
(map_get_water_position_around_position, pos2, pos1, 6),
(party_set_position, "p_main_party", pos2),
(assign, "$g_main_ship_party", -1),
(change_screen_return),
]),
Now load the system and load the game, You should be able to buy a ship and sail around.