Add concept of GameRoom, check viewing distance based on rooms

src/Dodge/Default/Weapon.hs

@@ -3,6 +3,7 @@ module Dodge.Default.Weapon
 import Dodge.Data
 import Dodge.Item.Weapon.ExtraEffect
 import Dodge.Item.Weapon.InventoryDisplay
+import Dodge.Item.Attachment.Data
 import Dodge.Item.Data
 import Picture
 defaultGun :: Item
@@ -32,10 +33,11 @@ defaultGun = Weapon
     , _itMaxStack = 1
     , _itAimingSpeed = 1
     , _itAimingRange = 0
-    , _itZoom = ItZoom 20 0.2 1 20 0.2 1
+    , _itZoom    = ItZoom 20 0.2 1
+    , _itAimZoom = ItZoom 20 0.2 1
     , _itEquipPict = \_ _ -> blank
     , _itScroll = \_ _ -> id
-    , _itAttachment = Nothing
+    , _itAttachment = NoItAttachment
     , _itID = Nothing
     , _itEffect = wpRecock
     , _itInvDisplay = basicWeaponDisplay