Implement introspection items

2025-01-01 15:20:46 +00:00
parent dae0e0591c
commit 08685909be
11 changed files with 181 additions and 154 deletions
@@ -96,8 +96,8 @@ startCr =
        & crDir .~ pi / 2
        & crMvDir .~ pi / 2
        & crID .~ 0
-        & crHP .~ 1000
-        & crMaxHP .~ 1500
+        & crHP .~ 10000
+        & crMaxHP .~ 15000
        & crInv .~ startInventory
        & crCorpse .~ MakeDefaultCorpse
        & crFaction .~ PlayerFaction
@@ -116,6 +116,7 @@ startInventory = IM.fromList $ zip [0 ..] startInvList
 inventoryX :: Char -> [Item]
 inventoryX c = case c of
    'A' ->
+        [introScan t | t <- [minBound..maxBound]] <>
        [ flameThrower
        , fuelPack
        , chemFuelPouch