Slimes absorb projectiles

2026-05-18 11:45:27 +01:00
parent 6251e43db8
commit e8738715e5
8 changed files with 80 additions and 88 deletions
@@ -1106,12 +1106,6 @@ fuseSlimes c1 c2 = (cWorld . lWorld . creatures . ix mini .~ c)
            & crID .~ mini
    eslime = min (c1 ^?! crType . slimeSlime) (c2 ^?! crType . slimeSlime)

-slimeEatSound :: Int -> Point2 -> World -> World
-slimeEatSound i p w = w & soundStart (CrSound i) p s Nothing
-        & randGen .~ g
-      where
-        (s,g) = runState (takeOne [slurp1S,slurp2S,slurp3S,slurp4S,slurp5S]) (w ^. randGen)
-    

 updateDelayedEvents :: World -> World
 updateDelayedEvents w =