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

Cleanup

Browse Source
This commit is contained in:
justin
2022-06-14 16:23:15 +01:00
parent 0434968b73
commit af161bc82c
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/Airlock.hs
+2 -1
View File
@@ -113,7 +113,8 @@ airlock90 = defaultRoom
, _rmPmnts = , _rmPmnts =
[pContID (PS (V2 120 120) (3 * pi/4)) (PutButton $ makeSwitch col red id id) [pContID (PS (V2 120 120) (3 * pi/4)) (PutButton $ makeSwitch col red id id)
$ \btid -> jsps (V2 5 5) 0 $ PutDoor col (cond btid) pss $ \btid -> jsps (V2 5 5) 0 $ PutDoor col (cond btid) pss
,mntLS vShape (V2 20 20) (V3 70 70 50) --,mntLS vShape (V2 20 20) (V3 70 70 50)
,mntLS vShape (V2 35 35) (V3 70 70 50)
] ]
, _rmBound = , _rmBound =
[map toV2 [ (10,10) [map toV2 [ (10,10)
src/Dodge/Room/Start.hs
+2 -1
View File
@@ -57,10 +57,11 @@ startRoom i = join (takeOne
-- <&> (,TreeSubLabelling "chainUses <$> sequence [powerFakeout,weaponRoom i]" Nothing)) -- <&> (,TreeSubLabelling "chainUses <$> sequence [powerFakeout,weaponRoom i]" Nothing))
-- wat -- wat
-- rezBoxesWp >>= rToOnward "rezBoxesWp" -- rezBoxesWp >>= rToOnward "rezBoxesWp"
attachOnward "rezBoxThenWeaponRoom" <$> preCritStart <*> weaponRoom i -- attachOnward "startThenWeaponRoom" <$> preCritStart <*> weaponRoom i
-- startThenWeaponRoom i -- startThenWeaponRoom i
-- rezBoxesWpCrit >>= rToOnward "rezBoxesWpCrit" -- rezBoxesWpCrit >>= rToOnward "rezBoxesWpCrit"
-- runPastStart i >>= rToOnward ("runPastStart " ++ show i) -- runPastStart i >>= rToOnward ("runPastStart " ++ show i)
attachOnward "startThenCraft" <$> preCritStart <*> (startCrafts >>= roomsContaining [])
-- startCrafts >>= roomsContaining' [] >>= preCritStart -- startCrafts >>= roomsContaining' [] >>= preCritStart
-- >>= rToOnward "startCrafts >>= roomsContaining [] >>= preCritStart" -- >>= rToOnward "startCrafts >>= roomsContaining [] >>= preCritStart"
]) ])