("sail_from_port",[(party_slot_eq,"$current_town",slot_party_type, spt_town),
#(eq, "$cheat_mode", 1),
# sailing in sea
(eq, "$can_sail", 1),
(eq, "$ship_out", 0),
(party_get_slot, ":shore", "$current_town", slot_town_near_shore),
(eq, ":shore", 1),
# (party_slot_eq,"$current_town",slot_town_near_shore, 1),
], "Sail from port.",
[(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, "$ship_out", 1),
(assign, "$g_main_ship_party", -1),
(stop_all_sounds, 1), # 0 = default, 1 = fade out current track, 2 = stop current track
(play_track,"track_ocean_travel"),
(change_screen_return),
]),