Python script/scheme/source exchange

[Yoshiboy]

This topic is for posting any python code that you wish to share with other modders. Code posted will be added to this first post for others to use.

Mod Sources

(please note that some mod sources may be out of date)

Recruit from your prisoners

Dead Of Dunharrow

Craftmod

Pirates!

Maw's murder mod

Fantasy Mod

The Island

Dionsia

Darkmod

Knights and Merchants

Guardians Mod

H&B 808c

If your source is not here (i've missed it or something) and you would like me to add it just PM me or post in this thread.

Other Pyton Scripts

By Popular request: The Calendar script!
This was written for .711, but the format hasn't changed any, so it should be .730/.731 friendly

The solar year version:

Code: [Select]

(0.0, 0, ti_once, [], [(assign,"$day",1), (assign,"$month",7), (assign,"$year",1)]),

(0.0, 24, 0, [(lt, "$day", 31)], [(val_add,"$day",1)]),
(0.0, 0, 0.0, [(eq,"$day",31),(lt,"$month",13)], [(val_add,"$month",1), (assign,"$day",1)]),
(0.0, 0, 0.0, [(eq,"$month",13)], [(val_add,"$year",1), (assign,"$month",1)]),
and the lunar year version:

Code: [Select]

(0.0, 0, ti_once, [], [(assign,"$day",1), (assign,"$month",7), (assign,"$year",1)]),

(0.0, 24, 0, [(lt, "$day", 29)], [(val_add,"$day",1)]),
(0.0, 0, 0.0, [(eq,"$day",29),(lt,"$month",14)], [(val_add,"$month",1), (assign,"$day",1)]),
(0.0, 0, 0.0, [(eq,"$month",14)], [(val_add,"$year",1), (assign,"$month",1)]),
The initial values of $day, $month, and $year can be whatever you want them to be. Enjoy!

EDIT: I also have a script that allows merchant-type characters to sell goods on the open market (so to speak) and not to city merchants, if any one is interested.

Code: [Select]

  [anyone,"prisoner_chat", [], "What? You've already put me in chains, what more do you want to do?", "prisoner_chat_2",[]],
  [anyone|plyr,"prisoner_chat_2", [], "Well, as it happens, you look rather tasty . . . Let's have a bite.", "prisoner_chat_3",[]],
  [anyone|plyr,"prisoner_chat_2", [], "Nothing.", "close_window",[]],
  [anyone,"prisoner_chat_3", [], "No! Nooooooooo!", "prisoner_chat_4",
[
(store_conversation_troop,reg(3)),
(remove_troops_from_prisoners,reg(3),1),
(try_begin),
(store_free_inventory_capacity,reg(4),"trp_player"),
(ge,reg(4),1),
(troop_add_item,"trp_player","itm_dried_meat"),
(end_try),
]],
  [anyone|plyr,"prisoner_chat_4", [], "There. Someone bring me my boning knife!", "close_window",[]],

Because the people in the Suggestions forum kept asking for it. Anyone who wants it, feel free.

Wastefully,
Winter

For conditionally adding Marnid and/or Borcha to a scene depending on if they're in your party:

Code: [Select]

(modify_visitors_at_site,"scn_<your scene here>"),
(reset_visitors),
(try_begin),
(main_party_has_troop,"trp_borcha"),
(set_visitor,<mission template entry number>,"trp_borcha"),
(end_try),
(try_begin),
(main_party_has_troop,"trp_marnid"),
(set_visitor,<different mission template entry number>,"trp_marnid"),
(end_try),

Electrically,
Winter

Python to make missions end when you reach a certain point on the map, regardless of whatever else is going on.  This is basically just the code already in Vanilla in the mission template for the "sneak into town" mission, it's just commented out (because it doesn't work, although that's probably not the reason it wasn't included.)

In mission_templates change this:

Code: [Select]

     
(0.1, 0, 0, [],
       [
#           (neg|main_hero_fallen),
#           (get_player_agent_no, reg(1)),
#           (agent_get_position, 1, reg(1)),
#           (entry_point_get_position,2,31),
#           (get_distance_between_positions, reg(10), 1, 2),
#           (lt, reg(10), 500), #Our distance to exit is less than 4m.
#           (jump_to_menu,"mnu_sneak_into_town_caught_ran_away"),
#           (finish_mission,1),
        ]),
    ],

To this:

Code: [Select]


#Set "$test_thirty_midgets" to something other than one prior to here;
#(ti_before_mission_start, 0, 0, [], [(assign,"$test_thirty_midgets",0)]),
#works well.

    (0.1, 0, 0, [(neg|main_hero_fallen),(neq,"$test_thirty_midgets",1)],
       [
           #A Shameless Copy From Above
           (get_player_agent_no, reg(1)),
           (agent_get_position, 1, reg(1)),
           (entry_point_get_position,2,31),
           (get_distance_between_positions, reg(10), 1, 2),
           (lt, reg(10), 500), #Our distance to exit is less than 4m.
           (jump_to_menu,"mnu_frogs_taste_like_chicken"),
           (assign,"$test_thirty_midgets",1),
           (finish_mission,1),
        ]),
    ],


Basically, this just ends the mission if the player ever gets to within 4m of entry point number thirty-one, and initiates the indicated menu.  Not exactly original, as it's mostly just a shameless copy from native, but oh well.

I have edited this post in response to jamoecw's post below. Just like jamoecw states, the formula in http://forums.taleworlds.net/index.php/topic,8652.msg336742.html#msg336742 assumes the battlefield is square. This was intended as a feature since all of the battlefields in native I'm aware of are square, and the resulting formulas are a bit more elegant. Unfortunately the module system doesn't have an operator to calculate the square root so this "simplification" actually makes things more complicated... What I overlooked is that the first part of my simplified formula can also be used to calculate the x coordinate if a third entry point is used, and as a bonus the shape of the battle field does not matter.

Below is the updated the script like jamoecw suggested:

In order for this to work you need to place new entry points on the battlefield. This usually means modifying random_scene, used for all non-arena/trainer/seige battles in native that I am aware of. Simply place the three new entry points (numbered 20, 21 and 22 in my script) in the corners of random_scene in clockwise order from the player starting position (see crappy ASCII figure below).

Code: [Select]

21-------22
|         |
|         |
|  Start  |
|    *    |
20--------+


Code: [Select]

