OSP Code QoL Game menus for editing scenes, testing troops out (and taking screenshots)

[bryce777]

Lets you talk to a party member to fight any troop or edit any scene.

Free to anyone who wants it.

  [anyone|plyr,"wilderness_talk_main", [], "I want to set and edit the fight scene.", "test_scene",[(assign, "$scene_to_test", first_be_scene),(assign, "$test_scene_offset", first_be_scene),(call_script, "script_setup_test_scene_convo"),]],

  [anyone,"test_scene", [], "Ok. Choose the scene you want to edit.", "test_scene2",[]],

  [anyone|plyr,"test_scene2", [], "{s10}", "do_test_scene",[(assign, "$scene_to_test", "$test_scene_type1"),]],
  [anyone|plyr,"test_scene2", [(lt, "$test_scene_type2", last_be_scene),], "{s11}", "do_test_scene",[(assign, "$scene_to_test", "$test_scene_type2"),]],
  [anyone|plyr,"test_scene2", [(lt, "$test_scene_type3", last_be_scene),], "{s12}", "do_test_scene",[(assign, "$scene_to_test", "$test_scene_type3"),]],
  [anyone|plyr,"test_scene2", [(lt, "$test_scene_type4", last_be_scene),], "{s13}", "do_test_scene",[(assign, "$scene_to_test", "$test_scene_type4"),]],
  [anyone|plyr,"test_scene2", [(lt, "$test_scene_end", last_be_scene),], "(more)", "test_scene",[(val_add, "$test_scene_offset", 4),(call_script, "script_setup_test_scene_convo"),]],

  [anyone,"do_test_scene", [], "The scene has been set for testing fights. Go ahead and edit the scene if you want.", "close_window",[(call_script, "script_scene_test"),]],

  [anyone|plyr,"wilderness_talk_main", [], "Let's set up a test fight.", "test_fight",[(assign, "$test_troop_to_fight", 0),(assign, "$test_troop_to_fight2", 0),(assign, "$test_troop_to_fight3", 0),(assign, "$test_fight_troop_offset", first_be_troop),(call_script, "script_setup_test_fight_convo"),]],

  [anyone,"test_fight", [], "Ok. You can choose up to three types of troops to fight. Select (done) when you have selected all the troops you want to. What sort of troops do you want to fight?", "test_fight2",[]],

  [anyone|plyr,"test_fight2", [], "Some {s10}", "test_fight_selection2a",[(assign, "$test_troop_to_fight", "$test_fight_troop_type1"),(assign, "$test_fight_troop_offset", first_be_troop),]],
  [anyone|plyr,"test_fight2", [(lt, "$test_fight_troop_type2", last_be_troop),], "Some {s11}", "test_fight_selection2a",[(assign, "$test_troop_to_fight", "$test_fight_troop_type2"),(assign, "$test_fight_troop_offset", first_be_troop),]],
  [anyone|plyr,"test_fight2", [(lt, "$test_fight_troop_type3", last_be_troop),], "Some {s12}", "test_fight_selection2a",[(assign, "$test_troop_to_fight", "$test_fight_troop_type3"),(assign, "$test_fight_troop_offset", first_be_troop),]],
  [anyone|plyr,"test_fight2", [(lt, "$test_fight_troop_type4", last_be_troop),], "Some {s13}", "test_fight_selection2a",[(assign, "$test_troop_to_fight", "$test_fight_troop_type4"),(assign, "$test_fight_troop_offset", first_be_troop),]],
  [anyone|plyr,"test_fight2", [(lt, "$test_fight_troop_end", last_be_troop),], "(more)", "test_fight",[(val_add, "$test_fight_troop_offset", 4),(call_script, "script_setup_test_fight_convo"),]],

  [anyone,"test_fight_selection2a", [], "Now pick the second type to fight.", "test_fight_selection2",[(assign, "$test_fight_troop_offset", first_be_troop),(call_script, "script_setup_test_fight_convo"),]],
  [anyone,"test_fight_selection2b", [], "Now pick the second type to fight.", "test_fight_selection2",[]],

  [anyone|plyr,"test_fight_selection2", [], "(done)", "do_test_fight",[]],

  [anyone|plyr,"test_fight_selection2", [], "Some {s10}", "test_fight_selection3a",[(assign, "$test_troop_to_fight2", "$test_fight_troop_type1"),(assign, "$test_fight_troop_offset", first_be_troop),]],
  [anyone|plyr,"test_fight_selection2", [(lt, "$test_fight_troop_type2", last_be_troop),], "Some {s11}", "test_fight_selection3a",[(assign, "$test_troop_to_fight2", "$test_fight_troop_type2"),(assign, "$test_fight_troop_offset", first_be_troop),]],
  [anyone|plyr,"test_fight_selection2", [(lt, "$test_fight_troop_type3", last_be_troop),], "Some {s12}", "test_fight_selection3a",[(assign, "$test_troop_to_fight2", "$test_fight_troop_type3"),(assign, "$test_fight_troop_offset", first_be_troop),]],
  [anyone|plyr,"test_fight_selection2", [(lt, "$test_fight_troop_type4", last_be_troop),], "Some {s13}", "test_fight_selection3a",[(assign, "$test_troop_to_fight2", "$test_fight_troop_type4"),(assign, "$test_fight_troop_offset", first_be_troop),]],
  [anyone|plyr,"test_fight_selection2", [(lt, "$test_fight_troop_end", last_be_troop),], "(more)", "test_fight_selection2b",[(val_add, "$test_fight_troop_offset", 4),(call_script, "script_setup_test_fight_convo"),]],

  [anyone,"test_fight_selection3a", [], "Now pick the third type to fight.", "test_fight_selection3",[(assign, "$test_fight_troop_offset", first_be_troop),(call_script, "script_setup_test_fight_convo"),]],

  [anyone,"test_fight_selection3b", [], "Now pick the third type to fight.", "test_fight_selection3",[]],

  [anyone|plyr,"test_fight_selection3", [], "(done)", "do_test_fight",[]],

  [anyone|plyr,"test_fight_selection3", [], "Some {s10}", "do_test_fight",[(assign, "$test_troop_to_fight3", "$test_fight_troop_type1"),]],
  [anyone|plyr,"test_fight_selection3", [(lt, "$test_fight_troop_type2", last_be_troop),], "Some {s11}", "do_test_fight",[(assign, "$test_troop_to_fight3", "$test_fight_troop_type2"),]],
  [anyone|plyr,"test_fight_selection3", [(lt, "$test_fight_troop_type3", last_be_troop),], "Some {s12}", "do_test_fight",[(assign, "$test_troop_to_fight3", "$test_fight_troop_type3"),]],
  [anyone|plyr,"test_fight_selection3", [(lt, "$test_fight_troop_type4", last_be_troop),], "Some {s13}", "do_test_fight",[(assign, "$test_troop_to_fight3", "$test_fight_troop_type4"),]],
  [anyone|plyr,"test_fight_selection3", [(lt, "$test_fight_troop_end", last_be_troop),], "(more)", "test_fight_selection3b",[(val_add, "$test_fight_troop_offset", 4),(call_script, "script_setup_test_fight_convo"),]],

  [anyone,"do_test_fight", [], "Time to fight!", "close_window",[(call_script, "script_fight_test"),]],

