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

Improve debris

Browse Source
This commit is contained in:
justin
2022-06-16 12:24:09 +01:00
parent fa762c7687
commit aa29e5ddf2
14 changed files with 75 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Item/Weapon/Shatter.hs
+4 -4
View File
@@ -59,7 +59,7 @@ shootShatter it cr w = maybe w (uncurry $ shatterWall w sp ep) $ collidePointWal
ep = sp +.+ 200 *.* unitVectorAtAngle dir
shatterWall :: World -> Point2 -> Point2 -> Point2 -> Wall -> World
shatterWall w sp ep p wl = w & makeDebris StoneBlock p
& damageWall (Damage SHATTERING 100 sp p ep NoDamageEffect) wl
& damageWall (Damage SHATTERING 100 sp p ep NoDamageEffect) wl
& damageWall (Damage SHATTERING 100 sp p ep NoDamageEffect) wl
shatterWall w sp ep p wl = w
& makeDebris StoneBlock p
& makeDebrisDirected StoneBlock p (argV $ vNormal $ uncurry (-.-) $ _wlLine wl)
& damageWall (Damage SHATTERING 1000 sp p ep NoDamageEffect) wl