From ed225de3651b44153b421c56c46c646b1ae447f2 Mon Sep 17 00:00:00 2001
From: Quietust <quietust@gmail.com>
Date: Fri, 31 Oct 2014 13:33:18 -0500
Subject: [PATCH] Update strangemood to check stress level for fell/macabre
 moods

---
 plugins/strangemood.cpp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/plugins/strangemood.cpp b/plugins/strangemood.cpp
index 41b25a9bc..b91b1ff94 100644
--- a/plugins/strangemood.cpp
+++ b/plugins/strangemood.cpp
@@ -631,7 +631,11 @@ command_result df_strangemood (color_ostream &out, vector <string> & parameters)
     // If no mood type was specified, pick one randomly
     if (type == mood_type::None)
     {
-        if (rng.df_trandom(100) > 90)//rng.df_trandom(100) > unit->status.happiness)
+        if (soul && (
+            (soul->personality.stress_level >= 500000) ||
+            (soul->personality.stress_level >= 250000 && !rng.df_trandom(2)) ||
+            (soul->personality.stress_level >= 100000 && !rng.df_trandom(10))
+            ))
         {
             switch (rng.df_trandom(2))
             {