Add airlocks

2021-05-02 21:09:25 +02:00
parent 9cdd3a9629
commit f336d7e3f6
27 changed files with 522 additions and 219 deletions
@@ -67,13 +67,15 @@ explosiveBarrel :: Creature
 explosiveBarrel = defaultInanimate
    { _crUpdate = updateExpBarrel
    , _crHP = 400
-    , _crPict = \ _ -> onLayer CrLayer $ pictures [ color orange $ circleSolid 10
-                                , color red $ circleSolid 8
-                                ]
-    , _crState = defaultState {_goals = [[Wait]]
-                            ,_faction = ChaseCritters
-                            ,_crSpState = Barrel []
-                            }
+    , _crPict = \ _ -> onLayer CrLayer $ pictures 
+        [ color red $ circleSolid 8
+        , color orange $ circleSolid 10
+        ]
+    , _crState = defaultState 
+        {_goals = [[Wait]]
+        ,_faction = ChaseCritters
+        ,_crSpState = Barrel []
+        }
    , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
    ,_crApplyDamage = \_ c -> (id, c)
    }