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
@@ -91,18 +91,18 @@ moveFlame
 moveFlame rotd w pt 
    | time <= 0 = (smokeGen w, Nothing)
    | otherwise = case thingsHitExceptCr (_btPassThrough' pt) sp ep w of
-        ((_,E3x1 _):_)       -> (soundAndGlare damcrs        , mvPt')
+        ((_,E3x1 _):_)       -> (doSound damcrs        , mvPt')
        (thing@(p,E3x2 wl):_) -> (fst $ hiteff [thing] damcrs , rfl wl p)
-        _                     -> (glare $ soundAndGlare damcrs        , mvPt)
+        _                     -> (glare $ doSound damcrs        , mvPt)
  where 
    time = _btTimer' pt
-    soundAndGlare = soundFrom Flame fireSound 2 500 -- . over worldEvents ((.) $ flameGlareAt ep)
+    doSound = soundFrom Flame fireSound 2 500 -- . over worldEvents ((.) $ flameGlareAt ep)
    glare 
        | time `mod` 5 == 0
                    = tempLightSources %~ (theTLS :)
        | otherwise = id
    theTLS = defaultTLS
-        { _tlsPos = V3 x y 15
+        { _tlsPos = V3 x y 10
        , _tlsRad = 70
        , _tlsIntensity = V3 0.5 0 0
        }