Add shatterGun

2022-06-16 11:13:44 +01:00
parent 6d5d651566
commit fa762c7687
13 changed files with 98 additions and 15 deletions
@@ -29,7 +29,7 @@ fallSmallBounceDamage pr w = w
        | _pjPosZ pr < 25 = creatures %~ fmap dodamage'
        | otherwise = id
    dodamage' cr
-        | dist (_crPos cr) p < _crRad cr = cr & crState . crDamage 
+        | dist (_crPos cr) p < _crRad cr + 5 = cr & crState . crDamage 
            .:~ Damage CRUSHING (floor . (*10) . max 0 . subtract 5 . abs $ _pjVelZ pr) (p -.- v) p (p +.+ v) NoDamageEffect
        | otherwise = cr