Defunction-ify item modules, requires more cleanup

2022-06-08 12:28:11 +01:00
parent d91a53f76c
commit bcbfd7d2fa
48 changed files with 762 additions and 740 deletions
@@ -14,13 +14,13 @@ import qualified Data.IntMap.Strict as IM

 medkit :: Int -> Item
 medkit i = defaultConsumable
-    { _itName = "MEDKIT" ++ show i
-    , _itUse = ConsumeUse 
+    { _itUse = ConsumeUse 
        {_cUse = \_ cr w -> w & creatures . ix (_crID cr) . crHP +~ i
        }
    , _itEquipPict = pictureWeaponAim $ const $ (,) emptySH $ color blue $ circleSolid 3
    , _itID = Nothing
    }
+    & itType . iyBase .~ MEDKIT i

 heal25 :: Int -> World -> Maybe World
 heal25 = heal 25