Move towards introducing pipes, generalise blocks

2022-06-16 02:18:22 +01:00
parent f404f32241
commit a7201b8fb6
13 changed files with 154 additions and 65 deletions
@@ -77,7 +77,6 @@ miniGunCrit = defaultCreature
 --    , _crInv = IM.fromList [(0,autoRifle & itConsumption . ammoLoaded .~ 1000)]
    , _crInv = IM.fromList [(0,miniGunX 3)]
 --    , _crInv = IM.fromList [(0,autoRifle)]
-    , _crInvSel = 0
    , _crRad = 10
    , _crState = defaultState
    , _crHP = 500
@@ -96,7 +95,6 @@ longCrit = defaultCreature
        , _crGoal       = []
        }
    , _crInv = IM.fromList [(0,sniperRifle),(1,medkit 100)]
-    , _crInvSel = 0
    , _crRad = 10
    , _crHP = 150
    }
@@ -106,7 +104,6 @@ multGunCrit = defaultCreature
    { _crPict = basicCrPict
 --    , _crUpdate = stateUpdate (twitchMissAI 300 350)
    , _crInv = IM.fromList [(0,bangCaneX 4),(1,medkit 100)]
-    , _crInvSel = 0
    , _crRad = 10
    , _crHP = 300
    , _crUpdate = defaultImpulsive [sentinelExtraWatchUpdate