Remove push damage types, push and torque done through dam effects

This commit is contained in:
2023-05-01 10:26:48 +01:00
parent 06608c60bf
commit d0534e6fa3
8 changed files with 8 additions and 32 deletions
+2 -4
View File
@@ -112,8 +112,7 @@ makeFragBullets p w = w & cWorld . lWorld . instantBullets .++~ bus
& buOldPos .~ p
& buWidth .~ 1
& buDamages .~
[ Damage PIERCING 5 0 0 0 NoDamageEffect
, Damage PUSHDAM 1 0 0 0 . PushBackDamage $ 2
[ Damage PIERCING 5 0 0 0 $ PushBackDamage 2
]
makeFlak :: Bullet -> Point2 -> World -> World
@@ -126,8 +125,7 @@ makeFlak bu _ w = w & cWorld . lWorld . instantBullets .++~ [f x | x <- xs]
& buSpawn .~ BulSpark
& buWidth .~ 0.5
& buDamages .~
[ Damage PIERCING 25 0 0 0 NoDamageEffect
, Damage PUSHDAM 1 0 0 0 . PushBackDamage $ 2
[ Damage PIERCING 25 0 0 0 $ PushBackDamage 2
]
g x v = v +.+ x *.* normalizeV (vNormal v)