hedgewars/uLandObjects.pas
changeset 3936 0b982d340633
parent 3764 eb91c02f2d84
child 3976 abaf741a4e21
equal deleted inserted replaced
3934:8cdbc0505f18 3936:0b982d340633
   527     repeat
   527     repeat
   528         AddGirder(i);
   528         AddGirder(i);
   529         i:=i+int;
   529         i:=i+int;
   530     until (i>rightX-int);
   530     until (i>rightX-int);
   531     end;
   531     end;
   532 AddThemeObjects(ThemeObjects);
   532 if (GameFlags and gfDisableLandObjects) = 0 then AddThemeObjects(ThemeObjects);
   533 AddProgress();
   533 AddProgress();
   534 FreeRects();
   534 FreeRects();
   535 end;
   535 end;
   536 
   536 
   537 procedure AddOnLandObjects(Surface: PSDL_Surface);
   537 procedure AddOnLandObjects(Surface: PSDL_Surface);