hedgewars/uGears.pas
changeset 5015 1859a471488b
parent 5013 04789ba3f200
child 5016 9347d82a26cc
equal deleted inserted replaced
5014:adc340265ccf 5015:1859a471488b
  1149     cLaserSighting:= true;
  1149     cLaserSighting:= true;
  1150 
  1150 
  1151 if (GameFlags and gfArtillery) <> 0 then
  1151 if (GameFlags and gfArtillery) <> 0 then
  1152     cArtillery:= true;
  1152     cArtillery:= true;
  1153 
  1153 
  1154 if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) and ((cReducedQuality and rqLowRes) = 0) then
  1154 if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) then
  1155     begin
  1155     begin
  1156     for i:= 0 to Pred(vobCount*2) do
  1156     for i:= 0 to Pred(vobCount*2) do
  1157         AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(LAND_HEIGHT div 2), gtFlake, 0, _0, _0, 0);
  1157         AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(LAND_HEIGHT div 2), gtFlake, 0, _0, _0, 0);
  1158     disableLandBack:= true
  1158     disableLandBack:= true
  1159     end
  1159     end