justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Move stride/footforward datatypes

Browse Source
This commit is contained in:
justin
2026-04-03 11:21:09 +01:00
parent d65a4529be
commit b7b42f50a5
12 changed files with 238 additions and 248 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update.hs
+1 -1
View File
@@ -372,7 +372,7 @@ updateCreatureStrides :: World -> World
updateCreatureStrides = cWorld . lWorld . creatures . each %~ updateCreatureStride
updateCreatureStride :: Creature -> Creature
updateCreatureStride cr = cr & crStance . carriage . strideAmount +~ d
updateCreatureStride cr = cr & crType . strideAmount +~ d
where
s = fromMaybe 0 $ crMvType cr ^? mvSpeed
-- d = min s . norm $ cr ^. crPos - cr ^. crOldPos