module Dodge.Default.World where

import Data.Graph.Inductive.Graph hiding ((&))
import qualified Data.Map as M
import qualified Data.Set as S
import Dodge.Data.World
import Geometry.Data
import Geometry.Polygon
import qualified IntMapHelp as IM
import System.Random

defaultWorld :: World
defaultWorld =
    World
        { _cWorld = defaultCWorld
        , _clickMousePos = V2 0 0
        , _toPlaySounds = M.empty
        , _playingSounds = M.empty
        , _randGen = mkStdGen 2
        , _keys = S.empty
        , _mouseButtons = mempty
        , _mousePos = V2 0 0
        , _scrollAmount = 0
        , _previousScrollAmount = 0
        , _hammers = defaultWorldHammers
        , _testFloat = 0
        , _lrLine = (0, 0)
        , _lLine = (0, 0)
        , _rLine = (0, 0)
        , _lSelect = 0
        , _rSelect = 0
        , _backspaceTimer = 0
        , _rbOptions = NoRightButtonOptions
        }

defaultCWGen :: CWGen
defaultCWGen =
    CWGen
        { _cwgParams = GenParams M.empty
        , _cwgSeed = 0
        , _cwgWorldBounds = defaultBounds
        , _cwgGameRooms = []
        , _cwgRoomClipping = []
        }

defaultCWCam :: CamPos
defaultCWCam =
    CamPos
        { _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)
        }

defaultCWorld :: CWorld
defaultCWorld =
    CWorld
        { _lWorld = defaultLWorld
        , _cwGen = defaultCWGen
        , _cwClock = 0
        , _pastWorlds = []
        , _timeFlow = NormalTimeFlow
        }

defaultLWorld :: LWorld
defaultLWorld =
    LWorld
        { _camPos = defaultCWCam
        , _magnets = IM.empty
        , _modifications = IM.empty
        , _creatures = IM.empty
        , _crZoning = mempty --Zoning IM.empty crZoneSize zoneOfCreature
        , _creatureGroups = IM.empty
        , _clouds = mempty
        , _clZoning = mempty
        , _gusts = IM.empty
        , _gsZoning = mempty --Zoning IM.empty clZoneSize (zonePos _guPos)
        , _itemLocations = IM.empty
        , _props = IM.empty
        , _projectiles = IM.empty
        , _instantBullets = []
        , _bullets = []
        , _flames = []
        , _radarSweeps = []
        , _sparks = []
        , _posEvents = []
        , _energyBalls = []
        , _radarBlips = []
        , _flares = []
        , _newBeams = WorldBeams [] [] [] []
        , _beams = WorldBeams [] [] [] []
        , _teslaArcs = []
        , _shockwaves = []
        , _lasers = []
        , _lasersToDraw = []
        , _tractorBeams = mempty
        , _linearShockwaves = mempty
        , _walls = IM.empty
        , _wallDamages = IM.empty
        , _blocks = IM.empty
        , _machines = IM.empty
        , _terminals = IM.empty
        , _doors = IM.empty
        , _coordinates = IM.empty
        , _triggers = IM.empty
        , _wlZoning = IM.empty --Zoning IM.empty wlZoneSize zoneOfWall
        , _floorItems = IM.empty
        , _floorTiles = []
        , _worldEvents = []
        , _delayedEvents = []
        , _pressPlates = IM.empty
        , _buttons = IM.empty
        , _corpses = IM.empty
        , _decorations = IM.empty
        , _pathGraph = Data.Graph.Inductive.Graph.empty
        , _pnZoning = mempty
        , _peZoning = mempty
        , _hud = defaultHUD
        , _lightSources = IM.empty
        , _tempLightSources = []
        , _closeObjects = []
        , _seenLocations =
            IM.fromList
                [ (0, (WdYouPos, "CURRENT POSITION"))
                , (1, (WdP2Const (V2 0 0), "START POSITION"))
                ]
        , _selLocation = 0
        , _foregroundShapes = mempty
        , _distortions = []
        , _lClock = 0
        }

defaultHUD :: HUD
defaultHUD =
    HUD
        { _hudElement = DisplayInventory NoSubInventory
        , _carteCenter = V2 0 0
        , _carteZoom = 0.5
        , _carteRot = 0
        }

defaultWorldHammers :: M.Map WorldHammer HammerPosition
defaultWorldHammers = M.fromSet (const HammerUp) $ S.fromList [minBound .. maxBound]

--youLight :: TempLightSource
--youLight = TLS
--    { _tlsParam = LSParam
--        {_lsPos = V3 0 0 0
--        ,_lsRad = 300
--        ,_lsCol = 0.1
--        }
--    ,_tlsUpdate = \w _ -> Just (youLight & tlsParam . lsPos .~ f (_crPos $ you w))
--    ,_tlsTime = 0
--    }
--  where
--    f (V2 x y) = V3 x y 100