Implement moving wall push and crush

2021-03-29 16:22:25 +02:00
parent a4afe05478
commit b709aad2a6
4 changed files with 62 additions and 39 deletions
@@ -50,19 +50,20 @@ defaultDoor = Door { _wlLine = [(0,0),(50,0)]
                   }
 defaultCreature :: Creature
 defaultCreature = Creature
-    { _crPos = (0,0)
+    { _crPos    = (0,0)
    , _crOldPos = (0,0)
-    , _crDir = 0
-    , _crID = 1
-    , _crPict = const $ onLayer CrLayer $ circleSolid 10
+    , _crVel    = (0,0)
+    , _crDir    = 0
+    , _crID     = 1
+    , _crPict   = const $ onLayer CrLayer $ circleSolid 10
    , _crUpdate = \ w f cr -> (f , Just cr)
-    , _crRad = 10
-    , _crMass = 10
-    , _crHP = 100
-    , _crMaxHP = 150
-    , _crInv = IM.empty
+    , _crRad    = 10
+    , _crMass   = 10
+    , _crHP     = 100
+    , _crMaxHP  = 150
+    , _crInv    = IM.empty
    , _crInvSel = 0
-    , _crState = defaultState
+    , _crState  = defaultState
    , _crCorpse = onLayer CorpseLayer $ color (greyN 0.5) $ circleSolid 10
    , _crIsAnimate = True
    }