Continue work on refactoring equipment position

src/Dodge/Update/Camera.hs

@@ -14,14 +14,14 @@ import Dodge.Base
 import Dodge.Creature.Test
 import Dodge.Data.Config
 import Dodge.Data.World
-import Dodge.Equipment
+--import Dodge.Equipment
 import Dodge.InputFocus
 import Dodge.SmoothScroll
 import Dodge.Viewpoints
 import Dodge.WASD
 import Dodge.Zoning.Wall
 import Geometry
-import qualified IntMapHelp as IM
+--import qualified IntMapHelp as IM
 import LensHelp
 import SDL (MouseButton (..))
 import qualified SDL
@@ -115,13 +115,19 @@ moveZoomCamera cfig theinput cr w campos =
     wallZoom = min4 (campos ^. camBoundDist)
     min4 (a, b, c, d) = minimum [hh / maxd a, hh / maxd (- b), hw / maxd c, hw / maxd (- d)]
     maxd = max distFromEqmnt
-    distFromEqmnt = foldl' max 1 $ IM.mapMaybe (_eeViewDist . _uequipEffect . _itUse) $ getCrEquipment cr
+    distFromEqmnt = viewDistanceFromItems cr
+    --distFromEqmnt = foldl' max 1 $ IM.mapMaybe (_eeViewDist . _uequipEffect . _itUse) $ getCrEquipment cr
     hw = halfWidth cfig
     hh = halfHeight cfig
     -- these speeds are inverted, larger means slower
     zoomInSpeed = 25
     zoomOutSpeed = 15
 
+-- for example, this should be 400 or so when you have an unsafe blink gun
+-- capable of firing, should be expanded when you have a radar of some sort, etc
+viewDistanceFromItems :: Creature -> Float
+viewDistanceFromItems _ = 1
+
 -- note that your _crInvLock does not apply to this TODO check that this is what
 -- is wanted
 updateScopeZoom :: World -> World