Add dust on bullet wall hit

2021-09-13 12:23:51 +01:00
parent b27c174d93
commit 29f048cfdd
15 changed files with 93 additions and 68 deletions
@@ -328,7 +328,7 @@ ltAutoGun = defaultAutoGun
        , withRandomDirI 0.1
        , torqueAfterI 0.2
        , withSidePushI 50
-        , withMuzFlareI
+        , modClock 2 withMuzFlareI
        ]
    , _wpSpread = 0.5
    , _wpRange = 20
@@ -388,6 +388,7 @@ miniGun = defaultAutoGun
        , withRandomOffsetI 9
        , withMuzFlareI
        , withOldDir od3
+        , withSmoke 1 black 20 200 5
        ]
    , _wpRange = 20
    , _itFloorPict = onLayer FlItLayer miniGunPict
@@ -948,7 +949,7 @@ moveRemoteShell cid itid pj w
    hitWl    = fst <$> collideCircWalls oldPos newPos 2 (wallsNearPoint newPos w)
    thingHit = hitCr <|> hitWl
    r1 = _randGen w & evalState (randInCirc 10)
-    smokeGen = makeSmokeCloudAt $ addZ 20 $ oldPos +.+ r1 +.+ 30 *.* normalizeV (oldPos -.- newPos)
+    smokeGen = shellTrailCloud $ addZ 20 $ oldPos +.+ r1 +.+ 30 *.* normalizeV (oldPos -.- newPos)
    doExplosion = explodeRemoteRocket itid i

 explodeRemoteRocket