#Объединённый функционал презентаций draw_equipment_hp и map_then_battle
("map_then_battle",prsntf_read_only,0, [
(ti_on_presentation_load, [
(call_script,"script_draw_helmet",-2), #rusmod - draw helmet R.
(set_fixed_point_multiplier, 1000),
(try_for_agents, ":agent_no"),
(agent_set_slot, ":agent_no", slot_agent_map_overlay_id, 0),
(try_end),
(get_scene_boundaries, pos2, pos3),
(position_transform_position_to_local, pos4, pos2, pos3),
(position_get_x, ":map_width", pos4),
(position_get_y, ":map_height", pos4),
(set_fixed_point_multiplier, 1000),
(store_div, ":map_ratio", ":map_height", 100),
(store_div, ":map_ratio", ":map_width", ":map_ratio"),
(try_begin),
(gt, ":map_ratio", 100),
(assign, "$g_battle_map_width", 300),
(store_div, "$g_battle_map_scale", ":map_width", "$g_battle_map_width"),
(store_div, "$g_battle_map_height", ":map_height", "$g_battle_map_scale"),
(else_try),
(assign, "$g_battle_map_height", 300),
(store_div, "$g_battle_map_scale", ":map_height", "$g_battle_map_height"),
(store_div, "$g_battle_map_width", ":map_width", "$g_battle_map_scale"),
(try_end),
(create_mesh_overlay, "$g_battle_map_plane", "mesh_white_plane", "mesh_white_plane"),
(overlay_set_color, "$g_battle_map_plane", 0),
(store_add, ":map_bordered_width", "$g_battle_map_width", 20),
(store_add, ":map_bordered_height", "$g_battle_map_height", 20),
(store_mul, ":map_scale_x", ":map_bordered_width", 50),
(store_mul, ":map_scale_y", ":map_bordered_height", 50),
(position_set_x, pos1, ":map_scale_x"),
(position_set_y, pos1, ":map_scale_y"),
(overlay_set_size, "$g_battle_map_plane", pos1),
(store_sub, ":map_pos_x", 990, ":map_bordered_width"),
(store_sub, ":map_pos_y", 740, ":map_bordered_height"),
(position_set_x, pos1, ":map_pos_x"),
(position_set_y, pos1, ":map_pos_y"),
(overlay_set_position, "$g_battle_map_plane", pos1),
(overlay_set_alpha, "$g_battle_map_plane", 0x44),
#rusmod
#draw topomap R.
(try_begin),
(eq,"$dont_show_relief_on_minimap",0),
(call_script,"script_draw_topomap",0),
(try_end),
#rusmod_end
#code for equipment hp drawing
(set_fixed_point_multiplier, 1000),
(get_player_agent_no, ":player"),
(create_text_overlay, reg0, "@ ", tf_right_align),
(position_set_x, pos0, 990),
(position_set_y, pos0, 78),
(overlay_set_position, reg0, pos0),
(agent_set_slot, ":player", slot_agent_weapon_hp_overlay, reg0),
(agent_get_item_slot, ":item", ":player", ek_body),
(try_begin),
(gt, ":item", 0),
(create_mesh_overlay_with_item_id, reg0, ":item"),
(position_set_x, pos0, 980),
(position_set_y, pos0, 250),
(overlay_set_position, reg0, pos0),
(overlay_set_alpha, reg0, 0xD0),
(overlay_set_display, reg0, 0),
(agent_set_slot, ":player", slot_agent_body_hp_overlay, reg0),
(try_end),
(agent_get_item_slot, ":item", ":player", ek_head),
(try_begin),
(gt, ":item", 0),
(create_mesh_overlay_with_item_id, reg0, ":item"),
(position_set_x, pos0, 980),
(position_set_y, pos0, 305),
(overlay_set_position, reg0, pos0),
(position_set_x, pos0, 400),
(position_set_y, pos0, 400),
(overlay_set_size, reg0, pos0),
(overlay_set_alpha, reg0, 0xD0),
(overlay_set_display, reg0, 0),
(agent_set_slot, ":player", slot_agent_head_hp_overlay, reg0),
(try_end),
(agent_get_item_slot, ":item", ":player", ek_foot),
(try_begin),
(gt, ":item", 0),
(create_mesh_overlay_with_item_id, reg0, ":item"),
(position_set_x, pos0, 980),
(position_set_y, pos0, 190),
(overlay_set_position, reg0, pos0),
(position_set_x, pos0, 500),
(position_set_y, pos0, 500),
(overlay_set_size, reg0, pos0),
(overlay_set_alpha, reg0, 0xD0),
(overlay_set_display, reg0, 0),
(agent_set_slot, ":player", slot_agent_foot_hp_overlay, reg0),
(try_end),
(call_script, "script_update_equipment_hit_points"),
#end of code for equipment hp drawing
(presentation_set_duration, 999999),
]),
(ti_on_presentation_run, [
(store_trigger_param_1, ":cur_time"),
(try_begin),
(gt, ":cur_time", 200),
(game_key_clicked, gk_view_orders),
(try_for_agents, ":cur_agent"),
(agent_set_slot, ":cur_agent", slot_agent_map_overlay_id, 0),
(try_end),
(presentation_set_duration, 0),
(start_presentation, "prsnt_battle"),
(else_try),#rusmod
(call_script,"script_cf_set_get_prev_camera_state"),
(gt,"$helmet_plane",-1),
(try_begin),
(camera_in_first_person),
(overlay_set_alpha, "$helmet_plane", 0xFF),
(else_try),
(overlay_set_alpha, "$helmet_plane", 0),
(try_end), #rusmod_end
(try_end),
#draw topomap
#R.
(try_begin),
(eq,"$dont_show_relief_on_minimap",0),
(call_script,"script_draw_topomap",1),
(try_end),
#rusmod_end
#code for equipment hp drawing
(assign, reg0, ":cur_time"),
(val_mod, reg0, 500),
(try_begin),
(le, reg0, 12),
(call_script, "script_update_equipment_hit_points"),
(try_end),
#end of code for equipment hp drawing
]),
]),
#rusmod_end