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

Add bee crits

Browse Source
This commit is contained in:
justin
2026-04-20 12:25:39 +01:00
parent 722a25240e
commit adae6b84f4
20 changed files with 340 additions and 184 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update.hs
+5 -2
View File
@@ -1037,8 +1037,11 @@ crCrSpring c1 c2
r1 = crRad (c1 ^. crType)
r2 = crRad (c2 ^. crType)
comRad = crRad (c1 ^. crType) + crRad (c2 ^. crType)
overlap c = ((comRad - diff) * crMass (_crType c) * 0.5 / massT) *^ signorm vec
massT = crMass (_crType c1) + crMass (_crType c2)
overlap c = ((comRad - diff) * cmass c * 0.5 / massT) *^ signorm vec
massT = cmass c1 + cmass c2
cmass c = case c ^. crStance . carriage of
Falling {} -> crMass (c ^. crType) * 10
_ -> crMass (c ^. crType)
slimeSuck :: Creature -> Creature -> World -> World
slimeSuck c1 c2 = cWorld . lWorld . creatures %~ (rolap . rolap')