Commit before unifying light sources
This commit is contained in:
@@ -135,6 +135,7 @@ data LWorld = LWorld
|
|||||||
, _corpses :: IM.IntMap Corpse
|
, _corpses :: IM.IntMap Corpse
|
||||||
, _lightSources :: IM.IntMap LightSource
|
, _lightSources :: IM.IntMap LightSource
|
||||||
, _tempLightSources :: [TempLightSource]
|
, _tempLightSources :: [TempLightSource]
|
||||||
|
, _lights :: [LSParam]
|
||||||
, _seenLocations :: IM.IntMap (WdP2, String)
|
, _seenLocations :: IM.IntMap (WdP2, String)
|
||||||
, _selLocation :: Int
|
, _selLocation :: Int
|
||||||
, _distortions :: [Distortion]
|
, _distortions :: [Distortion]
|
||||||
|
|||||||
@@ -136,6 +136,7 @@ defaultLWorld =
|
|||||||
, _corpses = IM.empty
|
, _corpses = IM.empty
|
||||||
, _lightSources = IM.empty
|
, _lightSources = IM.empty
|
||||||
, _tempLightSources = []
|
, _tempLightSources = []
|
||||||
|
, _lights = mempty
|
||||||
, _seenLocations =
|
, _seenLocations =
|
||||||
IM.fromList
|
IM.fromList
|
||||||
[ (0, (WdYouPos, "CURRENT POSITION"))
|
[ (0, (WdYouPos, "CURRENT POSITION"))
|
||||||
|
|||||||
Reference in New Issue
Block a user