#Executes the fight test.
#
#
#
#
#
("fight_test",[

(call_script, "script_clear_party_group", "p_test_fight"),

#"$test_troop_to_fight"

(party_add_members,"p_test_fight","$test_troop_to_fight",12),

(try_begin),
     (gt, "$test_troop_to_fight2", 0),
     (party_add_members,"p_test_fight","$test_troop_to_fight2",12),
(try_end),

(try_begin),
     (gt, "$test_troop_to_fight3", 0),
     (party_add_members,"p_test_fight","$test_troop_to_fight3",12),
(try_end),

(set_show_messages,0),
(start_encounter, "p_test_fight"),
]),

#Sets up the test fight conversation options.
#
#
#
#
#
("setup_test_fight_convo",[
(assign, ":troop", "$test_fight_troop_offset"),
(assign, "$test_fight_troop_type1", ":troop"),
(str_store_troop_name_plural,10,":troop"),

(val_add, ":troop", 1),
(assign, "$test_fight_troop_type2", ":troop"),
(str_store_troop_name_plural,11,":troop"),

(val_add, ":troop", 1),
(assign, "$test_fight_troop_type3", ":troop"),
(str_store_troop_name_plural,12,":troop"),

(val_add, ":troop", 1),
(assign, "$test_fight_troop_type4", ":troop"),
(str_store_troop_name_plural,13,":troop"),

(val_add, ":troop", 1),
(assign, "$test_fight_troop_end", ":troop"),
]),

