justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Start to add respawn points, re-fix semi-auto triggers

Browse Source
This commit is contained in:
justin
2025-08-11 00:00:32 +01:00
parent 38e8f91346
commit dd1f3b2ef5
10 changed files with 116 additions and 113 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Initialisation.hs
+8 -8
View File
@@ -1,12 +1,11 @@
module Dodge.Initialisation where
module Dodge.Initialisation (initialWorld, splashScreen) where
import Control.Lens
import Dodge.Creature
import Dodge.Data.World
import Dodge.Default.World
import Dodge.SoundLogic
import Geometry.Data
import qualified IntMapHelp as IM
import Dodge.SpawnAt
splashScreen :: World
splashScreen =
@@ -15,8 +14,9 @@ splashScreen =
initialWorld :: World
initialWorld =
defaultWorld
& wCam . camZoom .~ 10
& cWorld . lWorld . creatures .~ IM.fromList [(0, startCr)]
& cWorld . lWorld . worldEvents .~ SoundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing :
[MakeStartCloudAt (V3 x y 5) | x <- [-5, -4 .. 5], y <- [-5, -4 .. 5]]
defaultWorld & spawnAt 0
-- & wCam . camZoom .~ 10
-- & cWorld . lWorld . creatures .~ IM.fromList [(0, startCr)]
-- & cWorld . lWorld . worldEvents .~ SoundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing :
-- [MakeStartCloudAt (V3 x y 5) | x <- [-5, -4 .. 5], y <- [-5, -4 .. 5]]