# Calculate the coordinates of $agent on the battle field
("triangulate",
[
  (agent_get_position,43,"$agent"), # P
  (entry_point_get_position,40,20), # A
  (entry_point_get_position,41,21), # B
  (entry_point_get_position,42,22), # C
 
  # Measure size of map
  (get_distance_between_positions,reg(6),40,41),  # A to B
  (get_distance_between_positions,reg(7),41,42),  # B to C
 
  # Measure distance to agent
  (get_distance_between_positions,reg(8),40,43),  # A to P
  (get_distance_between_positions,reg(9),41,43),  # B to P
  (get_distance_between_positions,reg(10),42,43), # C to P
 
  # ab^2
  (assign,reg(1),reg(6)),
  (val_mul,reg(1),reg(1)),
 
  # bc^2
  (assign,reg(2),reg(7)),
  (val_mul,reg(2),reg(2)),
 
  # ap^2
  (assign,reg(3),reg(8)),
  (val_mul,reg(3),reg(3)),
 
  # bp^2
  (assign,reg(4),reg(9)),
  (val_mul,reg(4),reg(4)),
 
  # cp^2
  (assign,reg(5),reg(10)),
  (val_mul,reg(5),reg(5)),
 
  # x = ( bc^2 - cp^2 + bp^2 ) / 2bc
  (assign,"$pos_x",reg(2)),
  (val_sub,"$pos_x",reg(5)),
  (val_add,"$pos_x",reg(4)),
  (val_mul,reg(7),2),
  (val_div,"$pos_x",reg(7)),
 
  # y = ( ab^2 - bp^2 + ap^2 ) / 2ab
  (assign,"$pos_y",reg(1)),
  (val_sub,"$pos_y",reg(4)),
  (val_add,"$pos_y",reg(3)),
  (val_mul,reg(6),2),
  (val_div,"$pos_y",reg(7)),
]),

Using this script it is possible to figure out the rough placement of units on the battlefield. I was hoping this could be used to steer enemy infantry units to the location they are needed the most, decide if they should cluster together or if they should attack at will, but I have not had the time to even begin to think about exactly how this would be done. But I have a feeling that, should this script actually be useful in any way, the community will find it.

Couldn't find it anywhere here, but I assume it's been done before by others. However, I just finished work on a script that lets you give money to heroes in your party, so they have no excuse for not paying you for the stuff you give them. I'm partway through testing, but it should work on both 0.751 and 0.806.

Increments (denars):
5
10
20
50
100
200
500
1000

Worked it out, oddly, by adapting the betting system and combining it with a small portion of Dionisia code. I can't entirely confirm that it works quite yet, but I'll post the code here and any holes you find can be fixed quickly. However, I can't see anything wrong with it - it should work.

Code: [Select]

  [anyone|plyr,"member_talk", [[store_troop_gold,reg(0)],[ge,reg(0),5]],
   "Here, let me give you some money to pay your way.", "member_money",[]],
  [anyone|plyr,"member_money", [[store_troop_gold,reg(0)],[ge,reg(0),5]],
   "[Give five denars]", "member_finish_money",[(troop_add_gold,reg(3),5),(troop_remove_gold,"trp_player",5)]],
  [anyone|plyr,"member_money", [[store_troop_gold,reg(0)],[ge,reg(0),10]],
   "[Give ten denars]", "member_finish_money",[(troop_add_gold,reg(3),10),(troop_remove_gold,"trp_player",10)]],
  [anyone|plyr,"member_money", [[store_troop_gold,reg(0)],[ge,reg(0),20]],
   "[Give twenty denars]", "member_finish_money",[(troop_add_gold,reg(3),20),(troop_remove_gold,"trp_player",20)]],
  [anyone|plyr,"member_money", [[store_troop_gold,reg(0)],[ge,reg(0),50]],
   "[More]", "member_money_more",[]],
  [anyone|plyr,"member_money", [],
   "[Cancel]", "member_money_reconsider",[]],
  [anyone|plyr,"member_money_more", [[store_troop_gold,reg(0)],[ge,reg(0),50]],
   "[Give fifty denars]", "member_finish_money",[(troop_add_gold,reg(3),50),(troop_remove_gold,"trp_player",50)]],
  [anyone|plyr,"member_money_more", [[store_troop_gold,reg(0)],[ge,reg(0),100]],
   "[Give one hundred denars]", "member_finish_money",[(troop_add_gold,reg(3),100),(troop_remove_gold,"trp_player",100)]],
  [anyone|plyr,"member_money_more", [[store_troop_gold,reg(0)],[ge,reg(0),200]],
   "[Give two hundred denars]", "member_finish_money",[(troop_add_gold,reg(3),200),(troop_remove_gold,"trp_player",200)]],
  [anyone|plyr,"member_money", [[store_troop_gold,reg(0)],[ge,reg(0),500]],
   "[More]", "member_money_more_more",[]],
  [anyone|plyr,"member_money_more", [],
   "[Less]", "member_money",[]],
  [anyone|plyr,"member_money_more_more", [[store_troop_gold,reg(0)],[ge,reg(0),500]],
   "[Give five hundred denars]", "member_finish_money",[(troop_add_gold,reg(3),500),(troop_remove_gold,"trp_player",500)]],
  [anyone|plyr,"member_money_more_more", [[store_troop_gold,reg(0)],[ge,reg(0),1000]],
   "[Give one thousand denars]", "member_finish_money",[(troop_add_gold,reg(3),1000),(troop_remove_gold,"trp_player",1000)]],
  [anyone|plyr,"member_money_more_more", [],
   "[Less]", "member_money_more",[]],
  [anyone|plyr,"member_money_reconsider", [],
   "Actually, I reconsidered.", "member_talk",[]],
  [anyone|plyr,"member_finish_money", [],
   "I'm done for now.", "member_talk",[]],
  [anyone|plyr,"member_finish_money", [[store_troop_gold,reg(0)],[ge,reg(0),5]],
   "[Give more]", "member_money",[]],
Hmm... how about another version where you can take money from them? I might have to do that...


EDIT: Recruiting prisoners

This code I know for a fact works like a beauty. I know it's easy to figure out, but I thought I'd share it to save you the bother of working it out for yourself.

EDIT again: I've improved it again.
This will now work much better. It stores the conversation troop's relation with the player, then generates a number between that number and good relations. The prisoner will join you if that random number is above 0, so the worse their relation with you, the wider the range for the random number, so the less likely it is to be between 0 and 3.

EDIT: It seems to be unstable. Best to leave it until I fix it.

EDIT once more: Wasn't the problem, but fisheye pointed out a slight niggle that I've now fixed. Should now work perfectly. Enjoy.

