Generalise pathing, usable with flying creatures

2026-04-02 19:30:44 +01:00
parent c2de804fa9
commit ff903bfb3b
19 changed files with 322 additions and 215 deletions
@@ -176,11 +176,7 @@ mvCr p rot = (crPos . _xy .~ p) . (crOldPos . _xy .~ p) . (crDir .~ rot)
 mvFS :: Point2 -> Float -> ForegroundShape -> ForegroundShape
 mvFS p a = (fsDir +~ a) . (fsPos %~ ((p +) . rotateV a))

-plMachine ::
-    Machine ->
-    Maybe Item ->
-    GenWorld ->
-    (Int, GenWorld)
+plMachine :: Machine -> Maybe Item -> GenWorld -> (Int, GenWorld)
 plMachine mc mitm gw =
    ( mcid
    , gw