Commit before pushing more input events into update

2022-10-29 22:33:10 +01:00
parent afaef480db
commit e3155752ba
36 changed files with 121 additions and 147 deletions
@@ -84,7 +84,7 @@ unsafeBlinkGun =
 useForceFieldGun :: Item -> Creature -> World -> World
 useForceFieldGun itm cr w = fromMaybe w $ do
    a <- _tgPos $ _itTargeting itm
-    let mwp = mouseWorldPos (w ^. input) (w ^. cWorld . lWorld . camPos)
+    let mwp = mouseWorldPos (w ^. input) (w ^. cWorld . camPos)
        b = if dist a mwp < 100 then mwp else a +.+ 100 *.* normalizeV (mwp -.- a)
        wlline = (a, b)
    return $