Start work on pathfinding

2025-10-13 06:30:55 +01:00
parent 9e7b7a3f76
commit 6b5090e697
7 changed files with 265 additions and 287 deletions
@@ -200,8 +200,8 @@ drawCreatureDisplayTexts w = foldMap (creatureDisplayText w) (w ^. cWorld . lWor

 drawPathBetween :: World -> Picture
 drawPathBetween w = concat $ do
-    sp <- w ^. input . clickPos . at ButtonLeft
-    ep <- w ^. input . clickPos . at ButtonRight
+    sp <- w ^. input . heldWorldPos . at ButtonLeft
+    ep <- w ^. input . heldWorldPos . at ButtonRight
    let nodepos = (`getNodePos` w)
        nodelist = makePathBetween sp ep w
    return . setLayer DebugLayer $