186 lines
5.1 KiB
Haskell
186 lines
5.1 KiB
Haskell
module Dodge.Default.World (defaultWorld) where
|
|
|
|
--import Data.Graph.Inductive.Graph hiding ((&))
|
|
import Dodge.ListDisplayParams
|
|
import qualified Data.Set as S
|
|
import qualified Data.Map as M
|
|
import Dodge.Data.World
|
|
import Geometry.Data
|
|
import Geometry.Polygon
|
|
import qualified IntMapHelp as IM
|
|
import System.Random
|
|
|
|
defaultInput :: Input
|
|
defaultInput =
|
|
Input
|
|
{ _clickPos = mempty
|
|
, _mouseContext = NoMouseContext
|
|
, _clickWorldPos = mempty
|
|
, _heldPos = mempty
|
|
, _heldWorldPos = mempty
|
|
, _textInput = mempty
|
|
, _pressedKeys = mempty
|
|
, _mouseButtons = mempty
|
|
, _mouseButtonsReleased = mempty
|
|
, _mousePos = V2 0 0
|
|
, _mouseMoving = False
|
|
, _scrollAmount = 0
|
|
, _smoothScrollAmount = 0
|
|
, _scrollTestFloat = 1
|
|
, _scrollTestInt = 0
|
|
, _inputMemory = WasNotMouseGameRotating
|
|
}
|
|
|
|
defaultWorld :: World
|
|
defaultWorld =
|
|
World
|
|
{ _cWorld = defaultCWorld
|
|
, _wCam = defaultCWCam
|
|
, _pastWorlds = mempty
|
|
, _timeFlow = NormalTimeFlow
|
|
, _input = defaultInput
|
|
, _toPlaySounds = M.empty
|
|
, _playingSounds = M.empty
|
|
, _randGen = mkStdGen 2
|
|
, _testFloat = 0
|
|
, _rbState = NoRightButtonState
|
|
, _hud = defaultHUD
|
|
, _worldEventFlags = mempty
|
|
, _crZoning = mempty
|
|
, _clZoning = mempty
|
|
, _gasZoning = mempty
|
|
, _dsZoning = mempty
|
|
, _wlZoning = mempty
|
|
-- , _pnZoning = mempty
|
|
-- , _peZoning = mempty
|
|
, _incNodeZoning = mempty
|
|
, _incEdgeZoning = mempty
|
|
, _gsZoning = mempty --Zoning IM.empty clZoneSize (zonePos _guPos)
|
|
, _unpauseClock = 0
|
|
, _coordinates = mempty
|
|
, _wSoundFilter = FilterBySoundOrigin $ S.singleton SpawnSound
|
|
, _tmLDP = terminalLDP
|
|
}
|
|
|
|
defaultCWGen :: CWGen
|
|
defaultCWGen =
|
|
CWGen
|
|
{ _cwgParams = GenParams M.empty
|
|
, _cwgSeed = 0
|
|
, _cwgWorldBounds = defaultBounds
|
|
, _cwgGameRooms = mempty
|
|
, _cwgRoomClipping = mempty
|
|
}
|
|
|
|
defaultCWCam :: Camera
|
|
defaultCWCam =
|
|
Camera
|
|
{ _camCenter = V2 0 0
|
|
, _camRot = 0
|
|
, _camZoom = 1
|
|
, _camDefaultZoom = 1
|
|
, _camViewFrom = V2 0 0
|
|
, _camViewDistance = 1000
|
|
, _camItemZoom = 1
|
|
, _camBoundBox = square 100
|
|
, _camBoundDist = (100, -100, 100, -100)
|
|
, _camControl = CamInGame{_cigType = CamOnPlayer}
|
|
}
|
|
|
|
defaultCWorld :: CWorld
|
|
defaultCWorld =
|
|
CWorld
|
|
{ _lWorld = defaultLWorld
|
|
, _cwGen = defaultCWGen
|
|
, _cClock = 0
|
|
-- , _pathGraph = Data.Graph.Inductive.Graph.empty
|
|
, _cwTiles = mempty
|
|
, _numberFloorVerxs = 0
|
|
, _chasms = mempty
|
|
, _cliffs = mempty
|
|
, _numberChasmVerxs = 0
|
|
, _incGraph = mempty
|
|
, _incNode = mempty
|
|
, _incEdges = mempty
|
|
, _highlightItems = mempty
|
|
}
|
|
|
|
defaultLWorld :: LWorld
|
|
defaultLWorld =
|
|
LWorld
|
|
{ _magnets = mempty
|
|
, _oldMagnets = mempty
|
|
, _modifications = IM.empty
|
|
, _creatures = IM.empty
|
|
, _creatureGroups = IM.empty
|
|
, _clouds = mempty
|
|
, _beePheremones = mempty
|
|
, _gasses = mempty
|
|
, _dusts = mempty
|
|
, _gusts = IM.empty
|
|
-- , _itemLocations = IM.empty
|
|
, _items = mempty
|
|
, _props = IM.empty
|
|
, _debris = mempty
|
|
, _projectiles = IM.empty
|
|
, _bullets = []
|
|
, _plasmaBalls = []
|
|
, _flames = []
|
|
, _radarSweeps = []
|
|
, _sparks = []
|
|
, _energyBalls = []
|
|
, _radarBlips = []
|
|
, _flares = []
|
|
, _teslaArcs = []
|
|
, _arcNode = mempty
|
|
, _shockwaves = []
|
|
, _lasers = []
|
|
, _pulseLasers = mempty
|
|
, _pulseBalls = mempty
|
|
, _tractorBeams = mempty
|
|
, _linearShockwaves = mempty
|
|
, _walls = IM.empty
|
|
, _wallDamages = IM.empty
|
|
, _blocks = IM.empty
|
|
, _machines = IM.empty
|
|
, _terminals = IM.empty
|
|
, _doors = IM.empty
|
|
, _triggers = IM.empty
|
|
, _floorItems = mempty
|
|
, _worldEvents = []
|
|
, _delayedEvents = []
|
|
, _buttons = IM.empty
|
|
-- , _corpses = IM.empty
|
|
, _lightSources = IM.empty
|
|
, _lights = mempty
|
|
, _seenLocations =
|
|
IM.fromList
|
|
[ (0, (WdYouPos, "CURRENT POSITION"))
|
|
, (1, (WdP2Const (V2 0 0), "START POSITION"))
|
|
]
|
|
, _selLocation = 0
|
|
, _foreShapes = mempty
|
|
, _distortions = []
|
|
, _lClock = 0
|
|
, _lTestString = []
|
|
, _lTestInt = 0
|
|
, _hotkeys = mempty
|
|
, _imHotkeys = mempty
|
|
, _lAimPos = 0
|
|
, _lInvLock = False
|
|
, _respawnPos = (V2 20 20, pi / 2)
|
|
, _tempSPic = mempty
|
|
}
|
|
|
|
defaultHUD :: HUD
|
|
defaultHUD =
|
|
HUD
|
|
{ _subInventory = NoSubInventory
|
|
, _diSections = mempty
|
|
, _diSelection = Just (Sel 1 0 mempty)
|
|
, _diInvFilter = mempty
|
|
, _diCloseFilter = mempty
|
|
, _closeItems = mempty
|
|
, _closeButtons = mempty
|
|
}
|