1 files changed, 6 insertions, 3 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 4b78ae2..3d098e2 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -165,9 +165,12 @@ stateMaintenance = do
         return x
     isDead <- evalF =<< MaybeT (preuse $ lStats . sDead)
     isUnconscious <- evalF =<< MaybeT (preuse $ lStats . sUnconscious)
-    guard $ isDead || isUnconscious
-    when isDead . lift . shellPutStrLn $ name ++ " is dead"
-    when (isUnconscious && not isDead) . lift . shellPutStrLn $ name ++ " is unconscious"
+    isDestroyed <- evalF =<< MaybeT (preuse $ lStats . sDestroyed)
+    guard $ isDead || isUnconscious || isDestroyed
+    case (isDead, isDestroyed, isUnconscious) of
+      (True, _, _) -> lift . shellPutStrLn $ name ++ " is dead"
+      (_, True, _) -> lift . shellPutStrLn $ name ++ " is unconscious"
+      (_, _, True) -> lift . shellPutStrLn $ name ++ " is destroyed"
     gFocus' . eSeqVal .= Nothing
     -- gFocus .= Nothing
   void $ do