hedgewars/uGears.pas
changeset 7257 566bdf2f023b
parent 7181 0791c1f2734c
child 7411 efc75c2d3be9
--- a/hedgewars/uGears.pas	Mon Jul 16 20:56:55 2012 +0300
+++ b/hedgewars/uGears.pas	Sat Jul 21 01:47:34 2012 +0300
@@ -556,7 +556,7 @@
 Gear:= GearsList;
 while Gear <> nil do
     begin
-    if Gear^.State and gstInvisible = 0 then
+    if (Gear^.State and gstInvisible = 0) and (Gear^.Message and gmRemoveFromList = 0) then
         begin
         x:= hwRound(Gear^.X) + WorldDx;
         y:= hwRound(Gear^.Y) + WorldDy;