From 838e13a80efaa54a8f0c5b80cf3596e0fd69397b Mon Sep 17 00:00:00 2001
From: Warmist <Warmist@gmail.com>
Date: Sat, 5 Jan 2013 20:06:22 +0200
Subject: [PATCH] Make monarch script, for changing who is king/queen

---
 scripts/make-monarch.lua | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 scripts/make-monarch.lua

diff --git a/scripts/make-monarch.lua b/scripts/make-monarch.lua
new file mode 100644
index 000000000..253179680
--- /dev/null
+++ b/scripts/make-monarch.lua
@@ -0,0 +1,31 @@
+--set target unit as king/queen
+local unit=dfhack.gui.getSelectedUnit()
+if not unit then qerror("No unit selected") end
+local newfig=dfhack.units.getNemesis(unit).figure
+local my_entity=df.historical_entity.find(df.global.ui.civ_id)
+local monarch_id
+for k,v in pairs(my_entity.positions.own) do
+    if v.code=="MONARCH" then
+        monarch_id=v.id
+        break
+    end
+end
+if not monarch_id then qerror("No monarch found!") end
+local old_id
+for pos_id,v in pairs(my_entity.positions.assignments) do
+    if v.position_id==monarch_id then
+        old_id=v.histfig
+        v.histfig=newfig.id
+        local oldfig=df.historical_figure.find(old_id)
+        
+        for k,v in pairs(oldfig.entity_links) do
+            if df.histfig_entity_link_positionst:is_instance(v) and v.assignment_id==pos_id and v.entity_id==df.global.ui.civ_id then
+                oldfig.entity_links:erase(k)
+                break
+            end
+        end
+        newfig.entity_links:insert("#",{new=df.histfig_entity_link_positionst,entity_id=df.global.ui.civ_id,
+            link_strength=100,assignment_id=pos_id,start_year=df.global.cur_year})
+        break
+    end
+end