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

Only update stride amount when actually moving

Browse Source
This commit is contained in:
justin
2025-12-24 22:02:43 +00:00
parent 8e484e37a9
commit 27cb05b8f7
6 changed files with 198 additions and 164 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/Tutorial.hs
+1 -1
View File
@@ -51,7 +51,7 @@ tutAnoTree = do
, corDoor
, return $ tToBTree "cor" $ return $ cleatOnward corridor
, tToBTree "sdr" . return . cleatOnward <$>
(shuffleLinks =<< distributerRoom BulletAmmo 100)
(shuffleLinks =<< distributerRoom BulletAmmo 100000)
, return $ tToBTree "cor" $ return $ cleatOnward corridor
--, tToBTree "sdr" . return . cleatOnward <$> slowDoorRoom
-- , tToBTree "sr" . return . cleatOnward <$> tanksRoom [] []
src/Dodge/Room/Warning.hs
+3 -1
View File
@@ -56,7 +56,9 @@ addDoorAtNthLinkToggleTerminal j xs i =
lineOutputTerminal xs --(makeColorTermLine red "WARNING" : makeTermPara str)
& tmToggles
.~ M.fromList
[("DOOR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))]
[("DOOR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))
,("DOAR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))
,("TEST", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))]
addWarningTerminal :: String -> Int -> Room -> Room
addWarningTerminal str =