hedgewars/uLandObjects.pas
changeset 4669 296dbccdf376
parent 4639 6de386a42fae
child 4782 603916ddf4b6
equal deleted inserted replaced
4668:9d9523deb5e0 4669:296dbccdf376
   464 numFlakes:= vobCount * cScreenSpace div LAND_WIDTH;
   464 numFlakes:= vobCount * cScreenSpace div LAND_WIDTH;
   465 
   465 
   466 if (cReducedQuality and rqKillFlakes) <> 0 then
   466 if (cReducedQuality and rqKillFlakes) <> 0 then
   467     numFlakes:= 0;
   467     numFlakes:= 0;
   468 
   468 
   469 if Theme <> 'Snow' then
   469 if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then
   470     for i:= 0 to Pred(numFlakes) do
   470     for i:= 0 to Pred(numFlakes) do
   471         AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake)
   471         AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake)
   472 else
   472 else
   473     for i:= 0 to Pred(numFlakes div 3) do
   473     for i:= 0 to Pred(numFlakes div 3) do
   474         AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake);
   474         AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake);