From bab60f8ad58f03e8a35dbb44aba77bb9ff9201f9 Mon Sep 17 00:00:00 2001 From: Ketmar Dark Date: Sun, 3 Sep 2017 18:41:03 +0300 Subject: [PATCH] particle cosmetix for mplats --- src/game/g_gfx.pas | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/src/game/g_gfx.pas b/src/game/g_gfx.pas index e49a72c..8bdbf88 100644 --- a/src/game/g_gfx.pas +++ b/src/game/g_gfx.pas @@ -358,20 +358,24 @@ end; procedure TParticle.think (); inline; + procedure awake (); + begin + state := TPartState.Normal; + floorY := Unknown; + ceilingY := Unknown; + if (velY = 0) then velY := 0.1; + if (accelY = 0) then accelY := 0.5; + end; + begin // awake sleeping particle, if necessary if awakeDirty then begin case state of TPartState.Sleeping, TPartState.Stuck: - if awmIsSet(x, y) then - begin - state := TPartState.Normal; - floorY := Unknown; - ceilingY := Unknown; - if (velY = 0) then velY := 0.1; - if (accelY = 0) then accelY := 0.5; - end; + if awmIsSet(x, y) then awake(); + else + if (env = TEnvType.EWall) and awmIsSet(x, y) then awake(); end; end; case particleType of -- 2.29.2