# script_setup_random_scene
# Input: arg1 = center_no, arg2 = mission_template_no
# Output: none
("setup_random_scene",
[
(party_get_current_terrain, ":terrain_type", "p_main_party"),
(assign, ":scene_to_use", "scn_random_scene"),
(try_begin),
(eq, ":terrain_type", rt_steppe),
(store_random_in_range, "$rand2", 0, 7),
(try_begin),
(eq,"$rand2",0),
(assign, ":scene_to_use", "scn_random_scene_steppe1"),
(else_try),
(eq,"$rand2",1),
(assign, ":scene_to_use", "scn_random_scene_steppe1"),
(else_try),
(eq,"$rand2",2),
(assign, ":scene_to_use", "scn_random_scene_steppe2"),
(else_try),
(eq,"$rand2",3),
(assign, ":scene_to_use", "scn_random_scene_steppe3"),
(else_try),
(eq,"$rand2",4),
(assign, ":scene_to_use", "scn_random_scene_steppe4"),
(else_try),
(eq,"$rand2",5),
(assign, ":scene_to_use", "scn_random_scene_steppe5"),
(else_try),
(eq,"$rand2",6),
(assign, ":scene_to_use", "scn_random_scene_steppe6"),
(try_end),
(else_try),
(eq, ":terrain_type", rt_plain),
(store_random_in_range, "$rand2", 0, 14),
(try_begin),
(eq,"$rand2",0),
(assign, ":scene_to_use", "scn_random_scene_plain1"),
(else_try),
(eq,"$rand2",1),
(assign, ":scene_to_use", "scn_random_scene_plain1"),
(else_try),
(eq,"$rand2",2),
(assign, ":scene_to_use", "scn_random_scene_plain2"),
(else_try),
(eq,"$rand2",3),
(assign, ":scene_to_use", "scn_random_scene_plain3"),
(else_try),
(eq,"$rand2",4),
(assign, ":scene_to_use", "scn_random_scene_plain4"),
(else_try),
(eq,"$rand2",5),
(assign, ":scene_to_use", "scn_random_scene_plain5"),
(else_try),
(eq,"$rand2",6),
(assign, ":scene_to_use", "scn_random_scene_plain6"),
(else_try),
(eq,"$rand2",7),
(assign, ":scene_to_use", "scn_random_scene_plain7"),
(else_try),
(eq,"$rand2",
,
(assign, ":scene_to_use", "scn_random_scene_plain8"),
(else_try),
(eq,"$rand2",9),
(assign, ":scene_to_use", "scn_random_scene_plain9"),
(else_try),
(eq,"$rand2",10),
(assign, ":scene_to_use", "scn_random_scene_plain10"),
(else_try),
(eq,"$rand2",11),
(assign, ":scene_to_use", "scn_random_scene_plain11"),
(else_try),
(eq,"$rand2",12),
(assign, ":scene_to_use", "scn_random_scene_plain12"),
(else_try),
(eq,"$rand2",13),
(assign, ":scene_to_use", "scn_random_scene_plain13"),
(try_end),
(else_try),
(eq, ":terrain_type", rt_snow),
(store_random_in_range, "$rand2", 0, 7),
(try_begin),
(eq,"$rand2",0),
(assign, ":scene_to_use", "scn_random_scene_snow1"),
(else_try),
(eq,"$rand2",1),
(assign, ":scene_to_use", "scn_random_scene_snow1"),
(else_try),
(eq,"$rand2",2),
(assign, ":scene_to_use", "scn_random_scene_snow2"),
(else_try),
(eq,"$rand2",3),
(assign, ":scene_to_use", "scn_random_scene_snow3"),
(else_try),
(eq,"$rand2",4),
(assign, ":scene_to_use", "scn_random_scene_snow4"),
(else_try),
(eq,"$rand2",5),
(assign, ":scene_to_use", "scn_random_scene_snow5"),
(else_try),
(eq,"$rand2",6),
(assign, ":scene_to_use", "scn_random_scene_snow6"),
(try_end),
(else_try),
(eq, ":terrain_type", rt_steppe_forest),
(store_random_in_range, "$rand2", 0, 8 ),
(try_begin),
(eq,"$rand2",0),
(assign, ":scene_to_use", "scn_random_scene_steppe_forest1"),
(else_try),
(eq,"$rand2",1),
(assign, ":scene_to_use", "scn_random_scene_steppe_forest1"),
(else_try),
(eq,"$rand2",2),
(assign, ":scene_to_use", "scn_random_scene_steppe_forest2"),
(else_try),
(eq,"$rand2",3),
(assign, ":scene_to_use", "scn_random_scene_steppe_forest3"),
(else_try),
(eq,"$rand2",4),
(assign, ":scene_to_use", "scn_random_scene_steppe_forest4"),
(else_try),
(eq,"$rand2",5),
(assign, ":scene_to_use", "scn_random_scene_steppe_forest5"),
(else_try),
(eq,"$rand2",6),
(assign, ":scene_to_use", "scn_random_scene_steppe_forest6"),
(else_try),
(eq,"$rand2",7),
(assign, ":scene_to_use", "scn_random_scene_steppe_forest7"),
(try_end),
(else_try),
(eq, ":terrain_type", rt_forest),
(store_random_in_range, "$rand2", 0, 7),
(try_begin),
(eq,"$rand2",0),
(assign, ":scene_to_use", "scn_random_scene_plain_forest1"),
(else_try),
(eq,"$rand2",1),
(assign, ":scene_to_use", "scn_random_scene_plain_forest1"),
(else_try),
(eq,"$rand2",2),
(assign, ":scene_to_use", "scn_random_scene_plain_forest2"),
(else_try),
(eq,"$rand2",3),
(assign, ":scene_to_use", "scn_random_scene_plain_forest3"),
(else_try),
(eq,"$rand2",4),
(assign, ":scene_to_use", "scn_random_scene_plain_forest4"),
(else_try),
(eq,"$rand2",5),
(assign, ":scene_to_use", "scn_random_scene_plain_forest5"),
(else_try),
(eq,"$rand2",6),
(assign, ":scene_to_use", "scn_random_scene_plain_forest6"),
(try_end),
(else_try),
(eq, ":terrain_type", rt_snow_forest),
(store_random_in_range, "$rand2", 0, 7),
(try_begin),
(eq,"$rand2",0),
(assign, ":scene_to_use", "scn_random_scene_snow_forest1"),
(else_try),
(eq,"$rand2",1),
(assign, ":scene_to_use", "scn_random_scene_snow_forest1"),
(else_try),
(eq,"$rand2",2),
(assign, ":scene_to_use", "scn_random_scene_snow_forest2"),
(else_try),
(eq,"$rand2",3),
(assign, ":scene_to_use", "scn_random_scene_snow_forest3"),
(else_try),
(eq,"$rand2",4),
(assign, ":scene_to_use", "scn_random_scene_snow_forest4"),
(else_try),
(eq,"$rand2",5),
(assign, ":scene_to_use", "scn_random_scene_snow_forest5"),
(else_try),
(eq,"$rand2",6),
(assign, ":scene_to_use", "scn_random_scene_snow_forest6"),
(try_end),
(else_try),
(eq, ":terrain_type", rt_water),
(store_random_in_range, "$rand2", 0, 6),
(try_begin),
(eq,"$rand2",0),
(assign, ":scene_to_use", "scn_water1"),
(else_try),
(eq,"$rand2",1),
(assign, ":scene_to_use", "scn_water2"),
(else_try),
(eq,"$rand2",2),
(assign, ":scene_to_use", "scn_water3"),
(else_try),
(eq,"$rand2",3),
(assign, ":scene_to_use", "scn_water4"),
(else_try),
(eq,"$rand2",4),
(assign, ":scene_to_use", "scn_water5"),
(else_try),
(eq,"$rand2",5),
(assign, ":scene_to_use", "scn_water6"),
(try_end),
(else_try),
(eq, ":terrain_type", rt_bridge),
(store_random_in_range, "$rand2", 0, 6),
(try_begin),
(eq,"$rand2",0),
(assign, ":scene_to_use", "scn_random_scene_plain1"),
(else_try),
(eq,"$rand2",1),
(assign, ":scene_to_use", "scn_random_scene_plain2"),
(else_try),
(eq,"$rand2",2),
(assign, ":scene_to_use", "scn_random_scene_plain3"),
(else_try),
(eq,"$rand2",3),
(assign, ":scene_to_use", "scn_random_scene_plain4"),
(else_try),
(eq,"$rand2",4),
(assign, ":scene_to_use", "scn_random_scene_plain5"),
(else_try),
(eq,"$rand2",5),
(assign, ":scene_to_use", "scn_random_scene_plain6"),
(try_end),
(else_try),
(eq, ":terrain_type", rt_desert_forest),
(assign, ":scene_to_use", "scn_random_scene_plain1"),
(else_try),
(eq, ":terrain_type", rt_desert),
(assign, ":scene_to_use", "scn_random_scene_plain1"),
(else_try),
(try_end),
(jump_to_scene,":scene_to_use"),
]),