Add achievement for losing

src/Swarm/Game/Step.hs

@@ -190,6 +190,17 @@ hypotheticalWinCheck em 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
@@ -730,11 +741,12 @@ stepCESK cesk = case cesk of
     case exn of
       CmdFailed _ _ (Just a) -> do
         currentTime <- sendIO getZonedTime
+        scenarioPath <- use currentScenarioPath
         gameAchievements
           %= M.insertWith
             (<>)
             a
-            (Attainment (GameplayAchievement a) Nothing currentTime)
+            (Attainment (GameplayAchievement a) scenarioPath currentTime)
       _ -> return ()
 
     -- If an exception rises all the way to the top level without being

src/Swarm/TUI/Controller.hs

@@ -445,7 +445,7 @@ saveScenarioInfoOnQuit = do
             case segments of
               firstDir : _ -> do
                 when (won && firstDir == tutorialsDirname) $
-                  attainAchievement' t (Just $ T.pack p) (GlobalAchievement CompletedSingleTutorial)
+                  attainAchievement' t (Just p) (GlobalAchievement CompletedSingleTutorial)
               _ -> return ()
             liftIO $ saveScenarioInfo p si
 

src/Swarm/TUI/Model/Achievement/Attainment.hs

@@ -10,15 +10,14 @@ import Data.Aeson (
   genericToJSON,
  )
 import Data.Function (on)
-import Data.Text (Text)
 import Data.Time (ZonedTime, zonedTimeToUTC)
 import Data.Yaml as Y
 import GHC.Generics (Generic)
 import Swarm.TUI.Model.Achievement.Definitions
 
 data Attainment = Attainment
   { _achievement :: CategorizedAchievement
-  , _maybeScenarioPath :: Maybe Text
+  , _maybeScenarioPath :: Maybe FilePath
   -- ^ from which scenario was it obtained?
   , _obtainedAt :: ZonedTime
   }

src/Swarm/TUI/Model/Achievement/Definitions.hs

@@ -77,6 +77,7 @@ data GameplayAchievement
   | RobotIntoWater
   | AttemptSelfDestructBase
   | DestroyedBase
+  | LoseScenario
   deriving (Eq, Ord, Show, Bounded, Enum, Generic)
 
 instance FromJSON GameplayAchievement

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

src/Swarm/TUI/Model/StateUpdate.hs

@@ -114,7 +114,12 @@ attainAchievement a = do
   currentTime <- liftIO getZonedTime
   attainAchievement' currentTime Nothing a
 
-attainAchievement' :: (MonadIO m, MonadState AppState m) => ZonedTime -> Maybe Text -> CategorizedAchievement -> m ()
+attainAchievement' ::
+  (MonadIO m, MonadState AppState m) =>
+  ZonedTime ->
+  Maybe FilePath ->
+  CategorizedAchievement ->
+  m ()
 attainAchievement' t p a = do
   (uiState . uiAchievements)
     %= M.insertWith