Refactor window size, update selection cursor on new screen

src/Dodge/HeldUse.hs

@@ -349,7 +349,7 @@ useMod hm = case hm of
     directedTelPos _ cr w = (p, a)
       where
         p = fromMaybe (_crPos cr) $ cr ^? crTargeting . ctPos . _Just
-        a = argV (mouseWorldPos (w ^. input) (w ^. cWorld . camPos) -.- p)
+        a = argV (mouseWorldPos (w ^. input) (w ^. cWorld . cwCamPos) -.- p)
     moddelay x = itUse . heldConsumption . laAmmoType . amBullet . buDelayFraction .~ x
     modcrpos x cr =
         cr & crDir %~ tweenAngles x (_crOldDir cr)
@@ -513,7 +513,7 @@ shootTeslaArc it cr w =
 useForceFieldGun :: Item -> Creature -> World -> World
 useForceFieldGun itm cr w = fromMaybe w $ do
     a <- cr ^? crTargeting . ctPos . _Just
-    let mwp = mouseWorldPos (w ^. input) (w ^. cWorld . camPos)
+    let mwp = mouseWorldPos (w ^. input) (w ^. cWorld . cwCamPos)
         b = if dist a mwp < 100 then mwp else a +.+ 100 *.* normalizeV (mwp -.- a)
         wlline = (a, b)
     return $