Add achievement for losing

swarm-game · Jan 2, 2023 · 5c16451 · 5c16451
1 parent e8757bc
commit 5c16451
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 0 deletions.
diff --git a/src/Swarm/Game/Step.hs b/src/Swarm/Game/Step.hs
@@ -187,6 +187,17 @@ hypotheticalWinCheck g ws oc = do
         _ -> ws
 
   winCondition .= WinConditions newWinState (completions finalAccumulator)
+
+  case newWinState of
+    Unwinnable _ -> do
+      currentTime <- sendIO getZonedTime
+      gameAchievements
+        %= M.insertWith
+          (<>)
+          LoseScenario
+          (Attainment (GameplayAchievement LoseScenario) Nothing currentTime)
+    _ -> return ()
+
   announcementQueue %= (>< Seq.fromList (map ObjectiveCompleted $ completionAnnouncementQueue finalAccumulator))
 
   mapM_ handleException $ exceptions finalAccumulator

diff --git a/src/Swarm/TUI/Model/Achievement/Definitions.hs b/src/Swarm/TUI/Model/Achievement/Definitions.hs
@@ -79,6 +79,7 @@ data GameplayAchievement
   | RobotIntoWater
   | AttemptSelfDestructBase
   | DestroyedBase
+  | LoseScenario
   deriving (Eq, Ord, Show, Bounded, Enum, Generic)
 
 instance FromJSON GameplayAchievement

diff --git a/src/Swarm/TUI/Model/Achievement/Description.hs b/src/Swarm/TUI/Model/Achievement/Description.hs
@@ -61,3 +61,10 @@ describe (GameplayAchievement DestroyedBase) =
     "Actually destroy your base."
     Moderate
     True
+describe (GameplayAchievement LoseScenario) =
+  AchievementInfo
+    "Silver Lining"
+    (Just $ Freeform "Here's your consolation prize.")
+    "Lose at a scenario."
+    Easy
+    True