#Executes the scene test.
#
#
#
#
#
("scene_test",[
(call_script, "script_clear_party_group", "p_test_scene"),
#"$test_troop_to_scene"
(party_add_members,"p_test_scene","trp_scavenger",12),
(set_show_messages,0),
(start_encounter, "p_test_scene"),
]),

#Sets up the test scene conversation options.
#
#
#
#
#
("setup_test_scene_convo",[
(assign, ":scene", "$test_scene_offset"),
(assign, "$test_scene_type1", ":scene"),
(scene_get_slot,reg(9),":scene",slot_scene_name),
(str_store_string, 10, reg(9)),
(assign, reg(21), ":scene"),

(val_add, ":scene", 1),
(assign, "$test_scene_type2", ":scene"),
(scene_get_slot,reg(9),":scene",slot_scene_name),
(str_store_string, 11, reg(9)),
(assign, reg(22), ":scene"),

(val_add, ":scene", 1),
(assign, "$test_scene_type3", ":scene"),
(scene_get_slot,reg(9),":scene",slot_scene_name),
(str_store_string, 12, reg(9)),
(assign, reg(23), ":scene"),

(val_add, ":scene", 1),
(assign, "$test_scene_type4", ":scene"),
(scene_get_slot,reg(9),":scene",slot_scene_name),
(str_store_string, 13, reg(9)),
(assign, reg(24), ":scene"),

(val_add, ":scene", 1),
(assign, "$test_scene_end", ":scene"),
]),

#Initializes the slot_scene_name for each scene.
#
#
#
#
#
("initialize_scene_names",[
(try_for_range, ":scene", first_be_scene, last_be_scene),
     (assign, reg(9), ":scene"),
     (val_sub, reg(9), first_be_scene),
     (val_mod, reg(9), 4),

     (try_begin),
          (eq, reg(9), 0),
          (scene_set_slot,":scene",slot_scene_name,'_Scene {reg21}_'),
     (else_try),
          (eq, reg(9), 1),
          (scene_set_slot,":scene",slot_scene_name,'_Scene {reg22}_'),
     (else_try),
          (eq, reg(9), 2),
          (scene_set_slot,":scene",slot_scene_name,'_Scene {reg23}_'),
     (else_try),
          (scene_set_slot,":scene",slot_scene_name,'_Scene {reg24}_'),
     (try_end),
(try_end),

(scene_set_slot, "scn_test_battle_scene", slot_scene_name, '_Fight Test_'),
(scene_set_slot, "scn_conversation_scene", slot_scene_name, '_Conversation Scene_'),
(scene_set_slot, "scn_start_town_center", slot_scene_name, '_Dirt Town Center_'),
(scene_set_slot, "scn_malpais_town_center", slot_scene_name, '_Malpais Town Center_'),
(scene_set_slot, "scn_el_dorado_town_center", slot_scene_name, '_El Dorado Town Center_'),
(scene_set_slot, "scn_ammo_town_town_center", slot_scene_name, '_Ammo Town Town Center_'),
(scene_set_slot, "scn_jericho_town_center", slot_scene_name, '_Jericho Town Center_'),
(scene_set_slot, "scn_jericho_stores", slot_scene_name, '_Jericho Stores_'),
(scene_set_slot, "scn_jericho_old_city", slot_scene_name, '_Jericho Old City_'),
(scene_set_slot, "scn_ranke_town_center", slot_scene_name, '_Ranke Town Center_'),
(scene_set_slot, "scn_consuelo_town_center", slot_scene_name, '_Consuelo Town Center_'),
(scene_set_slot, "scn_moonpie_encounter", slot_scene_name, '_Moonpie Encounter_'),
(scene_set_slot, "scn_ranke_ambush", slot_scene_name, '_Ranke Ambush_'),
(scene_set_slot, "scn_ranke_ambush2", slot_scene_name, '_Ranke Ambush 2_'),
(scene_set_slot, "scn_blind_rizzo_encounter", slot_scene_name, '_Rizzo Encounter_'),
(scene_set_slot, "scn_deathmask_camp", slot_scene_name, '_Deathmask Camp_'),
(scene_set_slot, "scn_carnivale", slot_scene_name, '_Carnivale_'),
(scene_set_slot, "scn_malpais_first_encounter", slot_scene_name, '_Malpais First Encounter_'),
(scene_set_slot, "scn_hell", slot_scene_name, '_Hell_'),
(scene_set_slot, "scn_poison_brothers_encounter", slot_scene_name, '_Poison Brothers' shack_'),
]),