Code: [Select]

  [anyone|plyr,"prisoner_chat", [[store_conversation_troop,reg(2)],[store_troop_faction,reg(3),reg(2)],[store_relation,reg(4),reg(3),"fac_player_faction"]], "Don't try running away or trying something stupid. I will be watching you.", "prisoner_chat_2",
   [[store_random_in_range,reg(5),reg(4),4]]],
  [anyone,"prisoner_chat_2", [], "No, I swear I won't.", "prisoner_chat_3",[]],
  [anyone|plyr,"prisoner_chat_3", [], "Good. You're not stupid like the rest of these scum.", "prisoner_chat_4",[]],
  [anyone|plyr,"prisoner_chat_4", [], "[End the conversation]", "prisoner_chat_5",[]],
  [anyone|plyr,"prisoner_chat_5", [], "I hope you're looking forward to life as a slave, scum.", "close_window",[]],
  [anyone|plyr,"prisoner_chat_4", [], "[Try to recruit the prisoner]", "prisoner_chat_6",[]],
  [anyone|plyr,"prisoner_chat_6", [], "Listen, scum, you have one last chance to redeem yourself before I sell you to the slave-traders.\
  Drop all your previous allegiances and swear to fight for me and obey my every order to the letter, and you'll be paid, fed and equipped.\
   If you don't....well, let's just say that life as a slave will be seemingly unending years of agony, malnutrition and beatings.\
   I'd advise you to think very, very carefully before refusing.", "prisoner_chat_7",[]],
  [anyone,"prisoner_chat_7", [[lt,reg(5),0]], "I'll show you what I think of your offer! (The prisoner spits at your feet) There. Now get lost, I'm not interested.", "prisoner_chat_8",[]],
  [anyone|plyr,"prisoner_chat_8", [], "[Kill the prisoner]", "prisoner_chat_14",[]],
  [anyone|plyr,"prisoner_chat_8", [], "[Sell the prisoner]", "prisoner_chat_10",[]],
  [anyone|plyr,"prisoner_chat_9", [], "(You advance on the prisoner with your weapon drawn)", "prisoner_chat_11",[]],
  [anyone|plyr,"prisoner_chat_4", [], "[Kill the prisoner]", "prisoner_chat_9",[]],
  [anyone|plyr,"prisoner_chat_10", [], "We have found a roaming slave trader. It's time for us to part ways. Goodbye, it was nice not to know you.", "close_window",
   [[store_conversation_troop,reg(2)],[remove_troops_from_prisoners,reg(2),1],[troop_add_gold,"trp_player",20]]],
  [anyone,"prisoner_chat_11", [], "Please, {sir/madam}, don't kill me. I am a defenceless prisoner. Surely you're not that cruel?", "prisoner_chat_12",[]],
  [anyone|plyr,"prisoner_chat_12", [], "[Kill the prisoner]", "prisoner_chat_13",[]],
  [anyone|plyr,"prisoner_chat_13", [], "Yes, idiot. I am that cruel. Prepare to die.", "prisoner_chat_14",[]],
  [anyone|plyr,"prisoner_chat_14", [], "(The prisoner struggles against his shackles, desperate to free himself and escape you, but to no avail. You slit his throat with a knife and watch, satisfied, as his corpse sags to the floor.)", "close_window",
   [[store_conversation_troop,reg(2)],[remove_troops_from_prisoners,reg(2),1]]],
  [anyone|plyr,"prisoner_chat_12", [], "[Let him live]", "prisoner_chat_15",[]],
  [anyone|plyr,"prisoner_chat_15", [], "Very well, I'll let you live. I hope you enjoy life as a slave.", "prisoner_chat_16",[]],
  [anyone,"prisoner_chat_16", [], "Oh, thank you, {sir/madam}.", "close_window",[]],
  [anyone,"prisoner_chat_7", [[ge,reg(5),0]], "Thank you for your mercy, {sir/madam}. I promise to drop all allegiances to serve you in any way I can.","prisoner_chat_17",[]],
  [anyone|plyr,"prisoner_chat_17", [], "Good. Now, I'll make the rules clear to you. There will be no discrimination against other soldiers in my army because they were once on the opposing side or were bandits. They fight for me now, as do you. Their ties with the past are broken. Think you can handle it?", "prisoner_chat_18",[]],
  [anyone,"prisoner_chat_18", [], "Yes, {sir/madam}. I will obey the rules.", "prisoner_chat_19",[]],
  [anyone|plyr, "prisoner_chat_19", [[neg|hero_can_join]],"Oh. There isn't enough room in my party for you. I will be back when I have made room.", "close_window",
   [[store_conversation_troop,reg(0)],[troop_set_slot,reg(0),slot_prisoner_agreed,1]]],
  [anyone|plyr, "prisoner_chat_19", [[hero_can_join]], "Excellent. From now on, you fight alongside these men. Help them when they need it, and they'll do the same for you. Get equipped and fed. We'll head out as soon as you're done.", "close_window",
   [[store_conversation_troop,reg(0)],[troop_join,reg(0)],[remove_troops_from_prisoners,reg(0),1]]],
  [anyone|plyr,"prisoner_chat", [[store_conversation_troop,reg(0)],[troop_get_slot,reg(1),reg(0),slot_prisoner_agreed],[eq,reg(1),1],[hero_can_join]], "All right, I have made room for you to join my party. Welcome aboard.", "close_window",
   [[store_conversation_troop,reg(0)],[troop_join,reg(0)],[remove_troops_from_prisoners,reg(0),1]]],
  [anyone|plyr,"prisoner_chat", [[store_conversation_troop,reg(0)],[troop_get_slot,reg(1),reg(0),slot_prisoner_agreed],[neg|reg(1),1],[eq,hero_can_join]], "I am sorry, I still have no room for you. You'll have to wait a while longer, I'm afraid.", "close_window",[]],


Here is a little trick for "try_for_range". For example, you want to check all Heroes for a condition. You need a try_for_range for the first hero in module_troops.py to the last hero. Put all of the Heroes between two fake hero records ("first_npc" and "last_npc"):

Code: [Select]

