639     cLaserSighting:= true;

   639     cLaserSighting:= true;

   640 

   640 

   641 if (GameFlags and gfArtillery) <> 0 then

   641 if (GameFlags and gfArtillery) <> 0 then

   642     cArtillery:= true;

   642     cArtillery:= true;

   643 for i:= GetRandom(10)+30 downto 0 do

   643 for i:= GetRandom(10)+30 downto 0 do

   645     ry:= GetRandom(LAND_HEIGHT-topY)+topY;

   646     ry:= GetRandom(LAND_HEIGHT-topY)+topY;

   646     rdx:= _90-(GetRandomf*_360);

   647     rdx:= _90-(GetRandomf*_360);

   647     rdy:= _90-(GetRandomf*_360);

   648     rdy:= _90-(GetRandomf*_360);

   648     AddGear(rx, ry, gtGenericFaller, gstInvisible, rdx, rdy, $FFFFFFFF);

   649     AddGear(rx, ry, gtGenericFaller, gstInvisible, rdx, rdy, $FFFFFFFF);

   649     end;

   650     end;