Grant achievement for unequipping a welder (#2564)

Closes #2288.

Author: byorgey

src/swarm-engine/Swarm/Game/Achievement/Description.hs

@@ -110,6 +110,13 @@ describe = \case
       "`equip` all craftable devices simultaneously."
       Gruelling
       True
+  GameplayAchievement UnequippedWelder ->
+    AchievementInfo
+      "Put That Back!"
+      (Just $ Freeform "Maybe... you should have thought that one through first.")
+      "`unequip` a welder."
+      Easy
+      True
 
 -- | Validity conditions are required if-and-only-if the achievement
 -- category is 'GameplayAchievement'.
@@ -124,3 +131,4 @@ getValidityRequirements = \case
   SwapSame -> ValidityConditions OnlyPlayerRobot ExcludesCreativeMode
   GaveToSelf -> ValidityConditions OnlyPlayerRobot ExcludesCreativeMode
   EquippedAllDevices -> ValidityConditions OnlyPlayerRobot ExcludesCreativeMode
+  UnequippedWelder -> ValidityConditions OnlyPlayerRobot ExcludesCreativeMode

src/swarm-engine/Swarm/Game/Step/Const.hs

@@ -461,6 +461,9 @@ execConst runChildProg c vs s k = do
           loc <- use robotLocation
           addAsphyxiateBot createdAt loc
 
+        -- Grant an achievement for unequipping a welder.
+        when (itemName == "welder") $ grantAchievementForRobot UnequippedWelder
+
         -- Now check whether being on the current cell would still be
         -- allowed.
         loc <- use robotLocation

src/swarm-scenario/Swarm/Game/Achievement/Definitions.hs

@@ -127,6 +127,7 @@ data GameplayAchievement
   | SwapSame
   | GaveToSelf
   | EquippedAllDevices
+  | UnequippedWelder
   deriving (Eq, Ord, Show, Bounded, Enum, Generic)
 
 instance FromJSON GameplayAchievement