["first_npc","First NPC","First NPC",tf_female|tf_hero, 0, reserved, .......
["Marnid","Marnid","Marnid", tf_hero, scn_the_happy_boar|entry(4),reserved, .......
["borcha","Borcha","Borcha",tf_hero, scn_town_13_castle|entry(6),reserved, .......
["ymira","Ymira","Ymira",tf_female|tf_hero, scn_zendar_merchant_ymira|entry(1), reserved, .......

# Add more Heroes here.

["last_npc","Last NPC","Last NPC",tf_female|tf_hero, 0, reserved, .......

Now, you can safely use in your scripts the following:

Code: [Select]

(try_for_range,":this_hero","trp_first_npc","trp_last_npc"),
# Your code here.
(end_try,0),

No matter how many Heroes you add, just add them between trp_first_npc and trp_last_npc and your code will continue to work. You can also simplify this further by adding into header_operations.py the following:

Code: [Select]

try_for_heroes = try_for_range,":this_hero","trp_first_npc","trp_last_npc"

Then, you can simply try for a the range of Heroes like this:

Code: [Select]

(try_for_heroes),
    # Your code here.
    # The local variable ":this_hero" is still useable!
(end_try,0),

Follow the same principle anywhere you want to easily categorize your code. For example, you can make a try_for_blunts, try_for_armor, try_for_swadian_towns, etc, etc.

Script (v0.8xx) to match a horse to his rider during combat.

This code is for Schattenlander, so I know in advance that my party size is max 5 and that they'll all be companions.  If you're interested in checking for a different subset of characters, or just the PC or whatever, obviously those details will need to be changed.  In this case the code is being created to record whether a companion dismounted during the fight, or fought on horse; we check advancement for different skills in the two cases.  You'll see that in the <fought_mounted> slot setting on the PC.  Depending on your application a different record may need to be created.

In module_scripts.py:

Code: [Select]

("associate_PCs_with_their_horses",  # Need this to find out if they fought mounted or not.  Call within the mission template, time zero, ti_once.
[
(try_for_range, ":Char", 0, 5),  # Schattenlander party stacks - one per character as they're all companions.
(party_stack_get_troop_id, ":Rider", "p_main_party", ":Char"),  # Get the actual troop IDs of the member in that spot in the party.
(ge, ":Rider", 0),  # Break out now if there's no one in that spot in the party.

(try_for_agents, ":CheckThisAgent"),
(agent_get_troop_id, ":CheckThisID", ":CheckThisAgent"),
(eq, ":Rider", ":CheckThisID"),
(assign, ":RiderAgent", ":CheckThisAgent"),
(try_end),
(agent_set_slot, ":RiderAgent", 12, -1),  # Slot 12 on the agent is used to record their steed's agent-ID.

(troop_set_slot, ":Rider", fought_mounted, 0),
(try_for_range, ":Horse", horses_begin, horses_end),
(troop_has_item_equipped, ":Rider", ":Horse"),
(troop_set_slot, ":Rider", fought_mounted, 1),
(try_end),
(troop_slot_eq, ":Rider", fought_mounted, 1),

(agent_get_position, 10, ":RiderAgent"),
(try_for_agents, ":CheckThisHorse"),
(neg|agent_is_human, ":CheckThisHorse"),
(agent_get_position, 11, ":CheckThisHorse"),
(get_distance_between_positions, ":Dist", 10, 11),
(lt, ":Dist", 1),
(agent_set_slot, ":RiderAgent", 12, ":CheckThisHorse"),
(try_end),
(try_end),
]),

("check_if_PCs_are_mounted",  # Call this from a trigger within the mission template, time 5 (or thereabouts).
[
(try_for_range, ":Char", 0, 5),
(party_stack_get_troop_id, ":Rider", "p_main_party", ":Char"),
(ge, ":Rider", 0),
(troop_slot_eq, ":Rider", fought_mounted, 1),

(try_for_agents, ":CheckThisAgent"),
(agent_get_troop_id, ":CheckThisID", ":CheckThisAgent"),
(eq, ":Rider", ":CheckThisID"),
(assign, ":RiderAgent", ":CheckThisAgent"),
(try_end),

(agent_get_slot, ":RidersHorse", ":RiderAgent", 12),  # Agent ID of the character's horse, from script "associate_PCs_with_their_horses"
(try_begin),
(ge, ":RidersHorse", 0),
(agent_get_position, 10, ":RiderAgent"),
(agent_get_position, 11, ":RidersHorse"),
(get_distance_between_positions, ":Dist", 10, 11),
(gt, ":Dist", 10),  # Nice generous 10cm margin to handle unusual cases.
(troop_set_slot, ":Rider", fought_mounted, 0),
(try_end),
(try_end),
]),
In module_constants.py you'll need values for horses_begin, horses_end, and fought_mounted.  I assume if you're able to make any use at all of this script that you'll know exactly how to set those up.  Watch for overlap between fought_mounted and any other modding of your troops' slots.

In module_mission_templates.py, in each mission form where you want to measure this (lead_charge, charge_with_allies, others as required), in the triggers section of the mission add:

Code: [Select]

(0, 0, ti_once, [],[(call_script, "script_associate_PCs_with_their_horses")]),
(5, 0, 0, [], [(call_script, "script_check_if_PCs_are_mounted")]),
The basic revelation here, from testing, is that a rider's agent position and his horse's agent position are identical - they're 0cm apart.

Here is a way to avoid showing the tutorial question in your mod. Simply replace the "tutorial_question" menu entry with the following:

Code: [Select]

  (
    "tutorial_question",mnf_auto_enter,
    "Starting the game. Please wait.",
    "none",
    [
    ],
    [
      ("tutorial_question_no",[],"_",[(change_screen_return)]),
    ]
  ),
Programmatically,
Winter

Script for sorting a given troop's inventory by price.

Usage example: (call_script, "script_sort_inventory", "trp_temp_troop"),

Note: "script_get_item_imod" gets the imod of an item given the item's ID and modified price. The details of that is left as an exercise for the reader. (Hint: read this post: http://mbx.streetofeyes.com/index.php?topic=50.0)

Code: [Select]

("sort_inventory", [
(store_script_param_1, ":source_troop"),

(troop_get_inventory_capacity, ":inv_cap", ":source_troop"),
(assign, ":num_items", 0),
# record the item IDs
(try_for_range, ":i_slot", 0, ":inv_cap"),
(troop_get_inventory_slot, ":item_id", ":source_troop", ":i_slot"),
(ge, ":item_id", 0),
(troop_set_slot, "trp_temp_array_a", ":num_items", ":item_id"),
(val_add, ":num_items", 1),
(try_end),
(assign, ":total_cost", 0),
# remove items and record the costs
(try_for_range, ":i_slot", 0, ":num_items"),
(troop_get_slot, ":item_id", "trp_temp_array_a", ":i_slot"),
(troop_remove_items, ":source_troop", ":item_id", 1),
(assign, ":item_cost", reg0),
(val_add, ":total_cost", ":item_cost"),
(troop_set_slot, "trp_temp_array_b", ":i_slot", ":item_cost"),
(end_try),
# bubble-sort by cost
(try_for_range, ":i_slot", 1, ":num_items"),
(try_for_range_backwards, ":j_slot", ":i_slot",":num_items"),
(try_begin),
(store_sub, ":prev_slot", ":j_slot", 1),
(troop_get_slot, ":item_cost_j", "trp_temp_array_b", ":j_slot"),
(troop_get_slot, ":item_cost_prev", "trp_temp_array_b", ":prev_slot"),
(lt, ":item_cost_prev", ":item_cost_j"),
# out of order; do the swap
(troop_set_slot, "trp_temp_array_b", ":j_slot", ":item_cost_prev", ),
(troop_set_slot, "trp_temp_array_b", ":prev_slot", ":item_cost_j"),
(troop_get_slot, ":item_id_j", "trp_temp_array_a", ":j_slot"),
(troop_get_slot, ":item_id_prev", "trp_temp_array_a", ":prev_slot"),
(troop_set_slot, "trp_temp_array_a", ":j_slot", ":item_id_prev", ),
(troop_set_slot, "trp_temp_array_a", ":prev_slot", ":item_id_j"),
(try_end),
(try_end),
(try_end),
# replace them on the troop, most expensive first
(try_for_range, ":i_slot", 0, ":num_items"),
(troop_get_slot, ":item_id", "trp_temp_array_a", ":i_slot"),
(troop_get_slot, ":item_cost", "trp_temp_array_b", ":i_slot"),
(call_script, "script_get_item_imod", ":item_id", ":item_cost"),
# reg0 is imod
(troop_add_item, ":source_troop", ":item_id", reg0),
(try_end),
(assign, reg0, ":total_cost"),
]),


Not Python, exactly, but a trick worth showing people.  Extremely useful, even if you're not tearing down and rebuilding the skill system as heavily as I have.

Renaming a skill.
(Giving it new statistical effects, and living with or negating its old ones, is up to you.)
Same technique can be used to rename a currency, alter hints, and so forth.

With thanks to Highlander & Fisheye.

1) Open M&B, start a game (any mod or Native). Use Alt+Enter to put M&B into windowed mode.
2) Off the toolbar, select File > New Language.
3) This creates the subdirectory "/new language" off your M&B directory.  It's got all kinds of tasty things in there, all in csv (comma-separated-value, basically a text spreadsheet) format.
4) Under your mod, create the subdirectory "MyMod/languages/en".  Anything in here will be seen by all English-language players.  Obviously you can repeat this technique for other languages, too.
5) Copy some or all of the files from "/new language" into your new English-language directory.  If renaming skills, you want (surprise, surprise) skills.csv.
6) Edit the stuff on any line after the | character to whatever you want.  Leave the stuff before the | alone. 

