equal
deleted
inserted
replaced
801 end; |
801 end; |
802 until not b; |
802 until not b; |
803 end; |
803 end; |
804 |
804 |
805 procedure AddObjects(); |
805 procedure AddObjects(); |
806 var i, int: Longword; |
806 var i, g: Longword; |
807 begin |
807 begin |
808 InitRects; |
808 InitRects; |
809 if hasGirders then |
809 if hasGirders then |
810 begin |
810 begin |
811 int:= max(playWidth div 8, 256); |
811 g:= max(playWidth div 8, 256); |
812 i:=leftX+int; |
812 i:= leftX + g; |
813 repeat |
813 repeat |
814 AddGirder(i); |
814 AddGirder(i); |
815 i:=i+int; |
815 i:=i + g; |
816 until (i>rightX-int); |
816 until (i > rightX - g); |
817 end; |
817 end; |
818 if (GameFlags and gfDisableLandObjects) = 0 then |
818 if (GameFlags and gfDisableLandObjects) = 0 then |
819 AddThemeObjects(ThemeObjects); |
819 AddThemeObjects(ThemeObjects); |
820 AddProgress(); |
820 AddProgress(); |
821 FreeRects(); |
821 FreeRects(); |