Remove temporary light sources as separate entity

src/Dodge/Creature/State.hs

@@ -252,7 +252,8 @@ shineTorch cr itmtree (p, q) = fromMaybe id $ do
     guard $ i >= x
     invid <- mag ^? ldtValue . cItem . itLocation . ilInvID
     return $
-        (cWorld . lWorld . tempLightSources .:~ tlsTimeRadColPos 1 250 0.7 pos'')
+        --(cWorld . lWorld . tempLightSources .:~ tlsTimeRadColPos 1 250 0.7 pos'')
+        (cWorld . lWorld . lights .:~ LSParam pos'' 250 0.7)
             . (cWorld . lWorld . creatures . ix (_crID cr) . crInv . ix invid . itUse . amagLoadStatus . iaLoaded -~ x)
   where
     x = 10

src/Dodge/Data/LWorld.hs

@@ -134,7 +134,7 @@ data LWorld = LWorld
     , _foregroundShapes :: IM.IntMap ForegroundShape
     , _corpses :: IM.IntMap Corpse
     , _lightSources :: IM.IntMap LightSource
-    , _tempLightSources :: [TempLightSource]
+--    , _tempLightSources :: [TempLightSource]
     , _lights :: [LSParam]
     , _seenLocations :: IM.IntMap (WdP2, String)
     , _selLocation :: Int

src/Dodge/Data/LightSource.hs

@@ -13,18 +13,18 @@ import Geometry
 data LightSourceDraw = DefaultLightSourceDraw
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data TLSIntensity
-    = ConstantIntensity
-    | TLSFade Point3 Int
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+--data TLSIntensity
+--    = ConstantIntensity
+--    | TLSFade Point3 Int
+--    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+--
+--data TLSUpdate
+--    = DestroyTLS
+--    | TimerTLS
+--    | IntensityTLS TLSIntensity
+--    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data TLSUpdate
-    = DestroyTLS
-    | TimerTLS
-    | IntensityTLS TLSIntensity
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
-data LSParam = LSParam
+data LSParam = LSParam -- LSPosRadCol
     { _lsPos :: !Point3
     , _lsRad :: !Float
     , _lsCol :: !Point3
@@ -39,19 +39,19 @@ data LightSource = LS
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data TempLightSource = TLS
-    { _tlsParam :: LSParam
-    , _tlsUpdate :: TLSUpdate --TempLightSource -> Maybe TempLightSource
-    , _tlsTime :: Int
-    }
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+--data TempLightSource = TLS
+--    { _tlsParam :: LSParam
+--    , _tlsUpdate :: TLSUpdate --TempLightSource -> Maybe TempLightSource
+--    , _tlsTime :: Int
+--    }
+--    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''LSParam
 makeLenses ''LightSource
-makeLenses ''TempLightSource
+--makeLenses ''TempLightSource
 deriveJSON defaultOptions ''LightSourceDraw
-deriveJSON defaultOptions ''TLSIntensity
-deriveJSON defaultOptions ''TLSUpdate
+--deriveJSON defaultOptions ''TLSIntensity
+--deriveJSON defaultOptions ''TLSUpdate
 deriveJSON defaultOptions ''LSParam
 deriveJSON defaultOptions ''LightSource
-deriveJSON defaultOptions ''TempLightSource
+--deriveJSON defaultOptions ''TempLightSource

src/Dodge/Default/LightSource.hs

@@ -17,15 +17,15 @@ defaultLS =
         , _lsPict = DefaultLightSourceDraw --defLSPic
         }
 
-defaultTLS :: TempLightSource
-defaultTLS =
-    TLS
-        { _tlsParam =
-            LSParam
-                { _lsPos = 0
-                , _lsRad = 0
-                , _lsCol = 0.5
-                }
-        , _tlsUpdate = TimerTLS
-        , _tlsTime = 1
-        }
+--defaultTLS :: TempLightSource
+--defaultTLS =
+--    TLS
+--        { _tlsParam =
+--            LSParam
+--                { _lsPos = 0
+--                , _lsRad = 0
+--                , _lsCol = 0.5
+--                }
+--        , _tlsUpdate = TimerTLS
+--        , _tlsTime = 1
+--        }

src/Dodge/Default/World.hs

@@ -135,7 +135,7 @@ defaultLWorld =
         , _buttons = IM.empty
         , _corpses = IM.empty
         , _lightSources = IM.empty
-        , _tempLightSources = []
+--        , _tempLightSources = []
         , _lights = mempty
         , _seenLocations =
             IM.fromList

src/Dodge/EnergyBall.hs

@@ -94,6 +94,7 @@ makeFlashBall p w =
 ebFlicker :: EnergyBall -> World -> World
 ebFlicker pt
     | _ebTimer pt `mod` 7 == 0 =
-        cWorld . lWorld . tempLightSources
-            .:~ tlsTimeRadColPos 1 70 (0.5 *.*.* xyzV4 (_ebColor pt)) (addZ 20 $ _ebPos pt)
+        cWorld . lWorld . lights
+            .:~ LSParam (addZ 20 $ _ebPos pt) 70 (0.5 *.*.* xyzV4 (_ebColor pt))
+--            .:~ tlsTimeRadColPos 1 70 (0.5 *.*.* xyzV4 (_ebColor pt)) (addZ 20 $ _ebPos pt)
     | otherwise = id

src/Dodge/Euse.hs

@@ -158,12 +158,17 @@ removeShieldWall it _ w = case it ^? itParams . flatShieldWlMIX . _Just of
 
 createHeadLamp :: Item -> Creature -> World -> World
 createHeadLamp _ cr =
-    cWorld . lWorld . tempLightSources
-        .:~ tlsTimeRadColPos
-            1
-            200
-            0.7
+    cWorld . lWorld . lights .:~ LSParam             
             ((_crPos cr `v2z` 0) +.+.+ rotate3 (_crDir cr) (translatePointToHead cr (V3 5 0 3)))
+            200 
+            0.7
+
+--    cWorld . lWorld . tempLightSources
+--        .:~ tlsTimeRadColPos
+--            1
+--            200
+--            0.7
+--            ((_crPos cr `v2z` 0) +.+.+ rotate3 (_crDir cr) (translatePointToHead cr (V3 5 0 3)))
 
 overCID :: (Creature -> Creature) -> Item -> Creature -> World -> World
 overCID f _ cr = cWorld . lWorld . creatures . ix (_crID cr) %~ f

src/Dodge/Flame.hs

@@ -124,8 +124,9 @@ flDamageInArea crt wlt pt w = damwls damcrs
 flFlicker :: Flame -> World -> World
 flFlicker pt
     | _flTimer pt `mod` 7 == 0 =
-        cWorld . lWorld . tempLightSources
-            .:~ tlsTimeRadColPos 1 70 (0.5 *.*.* xyzV4 (_flColor pt)) (addZ 10 $ _flPos pt)
+        cWorld . lWorld . lights
+            .:~ LSParam (addZ 10 $ _flPos pt) 70 (0.5 *.*.* xyzV4 (_flColor pt))
+--            .:~ tlsTimeRadColPos 1 70 (0.5 *.*.* xyzV4 (_flColor pt)) (addZ 10 $ _flPos pt)
     | otherwise = id
 
 makeFlame :: Point2 -> Point2 -> World -> World

src/Dodge/HeldUse.hs

@@ -147,17 +147,21 @@ makeMuzzleFlare mz itmtree cr = case mz ^. mzFlareType of
     DefaultFlareType -> id
     PistolFlare -> basicMuzFlare pos dir
     MiniGunFlare ->
-        makeTlsTimeRadColPos 2 100 (V3 1 1 0.5) (pos `v2z` 20)
+        --makeTlsTimeRadColPos 2 100 (V3 1 1 0.5) (pos `v2z` 20)
+        (cWorld . lWorld . lights .:~ LSParam (pos `v2z` 20) 100 (V3 1 1 0.5))
             . muzFlareAt (V4 10 10 1 3) (pos `v2z` 20) dir
     HeavySmokeFlare -> basicMuzFlare pos dir
     LasGunFlare ->
         flareCircleAt (getLaserColor itmtree) 0.8 (pos `v2z` 20)
