Add unsafe blink gun

src/Dodge/Creature.hs

@@ -163,35 +163,41 @@ startInvList :: [Item]
 startInvList = [ ]
 startInventory :: IM.IntMap Item
 startInventory = IM.fromList $ zip [0..] startInvList
-inventoryA :: IM.IntMap Item
-inventoryA = IM.fromList $ zip [0..] 
-    [ clickDetector ITEMDETECTOR
-    , makeTypeCraftNum 1 TRANSFORMER
-    , makeTypeCraftNum 2 CAN
-    , makeTypeCraftNum 2 PIPE
-    ]
-inventoryB :: IM.IntMap Item
-inventoryB = IM.fromList $ zip [0..] 
-    [ forceFieldGun
-    , wristArmour
-    , wristArmour
-    , autoRifle
-    , smg
-    , machinePistol
-    , makeTypeCraftNum 4 MICROCHIP
-    , makeTypeCraftNum 2 TIN
-    , makeTypeCraftNum 2 HARDWARE
-    , makeTypeCraftNum 2 CAN
-    , makeTypeCraftNum 2 PIPE
-    , makeTypeCraftNum 1 CREATURESENSOR
-    ]
-inventoryC :: IM.IntMap Item
-inventoryC = IM.fromList $ zip [0..] 
-    [ autoDetector CREATUREDETECTOR
-    , autoDetector WALLDETECTOR
-    , autoDetector ITEMDETECTOR
-    , wristInvisibility
-    ]
+
+inventoryX :: Char -> [Item]
+inventoryX c = case c of
+    'A' -> 
+        [ clickDetector ITEMDETECTOR
+        , makeTypeCraftNum 1 TRANSFORMER
+        , makeTypeCraftNum 2 CAN
+        , makeTypeCraftNum 2 PIPE
+        ]
+    'B' -> 
+        [ forceFieldGun
+        , wristArmour
+        , wristArmour
+        , autoRifle
+        , smg
+        , machinePistol
+        , makeTypeCraftNum 4 MICROCHIP
+        , makeTypeCraftNum 2 TIN
+        , makeTypeCraftNum 2 HARDWARE
+        , makeTypeCraftNum 2 CAN
+        , makeTypeCraftNum 2 PIPE
+        , makeTypeCraftNum 1 CREATURESENSOR
+        ]
+    'C' ->
+        [ autoDetector CREATUREDETECTOR
+        , autoDetector WALLDETECTOR
+        , autoDetector ITEMDETECTOR
+        , wristInvisibility
+        ]
+    'D' ->
+        [ blinkGun
+        , unsafeBlinkGun
+        , autoDetector WALLDETECTOR
+        ]
+    _ -> []
 
 testInventory :: IM.IntMap Item
 testInventory = IM.fromList $ zip [0..]