It can't accept variables or registers or anything, and some of them have length limits (formal or simply font-becomes-too-tiny) you'll have to be careful of, but other than that I haven't yet found any issues with any changes I've made here.

When editing, I suggest using text editors rather than spreadsheet programs, even though .csv would normally be spreadsheet fodder.  OpenOffice, at the very least, put all my strings between double quotes, even before the | character - do you see any double quotes in the original?  And thus nothing showed up in play, until I checked the actual text of the files and found those.  Grr.

- Hellequin

Different proficiencies for ranged/melee. I bet everyone has something similar already, but I'm posting mine here for people to use.

In module_troops.py. Put this after the definition for wp(x) and before the knows_common definition.

# BoW: separate melee and ranged proficiencies 
def wp2(x,y):
  n = 0
  r = 10 + int(x / 10)
  n |= wp_one_handed(x + random.randrange(r))
  n |= wp_two_handed(x + random.randrange(r))
  n |= wp_polearm(x + random.randrange(r))
  r = 10 + int(y / 10)
  n |= wp_archery(y + random.randrange(r))
  n |= wp_crossbow(y + random.randrange(r))
  n |= wp_throwing(y + random.randrange(r))
  return n


Example usage: Give Swadian sharpshooter around 90 melee and 140 ranged proficiencies

  ["swadian_sharpshooter","Swadian Sharpshooter","Swadian_sharpshooters",tf_guarantee_ranged|tf_mounted|tf_guarantee_boots|tf_guarantee_armor|tf_guarantee_helmet,0,0,fac_swadians,   [itm_bolts,itm_arrows,itm_heavy_crossbow,itm_heavy_crossbow,itm_arming_sword,itm_arming_sword,itm_mail_shirt,itm_mail_shirt,itm_leather_boots,itm_leather_boots,itm_kettle_hat,itm_kettle_hat,itm_leather_gloves,itm_leather_gloves],
   def_attrib|str_14|level(24),wp2(90,140),knows_common|knows_power_draw_3|knows_ironflesh_1,swadian_face1, swadian_face2],

Other Scripts

(mainly ones too long to put in the post)

Winter's depleting arrow script

Highlander's formation script

Sin-1 and Cosine-1 Arrays (for any trig people want to do)


Great thanks to Everyone who has contributed!

[Fisheye]

Script for sorting a given troop's inventory by price. You need an additional troop: temp_array_c (just copy temp_array_a) in module_troops.py.

Usage example: (call_script, "script_sort_inventory", "trp_temp_troop"),

To get sorted loot for player: in module_game_menus.py, under the menu "total_victory". Look for:

          (change_screen_loot, "trp_temp_troop"),

And put the call right before it:

        (call_script, "script_sort_inventory", "trp_temp_troop"),
        (change_screen_loot, "trp_temp_troop"),

Code (for module_scripts.py) is below:

Code: [Select]

#####################################################################
# BoW: gets an item's value
# Param1: item ID
# Param2: item modifier
#####################################################################
("get_item_value_with_imod", [  # returns the sell price based on the item's money value and its imod
(store_script_param, ":item", 1),
(store_script_param, ":imod", 2),
(store_item_value, ":score", ":item"),
(try_begin),
(eq, ":imod", imod_lame),
(val_mul, ":score", 30),
(else_try),
(this_or_next|eq, ":imod", imod_tattered),
(eq, ":imod", imod_cracked),
(val_mul, ":score", 40),
(else_try),
(this_or_next|eq, ":imod", imod_rusty),
(eq, ":imod", imod_swaybacked),
(val_mul, ":score", 50),
(else_try),
(this_or_next|eq, ":imod", imod_ragged),
(eq, ":imod", imod_bent),
(val_mul, ":score", 60),
(else_try),
(this_or_next|eq, ":imod", imod_chipped),
(eq, ":imod", imod_battered),
(val_mul, ":score", 65),
(else_try),
(this_or_next|eq, ":imod", imod_poor),
(eq, ":imod", imod_crude),
(val_mul, ":score", 80),
(else_try),
(this_or_next|eq, ":imod", imod_old),
(eq, ":imod", imod_stubborn),
(val_mul, ":score", 90),
(else_try),
(eq, ":imod", imod_plain),
(val_mul, ":score", 100),
(else_try),
(eq, ":imod", imod_heavy),
(val_mul, ":score", 135),
(else_try),
(eq, ":imod", imod_large_bag),
(val_mul, ":score", 190),
(else_try),
(eq, ":imod", imod_temperate),
(val_mul, ":score", 140),
(else_try),
(eq, ":imod", imod_sturdy),
(val_mul, ":score", 130),
(else_try),
(eq, ":imod", imod_thick),
(val_mul, ":score", 160),
(else_try),
(eq, ":imod", imod_spirited),
(val_mul, ":score", 240),
(else_try),
(eq, ":imod", imod_balanced),
(val_mul, ":score", 170),
(else_try),
(eq, ":imod", imod_hardened),
(val_mul, ":score", 180),
(else_try),
(eq, ":imod", imod_watered_steel),
(val_mul, ":score", 290),
(else_try),
(eq, ":imod", imod_reinforced),
(val_mul, ":score", 250),
(try_end),

(assign, reg0, ":score"),
]),

