("test_2", 0, mesh_load_window,
[
(ti_on_presentation_load,
[
(presentation_set_duration, 999999),
(set_fixed_point_multiplier, 1000), # mnozhitel dlya koordinat pozitcij
(assign, ":position", 0),
(try_begin),
(eq, reg1, 0), # reg1 ispolzovan dlya identifikacii sostojyaniya prezentacii
(create_text_overlay, ":unused", "@Vnimanie! Opros!^^Vash polcovodetc zhelaet^^ vuyavit prichinu nedovolnuh nastroenij v svoej armii^^ i v svyzi s etim provodit opros.", tf_center_justify), # overlay number 0
(position_set_x, ":position", 500),
(position_set_y, ":position", 570),
(overlay_set_position, 0, ":position"),
(create_text_box_overlay, ":unused"), # overlay number 1
(position_set_x, ":position", 300),
(position_set_y, ":position", 500),
(overlay_set_position, 1, ":position"),
(overlay_set_text, 1, "@vpishite vashe imya"),
(create_text_overlay, ":unused", "@vasha dolzhnost:"), # overlay number 2
(position_set_y, ":position", 450),
(overlay_set_position, 2, ":position"),
(create_combo_button_overlay, ":unused"), # overlay number 3
(position_set_y, ":position", 400),
(overlay_set_position, 3, ":position"),
(overlay_add_item, 3, "@<dolzhnost>"),
(overlay_add_item, 3, "@soldat"),
(overlay_add_item, 3, "@rutsar"),
(overlay_add_item, 3, "@markitantka"),
(overlay_add_item, 3, "@hodytcij pevun"),
(overlay_add_item, 3, "@drugoe"),
(create_text_overlay, ":unused", "@vash pol:"), # overlay number 4
(position_set_y, ":position", 350),
(overlay_set_position, 4, ":position"),
(create_combo_label_overlay, ":unused"), # overlay number 5
(position_set_y, ":position", 300),
(overlay_set_position, 5, ":position"),
(overlay_add_item, 5, "@<pol>"),
(overlay_add_item, 5, "@muzhskoj"),
(overlay_add_item, 5, "@zhenskij"),
(overlay_add_item, 5, "@bez pola"),
(create_game_button_overlay, ":unused", "@Gotovo"), # overlay number 6
(position_set_x, ":position", 650),
(position_set_y, ":position", 400),
(overlay_set_position, 6, ":position"),
(else_try),
(eq, reg1, -1), # vtoroj ekran
(create_text_overlay, ":unused", "@{reg2?{reg5?Uvazhaemoe:Uvazhaemaya}:Uvazhaemuj} {s1} {s0},^^dovolnu li vu svoim zhalovanien?", tf_center_justify), # overlay number 0
(position_set_x, ":position", 400),
(position_set_y, ":position", 600),
(overlay_set_position, 0, ":position"),
(create_game_button_overlay, ":unused", "@Da"), # overlay number 1
(position_set_x, ":position", 250),
(position_set_y, ":position", 250),
(overlay_set_position, 1, ":position"),
(create_game_button_overlay, ":unused", "@Net"), # overlay number 2
(position_set_x, ":position", 850),
(position_set_y, ":position", 250),
(overlay_set_position, 2, ":position"),
(else_try), # tretij ekran
(create_text_overlay, ":unused", "@Chto vu, mu i ne somnevalis.", tf_center_justify), # overlay number 0
(position_set_x, ":position", 500),
(position_set_y, ":position", 600),
(overlay_set_position, 0, ":position"),
(create_game_button_overlay, ":unused", "@Zavershit"), # overlay number 1
(position_set_y, ":position", 300),
(overlay_set_position, 1, ":position"),
(try_end),
]
),
(ti_on_presentation_event_state_change,
[
(store_trigger_param_1, ":object"),
(store_trigger_param_2, ":value"),
(try_begin),
(eq, reg1, 0), # pervuj ekran
(try_begin),
(eq, ":object", 6),
(try_begin),
(this_or_next|eq, reg3, 0), # pole dolzhnosti ne zapolneno ili ->
(eq, reg4, 0), # -> pole pola ne zapolneno
(dialog_box,"@Snachala zapolnite vse polya."),
(else_try),
(assign, reg1, -1),
(presentation_set_duration, 0), # v kupe so sleduyshim operatorom - perezagruzka prezentatcii
(start_presentation, "prsnt_test_2"),
(try_end),
(else_try),
(eq, ":object", 3),
(try_begin),
(eq, ":value", 1),
(str_store_string, s1, "@soldat"),
(assign, reg3, -1), # pole zapolneno
(else_try),
(eq, ":value", 2),
(str_store_string, s1, "@rutsar"),
(assign, reg3, -1),
(else_try),
(eq, ":value", 3),
(str_store_string, s1, "@markitantka"),
(assign, reg3, -1),
(else_try),
(eq, ":value", 4),
(str_store_string, s1, "@hodytcij pevun"),
(assign, reg3, -1),
(else_try),
(eq, ":value", 5),
(str_store_string, s1, "@drugoe"),
(assign, reg3, -1),
(else_try),
(assign, reg3, 0), # pole ne zapolneno
(try_end),
(else_try),
(eq, ":object", 5),
(try_begin),
(neq, ":value", 0),
(val_sub, ":value", 1),
(assign, reg2, ":value"),
(val_sub, ":value", 1),
(assign, reg5, ":value"),
(assign, reg4, -1),
(else_try),
(assign, reg4, 0),
(try_end),
(try_end),
(else_try),
(eq, reg1, -1), # vtoroj ekran
(eq, ":object", 1),
(assign, reg1, -2),
(presentation_set_duration, 0),
(start_presentation, "prsnt_test_2"),
(else_try), # tretij ekran
(eq, ":object", 1),
(assign, reg1, 0), # obnulyaem registru po zaversheniu, chtobu potom ne udivlyatsy otkuda v nih takoe soderzhimoe
(assign, reg2, 0),
(assign, reg3, 0),
(assign, reg4, 0),
(assign, reg5, 0),
(str_clear, s1),
(presentation_set_duration, 0),
(try_end),
]
),
(ti_on_presentation_mouse_enter_leave,
[
(store_trigger_param_1, ":object"),
(store_trigger_param_2, ":value"),
(eq, reg1, -1),
(set_fixed_point_multiplier, 1000),
(eq, ":object", 2),
(eq, ":value", 0),
(assign, ":position", 0),
(assign, ":x", 0),
(assign, ":y", 0),
(overlay_get_position, ":position", 2),
(position_get_x, ":x", ":position"),
(position_get_y, ":y", ":position"),
(store_random_in_range, ":gear", 0, 2),
(try_begin),
(eq, ":gear", 0),
(ge, ":x", 100),
(val_sub, ":x", 50),
(store_random_in_range, ":x", 50, ":x"),
(else_try),
(le, ":x", 900),
(val_add, ":x", 50),
(store_random_in_range, ":x", ":x", 950),
(else_try),
(val_sub, ":x", 50),
(store_random_in_range, ":x", 50, ":x"),
(try_end),
(store_random_in_range, ":gear", 0, 2),
(try_begin),
(eq, ":gear", 0),
(ge, ":y", 100),
(val_sub, ":y", 50),
(store_random_in_range, ":y", 50, ":y"),
(else_try),
(le, ":y", 600),
(val_add, ":y", 50),
(store_random_in_range, ":y", ":y", 650),
(else_try),
(val_sub, ":y", 50),
(store_random_in_range, ":y", 50, ":y"),
(try_end),
(position_set_x, ":position", ":x"),
(position_set_y, ":position", ":y"),
(overlay_animate_to_position, 2, 50, ":position"),
]
),
]
),
("color_test", 0, mesh_load_window,
[
(ti_on_presentation_load,
[
(presentation_set_duration, 999999),
(set_fixed_point_multiplier, 100),
# store color code string
(try_begin),
(lt, reg1, 10),
(str_store_string, s2, "@{reg1}"),
(else_try),
(try_begin),
(eq, reg1, 10),
(str_store_string, s2, "@A"),
(else_try),
(eq, reg1, 11),
(str_store_string, s2, "@B"),
(else_try),
(eq, reg1, 12),
(str_store_string, s2, "@C"),
(else_try),
(eq, reg1, 13),
(str_store_string, s2, "@D"),
(else_try),
(eq, reg1, 14),
(str_store_string, s2, "@E"),
(else_try),
# (eq, reg1, 15),
(str_store_string, s2, "@F"),
(try_end),
(try_end),
(try_begin),
(lt, reg2, 10),
(str_store_string, s1, "@{s2}{reg2}"),
(else_try),
(try_begin),
(eq, reg2, 10),
(str_store_string, s1, "@{s2}A"),
(else_try),
(eq, reg2, 11),
(str_store_string, s1, "@{s2}B"),
(else_try),
(eq, reg2, 12),
(str_store_string, s1, "@{s2}C"),
(else_try),
(eq, reg2, 13),
(str_store_string, s1, "@{s2}D"),
(else_try),
(eq, reg2, 14),
(str_store_string, s1, "@{s2}E"),
(else_try),
# (eq, reg2, 15),
(str_store_string, s1, "@{s2}F"),
(try_end),
(try_end),
(try_begin),
(lt, reg3, 10),
(str_store_string, s3, "@{reg3}"),
(else_try),
(try_begin),
(eq, reg3, 10),
(str_store_string, s3, "@A"),
(else_try),
(eq, reg3, 11),
(str_store_string, s3, "@B"),
(else_try),
(eq, reg3, 12),
(str_store_string, s3, "@C"),
(else_try),
(eq, reg3, 13),
(str_store_string, s3, "@D"),
(else_try),
(eq, reg3, 14),
(str_store_string, s3, "@E"),
(else_try),
# (eq, reg3, 15),
(str_store_string, s3, "@F"),
(try_end),
(try_end),
(try_begin),
(lt, reg4, 10),
(str_store_string, s2, "@{s3}{reg4}"),
(else_try),
(try_begin),
(eq, reg4, 10),
(str_store_string, s2, "@{s3}A"),
(else_try),
(eq, reg4, 11),
(str_store_string, s2, "@{s3}B"),
(else_try),
(eq, reg4, 12),
(str_store_string, s2, "@{s3}C"),
(else_try),
(eq, reg4, 13),
(str_store_string, s2, "@{s3}D"),
(else_try),
(eq, reg4, 14),
(str_store_string, s2, "@{s3}E"),
(else_try),
# (eq, reg4, 15),
(str_store_string, s2, "@{s3}F"),
(try_end),
(try_end),
(try_begin),
(lt, reg5, 10),
(str_store_string, s4, "@{reg5}"),
(else_try),
(try_begin),
(eq, reg5, 10),
(str_store_string, s4, "@A"),
(else_try),
(eq, reg5, 11),
(str_store_string, s4, "@B"),
(else_try),
(eq, reg5, 12),
(str_store_string, s4, "@C"),
(else_try),
(eq, reg5, 13),
(str_store_string, s4, "@D"),
(else_try),
(eq, reg5, 14),
(str_store_string, s4, "@E"),
(else_try),
# (eq, reg5, 15),
(str_store_string, s4, "@F"),
(try_end),
(try_end),
(try_begin),
(lt, reg6, 10),
(str_store_string, s3, "@{s4}{reg6}"),
(else_try),
(try_begin),
(eq, reg6, 10),
(str_store_string, s3, "@{s4}A"),
(else_try),
(eq, reg6, 11),
(str_store_string, s3, "@{s4}B"),
(else_try),
(eq, reg6, 12),
(str_store_string, s3, "@{s4}C"),
(else_try),
(eq, reg6, 13),
(str_store_string, s3, "@{s4}D"),
(else_try),
(eq, reg6, 14),
(str_store_string, s3, "@{s4}E"),
(else_try),
# (eq, reg6, 15),
(str_store_string, s3, "@{s4}F"),
(try_end),
(try_end),
# calculate color code
(assign, reg7, reg6),
(assign, ":overlay", reg5),
(val_lshift, ":overlay", 4),
(val_add, reg7, ":overlay"),
(assign, ":overlay", reg4),
(val_lshift, ":overlay", 8),
(val_add, reg7, ":overlay"),
(assign, ":overlay", reg3),
(val_lshift, ":overlay", 12),
(val_add, reg7, ":overlay"),
(assign, ":overlay", reg2),
(val_lshift, ":overlay", 16),
(val_add, reg7, ":overlay"),
(assign, ":overlay", reg1),
(val_lshift, ":overlay", 20),
(val_add, reg7, ":overlay"),
# print color code
(assign, ":size", 0),
(assign, ":position", 0),
(position_set_x, pos1, 800),
(position_set_y, pos1, 800),
(create_text_overlay, ":unused", "@{s1}", tf_center_justify|tf_vertical_align_center),
(overlay_set_size, 0, pos1),
(position_set_x, ":position", 20),
(position_set_y, ":position", 40),
(overlay_set_position, 0, ":position"),
(overlay_set_color, 0, reg7),
(create_text_overlay, ":unused", "@{s2}", tf_center_justify|tf_vertical_align_center),
(overlay_set_size, 1, pos1),
(position_set_x, ":position", 50),
(overlay_set_position, 1, ":position"),
(overlay_set_color, 1, reg7),
(create_text_overlay, ":unused", "@{s3}", tf_center_justify|tf_vertical_align_center),
(overlay_set_size, 2, pos1),
(position_set_x, ":position", 80),
(overlay_set_position, 2, ":position"),
(overlay_set_color, 2, reg7),
# buttons
(assign, ":size", -5),
(position_set_y, ":position", 60),
(try_for_range, ":overlay", 3, 9),
(val_add, ":size", 15),
(position_set_x, ":position", ":size"),
(create_game_button_overlay, ":unused", "@add"),
(overlay_set_position, ":overlay", ":position"),
(this_or_next|eq, ":overlay", 4),
(eq, ":overlay", 6),
(val_add, ":size", 5),
(try_end),
(assign, ":size", -5),
(position_set_y, ":position", 20),
(try_for_range, ":overlay", 9, 15),
(val_add, ":size", 15),
(position_set_x, ":position", ":size"),
(create_game_button_overlay, ":unused", "@sub"),
(overlay_set_position, ":overlay", ":position"),
(this_or_next|eq, ":overlay", 10),
(eq, ":overlay", 12),
(val_add, ":size", 5),
(try_end),
(create_game_button_overlay, ":unused", "@exit"),
(position_set_y, ":position", 10),
(position_set_x, ":position", 70),
(overlay_set_position, 15, ":position"),
]
),
(ti_on_presentation_mouse_press,
[
(store_trigger_param_1, ":object"),
# find out color code change
(try_begin),
(eq, ":object", 3),
(val_add, reg1, 1),
(val_min, reg1, 15),
(else_try),
(eq, ":object", 4),
(val_add, reg2, 1),
(val_min, reg2, 15),
(else_try),
(eq, ":object", 5),
(val_add, reg3, 1),
(val_min, reg3, 15),
(else_try),
(eq, ":object", 6),
(val_add, reg4, 1),
(val_min, reg4, 15),
(else_try),
(eq, ":object", 7),
(val_add, reg5, 1),
(val_min, reg5, 15),
(else_try),
(eq, ":object", 8),
(val_add, reg6, 1),
(val_min, reg6, 15),
(else_try),
(eq, ":object", 9),
(val_sub, reg1, 1),
(val_max, reg1, 0),
(else_try),
(eq, ":object", 10),
(val_sub, reg2, 1),
(val_max, reg2, 0),
(else_try),
(eq, ":object", 11),
(val_sub, reg3, 1),
(val_max, reg3, 0),
(else_try),
(eq, ":object", 12),
(val_sub, reg4, 1),
(val_max, reg4, 0),
(else_try),
(eq, ":object", 13),
(val_sub, reg5, 1),
(val_max, reg5, 0),
(else_try),
(eq, ":object", 14),
(val_sub, reg6, 1),
(val_max, reg6, 0),
(try_end),
(try_begin),
(eq, ":object", 15),
(presentation_set_duration, 0),
(else_try),
(presentation_set_duration, 0),
(start_presentation, "prsnt_color_test"),
(try_end),
]
),
]
),