hedgewars/uGearsHedgehog.pas
changeset 13219 9c81e34f1933
parent 13166 aa7915ceb69f
child 13329 543ab994c9bc
equal deleted inserted replaced
13218:1ac1f5a91ec0 13219:9c81e34f1933
   756                         AddRandomness(GameTicks);
   756                         AddRandomness(GameTicks);
   757 
   757 
   758                         gi := GearsList;
   758                         gi := GearsList;
   759                         while gi <> nil do
   759                         while gi <> nil do
   760                             begin
   760                             begin
   761                             if (gi^.Kind = gtGenericFaller) and (gi^.State and gstInvisible <> 0) then
   761                             if (gi^.Kind = gtGenericFaller) and (gi^.Tag = 1) then
   762                                 begin
   762                                 begin
   763                                 gi^.Active:= true;
   763                                 gi^.Active:= true;
   764                                 gi^.State:= gi^.State or gstTmpFlag;
   764                                 gi^.State:= gi^.State or gstTmpFlag;
   765                                 gi^.X:= int2hwFloat(GetRandom(rightX-leftX)+leftX);
   765                                 gi^.X:= int2hwFloat(GetRandom(rightX-leftX)+leftX);
   766                                 gi^.Y:= int2hwFloat(GetRandom(LAND_HEIGHT-topY)+topY);
   766                                 gi^.Y:= int2hwFloat(GetRandom(LAND_HEIGHT-topY)+topY);