Add concept of GameRoom, check viewing distance based on rooms

src/Dodge/Data.hs

@@ -33,6 +33,7 @@ import Geometry.Data
 import Polyhedra.Data
 import Sound.Data
 import qualified DoubleStack as DS
+import Dodge.GameRoom
 
 import GHC.Generics
 import Control.Lens
@@ -107,6 +108,7 @@ data World = World
     , _inventoryMode        :: InventoryMode
     , _lClickHammer         :: HammerPosition
     , _radDistortion        :: [(Point2,Point2,Point2,Float)]
+    , _gameRooms            :: [GameRoom]
     }
 data InventoryMode
     = TopInventory
@@ -239,11 +241,12 @@ data Item
         , _itAmount :: Int
         , _itAimingSpeed :: Float
         , _itAimingRange :: Float
-        , _itZoom :: ItZoom
+        , _itZoom    :: ItZoom
+        , _itAimZoom :: ItZoom
         , _itEquipPict :: Creature -> Int -> Picture
         , _itScroll :: Float -> Creature -> World -> World
         , _itIdentity :: ItemIdentity
-        , _itAttachment :: Maybe ItAttachment
+        , _itAttachment :: ItAttachment
         , _itID :: Maybe Int
         , _itEffect :: ItEffect
         , _itInvDisplay :: Item -> String
@@ -292,6 +295,7 @@ data Item
         , _itAimingSpeed :: Float
         , _itAimingRange :: Float
         , _itZoom :: ItZoom
+        , _itAimZoom :: ItZoom
         , _itInvDisplay :: Item -> String
         , _itInvColor :: Color
         , _itHammer :: HammerPosition
@@ -311,10 +315,11 @@ data Item
         , _itAimingSpeed :: Float
         , _itAimingRange :: Float
         , _itZoom :: ItZoom
+        , _itAimZoom :: ItZoom
         , _itEquipPict :: Creature -> Int -> Picture
         , _itIdentity :: ItemIdentity
         , _itID :: Maybe Int
-        , _itAttachment :: Maybe ItAttachment
+        , _itAttachment :: ItAttachment
         , _itInvDisplay :: Item -> String
         , _itInvColor :: Color
         , _itEffect :: ItEffect
@@ -339,12 +344,9 @@ data ItEffect = NoItEffect
         ,_itEffectCounter   :: Int
         }
 data ItZoom = ItZoom 
-    {_itAimZoomMax :: Float
-    ,_itAimZoomMin :: Float
-    ,_itAimZoomFac :: Float
-    ,_itZoomMax    :: Float
-    ,_itZoomMin    :: Float
-    ,_itZoomFac    :: Float 
+    { _itZoomMax    :: Float
+    , _itZoomMin    :: Float
+    , _itZoomFac    :: Float 
     }
 data IntID a = IntID Int a
 {- Objects without ids.