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

Prevent rooted creatures from being pushed by other creatures

Browse Source
This commit is contained in:
justin
2026-04-25 09:04:01 +01:00
parent e0e346aade
commit 264651d34a
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/Tutorial.hs
+2 -2
View File
@@ -56,8 +56,8 @@ tutAnoTree :: State LayoutVars MTRS
tutAnoTree = do tutAnoTree = do
foldMTRS foldMTRS
[ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
, corDoor -- , corDoor
, tToBTree "" . return . cleatOnward <$> slowDoorRoom -- , tToBTree "" . return . cleatOnward <$> slowDoorRoom
, corDoor , corDoor
--, tToBTree "" . return . cleatOnward <$> (xChasm 200 200 --, tToBTree "" . return . cleatOnward <$> (xChasm 200 200
, tToBTree "" . return . cleatOnward <$> ((putSingleLight =<< roomRectAutoLights 300 300) , tToBTree "" . return . cleatOnward <$> ((putSingleLight =<< roomRectAutoLights 300 300)
src/Dodge/Update.hs
+4
View File
@@ -1015,6 +1015,10 @@ crCrSpring c1 c2
| vec == V2 0 0 = id | vec == V2 0 0 = id
| diff >= comRad = id | diff >= comRad = id
| diffheight = id | diffheight = id
| Rooted <- c2 ^. crStance . carriage = id
| Rooted <- c1 ^. crStance . carriage
= cWorld . lWorld . creatures . ix id2 . crPos . _xy +~
(diff - comRad) *^ signorm vec
| SlimeCrit{} <- c1 ^. crType | SlimeCrit{} <- c1 ^. crType
, SlimeCrit{} <- c2 ^. crType , SlimeCrit{} <- c2 ^. crType
, id2 > id1 , id2 > id1