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

Unify more doors

Browse Source
This commit is contained in:
justin
2021-11-02 11:04:23 +00:00
parent 7ef1da9be5
commit 9eda8c81a9
9 changed files with 72 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/LevelGen.hs
+3 -8
View File
@@ -54,16 +54,11 @@ placeSpotID ps w = case _psType ps of
RandPS rgen -> placeSpotID (set psType evaluatedType ps) (set randGen g w)
where
(evaluatedType, g) = runState rgen (_randGen w)
PutDoor col f pss -> putDoor col f (map (mapBoth doShift) pss) w
where
mapBoth fn (x,y) = (fn x, fn y)
PutSingleDoor col f a b speed
-> placeSingleDoor False col f (doShift a) (doShift b) speed w
--PutAutoDoor a b -> (,) 0 $ placeAutoDoor (doShift a) (doShift b) w
PutDoor col f pss -> putDoor col f (map (bimap doShift doShift) pss) w
PutSlideDoor pathing col f a b speed
-> placeSlideDoor pathing col f (doShift a) (doShift b) speed w
PutBlock (hp:hps) col ps' -> placeBlock (map doShift ps') hp col Opaque hps w
PutBlock{} -> error "messed up block placement somehow"
PutBtDoor c bp f a b speed -> addButtonDoor c (doShift bp) (f + rot)
(doShift a) (doShift b) speed w
PutLineBlock wl width depth a b
-> placeLineBlock wl width depth (doShift a) (doShift b) w
PutWall { _pwPoly = ps', _pwWall = wl } -> (0,rmCrossPaths $ over walls (addWalls qs wl) w)