#####################################################################
# BoW: sorts a troops inventory by price
# Param1: source troop
#####################################################################
("sort_inventory", [
(store_script_param_1, ":source_troop"),

(troop_get_inventory_capacity, ":inv_cap", ":source_troop"),
(assign, ":num_items", 0),
# record the item IDs
(try_for_range, ":i_slot", 0, ":inv_cap"),
(troop_get_inventory_slot, ":item_id", ":source_troop", ":i_slot"),
(ge, ":item_id", 0),
(troop_set_slot, "trp_temp_array_a", ":num_items", ":item_id"),
(troop_get_inventory_slot_modifier, ":item_imod", ":source_troop", ":i_slot"),
(troop_set_slot, "trp_temp_array_b", ":num_items", ":item_imod"),
(troop_inventory_slot_get_item_amount, ":item_amount", ":source_troop", ":i_slot"),
(troop_set_slot, "trp_temp_array_c", ":num_items", ":item_amount"),
(val_add, ":num_items", 1),
(try_end),
# bubble-sort by cost
(try_for_range, ":i_slot", 1, ":num_items"),
(try_for_range_backwards, ":j_slot", ":i_slot",":num_items"),
(try_begin),
(store_sub, ":prev_slot", ":j_slot", 1),
(troop_get_slot, ":item_j", "trp_temp_array_a", ":j_slot"),
(troop_get_slot, ":item_prev", "trp_temp_array_a", ":prev_slot"),
(troop_get_slot, ":item_imod_j", "trp_temp_array_b", ":j_slot"),
(troop_get_slot, ":item_imod_prev", "trp_temp_array_b", ":prev_slot"),
(troop_get_slot, ":item_amt_j", "trp_temp_array_c", ":j_slot"),
(troop_get_slot, ":item_amt_prev", "trp_temp_array_c", ":prev_slot"),
(call_script, "script_get_item_value_with_imod", ":item_j", ":item_imod_j"),
(assign, ":item_cost_j", reg0),
(call_script, "script_get_item_value_with_imod", ":item_prev", ":item_imod_prev"),
(assign, ":item_cost_prev", reg0),
(lt, ":item_cost_prev", ":item_cost_j"),
# out of order; do the swap
(troop_set_slot, "trp_temp_array_a", ":j_slot", ":item_prev", ),
(troop_set_slot, "trp_temp_array_a", ":prev_slot", ":item_j"),
(troop_set_slot, "trp_temp_array_b", ":j_slot", ":item_imod_prev", ),
(troop_set_slot, "trp_temp_array_b", ":prev_slot", ":item_imod_j"),
(troop_set_slot, "trp_temp_array_c", ":j_slot", ":item_amt_prev", ),
(troop_set_slot, "trp_temp_array_c", ":prev_slot", ":item_amt_j"),
(try_end),
(try_end),
(try_end),
# remove items
(troop_clear_inventory, ":source_troop"),
(try_for_range, ":i_slot", 0, 10),
(troop_set_inventory_slot, ":source_troop", ":i_slot", -1),
(end_try),
# replace them on the troop, most expensive first
(try_for_range, ":i_slot", 0, ":num_items"),
(troop_get_slot, ":item_id", "trp_temp_array_a", ":i_slot"),
(troop_get_slot, ":item_imod", "trp_temp_array_b", ":i_slot"),
(troop_get_slot, ":item_amount", "trp_temp_array_c", ":i_slot"),
(troop_add_item, ":source_troop", ":item_id", ":item_imod"),
(try_begin),
(is_between, ":item_id", morale_boosters_begin, morale_boosters_end),
(store_add, ":inv_slot", ":i_slot", 10),
(troop_inventory_slot_set_item_amount, ":source_troop", ":inv_slot", ":item_amount"),
(try_end),
(try_end),
]),


[Hellequin]

Not Python, exactly, but a trick worth showing people.  Extremely useful, even if you're not tearing down and rebuilding the skill system as heavily as I have.

Renaming a skill.
(Giving it new statistical effects, and living with or negating its old ones, is up to you.)
Same technique can be used to rename a currency, alter hints, and so forth.

With thanks to Highlander & Fisheye.

1) Open M&B, start a game (any mod or Native). Use Alt+Enter to put M&B into windowed mode.
2) Off the toolbar, select File > New Language.
3) This creates the subdirectory "/new language" off your M&B directory.  It's got all kinds of tasty things in there, all in csv (comma-separated-value, basically a text spreadsheet) format.
4) Under your mod, create the subdirectory "MyMod/languages/en".  Anything in here will be seen by all English-language players.  Obviously you can repeat this technique for other languages, too.
5) Copy some or all of the files from "/new language" into your new English-language directory.  If renaming skills, you want (surprise, surprise) skills.csv.
6) Edit the stuff on any line after the | character to whatever you want.  Leave the stuff before the | alone. 

It can't accept variables or registers or anything, and some of them have length limits (formal or simply font-becomes-too-tiny) you'll have to be careful of, but other than that I haven't yet found any issues with any changes I've made here.

When editing, I suggest using text editors rather than spreadsheet programs, even though .csv would normally be spreadsheet fodder.  OpenOffice, at the very least, put all my strings between double quotes, even before the | character - do you see any double quotes in the original?  And thus nothing showed up in play, until I checked the actual text of the files and found those.  Grr.

- Hellequin

[Fisheye]

Different proficiencies for ranged/melee. I bet everyone has something similar already, but I'm posting mine here for people to use.

In module_troops.py. Put this after the definition for wp(x) and before the knows_common definition.

# BoW: separate melee and ranged proficiencies 
def wp2(x,y):
  n = 0
  r = 10 + int(x / 10)
  n |= wp_one_handed(x + random.randrange(r))
  n |= wp_two_handed(x + random.randrange(r))
  n |= wp_polearm(x + random.randrange(r))
  r = 10 + int(y / 10)
  n |= wp_archery(y + random.randrange(r))
  n |= wp_crossbow(y + random.randrange(r))
  n |= wp_throwing(y + random.randrange(r))
  return n


Example usage: Give Swadian sharpshooter around 90 melee and 140 ranged proficiencies

  ["swadian_sharpshooter","Swadian Sharpshooter","Swadian_sharpshooters",tf_guarantee_ranged|tf_mounted|tf_guarantee_boots|tf_guarantee_armor|tf_guarantee_helmet,0,0,fac_swadians,   [itm_bolts,itm_arrows,itm_heavy_crossbow,itm_heavy_crossbow,itm_arming_sword,itm_arming_sword,itm_mail_shirt,itm_mail_shirt,itm_leather_boots,itm_leather_boots,itm_kettle_hat,itm_kettle_hat,itm_leather_gloves,itm_leather_gloves],
   def_attrib|str_14|level(24),wp2(90,140),knows_common|knows_power_draw_3|knows_ironflesh_1,swadian_face1, swadian_face2],

[Manitas]

