hedgewars/uGearsHedgehog.pas
changeset 8030 165aeaaaf445
parent 8003 7d8bce524daf
child 8051 f26422ef0333
--- a/hedgewars/uGearsHedgehog.pas	Wed Nov 14 22:27:05 2012 -0500
+++ b/hedgewars/uGearsHedgehog.pas	Wed Nov 14 23:23:56 2012 -0500
@@ -641,9 +641,10 @@
                         gi := GearsList;
                         while gi <> nil do
                             begin
-                            if gi^.Kind = gtGenericFaller then
+                            if (gi^.Kind = gtGenericFaller) and (gi^.State and gstInvisible <> 0) then
                                 begin
                                 gi^.Active:= true;
+                                gi^.State:= gi^.State or gstTmpFlag;
                                 gi^.X:= int2hwFloat(GetRandom(rightX-leftX)+leftX);
                                 gi^.Y:= int2hwFloat(GetRandom(LAND_HEIGHT-topY)+topY);
                                 gi^.dX:= _90-(GetRandomf*_360);