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

Work on what happens when creatures fall down chasms

Browse Source
This commit is contained in:
justin
2025-08-05 21:39:44 +01:00
parent df443744db
commit f69956750a
9 changed files with 112 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Event/Test.hs
+2 -8
View File
@@ -2,16 +2,10 @@ module Dodge.Event.Test (
testEvent,
) where
import Dodge.SoundLogic.ExternallyGeneratedSounds
--import Dodge.Creature.State
import Dodge.Data.World
import Control.Lens
import Geometry
--import Control.Lens
testEvent :: World -> World
testEvent w = w
& cWorld . lWorld . worldEvents .~ SoundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing :
--[MakeStartCloudAt (V3 (cx + x) (cy + y) 5) | x <- [-5, -4 .. 5], y <- [-5, -4 .. 5]]
[MakeStartCloudAt (V3 (cx + x) (cy + y) 200) | x <- [0], y <- [0]]
where
V2 cx cy = w ^?! cWorld . lWorld . creatures . ix 0 . crPos