INTEGER SQUARE ROOT:
returns the nearest integer value to square root of any positive integer.
Note that because of absence of 'while' loop I had to use recursion, so I'm not sure if it wont crash with very large numbers, it's up to you to find out.

usage: (call_script, "script_sqrt", value)                      Never set the second param!!!!
$return global variable yields the result.

MoBo syntax:

Code: [Select]

("sqrt",[#mobo#
   store_script_param_1 :var
   store_script_param_2 :flag
   {
       :flag == 0
       :var += 1
       :var /= 2
       $return = 0
       }
  {
      :var > $return
      :var -= $return
      $return += 1
      call_script "script_sqrt" :var 1
      }
   #mobo#
   ]),

Na(t)ive syntax:

Code: [Select]

("sqrt",[
      (store_script_param_1,':var'),
      (store_script_param_2,':flag'),
      (try_begin),
        (eq,':flag',0),
        (val_add,':var',1),
        (val_div,':var',2),
        (assign,'$return',0),
      (try_end),
      (try_begin),
        (gt,':var','$return'),
        (val_sub,':var','$return'),
        (val_add,'$return',1),
        (call_script,"script_sqrt",':var',1),
      (try_end),
   ]),

for those of you interested, C syntax ;):

Code: [Select]

x = (x+1) >> 1;
for(r=0; x>r; x-=r++);


[Hellequin]

Full 365-day calendar with days of the week

In scripts:

Code: [Select]

("generate_date_strings",  # Takes input parameter [:Date], outputs {s39} for the full date, {s40} without day of the week.
[
(store_script_param_1, ":Date"),
(try_begin),
(eq, ":Date", 0), # Date = 0 -> Generate strings for the current date.  Date 1-365 -> Generate strings for that date.
(store_current_day, ":Date"),
(val_add, ":Date", "$DateOffset"), # A random start date (0-364) determined when beginning a new game.
(val_mod, ":Date", 365),
(val_add, ":Date", 1),
(try_end),

(assign, ":Day_of_week", ":Date"),
(val_mod, ":Day_of_week", 7),
(val_add, ":Day_of_week", "str_Sunday"),
(str_store_string, 34, ":Day_of_week"),

(assign, ":EndOfMonth", 0),
(try_begin),
(store_sub, reg(36), ":Date", ":EndOfMonth"),(val_add, ":EndOfMonth", 31),(le, reg(36), 31),(str_store_string, 35, "str_January"),
(else_try),
(store_sub, reg(36), ":Date", ":EndOfMonth"),(val_add, ":EndOfMonth", 28),(le, reg(36), 28),(str_store_string, 35, "str_February"),
(else_try),
(store_sub, reg(36), ":Date", ":EndOfMonth"),(val_add, ":EndOfMonth", 31),(le, reg(36), 31),(str_store_string, 35, "str_March"),
(else_try),
(store_sub, reg(36), ":Date", ":EndOfMonth"),(val_add, ":EndOfMonth", 30),(le, reg(36), 30),(str_store_string, 35, "str_April"),
(else_try),
(store_sub, reg(36), ":Date", ":EndOfMonth"),(val_add, ":EndOfMonth", 31),(le, reg(36), 31),(str_store_string, 35, "str_May"),
(else_try),
(store_sub, reg(36), ":Date", ":EndOfMonth"),(val_add, ":EndOfMonth", 30),(le, reg(36), 30),(str_store_string, 35, "str_June"),
(else_try),
(store_sub, reg(36), ":Date", ":EndOfMonth"),(val_add, ":EndOfMonth", 31),(le, reg(36), 31),(str_store_string, 35, "str_July"),
(else_try),
(store_sub, reg(36), ":Date", ":EndOfMonth"),(val_add, ":EndOfMonth", 31),(le, reg(36), 31),(str_store_string, 35, "str_August"),
(else_try),
(store_sub, reg(36), ":Date", ":EndOfMonth"),(val_add, ":EndOfMonth", 30),(le, reg(36), 30),(str_store_string, 35, "str_September"),
(else_try),
(store_sub, reg(36), ":Date", ":EndOfMonth"),(val_add, ":EndOfMonth", 31),(le, reg(36), 31),(str_store_string, 35, "str_October"),
(else_try),
(store_sub, reg(36), ":Date", ":EndOfMonth"),(val_add, ":EndOfMonth", 30),(le, reg(36), 30),(str_store_string, 35, "str_November"),
(else_try),
(store_sub, reg(36), ":Date", ":EndOfMonth"),(val_add, ":EndOfMonth", 31),(le, reg(36), 31),(str_store_string, 35, "str_December"),
(try_end),

(str_store_string, 39, "str_full_date"),
(str_store_string, 40, "str_simple_date"),
]
),
In strings:

Code: [Select]

("January", "January"),
("February", "February"),
("March", "March"),
("April", "April"),
("May", "May"),
("June", "June"),
("July", "July"),
("August", "August"),
("September", "September"),
("October", "October"),
("November", "November"),
("December", "December"),
("Sunday","Sunday"),
("Monday","Monday"),
("Tuesday","Tuesday"),
("Wednesday","Wednesday"),
("Thursday","Thursday"),
("Friday","Friday"),
("Saturday","Saturday"),
("full_date", "{s34}, {s35} {reg36}"),
("simple_date", "{s35} {reg36}"),
Usage: Call the script, then insert your choice of s39 or s40 into a display string, menu option, etc.  If you want just the month, day of the week, or day of the month, those are available as well.

If you're really going for true accuracy you'd need to add a year, and a day-of-week correction so that January 1 is not always Monday, but these should be trivial.  I leave insertion of leap-years as an exercise for the truly obsessive.

Enjoy!

[fujiwara]

A script to determine the most expensive weapon in a player's inventory and remove it:

Code: [Select]

              (assign,':index',0),
              (try_for_range,reg1,0,100),
                  (troop_set_slot,'trp_last_troop',reg1,-1), # initalize the array
              (try_end),
              (try_for_range,reg1,<start_item>,<end_item>),
                  (player_has_item,reg1),
                  (troop_set_slot,'trp_last_troop',':index',reg1), # store any weapons carried by the player
                  (val_add,':index',1),
              (try_end),
              (try_for_range,reg2,0,100),
                  (troop_slot_eq,'trp_last_troop',reg2,-1), #gets the array length
                  (assign,':index',reg2),
              (try_end),
              (assign,':item_val_1',0),
              (assign,':item_val_2',0),
              (assign,':current_item',0),
              (try_for_range,reg3,0,':index'), #compares item values in player inventory
                  (troop_get_slot,reg4,'trp_last_troop',reg3),
                  (store_item_value,':item_val_1',reg4),
                  (gt,':item_val_1',':item_val_2'),
                  (assign,':item_val_2',':item_val_1'),
                  (assign,':current_item',reg3),
              (try_end),
              (troop_remove_item,0,':current_item'),

