module Dodge.Default.World (
    defaultWorld,
) where

import Data.Graph.Inductive.Graph hiding ((&))
import qualified Data.Map as M
import Dodge.Data.World
import Geometry.Data
import Geometry.Polygon
import qualified IntMapHelp as IM
import NewInt
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
        }

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
        , _rbOptions = NoRightButtonOptions
        , _hud = defaultHUD
        , _worldEventFlags = mempty
        , _crZoning = mempty
        , _clZoning = mempty
        , _wlZoning = mempty
        , _pnZoning = mempty
        , _peZoning = mempty
        , _gsZoning = mempty --Zoning IM.empty clZoneSize (zonePos _guPos)
        , _unpauseClock = 0
        }

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
--        , _seenWalls = mempty
        , _pathGraph = Data.Graph.Inductive.Graph.empty
        , _cwTiles = mempty
        , _numberFloorVerxs = 0
        }

defaultLWorld :: LWorld
defaultLWorld =
    LWorld
        { _magnets = mempty
        , _oldMagnets = mempty
        , _modifications = IM.empty
        , _creatures = IM.empty
        , _creatureGroups = IM.empty
        , _clouds = mempty
        , _gusts = IM.empty
        , _itemLocations = IM.empty
        , _props = IM.empty
        , _projectiles = IM.empty
        , _bullets = []
        , _flames = []
        , _radarSweeps = []
        , _sparks = []
        , _energyBalls = []
        , _radarBlips = []
        , _flares = []
        , _teslaArcs = []
        , _arcNode = mempty
        , _shockwaves = []
        , _lasers = []
        , _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
        , _floorItems = NIntMap IM.empty
        , _worldEvents = []
        , _delayedEvents = []
        , _pressPlates = IM.empty
        , _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
        , _foregroundShapes = mempty
        , _distortions = []
        , _lClock = 0
        , _lTestString = []
        , _lTestInt = 0
        , _hotkeys = mempty
        , _imHotkeys = mempty
        , _lAimPos = 0
        , _lInvLock = False
        }

defaultHUD :: HUD
defaultHUD =
    HUD
        { _hudElement = defaultDisplayInventory
        , _carteCenter = V2 0 0
        , _carteZoom = 0.5
        , _carteRot = 0
        , _closeItems = mempty
        , _closeButtons = mempty
        }

defaultDisplayInventory :: HUDElement
defaultDisplayInventory =
    DisplayInventory
        { _subInventory = NoSubInventory
        , _diSections = mempty
        , _diSelection = Just (1, 0, mempty)
--        , _diSelectionExtra = mempty
        , _diInvFilter = mempty
        , _diCloseFilter = mempty
        }