Minor tweaking, argument refining

2022-10-29 12:20:19 +01:00
parent af6cdff063
commit afaef480db
17 changed files with 59 additions and 56 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
+    let mwp = mouseWorldPos (w ^. input) (w ^. cWorld . lWorld . camPos)
        b = if dist a mwp < 100 then mwp else a +.+ 100 *.* normalizeV (mwp -.- a)
        wlline = (a, b)
    return $