Could be useful as a punishment for losing a fight, duel, etc. (how it's used in Onin no Ran). Requires a trp_last_troop to exist in the module_troops file.

[Hellequin]

Though note that the above script doesn't notice the value modifiers of imods.  It'll remove a rusty greatsword before a balanced bastard sword.  Not a big deal, but you should be aware it exists.

[fujiwara]

You have a good point. I didn't have a chance to read Fisheye's above script before writing this one. I'll be adding the imod in.

[Hellequin]

Trouble is that then you'll be unequipping everything the player owns, in order to remove the one weapon.  Very annoying to the player; I just ran into this in my own code two days ago.  I'd suggest it's not worth it, and you should just leave it "imod-blind" until Armagan gives us better imod-recognition support.

[fujiwara]

Others may or may not have implemented a system of array handling scripts/functions, but I offer these up anyway. These came out of a conversation at Taleworlds with Neophyte. Arrays are 0-based, since they come out of the slot system. They're free to do with as you please, but a mention would be nice

The functions:

array_init: creates a new array of user-determined length, later stored in the array itself. Also initializes the array to the value array_value_null. Returns to $return. Takes a length value as input
array_clear: clears the input array of all values, returning them to array_value_null. Returns the array to $return. Takes an array as input
array_push: pushes the input value onto the top of the array (highest available, non-null index). Stores the pushed value to array_value_last_pushed. Takes an array and the value to be pushed as input
array_pop: pops the value off the top of array and removes it from the array (value replaced with array_value_null), Stores value at array_value_last_popped. Returns to $return. Takes an array as input
array_peek: returns the value at the given index without removing it from the array. Takes an array and an index as input
array_queue: returns and removes the value at the bottom of the array, then shifts all other values left/down one index. Assigns queued value to array_value_last_queued and $return. Takes an array as input
array_remove_if_ge: resets any values in the array to array_value_null that is >= the test value. Written as a proof of concept, since the whole suite of comparator functions can be easily implemented. Takes an array and a test value as input

Notes: in this implementation, the first five slots of the array are reserved, and inputted index values are offset by 5 . Obviously, if you need more reserved slots, the index offset should be changed.

Required:

module_constants:
array_value_null = -100
array_value_length = 0
array_value_last_popped = 1
array_value_last_pushed = 2
array_value_last_queued = 3
array_value_high_index = 4

module_party_templates:
('array','array',pf_disabled,0,fac_neutral,0,[]),

module_scripts:

Code: [Select]

("array_init",
   [
       (store_script_param_1,":array_length"),
       (store_random_in_range,reg1,cities_begin,cities_end),
       (set_spawn_radius,20),
       (spawn_around_party,reg1,'pt_array'),
       (val_add,':array_length',5),
       (call_script,'script_array_clear',reg0),
       ]),
  ('array_clear',
   [
       (store_script_param_1,':input_array'),
       (party_get_slot,':array_length',':input_array',array_value_length),
       (try_for_range,reg1,1,':array_length'),
           (party_set_slot,':input_array',reg1,array_value_null),
       (try_end),
       (party_set_slot,':input_array',array_value_length,':array_length'),
       (party_set_slot,':input_array',array_value_high_index,5),
       (assign,'$return',':input_array'),
       ]),
  ('array_push',
   [
       (store_script_param_1,':input_array'),
       (store_script_param_2,':input_value'),
       (party_get_slot,reg1,':input_array',array_value_high_index),
       (val_add,reg1,1),
       (party_set_slot,':input_array',reg1,':input_value'),
       (party_set_slot,':input_array',array_value_high_index,reg1),
       (party_set_slot,':input_array',array_value_last_pushed,':input_value'),
       ]),
  ('array_pop',
   [
       (store_script_param_1,':input_array'),
       (party_get_slot,reg1,':input_array',array_value_high_index),
       (party_get_slot,reg2,':input_array',reg1),
       (party_set_slot,':input_array',reg1,-1),
       (party_set_slot,':input_array',array_value_last_popped,reg2),
       (try_begin),
           (gt,reg1,5),
           (val_sub,reg1,1),
       (try_end),
       (party_set_slot,':input_array',array_value_high_index,reg1),
       (assign,'$return',reg2),
       ]),
  ('array_peek',
   [
       (store_script_param_1,':input_array'),
       (store_script_param_2,':input_index'),
       (val_add,':input_index',5),
       (party_get_slot,reg1,':input_array',':input_index'),
       (assign,'$return',reg1),
       ]),
  ('array_queue',
   [
       (store_script_param_1,':input_array'),
       (party_get_slot,reg1,':input_array',5),
       (assign,'$return',reg1),
       (party_set_slot,':input_array',array_value_last_queued,reg1),
       (call_script,'script_array_shift_left',':input_array'),
       ]),
  ('array_shift_left',
   [
       (store_script_param_1,':input_array'),
       (party_get_slot,':array_length',':input_array',array_value_length),
       (try_for_range,reg1,5,':array_length'),
           (store_add,reg2,reg1,1),
           (party_get_slot,reg3,':input_array',reg2),
           (party_set_slot,':input_array',reg1,reg3),
       (try_end),
       (party_set_slot,':input_array',':array_length',array_value_null),
       ]),
  ('array_remove_if_ge',
   [
       (store_script_param_1,':input_array'),
       (store_script_param_2,':test_value'),
       (party_get_slot,reg1,':input_array',array_value_high_index),
       (try_for_range,reg2,5,reg1),
           (party_get_slot,reg3,':input_array',reg2),
           (ge,reg3,':test_value'),
           (party_set_slot,':input_array',reg2,array_value_null),
       (try_end),
       ]),

If any notices any glaring errors, please let me know

EDIT: fixed some typos.

Discussion of the script has been moved here due to length considerations:
http://mbx.streetofeyes.com/index.php?topic=310.0

-- Fisheye

[Neophyte]

Figured this might be the correct place to discuss the script *itself*, and use the other thread for discussions on uses for it.

Anyway, there's an error in the "initialize_array" script:

Code: [Select]

(store_random_in_range,reg1,cities_begin,cities_end),this should be

Code: [Select]

(store_random_in_range,reg1,towns_begin,towns_end),

Also, though this is personal preference rather than anything else, I would probably namel that function "array_initialize" rather than "initialize_array" purely so that all array-related scripts have names starting with "array_".

[Highlander]

nothing spectacular, but a usefull trick:
When you copy "0" from notepad or similar programmes, go to the terrain editor and press "paste", the hill height will be lower than you get it by just dragging the button. That's the only way to get absolutely NO hills; very useful in some cases.

[Cartread]

I put my H&B 808c source up on the Repository.  It's the same as the one included in the mod download.

Yoshiboy: All but recruit from prisoners, craftmod & pirates! are direct linked!

[Yoshiboy]

Ok, added yours and hopefully they are not direct anymore. (at least the ones on the repository)