allow poison clouds to flag active using tmpflag
authornemo
Sun, 22 Dec 2013 14:46:30 -0500
changeset 9817 2f2f4f0f671d
parent 9816 e71188c140ee
child 9818 ff07ac765f45
allow poison clouds to flag active using tmpflag
hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Sun Dec 22 23:17:42 2013 +0400
+++ b/hedgewars/uGearsHandlersMess.pas	Sun Dec 22 14:46:30 2013 -0500
@@ -4797,7 +4797,8 @@
     Gear^.dY := Gear^.dY + cGravity / 100;
     if (GameTicks and $FF) = 0 then
         doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, Gear^.Hedgehog, EXPLDontDraw or EXPLNoGfx or EXPLNoDamage or EXPLDoNotTouchAny or EXPLPoisoned);
-    AllInactive:= false;
+    if Gear^.State and gstTmpFlag = 0 then
+        AllInactive:= false;
 end;
 
 ////////////////////////////////////////////////////////////////////////////////