Add concept of GameRoom, check viewing distance based on rooms

2021-09-02 23:24:29 +01:00
parent 9d2f42dbc9
commit c69af7a5f4
30 changed files with 295 additions and 151 deletions
@@ -77,13 +77,14 @@ defaultEquipment = Equipment
    , _itID = Nothing
    , _itAimingSpeed = 1
    , _itAimingRange = 0
-    , _itZoom = defaultItZoom
+    , _itZoom    = defaultItZoom
+    , _itAimZoom = defaultItZoom
    , _itInvColor = yellow
    , _itInvDisplay = _itName
    , _itAimStance = LeaveHolstered
    }
 defaultItZoom :: ItZoom
-defaultItZoom = ItZoom 20 0.2 1 20 0.2 1
+defaultItZoom = ItZoom 20 0.2 1
 defaultConsumable :: Item
 defaultConsumable = Consumable
    { _itIdentity = Generic