1111     cLaserSighting:= true;

  1111     cLaserSighting:= true;

  1112 

  1112 

  1113 if (GameFlags and gfArtillery) <> 0 then

  1113 if (GameFlags and gfArtillery) <> 0 then

  1114     cArtillery:= true;

  1114     cArtillery:= true;

  1115 

  1115 

  1117     for i:= 0 to Pred(vobCount) do

  1117     for i:= 0 to Pred(vobCount) do

  1118         AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(1024), gtFlake, 0, _0, _0, 0);

  1118         AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(1024), gtFlake, 0, _0, _0, 0);

  1119 end;

  1119 end;

  1120 

  1120 

  1121 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord);

  1121 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord);