Add the script to fix lagging fat dwarves.

library/xml

@@ -1 +1 @@
-Subproject commit 7d5c349a40dc1f211de2d37aeece4a3d9d631ed2
+Subproject commit 8c07944891f09391cc02098074ffc8080b43b184

scripts/fix/fat-dwarves.lua

@@ -0,0 +1,24 @@
+-- Makes fat dwarves non-fat.
+--
+-- See for more info:
+--   http://www.bay12games.com/dwarves/mantisbt/view.php?id=5971
+
+local num_fat = 0
+local num_lagging = 0
+
+for _,v in ipairs(df.global.world.units.all) do
+    local fat = v.counters2.stored_fat
+    if fat > 850000 then
+        v.counters2.stored_fat = 500000
+        if v.race == df.global.ui.race_id then
+            print(fat,dfhack.TranslateName(dfhack.units.getVisibleName(v)))
+            num_fat = num_fat + 1
+            if fat > 999990 then
+                num_lagging = num_lagging + 1
+            end
+        end
+    end
+end
+
+print("Fat dwarves cured: "..num_fat)
+print("Lag sources: "..num_lagging)