(
"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),
]),load_mod_resource = sail ("ship",sokf_moveable,"longship","bo_longship", [ (ti_on_scene_prop_init,
[
(set_position_delta,0,0,0),
(particle_system_add_new, "psys_wake"),
(store_trigger_param_1, ":instance_no"),
(party_set_slot,"p_ship_colisions",":instance_no",0),
]),]),
("ships_end",0,0,0,[]),
("enemy_ship",sokf_moveable,"longship","bo_longship", [ (ti_on_scene_prop_init,
[
(set_position_delta,0,0,0),
(particle_system_add_new, "psys_wake"),
(store_trigger_param_1, ":instance_no"),
(party_set_slot,"p_ship_colisions",":instance_no",0),
]),]),
("enemy_ships_end",0,0,0,[]),
("universal_end",0,0,0,[]),
("ship_protect",0,0,"bo_gourd_spike",[]),
("enemy_ship_protect",0,0,"bo_gourd_spike",[]), ("sea",sf_generate,"none", "none", (0,0),(240,240),-0.5,"0x0000000030000000c00d2348000000008000000000000000",
[],[]),
("sea_2",sf_generate,"none", "none", (0,0),(240,240),-0.5,"0x0000000030000000c00d2348000000008000000000000000",
[],[]), ("encounter_attack",[
(eq, "$encountered_party_friendly", 0),
(store_troop_health,reg(5)),(party_get_current_terrain,":terrain","p_main_party"),
(neq,":terrain",0),
],
"Charge the enemy.",[
(assign, "$g_battle_result", 0),
(assign, "$g_engaged_enemy", 1),
(call_script, "script_calculate_renown_value"),
(call_script, "script_calculate_battle_advantage"),
(set_battle_advantage, reg0),
(set_party_battle_mode),
(try_begin),
(eq, "$g_encounter_type", enctype_fighting_against_village_raid),
(set_jump_mission,"mt_village_raid"),
(party_get_slot, ":scene_to_use", "$g_encounter_is_in_village", slot_castle_exterior),
(jump_to_scene, ":scene_to_use"),
(else_try),
(eq, "$g_encounter_type", enctype_catched_during_village_raid),
(set_jump_mission,"mt_village_raid"),
(party_get_slot, ":scene_to_use", "$g_encounter_is_in_village", slot_castle_exterior),
(jump_to_scene, ":scene_to_use"),
(else_try),
(set_jump_mission,"mt_lead_charge"),
(call_script, "script_setup_random_scene"),
(try_end),
(assign, "$g_next_menu", "mnu_simple_encounter"),
(jump_to_menu, "mnu_battle_debrief"),
(change_screen_mission),
]),
("encounter_attack",[
(eq, "$encountered_party_friendly", 0),
(store_troop_health,reg(5)),(party_get_current_terrain,":terrain","p_main_party"),
(eq,":terrain",0),
],
"Engage the enemy.",[
(assign, "$g_battle_result", 0),
(assign, "$g_engaged_enemy", 1),
(call_script, "script_calculate_renown_value"),
(call_script, "script_calculate_battle_advantage"),
(set_battle_advantage, reg0),
(set_party_battle_mode),
(try_begin),
(eq, "$g_encounter_type", enctype_fighting_against_village_raid),
(set_jump_mission,"mt_village_raid"),
(party_get_slot, ":scene_to_use", "$g_encounter_is_in_village", slot_castle_exterior),
(jump_to_scene, ":scene_to_use"),
(else_try),
(eq, "$g_encounter_type", enctype_catched_during_village_raid),
(set_jump_mission,"mt_village_raid"),
(party_get_slot, ":scene_to_use", "$g_encounter_is_in_village", slot_castle_exterior),
(jump_to_scene, ":scene_to_use"),
(else_try),
(set_jump_mission,"mt_ship_battle"),
(try_begin),
(val_add,reg10,reg11),
(gt,reg10,30),
(jump_to_scene, "scn_sea_2"),
(else_try),
(jump_to_scene, "scn_sea"),
(end_try),
(try_end),
(assign, "$g_next_menu", "mnu_simple_encounter"),
(jump_to_menu, "mnu_battle_debrief"),
(change_screen_mission),
]), ("join_attack",[
# (neq, "$encountered_party_hostile", 0),
(neg|troop_is_wounded, "trp_player"),
## (store_troop_health,reg(5),"trp_player"),
## (ge,reg(5),20),
(party_get_current_terrain,":terrain","p_main_party"),
(neq,":terrain",0),
],
"Charge the enemy.",[
(assign, "$g_battle_result", 0),
(call_script, "script_calculate_renown_value"),
(call_script, "script_calculate_battle_advantage"),
(set_battle_advantage, reg0),
(set_party_battle_mode),
(set_jump_mission,"mt_lead_charge"),
(call_script, "script_setup_random_scene"),
(assign, "$g_next_menu", "mnu_join_battle"),
(jump_to_menu, "mnu_battle_debrief"),
(change_screen_mission),
]),
("join_attack",[
# (neq, "$encountered_party_hostile", 0),
(neg|troop_is_wounded, "trp_player"),
## (store_troop_health,reg(5),"trp_player"),
## (ge,reg(5),20),
(party_get_current_terrain,":terrain","p_main_party"),
(eq,":terrain",0),
],
"Engage the enemy.",[
(assign, "$g_battle_result", 0),
(call_script, "script_calculate_renown_value"),
(call_script, "script_calculate_battle_advantage"),
(set_battle_advantage, reg0),
(set_party_battle_mode),
(set_jump_mission,"mt_ship_battle"),
(call_script, "script_setup_random_scene"),
(assign, "$g_next_menu", "mnu_join_battle"),
(jump_to_menu, "mnu_battle_debrief"),
(try_begin),
(val_add,reg10,reg11),
(gt,reg10,30),
(jump_to_scene, "scn_sea_2"),
(else_try),
(jump_to_scene, "scn_sea"),
(end_try),
(change_screen_mission),
]),(
"ship_battle",mtf_battle_mode,-1,
"You enter battle on your longships.",
[
(0,mtef_attackers|mtef_team_1,af_override_horse,aif_start_alarmed,4,[]),
(1,mtef_attackers|mtef_team_1,af_override_horse,aif_start_alarmed,4,[]),
(2,mtef_attackers|mtef_team_1,af_override_horse,aif_start_alarmed,4,[]),
(10,mtef_defenders|mtef_team_0,af_override_horse,aif_start_alarmed,4,[]),
(11,mtef_defenders|mtef_team_0,af_override_horse,aif_start_alarmed,4,[]),
(12,mtef_defenders|mtef_team_0,af_override_horse,aif_start_alarmed,4,[]),
],
[
(1, 0, 0, [], [(scene_prop_get_instance,"$ship", "spr_ship", 0),(scene_prop_get_instance,"$eship", "spr_enemy_ship", 0),]),
(10, 0, ti_once, [], [(try_for_agents,":agent"),(agent_set_speed_limit,":agent",0),(end_try),]),
(ti_tab_pressed, 0, 0, [],
[
(try_begin),
(eq, "$battle_won", 1),
(finish_mission,0),
(else_try),
(call_script, "script_cf_check_enemies_nearby"),
(question_box,"str_do_you_want_to_retreat"),
(else_try),
(display_message,"str_can_not_retreat"),
(try_end),
]),
(0, 0, ti_once, [], [(assign,"$pbehavior",1),(assign,"$ebehavior",2),(assign,"$battle_won",0),]),
(1, 60, ti_once, [(store_mission_timer_a,reg(1)),(ge,reg(1),10),(all_enemies_defeated,2),(neg|main_hero_fallen,0),(set_mission_result,1),(display_message,"str_msg_battle_won"),(assign,"$battle_won",1),(assign, "$g_battle_result", 1)],
[(finish_mission,1)]),
(10, 0, 0, [], [(eq,"$battle_won",1),(display_message,"str_msg_battle_won")]),
(1, 4, ti_once, [(main_hero_fallen,0)],
[(set_mission_result,-1),(finish_mission,1)]),
#friendly ship ai
(0.1, 0, 0, [],
[(call_script,"script_check_for_collisions"),]),
(0.1, 0, 0, [],
[(call_script,"script_kill_overboard"),]),
(0.05, 0, 0, [],
[(call_script,"script_cf_keep_troops_on_ships"),]),
# (0.1, 0, 0, [],
#[(try_for_agents,":agent"),
# (agent_is_human,":agent"),
# (agnet_is_alive,":agent"),
(1.0, 0, 0, [(eq,"$pbehavior",1)],
[(scene_prop_get_num_instances,reg12, "spr_ship"),
(val_add,reg12,1),
(try_for_range,reg13,0,reg12),
(scene_prop_get_instance,"$ship", "spr_ship", reg13),
(call_script,"script_select_enemy_ship"),
(call_script,"script_cf_close_and_board"),
(end_try),(call_script,"script_check_for_collisions"),]),
(1.0, 0, 0, [(eq,"$pbehavior",2),],
[(scene_prop_get_num_instances,reg12, "spr_ship"),
(val_add,reg12,1),
(try_for_range,reg13,0,reg12),
(scene_prop_get_instance,"$ship", "spr_ship", reg13),
(call_script,"script_select_enemy_ship"),
(call_script,"script_skirmish"),
(end_try),(call_script,"script_check_for_collisions"),]),
#enemy ship ai
(10.0, 0, 0, [],
[(assign,":friends",0),
(assign,":enemies",0),
(try_for_agents,":agent"),
(agent_is_alive,":agent"),
(try_begin),
(agent_is_ally,":agent"),
(val_add,":friends",1),
(else_try),
(val_add,":enemies",1),
(end_try),
(end_try),
(try_begin),
(val_mul,":friends",10),
(val_div,":friends",":enemies"),
(gt,":friends",8),
(assign,"$ebehavior",2),
(else_try),
(assign,"$ebehavior",1),
(end_try)]),
(1.0, 0, 0, [(eq,"$ebehavior",1)],
[(scene_prop_get_num_instances,reg12, "spr_enemy_ship"),
(val_add,reg12,1),
(try_for_range,reg13,0,reg12),
(scene_prop_get_instance,"$ship", "spr_enemy_ship", reg13),
(call_script,"script_select_friendly_ship"),
(call_script,"script_cf_close_and_board"),
(end_try),(call_script,"script_check_for_collisions"),]),
(1.0, 0, 0, [(eq,"$ebehavior",2)],
[(scene_prop_get_num_instances,reg12, "spr_enemy_ship"),
(val_add,reg12,1),
(try_for_range,reg13,0,reg12),
(scene_prop_get_instance,"$ship", "spr_enemy_ship", reg13),
(call_script,"script_select_friendly_ship"),
(call_script,"script_skirmish"),
(end_try),(call_script,"script_check_for_collisions"),]),
(ti_inventory_key_pressed, 0, 0, [(try_begin),
(eq,"$pbehavior",2),
(assign,"$pbehavior",0),
(display_message,"str_hold"),
(scene_prop_get_instance,"$ship", "spr_ship", 0),
(prop_instance_get_position,1,"$ship"),
(prop_instance_animate_to_position,"$ship",1,1),
(else_try),
(val_add,"$pbehavior",1),
(try_begin),
(eq,"$pbehavior",1),
(display_message,"str_board"),
(else_try),
(display_message,"str_skirmish"),
(end_try),
(end_try)], []),
(ti_question_answered, 0, 0, [],
[(store_trigger_param_1,":answer"),(eq,":answer",0),(finish_mission,0),]),
],
),
num_forest_bandit_spawn_points = 1
num_mountain_bandit_spawn_points = 1
num_steppe_bandit_spawn_points = 1
num_black_khergit_spawn_points = 1
num_sea_raider_spawn_points = 2
[COLOR=red][B]num_sea_pirate_spawn_points = 3[/B][/COLOR] #CdVader - Ship Collision fixer.
#Put this in your ship's mission template.
(1, 0, ti_once, [],
[(scene_prop_get_instance, ":player_ship", "spr_player_ship", 0),
(scene_prop_get_instance, ":enemy_ship", "spr_enemy_ship", 0),
(prop_instance_get_position, pos1, ":player_ship"),
(prop_instance_get_position, pos2, ":enemy_ship"),
(try_begin),
(get_distance_between_positions, pos1, pos2),
(lt, ":distance", 400),
(position_move_z, pos1, 200),
(position_move_z, pos2, -200),
(prop_instance_animate_to_position, pos1, ":player_ship", 400), #4 seconds.
(prop_instance_animate_to_position, pos2, ":enemy_ship", 400), #4 seconds.
(try_end),
(assign, "$boardedd", 1),
]),
Hey man. This is some nice contribution you've made to the whole modding community, etc. So I thought I'd help you with some issues you had previously. Hope I will help.Where do I put the ship code??
In this thread, http://forums.taleworlds.net/index.php/topic,53962.0.html (http://forums.taleworlds.net/index.php/topic,53962.0.html), I saw you were having problems by "connecting" scene props. You can "connect" objects by using the (position_transform_position_to_parent) or (position_transform_position_to_local). I recommend using the transform to local variant.
And in this thread, http://forums.taleworlds.net/index.php/topic,72933.msg1893703.html#msg1893703 (http://forums.taleworlds.net/index.php/topic,72933.msg1893703.html#msg1893703), I saw you had a pretty ... no offense: crappy code. Try this code, it should work.Code: [Select]#CdVader - Ship Collision fixer.
#Put this in your ship's mission template.
(1, 0, ti_once, [],
[(scene_prop_get_instance, ":player_ship", "spr_player_ship", 0),
(scene_prop_get_instance, ":enemy_ship", "spr_enemy_ship", 0),
(prop_instance_get_position, pos1, ":player_ship"),
(prop_instance_get_position, pos2, ":enemy_ship"),
(try_begin),
(get_distance_between_positions, pos1, pos2),
(lt, ":distance", 400),
(position_move_z, pos1, 200),
(position_move_z, pos2, -200),
(prop_instance_animate_to_position, pos1, ":player_ship", 400), #4 seconds.
(prop_instance_animate_to_position, pos2, ":enemy_ship", 400), #4 seconds.
(try_end),
(assign, "$boardedd", 1),
]),
Again, I hope I helped,
cdvader.
PS: Download this file for the "cleaner" version.
Where do I put the ship code??You mean my Ship Collision fixer? It goes to your "ship_battle" mission template, but do not use it yet. Jubal needs to play around with the values on the script.
And where do I put this:As Jubal said, you need to put it in your "Town" menu.
Add this to module_party_templates;
Code:
("sea_pierats","Sea Pirates",icon_ship|pf_is_ship|carries_goods(2),0,fac_outlaws,bandit_personality,[(trp_sea_raider,20,35)]),
These show you which command you have given yur ship;
Code:
("hold", "Drop the anchor and hold here!"),
("skirmish", "Skirmish with the enemy!"),
("board", "Close in and board the enemy ship!"),
("numberofships", "{reg60}"),
("sail_from_port",[(party_slot_eq,"$current_town",slot_party_type, spt_town),
# (party_slot_eq,"$current_town",slot_town_near_shore, 1), #Should remain commented when code implemented. ~CO
], "Buy a ship (2000 denars)", #Note: (--Code needs to be revised to check if player has gold. ~CO--) <--DONE! ~CO
[(store_troop_gold, ":gold", "trp_player"),
(assign, "$g_player_icon_state", pis_ship),
(try_begin), #begin check if player has gold
(ge, ":gold", 2000), #if players gold is 2000 or greater, then give 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),
(else_try), #if not, then display message
(display_message, "@You don't have enough denars!"),
(try_end),
]),