-            . ( cWorld . lWorld . tempLightSources
-                    .:~ tlsTimeRadColPos 1 100 (xyzV4 $ getLaserColor itmtree) (pos `v2z` 10)
+--            . ( cWorld . lWorld . tempLightSources
+--                    .:~ tlsTimeRadColPos 1 100 (xyzV4 $ getLaserColor itmtree) (pos `v2z` 10)
+            . ( cWorld . lWorld . lights
+                    .:~ LSParam (pos `v2z` 10) 100 (xyzV4 $ getLaserColor itmtree)
               )
     TeslaGunFlare ->
-        cWorld . lWorld . tempLightSources
-            .:~ tlsTimeRadColPos 1 100 (V3 0 0 1) (pos `v2z` 10)
+        cWorld . lWorld . lights
+            .:~ LSParam (pos `v2z` 10) 100 (V3 0 0 1)
+--            .:~ tlsTimeRadColPos 1 100 (V3 0 0 1) (pos `v2z` 10)
   where
     itm = itmtree ^. ldtValue
     pos = _crPos cr + rotateV (_crDir cr) (_mzPos mz + aimingWeaponZeroPos cr itm)
@@ -198,7 +202,8 @@ getLaserColor = const yellow
 
 basicMuzFlare :: Point2 -> Float -> World -> World
 basicMuzFlare pos dir =
-    makeTlsTimeRadColPos 2 100 (V3 1 1 0.5) (pos `v2z` 20)
+--    makeTlsTimeRadColPos 2 100 (V3 1 1 0.5) (pos `v2z` 20)
+    (cWorld . lWorld . lights .:~ LSParam (pos `v2z` 20) 100 (V3 1 1 0.5))
         . muzFlareAt (V4 10 10 1 3) (pos `v2z` 20) dir
         . muzFlareAt (V4 10 10 1 3) (pos `v2z` 20) dir
         . muzFlareAt (V4 10 10 1 3) (pos `v2z` 20) dir

src/Dodge/Lampoid.hs

@@ -18,7 +18,9 @@ updateLampoid cr w = case cr ^?! crType . lampLSID of
     Just i
         | _crHP cr < 0 ->
             w
-                & cWorld . lWorld . tempLightSources .:~ tlsTimeRadFunPos 20 150 (TLSFade 1 10) (addZ 20 cpos)
+                -- & cWorld . lWorld . tempLightSources .:~ tlsTimeRadFunPos 20 150 (TLSFade 1 10) (addZ 20 cpos)
+                & cWorld . lWorld . worldEvents .:~ MakeTempLight 
+                    (LSParam (addZ 20 cpos) 150 1) 20
                 & originsIDsAt [MaterialSound Glass n | n <- [0, 1, 2]] (destroyMatS Glass) cpos
                 & cWorld . lWorld . lightSources . at i .~ Nothing
                 & cWorld . lWorld . creatures . at cid .~ Nothing

src/Dodge/LightSource.hs

@@ -1,13 +1,13 @@
 module Dodge.LightSource (
-    tlsTimeRadFunPos,
-    tlsTimeRadColPos,
+--    tlsTimeRadFunPos,
+--    tlsTimeRadColPos,
     lsRadCol,
     lsColPosRad,
     lsColPos,
     lsPosCol,
     lsPosRad,
     lsColPosID,
-    makeTlsTimeRadColPos,
+--    makeTlsTimeRadColPos,
     destroyLS,
 ) where
 
@@ -23,18 +23,18 @@ import LensHelp
 lsPosRad :: Point3 -> Float -> LightSource
 lsPosRad = lsColPosRad 0.75
 
-tlsTimeRadFunPos :: Int -> Float -> TLSIntensity -> Point3 -> TempLightSource
-tlsTimeRadFunPos t rmax intensityF p =
-    TLS
-        { _tlsParam =
-            LSParam
-                { _lsPos = p
-                , _lsRad = rmax
-                , _lsCol = 0 -- intensityF t
-                }
-        , _tlsUpdate = IntensityTLS intensityF
-        , _tlsTime = t
-        }
+--tlsTimeRadFunPos :: Int -> Float -> TLSIntensity -> Point3 -> TempLightSource
+--tlsTimeRadFunPos t rmax intensityF p =
+--    TLS
+--        { _tlsParam =
+--            LSParam
+--                { _lsPos = p
+--                , _lsRad = rmax
+--                , _lsCol = 0 -- intensityF t
+--                }
+--        , _tlsUpdate = IntensityTLS intensityF
+--        , _tlsTime = t
+--        }
 
 --  where
 --    upF tls
@@ -66,27 +66,27 @@ lsRadCol r col =
     defaultLS & lsParam . lsRad .~ r
         & lsParam . lsCol .~ col
 
-tlsTimeRadColPos ::
-    Int ->
-    -- | maximal radius
-    Float ->
-    Point3 ->
-    Point3 ->
-    TempLightSource
-tlsTimeRadColPos t rmax col (V3 x y z) =
-    TLS
-        { _tlsParam =
-            LSParam
-                { _lsPos = V3 x y z
-                , _lsRad = rmax
-                , _lsCol = col
-                }
-        , _tlsUpdate = TimerTLS
-        , _tlsTime = t
-        }
-
-makeTlsTimeRadColPos :: Int -> Float -> Point3 -> Point3 -> World -> World
-makeTlsTimeRadColPos i rad (V3 r g b) p = cWorld . lWorld . tempLightSources .:~ tlsTimeRadColPos i rad (V3 r g b) p
+--tlsTimeRadColPos ::
+--    Int ->
+--    -- | maximal radius
+--    Float ->
+--    Point3 ->
+--    Point3 ->
+--    TempLightSource
+--tlsTimeRadColPos t rmax col (V3 x y z) =
+--    TLS
+--        { _tlsParam =
+--            LSParam
+--                { _lsPos = V3 x y z
+--                , _lsRad = rmax
+--                , _lsCol = col
+--                }
+--        , _tlsUpdate = TimerTLS
+--        , _tlsTime = t
+--        }
+--
+--makeTlsTimeRadColPos :: Int -> Float -> Point3 -> Point3 -> World -> World
+--makeTlsTimeRadColPos i rad (V3 r g b) p = cWorld . lWorld . tempLightSources .:~ tlsTimeRadColPos i rad (V3 r g b) p
 
 destroyLS :: Int -> World -> World
 destroyLS lsid w =
@@ -100,11 +100,13 @@ destroyLS lsid w =
 
 destroyLSFlashAt :: Point3 -> World -> World
 destroyLSFlashAt (V3 x' y' z') =
-    cWorld . lWorld . tempLightSources
-        .:~ tlsTimeRadFunPos
-            20
-            150
-            (TLSFade 1 10)
-            (addZ z' p)
+    cWorld . lWorld . worldEvents .:~ MakeTempLight 
+        (LSParam (addZ z' p) 150 1) 20
+--    cWorld . lWorld . tempLightSources
+--        .:~ tlsTimeRadFunPos
+--            20
+--            150
+--            (TLSFade 1 10)
+--            (addZ z' p)
   where
     p = V2 x' y'

src/Dodge/LightSource/Update.hs

@@ -4,22 +4,22 @@ import Control.Lens
 import Dodge.Data.LightSource
 import Geometry
 
-updateTempLightSource :: TLSUpdate -> TempLightSource -> Maybe TempLightSource
-updateTempLightSource tlsu = case tlsu of
-    DestroyTLS -> const Nothing
-    TimerTLS -> timerTLS
-    IntensityTLS ConstantIntensity -> updateTempLightSource TimerTLS
-    IntensityTLS (TLSFade startcol x) -> fadeTLS startcol x
-
-fadeTLS :: Point3 -> Int -> TempLightSource -> Maybe TempLightSource
-fadeTLS startcol x tls
-    | t < 1 = Nothing
-    | t < x = Just $ tls & tlsParam . lsCol .~ (1 / fromIntegral (x - t)) *.*.* startcol
-    | otherwise = Just $ tls & tlsParam . lsCol .~ startcol -- this is wasteful, should be set once at begining
-  where
-    t = _tlsTime tls
-
-timerTLS :: TempLightSource -> Maybe TempLightSource
-timerTLS t
-    | _tlsTime t <= 0 = Nothing
-    | otherwise = Just $ t & tlsTime -~ 1
+--updateTempLightSource :: TLSUpdate -> TempLightSource -> Maybe TempLightSource
+--updateTempLightSource tlsu = case tlsu of
+--    DestroyTLS -> const Nothing
+--    TimerTLS -> timerTLS
+--    IntensityTLS ConstantIntensity -> updateTempLightSource TimerTLS
+--    IntensityTLS (TLSFade startcol x) -> fadeTLS startcol x
+--
+--fadeTLS :: Point3 -> Int -> TempLightSource -> Maybe TempLightSource
+--fadeTLS startcol x tls
+--    | t < 1 = Nothing
+--    | t < x = Just $ tls & tlsParam . lsCol .~ (1 / fromIntegral (x - t)) *.*.* startcol
+--    | otherwise = Just $ tls & tlsParam . lsCol .~ startcol -- this is wasteful, should be set once at begining
+--  where
+--    t = _tlsTime tls
+--
+--timerTLS :: TempLightSource -> Maybe TempLightSource
+--timerTLS t
+--    | _tlsTime t <= 0 = Nothing
+--    | otherwise = Just $ t & tlsTime -~ 1

src/Dodge/Render/Lights.hs

@@ -16,11 +16,11 @@ lightsToRender :: Configuration -> Camera -> LWorld -> [(Point3, Float, Point3)]
 lightsToRender cfig campos w =  take (fromEnum $ cfig ^. graphics_num_shadow_casters) $
     sortOn (\(_,x,_) -> negate x) $
     mapMaybe getLS (IM.elems $ w ^. lightSources)
-        ++ mapMaybe getTLS (w ^. tempLightSources)
+--        ++ mapMaybe getTLS (w ^. tempLightSources)
         ++ mapMaybe getlsparam (w ^. lights)
   where
     getLS = getlsparam . _lsParam
-    getTLS = getlsparam . _tlsParam
+--    getTLS = getlsparam . _tlsParam
     cbox = campos ^. camBoundBox
     cpos = campos ^. camCenter
     getlsparam ls

src/Dodge/Update.hs

@@ -163,7 +163,7 @@ updateUniverseMid u = case _uvScreenLayers u of
                  --updateParticles
                  (cWorld . lWorld . radarBlips .~ [])
                     --        . updateIMl _props _pjUpdate
-                    . updateLightSources
+--                    . updateLightSources
                     . (cWorld . lWorld . lights .~ [])
                     . updateClouds
                )
@@ -276,7 +276,7 @@ functionalUpdate u =
         . over uvWorld (updateIMl' (_linearShockwaves . _lWorld . _cWorld) updateLinearShockwave)
         . over uvWorld (updateIMl' (_props . _lWorld . _cWorld) updateProp)
         . over uvWorld (updateIMl' (_projectiles . _lWorld . _cWorld) updateProjectile)
-        . over uvWorld updateLightSources
+--        . over uvWorld updateLightSources
         . over uvWorld updateClouds
         . over uvWorld updateGusts
         . over uvWorld (updateMIM (cWorld . lWorld . magnets) (doMagnetUpdate . _mgUpdate))
@@ -531,8 +531,8 @@ updateObjCatMaybes p f w = w' & cWorld . lWorld . p #~ catMaybes newxs
 updateDistortions :: World -> World
 updateDistortions = updateObjMapMaybe distortions updateDistortion
 
-updateLightSources :: World -> World
-updateLightSources = updateObjMapMaybe tempLightSources (\b -> updateTempLightSource (_tlsUpdate b) b)
+--updateLightSources :: World -> World
+--updateLightSources = updateObjMapMaybe tempLightSources (\b -> updateTempLightSource (_tlsUpdate b) b)
 
 updateRadarBlips :: World -> World
 updateRadarBlips = updateObjMapMaybe radarBlips updateRadarBlip

src/Dodge/WorldEvent/Explosion.hs

@@ -76,10 +76,12 @@ makeExplosionAt p w =
     w
         & soundMultiFrom [Explosion 0, Explosion 1] p bangS Nothing
         & addFlames
-        & cWorld . lWorld . tempLightSources .:~ theTLS
+--        & cWorld . lWorld . tempLightSources .:~ theTLS
+        & cWorld . lWorld . worldEvents .:~ thels
         & makeShockwaveAt [] p 50 50 1 white
   where
-    theTLS = tlsTimeRadColPos 20 150 (V3 1 0.5 0) (addZ 20 p)
+    thels = MakeTempLight (LSParam (addZ 20 p) 150 (V3 1 0.5 0)) 20
+--    theTLS = tlsTimeRadColPos 20 150 (V3 1 0.5 0) (addZ 20 p)
     fVs = replicateM 100 (randInCirc 1) & evalState $ _randGen w
     --fPs'' = replicateM 100 (fmap (15 *.*.*) randInHemisphere) & evalState $ _randGen w
     fPs'' = replicateM 100 (fmap (15 *.*.*) randInHemisphere) & evalState $ _randGen w

tags

@@ -352,7 +352,6 @@ Config	src/Dodge/Data/Config.hs	4;"	m
 Configuration	src/Dodge/Data/Config.hs	38;"	t
 Connectors	src/Dodge/Render/Connectors.hs	3;"	m
 ConstFloat	src/Dodge/Data/GenFloat.hs	11;"	C
-ConstantIntensity	src/Dodge/Data/LightSource.hs	17;"	C
 Consumable	src/Dodge/Item/Consumable.hs	1;"	m
 ConsumableItemType	src/Dodge/Data/Item/Combine.hs	95;"	t
 Consumption	src/Dodge/Data/Item/Use/Consumption.hs	8;"	m
@@ -504,7 +503,6 @@ DestroyBeing	src/Dodge/Data/Scenario.hs	8;"	C
 DestroyBullet	src/Dodge/Data/Bullet.hs	37;"	C
 DestroyItem	src/Dodge/Data/Scenario.hs	7;"	C
 DestroyPU	src/Dodge/Data/Item/Use/Consumption/Ammo.hs	34;"	C
-DestroyTLS	src/Dodge/Data/LightSource.hs	22;"	C
 Detector	src/Dodge/Data/Item/Combine.hs	168;"	t
 Dirt	src/Dodge/Data/Material.hs	11;"	C
 DisasterType	src/Dodge/Data/Scenario.hs	24;"	t
@@ -909,7 +907,6 @@ IntAnno	src/Dodge/Annotation/Data.hs	16;"	C
 IntID	src/Dodge/Data/Universe.hs	110;"	t
 IntImp	src/Dodge/Data/CreatureEffect.hs	20;"	t
 IntMapHelp	src/IntMapHelp.hs	8;"	m
-IntensityTLS	src/Dodge/Data/LightSource.hs	24;"	C
 Intention	src/Dodge/Data/Creature.hs	95;"	t
 Intention	src/Dodge/Creature/Intention.hs	1;"	m
 Intersect	src/Geometry/Intersect.hs	5;"	m
@@ -1830,10 +1827,6 @@ THREELINES	src/Dodge/Data/GenParams.hs	20;"	C
 TIMEMODULE	src/Dodge/Data/Item/Combine.hs	73;"	C
 TIN	src/Dodge/Data/Item/Combine.hs	35;"	C
 TINMAG	src/Dodge/Data/Item/Combine.hs	87;"	C
-TLS	src/Dodge/Data/LightSource.hs	42;"	C
-TLSFade	src/Dodge/Data/LightSource.hs	18;"	C
-TLSIntensity	src/Dodge/Data/LightSource.hs	16;"	t
-TLSUpdate	src/Dodge/Data/LightSource.hs	21;"	t
 TO	src/Shader/Data.hs	59;"	t
 TORCH	src/Dodge/Data/Item/Combine.hs	163;"	C
 TRACTORGUN	src/Dodge/Data/Item/Combine.hs	156;"	C
@@ -1860,7 +1853,6 @@ TargetingLaser	src/Dodge/Data/Laser.hs	18;"	C
 TargetingType	src/Dodge/Data/Item/Targeting.hs	11;"	t
 TeleSound	src/Dodge/Data/SoundOrigin.hs	35;"	C
 Teleport	src/Dodge/Room/Teleport.hs	2;"	m
-TempLightSource	src/Dodge/Data/LightSource.hs	42;"	t
 TermSignal	src/Dodge/Data/Input.hs	59;"	t
 Terminal	src/Dodge/Data/Terminal.hs	31;"	t
 Terminal	src/Dodge/Data/Terminal.hs	6;"	m
@@ -1923,7 +1915,6 @@ Tile	src/Tile.hs	2;"	m
 Tiled	src/Data/Tile.hs	13;"	C
 TimeFlowStatus	src/Dodge/Data/World.hs	58;"	t
 TimePU	src/Dodge/Data/Item/Use/Consumption/Ammo.hs	35;"	C
-TimerTLS	src/Dodge/Data/LightSource.hs	23;"	C
 Tiny	src/Shape/Data.hs	32;"	C
 TmId	src/Dodge/Data/Terminal.hs	60;"	C
 TmTm	src/Dodge/Data/Terminal.hs	59;"	t
@@ -3094,7 +3085,6 @@ _tcAlias	src/Dodge/Data/Terminal.hs	118;"	f
 _tcEffect	src/Dodge/Data/Terminal.hs	120;"	f
 _tcHelp	src/Dodge/Data/Terminal.hs	119;"	f
 _tcString	src/Dodge/Data/Terminal.hs	117;"	f
-_tempLightSources	src/Dodge/Data/LWorld.hs	137;"	f
 _termID	src/Dodge/Data/HUD.hs	43;"	f
 _terminals	src/Dodge/Data/LWorld.hs	123;"	f
 _teslaArcs	src/Dodge/Data/LWorld.hs	113;"	f
@@ -3116,9 +3106,6 @@ _tlPause	src/Dodge/Data/Terminal.hs	72;"	f
 _tlPause	src/Dodge/Data/Terminal.hs	76;"	f
 _tlString	src/Dodge/Data/Terminal.hs	69;"	f
 _tlTermEffect	src/Dodge/Data/Terminal.hs	73;"	f
-_tlsParam	src/Dodge/Data/LightSource.hs	43;"	f
-_tlsTime	src/Dodge/Data/LightSource.hs	45;"	f
-_tlsUpdate	src/Dodge/Data/LightSource.hs	44;"	f
 _tmBootProgram	src/Dodge/Data/Terminal.hs	33;"	f
 _tmButtonID	src/Dodge/Data/Terminal.hs	34;"	f
 _tmCommandHistory	src/Dodge/Data/Terminal.hs	46;"	f
@@ -3316,7 +3303,7 @@ addToTrunk	src/TreeHelp.hs	156;"	f
 addWarningTerminal	src/Dodge/Room/Warning.hs	37;"	f
 addZ	src/Geometry/Vector3D.hs	89;"	f
 adjustIMZone	src/Dodge/Base.hs	77;"	f
-advanceScrollAmount	src/Dodge/Update.hs	409;"	f
+advanceScrollAmount	src/Dodge/Update.hs	411;"	f
 advanceSmoothScroll	src/Dodge/SmoothScroll.hs	29;"	f
 advanceStepCounter	src/Dodge/Creature/Impulse/Movement.hs	45;"	f
 aimDelaySweep	src/Dodge/Render/Picture.hs	239;"	f
@@ -3457,7 +3444,7 @@ basicDrawBeam	src/Dodge/Beam/Draw.hs	11;"	f
 basicItemDisplay	src/Dodge/Item/Display.hs	33;"	f
 basicMachineApplyDamage	src/Dodge/Machine/Damage.hs	6;"	f
 basicMachineUpdate	src/Dodge/Machine.hs	13;"	f
-basicMuzFlare	src/Dodge/HeldUse.hs	199;"	f
+basicMuzFlare	src/Dodge/HeldUse.hs	203;"	f
 basicTerminal	src/Dodge/Terminal.hs	35;"	f
 battery	src/Dodge/Item/Ammo.hs	96;"	f
 batteryPack	src/Dodge/Item/Equipment.hs	56;"	f
@@ -3560,13 +3547,13 @@ chaseCritVocalization	src/Dodge/Creature/ChaseCrit.hs	46;"	f
 checkCombineSelectionExists	src/Dodge/DisplayInventory.hs	101;"	f
 checkConnection	src/Dodge/Inventory/Swap.hs	80;"	f
 checkDeath	src/Dodge/Creature/State.hs	75;"	f
-checkEndGame	src/Dodge/Update.hs	696;"	f
+checkEndGame	src/Dodge/Update.hs	698;"	f
 checkErrorGL	src/Shader/Compile.hs	255;"	f
 checkFBO	src/Framebuffer/Check.hs	6;"	f
 checkGLError	src/GLHelp.hs	17;"	f
 checkInvSlotsYou	src/Dodge/Inventory/CheckSlots.hs	16;"	f
 checkInventorySelectionExists	src/Dodge/DisplayInventory.hs	94;"	f
-checkTermDist	src/Dodge/Update.hs	302;"	f
+checkTermDist	src/Dodge/Update.hs	304;"	f
 checkWallLeft	src/Dodge/LevelGen/StaticWalls/Deprecated.hs	29;"	f
 checkWallRight	src/Dodge/LevelGen/StaticWalls.hs	54;"	f
 checkWallRight	src/Dodge/LevelGen/StaticWalls/Deprecated.hs	59;"	f
@@ -3587,7 +3574,7 @@ circle	src/Picture/Base.hs	180;"	f
 circleDecoration	src/Dodge/Placement/TopDecoration.hs	56;"	f
 circleSolid	src/Picture/Base.hs	164;"	f
 circleSolidCol	src/Picture/Base.hs	168;"	f
-clClSpringVel	src/Dodge/Update.hs	749;"	f
+clClSpringVel	src/Dodge/Update.hs	751;"	f
 clZoneSize	src/Dodge/Zone/Size.hs	3;"	f
 clZoneSize	src/Dodge/Zoning/Cloud.hs	21;"	f
 clampPath	src/Dodge/Room/Procedural.hs	166;"	f
@@ -3613,7 +3600,7 @@ closestCreatureID	src/Dodge/Debug.hs	92;"	f
 closestPointOnLine	src/Geometry/Intersect.hs	251;"	f
 closestPointOnLineParam	src/Geometry/Intersect.hs	267;"	f
 closestPointOnSeg	src/Geometry/Intersect.hs	282;"	f
-cloudEffect	src/Dodge/Update.hs	719;"	f
+cloudEffect	src/Dodge/Update.hs	721;"	f
 cloudPoisonDamage	src/Dodge/Update/Cloud.hs	9;"	f
 clsNearCirc	src/Dodge/Zoning/Cloud.hs	18;"	f
 clsNearPoint	src/Dodge/Zoning/Cloud.hs	9;"	f
@@ -3685,7 +3672,7 @@ crAdd	src/Dodge/Room/RezBox.hs	104;"	f
 crAwayFromPost	src/Dodge/Creature/Test.hs	77;"	f
 crBlips	src/Dodge/RadarSweep.hs	69;"	f
 crCanSeeCr	src/Dodge/Creature/Test.hs	48;"	f
-crCrSpring	src/Dodge/Update.hs	767;"	f
+crCrSpring	src/Dodge/Update.hs	769;"	f
 crCurrentEquipment	src/Dodge/Creature/Statistics.hs	28;"	f
 crDisplayAwareness	src/Dodge/Creature/Picture/Awareness.hs	37;"	f
 crDisplayVigilance	src/Dodge/Creature/Picture/Awareness.hs	51;"	f
@@ -3706,7 +3693,7 @@ crNumFreeSlots	src/Dodge/Inventory/CheckSlots.hs	24;"	f
 crOnWall	src/Dodge/WallCreatureCollisions.hs	84;"	f
 crSafeDistFromTarg	src/Dodge/Creature/Test.hs	67;"	f
 crSetRoots	src/Dodge/Inventory/Location.hs	48;"	f
-crSpring	src/Dodge/Update.hs	762;"	f
+crSpring	src/Dodge/Update.hs	764;"	f
 crStratConMatches	src/Dodge/Creature/Test.hs	72;"	f
 crUpdate	src/Dodge/Creature/State.hs	62;"	f
 crUpdateInvidLocations	src/Dodge/Inventory/Location.hs	61;"	f
@@ -3724,7 +3711,7 @@ createItemYou	src/Dodge/Inventory/Add.hs	94;"	f
 createLightMap	src/Render.hs	26;"	f
 createNewArc	src/Dodge/Tesla/Arc.hs	76;"	f
 createPathGrid	src/Dodge/Room/Path.hs	21;"	f
-createProjectile	src/Dodge/HeldUse.hs	496;"	f
+createProjectile	src/Dodge/HeldUse.hs	501;"	f
 createShell	src/Dodge/Projectile/Create.hs	19;"	f
 createShieldWall	src/Dodge/Euse.hs	134;"	f
 createUnusedLinkPos	src/Dodge/Tree/Shift.hs	117;"	f
@@ -3899,7 +3886,6 @@ defaultRoom	src/Dodge/Default/Room.hs	9;"	f
 defaultSensorWall	src/Dodge/Default/Wall.hs	58;"	f
 defaultState	src/Dodge/Default/Creature.hs	140;"	f
 defaultSwitchWall	src/Dodge/Default/Door.hs	22;"	f
-defaultTLS	src/Dodge/Default/LightSource.hs	20;"	f
 defaultTerminal	src/Dodge/Default/Terminal.hs	9;"	f
 defaultTerminalInput	src/Dodge/Default/Terminal.hs	32;"	f
 defaultVision	src/Dodge/Default/Creature.hs	92;"	f
@@ -3930,7 +3916,7 @@ detectorColor	src/Dodge/Item/Draw/SPic.hs	391;"	f
 detectorEffect	src/Dodge/Item/Weapon/Radar.hs	20;"	f
 detectorInfo	src/Dodge/Item/Info.hs	190;"	f
 determineInvSelCursorWidth	src/Dodge/ListDisplayParams.hs	56;"	f
-determineProjectileTracking	src/Dodge/HeldUse.hs	485;"	f
+determineProjectileTracking	src/Dodge/HeldUse.hs	490;"	f
 diagonalLinesRect	src/Dodge/Room/Foreground.hs	52;"	f
 diffAngles	src/Geometry.hs	196;"	f
 difference	src/Geometry.hs	130;"	f
@@ -3949,7 +3935,7 @@ displayFrameTicks	src/Dodge/Render/Picture.hs	39;"	f
 displayFreeSlots	src/Dodge/DisplayInventory.hs	211;"	f
 displayIndents	src/Dodge/DisplayInventory.hs	119;"	f
 displaySectionsSizes	src/Dodge/DisplayInventory.hs	114;"	f
-displayTerminalLineString	src/Dodge/Update.hs	438;"	f
+displayTerminalLineString	src/Dodge/Update.hs	440;"	f
 dist	src/Geometry/Vector.hs	179;"	f
 dist3	src/Geometry/Vector3D.hs	101;"	f
 divTo	src/Geometry/Zone.hs	6;"	f
@@ -3982,14 +3968,14 @@ doDrWdWd	src/Dodge/DrWdWd.hs	16;"	f
 doDrawing	src/Dodge/Render.hs	35;"	f
 doDrawing'	src/Dodge/Render.hs	46;"	f
 doFloatFloat	src/Dodge/FloatFunction.hs	5;"	f
-doGenFloat	src/Dodge/HeldUse.hs	441;"	f
+doGenFloat	src/Dodge/HeldUse.hs	446;"	f
 doInPlacements	src/Dodge/Layout.hs	92;"	f
 doIndividualPlacements	src/Dodge/Layout.hs	117;"	f
 doInputScreenInput	src/Dodge/Update/Input/ScreenLayer.hs	26;"	f
 doIntImp	src/Dodge/CreatureEffect.hs	24;"	f
 doInvEffect	src/Dodge/ItEffect.hs	10;"	f
 doItCrWdWd	src/Dodge/WorldEffect.hs	52;"	f
-doItemTimeScroll	src/Dodge/Update.hs	199;"	f
+doItemTimeScroll	src/Dodge/Update.hs	200;"	f
 doLoop	src/Loop.hs	60;"	f
 doMCrAc	src/Dodge/CreatureEffect.hs	57;"	f
 doMP2Ac	src/Dodge/CreatureEffect.hs	73;"	f
@@ -4022,7 +4008,7 @@ doTestDrawing	src/Dodge/Render.hs	42;"	f
 doTextInputOver	src/Dodge/Update/Input/Text.hs	15;"	f
 doTextInputOverUniverse	src/Dodge/Update/Input/Text.hs	12;"	f
 doThrust	src/Dodge/Projectile/Update.hs	74;"	f
-doTimeScroll	src/Dodge/Update.hs	204;"	f
+doTimeScroll	src/Dodge/Update.hs	205;"	f
 doTmTm	src/Dodge/TmTm.hs	6;"	f
 doTmWdWd	src/Dodge/WorldEffect.hs	110;"	f
 doWallRotate	src/Dodge/Update/Camera.hs	188;"	f
@@ -4032,7 +4018,7 @@ doWdCrCr	src/Dodge/CreatureEffect.hs	12;"	f
 doWdP2f	src/Dodge/WdP2f.hs	12;"	f
 doWdWd	src/Dodge/WorldEffect.hs	26;"	f
 doWeaponRepetitions	src/Dodge/HeldUse.hs	56;"	f
-doWorldEvents	src/Dodge/Update.hs	420;"	f
+doWorldEvents	src/Dodge/Update.hs	422;"	f
 doWorldPos	src/Dodge/WorldPos.hs	7;"	f
 door	src/Dodge/Room/Door.hs	13;"	f
 doorBetween	src/Dodge/Placement/Instance/Door.hs	39;"	f
@@ -4267,7 +4253,7 @@ flameThrower	src/Dodge/Item/Held/SprayGuns.hs	72;"	f
 flameTorrent	src/Dodge/Item/Held/SprayGuns.hs	40;"	f
 flameWall	src/Dodge/Item/Held/SprayGuns.hs	56;"	f
 flamerPic	src/Dodge/Item/Draw/SPic.hs	328;"	f
-flareCircleAt	src/Dodge/HeldUse.hs	181;"	f
+flareCircleAt	src/Dodge/HeldUse.hs	185;"	f
 flatItemCombinations	src/Dodge/Combine/Combinations.hs	49;"	f
 flatLookupItems	src/Dodge/Combine.hs	36;"	f
 flatShield	src/Dodge/Item/Held/Utility.hs	9;"	f
@@ -4320,7 +4306,7 @@ fromV3	src/Geometry/Data.hs	43;"	f
 frontArmour	src/Dodge/Item/Equipment.hs	41;"	f
 fstV2	src/Geometry/Data.hs	50;"	f
 fuelPack	src/Dodge/Item/Equipment.hs	64;"	f
-functionalUpdate	src/Dodge/Update.hs	250;"	f
+functionalUpdate	src/Dodge/Update.hs	251;"	f
 fuseFunc	src/Dodge/Path.hs	150;"	f
 fusePairs	src/Dodge/Path.hs	153;"	f
 fusePoint	src/Dodge/LevelGen/StaticWalls.hs	158;"	f
@@ -4334,7 +4320,7 @@ gameRoomViewpoints	src/Dodge/Viewpoints.hs	35;"	f
 gameRoomsFromRooms	src/Dodge/Layout.hs	158;"	f
 gameplayMenu	src/Dodge/Menu.hs	131;"	f
 gameplayMenuOptions	src/Dodge/Menu.hs	134;"	f
-gasCreate	src/Dodge/HeldUse.hs	438;"	f
+gasCreate	src/Dodge/HeldUse.hs	443;"	f
 generateGenParams	src/Dodge/LevelGen/LevelStructure.hs	22;"	f
 generateGraphs	src/Dodge/LevelGen.hs	39;"	f
 generateLayout	src/Dodge/Layout/Generate.hs	10;"	f
@@ -4349,8 +4335,8 @@ getAmmoLinks	src/Dodge/Item/Grammar.hs	73;"	f
 getArguments	src/Dodge/Update/Scroll.hs	152;"	f
 getArguments'	src/Dodge/Update/Scroll.hs	140;"	f
 getAvailableListLines	src/Dodge/SelectionList.hs	10;"	f
-getBulletTrajectory	src/Dodge/HeldUse.hs	347;"	f
-getBulletType	src/Dodge/HeldUse.hs	321;"	f
+getBulletTrajectory	src/Dodge/HeldUse.hs	352;"	f
+getBulletType	src/Dodge/HeldUse.hs	326;"	f
 getCommands	src/Dodge/Terminal.hs	117;"	f
 getCommandsHelp	src/Dodge/Terminal.hs	75;"	f
 getCrDexterity	src/Dodge/Creature/Statistics.hs	13;"	f
@@ -4361,12 +4347,12 @@ getDistortions	src/Dodge/Render.hs	383;"	f
 getEquipmentAllocation	src/Dodge/Inventory/RBList.hs	47;"	f
 getItem	src/Dodge/Item/Location.hs	15;"	f
 getLDPWidth	src/Dodge/Render/List.hs	91;"	f
-getLaserColor	src/Dodge/HeldUse.hs	196;"	f
-getLaserDamage	src/Dodge/HeldUse.hs	193;"	f
-getLaserPhaseV	src/Dodge/HeldUse.hs	190;"	f
+getLaserColor	src/Dodge/HeldUse.hs	200;"	f
+getLaserDamage	src/Dodge/HeldUse.hs	197;"	f
+getLaserPhaseV	src/Dodge/HeldUse.hs	194;"	f
 getLinksOfType	src/Dodge/RoomLink.hs	39;"	f
 getMaxLinesTM	src/Dodge/Terminal/Type.hs	11;"	f
-getMenuMouseContext	src/Dodge/Update.hs	367;"	f
+getMenuMouseContext	src/Dodge/Update.hs	369;"	f
 getNodePos	src/Dodge/Path.hs	31;"	f
 getPretty	src/AesonHelp.hs	7;"	f
 getPrettyShort	src/AesonHelp.hs	10;"	f
@@ -4574,12 +4560,12 @@ invertIntMap	src/Multiset.hs	67;"	f
 invertInventoryToMap	src/Dodge/Combine.hs	54;"	f
 invisibleChaseCrit	src/Dodge/Creature/ChaseCrit.hs	25;"	f
 invisibleWall	src/Dodge/Placement/Instance/Wall.hs	16;"	f
-isAmmoIntLink	src/Dodge/HeldUse.hs	206;"	f
+isAmmoIntLink	src/Dodge/HeldUse.hs	211;"	f
 isAnimate	src/Dodge/Creature/Test.hs	136;"	f
 isCognizant	src/Dodge/Creature/Perception.hs	105;"	f
 isConnected	src/Dodge/Inventory/Swap.hs	90;"	f
 isElectrical	src/Dodge/Data/Damage.hs	42;"	f
-isFrictionless	src/Dodge/Creature/State.hs	341;"	f
+isFrictionless	src/Dodge/Creature/State.hs	342;"	f
 isGas	src/Dodge/Euse.hs	64;"	f
 isGroupSelectableSection	src/Dodge/Update/Input/InGame.hs	159;"	f
 isInLnk	src/Dodge/PlacementSpot.hs	160;"	f
@@ -4590,7 +4576,7 @@ isLeftOfA	src/Geometry.hs	181;"	f
 isNothing'	src/MaybeHelp.hs	33;"	f
 isOnSeg	src/Geometry.hs	240;"	f
 isOutLnk	src/Dodge/PlacementSpot.hs	164;"	f
-isOverTerminalScreen	src/Dodge/Update.hs	388;"	f
+isOverTerminalScreen	src/Dodge/Update.hs	390;"	f
 isPutID	src/Dodge/Placement/Instance/Wall.hs	129;"	f
 isRHS	src/Geometry/LHS.hs	24;"	f
 isUnusedLnk	src/Dodge/PlacementSpot.hs	61;"	f
@@ -4606,7 +4592,7 @@ itemBaseName	src/Dodge/Item/Display.hs	44;"	f
 itemBlips	src/Dodge/RadarSweep.hs	75;"	f
 itemCombinations	src/Dodge/Combine/Combinations.hs	54;"	f
 itemCombinationsEdges	src/Dodge/Combine/Graph.hs	60;"	f
-itemDetectorEffect	src/Dodge/HeldUse.hs	231;"	f
+itemDetectorEffect	src/Dodge/HeldUse.hs	236;"	f
 itemDisplay	src/Dodge/Item/Display.hs	15;"	f
 itemDisplayPad	src/Dodge/Item/Display.hs	28;"	f
 itemEquipPict	src/Dodge/Item/Draw.hs	17;"	f
@@ -4627,7 +4613,7 @@ itemString	src/Dodge/Item/Display.hs	41;"	f
 itemToBreakLists	src/Dodge/Item/Grammar.hs	47;"	f
 itemToFunction	src/Dodge/Item/Grammar.hs	79;"	f
 itemTreeSPic	src/Dodge/Item/Draw/SPic.hs	22;"	f
-itemUpdate	src/Dodge/Creature/State.hs	313;"	f
+itemUpdate	src/Dodge/Creature/State.hs	314;"	f
 itemUseEffect	src/Dodge/Creature/Impulse/UseItem.hs	59;"	f
 itemUseEffect'	src/Dodge/Creature/Impulse/UseItem.hs	34;"	f
 iterateUntil	src/MonadHelp.hs	23;"	f
@@ -4665,7 +4651,7 @@ lampCrSPic	src/Dodge/Render/ShapePicture.hs	57;"	f
 lasCenSensEdge	src/Dodge/Room/LasTurret.hs	112;"	f
 lasDronesPic	src/Dodge/Item/Weapon/Drone.hs	22;"	f
 lasGunPic	src/Dodge/Item/Draw/SPic.hs	351;"	f
-lasRayAt	src/Dodge/HeldUse.hs	298;"	f
+lasRayAt	src/Dodge/HeldUse.hs	303;"	f
 lasSensorTurretTest	src/Dodge/Room/LasTurret.hs	105;"	f
 lasTunnel	src/Dodge/Room/LasTurret.hs	124;"	f
 lasTunnelRunPast	src/Dodge/Room/LasTurret.hs	165;"	f
@@ -4786,7 +4772,7 @@ makeAttach	src/Dodge/Item/Attach.hs	10;"	f
 makeBlip	src/Dodge/RadarSweep.hs	51;"	f
 makeBlockDebris	src/Dodge/Block/Debris.hs	28;"	f
 makeBoolOption	src/Dodge/Menu/OptionType.hs	8;"	f
-makeBullet	src/Dodge/HeldUse.hs	379;"	f
+makeBullet	src/Dodge/HeldUse.hs	384;"	f
 makeButton	src/Dodge/LevelGen/Switch.hs	16;"	f
 makeByteStringShaderUsingVAO	src/Shader/Compile.hs	128;"	f
 makeCloudAt	src/Dodge/WorldEvent/Cloud.hs	18;"	f
@@ -4802,7 +4788,7 @@ makeDoorDebris	src/Dodge/Block/Debris.hs	18;"	f
 makeEnumOption	src/Dodge/Menu/OptionType.hs	13;"	f
 makeExplosionAt	src/Dodge/WorldEvent/Explosion.hs	74;"	f
 makeFlak	src/Dodge/Bullet.hs	131;"	f
-makeFlame	src/Dodge/Flame.hs	131;"	f
+makeFlame	src/Dodge/Flame.hs	132;"	f
 makeFlameExplosionAt	src/Dodge/WorldEvent/Explosion.hs	57;"	f
 makeFlamelet	src/Dodge/EnergyBall.hs	16;"	f
 makeFlamerSmokeAt	src/Dodge/WorldEvent/Cloud.hs	68;"	f
@@ -4839,11 +4825,10 @@ makeTeslaExplosionAt	src/Dodge/WorldEvent/Explosion.hs	41;"	f
 makeThickSmokeAt	src/Dodge/WorldEvent/Cloud.hs	54;"	f
 makeThinSmokeAt	src/Dodge/WorldEvent/Cloud.hs	57;"	f
 makeTileFromPoly	src/Tile.hs	34;"	f
-makeTlsTimeRadColPos	src/Dodge/LightSource.hs	88;"	f
 makeTypeCraft	src/Dodge/Item/Craftable.hs	13;"	f
 makeTypeCraftNum	src/Dodge/Item/Craftable.hs	7;"	f
 mapOverlay	src/Dodge/Render/HUD/Carte.hs	24;"	f
-markWallSeen	src/Dodge/Update.hs	681;"	f
+markWallSeen	src/Dodge/Update.hs	683;"	f
 maxDamageType	src/Dodge/Damage.hs	37;"	f
 maxShowX	src/Dodge/Combine/Graph.hs	49;"	f
 maxViewDistance	src/Dodge/Viewpoints.hs	26;"	f
@@ -4859,20 +4844,20 @@ maybeOpenTerminal	src/Dodge/Update.hs	124;"	f
 maybeReadFile	src/Dodge/LoadSeed.hs	10;"	f
 maybeTakeOne	src/RandomHelp.hs	111;"	f
 maybeWarmupStatus	src/Dodge/Item/Display.hs	119;"	f
-mcApplyDamage	src/Dodge/Machine/Update.hs	106;"	f
+mcApplyDamage	src/Dodge/Machine/Update.hs	108;"	f
 mcKillBut	src/Dodge/Machine/Destroy.hs	34;"	f
 mcKillTerm	src/Dodge/Machine/Destroy.hs	26;"	f
-mcPlaySound	src/Dodge/Machine/Update.hs	96;"	f
-mcProxTest	src/Dodge/Machine/Update.hs	144;"	f
-mcProximitySensorUpdate	src/Dodge/Machine/Update.hs	122;"	f
+mcPlaySound	src/Dodge/Machine/Update.hs	98;"	f
+mcProxTest	src/Dodge/Machine/Update.hs	146;"	f
+mcProximitySensorUpdate	src/Dodge/Machine/Update.hs	124;"	f
 mcSPic	src/Dodge/Render/ShapePicture.hs	131;"	f
-mcSensorTriggerUpdate	src/Dodge/Machine/Update.hs	85;"	f
-mcSensorUpdate	src/Dodge/Machine/Update.hs	117;"	f
-mcShootLaser	src/Dodge/HeldUse.hs	465;"	f
-mcTriggerVal	src/Dodge/Machine/Update.hs	91;"	f
+mcSensorTriggerUpdate	src/Dodge/Machine/Update.hs	87;"	f
+mcSensorUpdate	src/Dodge/Machine/Update.hs	119;"	f
+mcShootLaser	src/Dodge/HeldUse.hs	470;"	f
+mcTriggerVal	src/Dodge/Machine/Update.hs	93;"	f
 mcTypeUpdate	src/Dodge/Machine/Update.hs	27;"	f
-mcUseHeld	src/Dodge/HeldUse.hs	404;"	f
-mcUseItem	src/Dodge/Machine/Update.hs	77;"	f
+mcUseHeld	src/Dodge/HeldUse.hs	409;"	f
+mcUseItem	src/Dodge/Machine/Update.hs	79;"	f
 medkit	src/Dodge/Item/Consumable.hs	8;"	f
 megaBattery	src/Dodge/Item/Ammo.hs	84;"	f
 megaShellMag	src/Dodge/Item/Ammo.hs	61;"	f
@@ -4964,12 +4949,12 @@ multiArrow	src/Picture/Composite.hs	11;"	f
 multiLookupTrie	src/SimpleTrie.hs	34;"	f
 multiLookupTrieI	src/SimpleTrie.hs	43;"	f
 muout	src/Dodge/RoomLink.hs	129;"	f
-muzFlareAt	src/Dodge/HeldUse.hs	167;"	f
+muzFlareAt	src/Dodge/HeldUse.hs	171;"	f
 mvBullet	src/Dodge/Bullet.hs	33;"	f
 mvButton	src/Dodge/Placement/PlaceSpot.hs	176;"	f
 mvCr	src/Dodge/Placement/PlaceSpot.hs	186;"	f
 mvFS	src/Dodge/Placement/PlaceSpot.hs	189;"	f
-mvGust	src/Dodge/Update.hs	710;"	f
+mvGust	src/Dodge/Update.hs	712;"	f
 mvLS	src/Dodge/Placement/PlaceSpot.hs	217;"	f
 mvP	src/Dodge/Wall/Move.hs	54;"	f
 mvPP	src/Dodge/Placement/PlaceSpot.hs	183;"	f
@@ -5048,7 +5033,7 @@ orthogonalPointOnSeg	src/Geometry/Intersect.hs	291;"	f
 outLink	src/Dodge/RoomLink.hs	105;"	f
 outsideScreenPolygon	src/Dodge/Debug/Picture.hs	44;"	f
 outwardIntegers	src/Dodge/Base.hs	159;"	f
-overCID	src/Dodge/Euse.hs	168;"	f
+overCID	src/Dodge/Euse.hs	173;"	f
 overCol	src/Picture/Base.hs	308;"	f
 overColObj	src/Shape.hs	271;"	f
 overColSH	src/Shape.hs	239;"	f
@@ -5082,7 +5067,7 @@ pauseGame	src/Dodge/Update/Input/InGame.hs	507;"	f
 pauseMenu	src/Dodge/Menu.hs	53;"	f
 pauseMenuOptions	src/Dodge/Menu.hs	58;"	f
 pauseSound	src/Dodge/SoundLogic.hs	41;"	f
-pauseTime	src/Dodge/Update.hs	190;"	f
+pauseTime	src/Dodge/Update.hs	191;"	f
 pciToCI	src/Dodge/Item/Grammar.hs	96;"	f
 peZoneSize	src/Dodge/Zoning/Pathing.hs	46;"	f
 pedestalRoom	src/Dodge/Room/Containing.hs	50;"	f
@@ -5237,7 +5222,7 @@ powlistUpToN	src/Multiset.hs	23;"	f
 powlistUpToN'	src/Multiset.hs	12;"	f
 powlistUpToN''	src/Multiset.hs	31;"	f
 ppDraw	src/Dodge/Render/ShapePicture.hs	116;"	f
-ppEvents	src/Dodge/Update.hs	673;"	f
+ppEvents	src/Dodge/Update.hs	675;"	f
 ppLevelReset	src/Dodge/PressPlate.hs	13;"	f
 preCritStart	src/Dodge/Room/Start.hs	82;"	f
 preloadRender	src/Preload/Render.hs	30;"	f
@@ -5371,7 +5356,7 @@ reloadS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	440;"	f
 rememberSounds	src/Dodge/Creature/Perception.hs	177;"	f
 remoteScreen	src/Dodge/Item/Scope.hs	50;"	f
 remoteShellShape	src/Dodge/Projectile/Draw.hs	42;"	f
-removeAmmoFromMag	src/Dodge/HeldUse.hs	308;"	f
+removeAmmoFromMag	src/Dodge/HeldUse.hs	313;"	f
 removeDot	src/ShortShow.hs	30;"	f
 removeHotkey	src/Dodge/Hotkey.hs	41;"	f
 removeInverseWalls	src/Dodge/LevelGen/StaticWalls.hs	25;"	f
@@ -5518,8 +5503,8 @@ scrollCommands	src/Dodge/Update/Scroll.hs	132;"	f
 scrollDebugInfoInt	src/Dodge/Debug.hs	47;"	f
 scrollRBOption	src/Dodge/Update/Scroll.hs	109;"	f
 scrollSelectionSections	src/Dodge/SelectionSections.hs	26;"	f
-scrollTimeBack	src/Dodge/Update.hs	214;"	f
-scrollTimeForward	src/Dodge/Update.hs	234;"	f
+scrollTimeBack	src/Dodge/Update.hs	215;"	f
+scrollTimeForward	src/Dodge/Update.hs	235;"	f
 scrollWatch	src/Dodge/Item/Weapon/Utility.hs	30;"	f
 seagullBarkS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	420;"	f
 seagullBarkTransformedS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	486;"	f
@@ -5549,7 +5534,7 @@ selectCreatureDebugItem	src/Dodge/Debug.hs	39;"	f
 selectUse	src/Dodge/SelectUse.hs	10;"	f
 sensAboveDoor	src/Dodge/Room/SensorDoor.hs	63;"	f
 sensInsideDoor	src/Dodge/Room/SensorDoor.hs	69;"	f
-senseDamage	src/Dodge/Machine/Update.hs	152;"	f
+senseDamage	src/Dodge/Machine/Update.hs	154;"	f
 sensorCommand	src/Dodge/Terminal.hs	208;"	f
 sensorInfoMap	src/Dodge/Terminal.hs	180;"	f
 sensorRoom	src/Dodge/Room/SensorDoor.hs	27;"	f
@@ -5577,11 +5562,11 @@ setLinkTypePD	src/Dodge/RoomLink.hs	67;"	f
 setMinInvSize	src/Dodge/Creature/Action.hs	149;"	f
 setMusicVolume	src/Sound.hs	161;"	f
 setMvPos	src/Dodge/Creature/ReaderUpdate.hs	51;"	f
-setOldPos	src/Dodge/Update.hs	462;"	f
+setOldPos	src/Dodge/Update.hs	464;"	f
 setOutLinks	src/Dodge/RoomLink.hs	48;"	f
 setOutLinksByType	src/Dodge/RoomLink.hs	57;"	f
 setOutLinksPD	src/Dodge/RoomLink.hs	77;"	f
-setRBCreatureTargeting	src/Dodge/Creature/State.hs	292;"	f
+setRBCreatureTargeting	src/Dodge/Creature/State.hs	293;"	f
 setSelWhileDragging	src/Dodge/Update/Input/InGame.hs	306;"	f
 setSelectionListRestriction	src/Dodge/Update/Input/ScreenLayer.hs	85;"	f
 setShaderSource	src/Shader/Compile.hs	290;"	f
@@ -5650,15 +5635,15 @@ shiftRoomShiftToLink	src/Dodge/Room/Link.hs	70;"	f
 shiftedGrid	src/Grid.hs	25;"	f
 shineTargetLaser	src/Dodge/Creature/State.hs	215;"	f
 shineTorch	src/Dodge/Creature/State.hs	247;"	f
-shootBullet	src/Dodge/HeldUse.hs	366;"	f
+shootBullet	src/Dodge/HeldUse.hs	371;"	f
 shootFirstMiss	src/Dodge/Creature/Volition.hs	33;"	f
 shootL	src/Dodge/Item/Weapon/TriggerType.hs	165;"	f
-shootLaser	src/Dodge/HeldUse.hs	279;"	f
+shootLaser	src/Dodge/HeldUse.hs	284;"	f
 shootOutPassage	src/Dodge/Room/RezBox.hs	74;"	f
 shootShatter	src/Dodge/Item/Weapon/Shatter.hs	12;"	f
-shootTeslaArc	src/Dodge/HeldUse.hs	474;"	f
+shootTeslaArc	src/Dodge/HeldUse.hs	479;"	f
 shootTillEmpty	src/Dodge/Creature/Volition.hs	18;"	f
-shootTractorBeam	src/Dodge/HeldUse.hs	258;"	f
+shootTractorBeam	src/Dodge/HeldUse.hs	263;"	f
 shootersRoom	src/Dodge/Room/Room.hs	315;"	f
 shootersRoom'	src/Dodge/Room/Room.hs	280;"	f
 shootersRoom1	src/Dodge/Room/Room.hs	305;"	f
@@ -5685,7 +5670,7 @@ shuffleLinks	src/Dodge/Room/Link.hs	30;"	f
 shuffleRoomPos	src/Dodge/Layout.hs	78;"	f
 shuffleTail	src/RandomHelp.hs	59;"	f
 sigmoid	src/Dodge/Base.hs	129;"	f
-simpleCrSprings	src/Dodge/Update.hs	758;"	f
+simpleCrSprings	src/Dodge/Update.hs	760;"	f
 simpleDamFL	src/Dodge/Flame.hs	41;"	f
 simpleTermMessage	src/Dodge/Terminal.hs	253;"	f
 sineRaisePitchOneSecS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	504;"	f
@@ -5904,16 +5889,14 @@ threeLineDecoration	src/Dodge/Placement/TopDecoration.hs	61;"	f
 tileTexCoords	src/Tile.hs	11;"	f
 tilesFromRooms	src/Dodge/Layout.hs	205;"	f
 tilesToLine	src/Shader/AuxAddition.hs	66;"	f
-timeFlowUpdate	src/Dodge/Update.hs	177;"	f
+timeFlowUpdate	src/Dodge/Update.hs	178;"	f
 timeModule	src/Dodge/Item/Craftable.hs	33;"	f
 timerTLS	src/Dodge/LightSource/Update.hs	22;"	f
 tinMag	src/Dodge/Item/Ammo.hs	27;"	f
 tinitusS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	416;"	f
 titleOptionsMenu	src/Dodge/Menu.hs	99;"	f
 titleOptionsNoWrite	src/Dodge/Menu.hs	102;"	f
-tlsTimeRadColPos	src/Dodge/LightSource.hs	69;"	f
-tlsTimeRadFunPos	src/Dodge/LightSource.hs	26;"	f
-tmUpdate	src/Dodge/Update.hs	442;"	f
+tmUpdate	src/Dodge/Update.hs	444;"	f
 toBothLnk	src/Dodge/RoomLink.hs	121;"	f
 toClosestMultiple	src/HelpNum.hs	3;"	f
 toColor8	src/Color.hs	148;"	f
@@ -5946,7 +5929,7 @@ torqueCr	src/Dodge/WorldEffect.hs	72;"	f
 torso	src/Dodge/Creature/Picture.hs	103;"	f
 tractCr	src/Dodge/TractorBeam/Update.hs	28;"	f
 tractFlIt	src/Dodge/TractorBeam/Update.hs	23;"	f
-tractorBeamAt	src/Dodge/HeldUse.hs	268;"	f
+tractorBeamAt	src/Dodge/HeldUse.hs	273;"	f
 tractorGun	src/Dodge/Item/Held/BatteryGuns.hs	64;"	f
 tractorGunPic	src/Dodge/Item/Draw/SPic.hs	375;"	f
 tractorPullPos	src/Dodge/TractorBeam/Update.hs	33;"	f
@@ -6050,73 +6033,73 @@ upProjectile	src/Dodge/Projectile/Update.hs	26;"	f
 updateAllNodes	src/TreeHelp.hs	85;"	f
 updateArc	src/Dodge/Tesla/Arc.hs	86;"	f
 updateAttachedItems	src/Dodge/Creature/State.hs	173;"	f
-updateAutoRecharge	src/Dodge/Creature/State.hs	324;"	f
+updateAutoRecharge	src/Dodge/Creature/State.hs	325;"	f
 updateBackspaceRegex	src/Dodge/Update/Input/InGame.hs	445;"	f
 updateBarrel	src/Dodge/Barreloid.hs	45;"	f
 updateBarreloid	src/Dodge/Barreloid.hs	13;"	f
 updateBounds	src/Dodge/Update/Camera.hs	245;"	f
 updateBulVel	src/Dodge/Bullet.hs	50;"	f
 updateBullet	src/Dodge/Bullet.hs	28;"	f
-updateBullets	src/Dodge/Update.hs	539;"	f
+updateBullets	src/Dodge/Update.hs	541;"	f
 updateCamera	src/Dodge/Update/Camera.hs	31;"	f
 updateCloseObjects	src/Dodge/Inventory.hs	113;"	f
-updateCloud	src/Dodge/Update.hs	724;"	f
-updateClouds	src/Dodge/Update.hs	568;"	f
+updateCloud	src/Dodge/Update.hs	726;"	f
+updateClouds	src/Dodge/Update.hs	570;"	f
 updateCombinePositioning	src/Dodge/DisplayInventory.hs	40;"	f
 updateCombineSections	src/Dodge/DisplayInventory.hs	46;"	f
 updateCreature	src/Dodge/Creature/Update.hs	10;"	f
-updateCreatureGroups	src/Dodge/Update.hs	508;"	f
-updateCreatureSoundPositions	src/Dodge/Update.hs	484;"	f
+updateCreatureGroups	src/Dodge/Update.hs	510;"	f
+updateCreatureSoundPositions	src/Dodge/Update.hs	486;"	f
 updateDebugMessageOffset	src/Dodge/Update.hs	93;"	f
-updateDelayedEvents	src/Dodge/Update.hs	787;"	f
+updateDelayedEvents	src/Dodge/Update.hs	789;"	f
 updateDisplaySections	src/Dodge/DisplayInventory.hs	126;"	f
 updateDistortion	src/Dodge/Distortion.hs	5;"	f
-updateDistortions	src/Dodge/Update.hs	529;"	f
+updateDistortions	src/Dodge/Update.hs	531;"	f
 updateEnergyBall	src/Dodge/EnergyBall.hs	46;"	f
-updateEnergyBalls	src/Dodge/Update.hs	556;"	f
+updateEnergyBalls	src/Dodge/Update.hs	558;"	f
 updateEnterRegex	src/Dodge/Update/Input/InGame.hs	486;"	f
 updateExpBarrel	src/Dodge/Barreloid.hs	19;"	f
 updateFBOTO	src/Framebuffer/Update.hs	97;"	f
 updateFBOTO3	src/Framebuffer/Update.hs	131;"	f
 updateFlame	src/Dodge/Flame.hs	71;"	f
-updateFlames	src/Dodge/Update.hs	553;"	f
+updateFlames	src/Dodge/Update.hs	555;"	f
 updateFloatingCamera	src/Dodge/Update/Camera.hs	36;"	f
 updateFunctionKey	src/Dodge/Update/Input/InGame.hs	336;"	f
 updateFunctionKeys	src/Dodge/Update/Input/InGame.hs	329;"	f
-updateGusts	src/Dodge/Update.hs	707;"	f
+updateGusts	src/Dodge/Update.hs	709;"	f
 updateHeldRootItem	src/Dodge/Creature/State.hs	167;"	f
 updateHumanoid	src/Dodge/Humanoid.hs	12;"	f
-updateIMl	src/Dodge/Update.hs	498;"	f
-updateIMl'	src/Dodge/Update.hs	503;"	f
+updateIMl	src/Dodge/Update.hs	500;"	f
+updateIMl'	src/Dodge/Update.hs	505;"	f
 updateInGameCamera	src/Dodge/Update/Camera.hs	70;"	f
 updateInitialPressInGame	src/Dodge/Update/Input/InGame.hs	389;"	f
-updateInstantBullets	src/Dodge/Update.hs	645;"	f
+updateInstantBullets	src/Dodge/Update.hs	647;"	f
 updateInv	src/Dodge/Creature/State.hs	152;"	f
 updateInventoryPositioning	src/Dodge/DisplayInventory.hs	87;"	f
-updateItemTargeting	src/Dodge/Creature/State.hs	268;"	f
+updateItemTargeting	src/Dodge/Creature/State.hs	269;"	f
 updateItemWithOrientation	src/Dodge/Creature/State.hs	194;"	f
 updateKeyInGame	src/Dodge/Update/Input/InGame.hs	383;"	f
 updateKeysInTerminal	src/Dodge/Update/Input/InGame.hs	371;"	f
 updateLampoid	src/Dodge/Lampoid.hs	12;"	f
 updateLaser	src/Dodge/Laser/Update.hs	13;"	f
-updateLasers	src/Dodge/Update.hs	427;"	f
-updateLightSources	src/Dodge/Update.hs	532;"	f
+updateLasers	src/Dodge/Update.hs	429;"	f
+updateLightSources	src/Dodge/Update.hs	534;"	f
 updateLinearShockwave	src/Dodge/LinearShockwave/Update.hs	8;"	f
 updateLongPressInGame	src/Dodge/Update/Input/InGame.hs	404;"	f
-updateMIM	src/Dodge/Update.hs	658;"	f
+updateMIM	src/Dodge/Update.hs	660;"	f
 updateMachine	src/Dodge/Machine/Update.hs	19;"	f
 updateMouseClickInGame	src/Dodge/Update/Input/InGame.hs	165;"	f
-updateMouseContext	src/Dodge/Update.hs	310;"	f
-updateMouseContextGame	src/Dodge/Update.hs	315;"	f
+updateMouseContext	src/Dodge/Update.hs	312;"	f
+updateMouseContextGame	src/Dodge/Update.hs	317;"	f
 updateMouseHeldInGame	src/Dodge/Update/Input/InGame.hs	86;"	f
 updateMouseInGame	src/Dodge/Update/Input/InGame.hs	78;"	f
 updateMouseReleaseInGame	src/Dodge/Update/Input/InGame.hs	132;"	f
-updateMovement	src/Dodge/Creature/State.hs	331;"	f
-updateObjCatMaybes	src/Dodge/Update.hs	520;"	f
-updateObjMapMaybe	src/Dodge/Update.hs	513;"	f
-updatePastWorlds	src/Dodge/Update.hs	415;"	f
+updateMovement	src/Dodge/Creature/State.hs	332;"	f
+updateObjCatMaybes	src/Dodge/Update.hs	522;"	f
+updateObjMapMaybe	src/Dodge/Update.hs	515;"	f
+updatePastWorlds	src/Dodge/Update.hs	417;"	f
 updatePosEvent	src/Dodge/PosEvent.hs	11;"	f
-updatePosEvents	src/Dodge/Update.hs	565;"	f
+updatePosEvents	src/Dodge/Update.hs	567;"	f
 updatePreload	src/Preload/Update.hs	20;"	f
 updatePressedButtonsCarte	src/Dodge/Update/Input/InGame.hs	346;"	f
 updatePressedButtonsCarte'	src/Dodge/Update/Input/InGame.hs	349;"	f
@@ -6124,9 +6107,9 @@ updateProjectile	src/Dodge/Projectile/Update.hs	23;"	f
 updateProp	src/Dodge/Prop/Update.hs	11;"	f
 updateRBList	src/Dodge/Inventory/RBList.hs	16;"	f
 updateRadarBlip	src/Dodge/RadarBlip.hs	8;"	f
-updateRadarBlips	src/Dodge/Update.hs	535;"	f
+updateRadarBlips	src/Dodge/Update.hs	537;"	f
 updateRadarSweep	src/Dodge/RadarSweep.hs	25;"	f
-updateRadarSweeps	src/Dodge/Update.hs	559;"	f
+updateRadarSweeps	src/Dodge/Update.hs	561;"	f
 updateRandNode	src/TreeHelp.hs	108;"	f
 updateRenderSplit	appDodge/Main.hs	106;"	f
 updateRootItemID	src/Dodge/Inventory/Location.hs	35;"	f
@@ -6135,20 +6118,20 @@ updateScopeZoom'	src/Dodge/Update/Camera.hs	132;"	f
 updateScrollTestValue	src/Dodge/ScrollValue.hs	6;"	f
 updateSection	src/Dodge/DisplayInventory.hs	286;"	f
 updateSectionsPositioning	src/Dodge/DisplayInventory.hs	259;"	f
-updateSeenWalls	src/Dodge/Update.hs	676;"	f
+updateSeenWalls	src/Dodge/Update.hs	678;"	f
 updateShockwave	src/Dodge/Shockwave/Update.hs	12;"	f
-updateShockwaves	src/Dodge/Update.hs	550;"	f
+updateShockwaves	src/Dodge/Update.hs	552;"	f
 updateSingleNodes	src/TreeHelp.hs	97;"	f
 updateSound	src/Sound.hs	71;"	f
 updateSounds	src/Sound.hs	66;"	f
 updateSpark	src/Dodge/Spark.hs	19;"	f
-updateSparks	src/Dodge/Update.hs	562;"	f
+updateSparks	src/Dodge/Update.hs	564;"	f
 updateTempLightSource	src/Dodge/LightSource/Update.hs	7;"	f
 updateTeslaArc	src/Dodge/Tesla/Arc.hs	29;"	f
-updateTeslaArcs	src/Dodge/Update.hs	544;"	f
+updateTeslaArcs	src/Dodge/Update.hs	546;"	f
 updateTractorBeam	src/Dodge/TractorBeam/Update.hs	9;"	f
-updateTractorBeams	src/Dodge/Update.hs	547;"	f
-updateTurret	src/Dodge/Machine/Update.hs	47;"	f
+updateTractorBeams	src/Dodge/Update.hs	549;"	f
+updateTurret	src/Dodge/Machine/Update.hs	49;"	f
 updateUniverse	src/Dodge/Update.hs	72;"	f
 updateUniverseFirst	src/Dodge/Update.hs	84;"	f
 updateUniverseLast	src/Dodge/Update.hs	134;"	f
@@ -6158,7 +6141,7 @@ updateUseInputOnScreen	src/Dodge/Update/Input/ScreenLayer.hs	21;"	f
 updateWalkCycle	src/Dodge/Creature/State/WalkCycle.hs	12;"	f
 updateWallDamages	src/Dodge/Update/WallDamage.hs	10;"	f
 updateWheelEvent	src/Dodge/Update/Scroll.hs	19;"	f
-updateWheelEvents	src/Dodge/Update.hs	402;"	f
+updateWheelEvents	src/Dodge/Update.hs	404;"	f
 updateWorldEventFlag	src/Dodge/Update.hs	118;"	f
 updateWorldEventFlags	src/Dodge/Update.hs	106;"	f
 upperBody	src/Dodge/Creature/Picture.hs	133;"	f
@@ -6186,14 +6169,14 @@ useC	src/Dodge/Cuse.hs	8;"	f
 useC'	src/Dodge/Cuse.hs	13;"	f
 useE	src/Dodge/Euse.hs	24;"	f
 useEquipment	src/Dodge/Creature/State.hs	146;"	f
-useGasParams	src/Dodge/HeldUse.hs	415;"	f
+useGasParams	src/Dodge/HeldUse.hs	420;"	f
 useHotKey	src/Dodge/Creature/YourControl.hs	48;"	f
 useItemHotkey	src/Dodge/Creature/Impulse/UseItem.hs	150;"	f
 useItemLeftClick	src/Dodge/Creature/Impulse/UseItem.hs	124;"	f
 useItemLeftClick'	src/Dodge/Creature/Impulse/UseItem.hs	137;"	f
 useL	src/Dodge/Luse.hs	11;"	f
 useLnkRoomPos	src/Dodge/PlacementSpot.hs	244;"	f
-useLoadedAmmo	src/Dodge/HeldUse.hs	210;"	f
+useLoadedAmmo	src/Dodge/HeldUse.hs	215;"	f
 useMagShield	src/Dodge/Euse.hs	69;"	f
 useNormalCamera	src/Dodge/Camera.hs	6;"	f
 usePayload	src/Dodge/Payload.hs	7;"	f
@@ -6205,7 +6188,7 @@ useStopWatch	src/Dodge/Luse.hs	21;"	f
 useTimeCheck	src/Dodge/Item/Weapon/TriggerType.hs	127;"	f
 useTimeScrollGun	src/Dodge/Luse.hs	29;"	f
 useUnusedLnk	src/Dodge/PlacementSpot.hs	169;"	f
-useUpdate	src/Dodge/Creature/State.hs	316;"	f
+useUpdate	src/Dodge/Creature/State.hs	317;"	f
 usedRoomInLinkPoss	src/Dodge/PlacementSpot.hs	196;"	f
 usedRoomLinkPoss	src/Dodge/PlacementSpot.hs	203;"	f
 v2z	src/Geometry/Vector3D.hs	93;"	f
@@ -6237,7 +6220,7 @@ vocalizationTest	src/Dodge/Creature/Vocalization.hs	8;"	f
 volleyGun	src/Dodge/Item/Held/Cane.hs	32;"	f
 volleyGunShape	src/Dodge/Item/Draw/SPic.hs	289;"	f
 waistSP	src/Dodge/Creature/HandPos.hs	199;"	f
-walkNozzle	src/Dodge/HeldUse.hs	236;"	f
+walkNozzle	src/Dodge/HeldUse.hs	241;"	f
 walkableNodeNear	src/Dodge/Path.hs	48;"	f
 wallBlips	src/Dodge/RadarSweep.hs	80;"	f
 wallBuffer	src/Dodge/WallCreatureCollisions.hs	50;"	f
@@ -6330,9 +6313,9 @@ zipCount	src/Dodge/Tree/Shift.hs	129;"	f
 zipCountDown	src/Dodge/Room/Procedural.hs	118;"	f
 zipWithDefaults	src/Dodge/Item/Display.hs	21;"	f
 zoneCloud	src/Dodge/Zoning/Cloud.hs	27;"	f
-zoneClouds	src/Dodge/Update.hs	435;"	f
+zoneClouds	src/Dodge/Update.hs	437;"	f
 zoneCreature	src/Dodge/Zoning/Creature.hs	52;"	f
-zoneCreatures	src/Dodge/Update.hs	479;"	f
+zoneCreatures	src/Dodge/Update.hs	481;"	f
 zoneExtract	src/Dodge/Zoning/Base.hs	50;"	f
 zoneMonoid	src/Dodge/Zoning/Base.hs	80;"	f
 zoneOfCirc	src/Dodge/Zoning/Base.hs	22;"	f