31 |
31 |
32 implementation |
32 implementation |
33 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, SysUtils, |
33 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, SysUtils, |
34 uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures, |
34 uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures, |
35 uLandGenMaze, uPhysFSLayer, uScript, uLandGenPerlin, |
35 uLandGenMaze, uPhysFSLayer, uScript, uLandGenPerlin, |
36 uLandGenTemplateBased, uLandUtils; |
36 uLandGenTemplateBased, uLandUtils, uRenderUtils; |
37 |
37 |
38 var digest: shortstring; |
38 var digest: shortstring; |
39 maskOnly: boolean; |
39 maskOnly: boolean; |
40 |
40 |
41 |
41 |
192 while y < LAND_HEIGHT do |
192 while y < LAND_HEIGHT do |
193 begin |
193 begin |
194 r.x:= 0; |
194 r.x:= 0; |
195 while r.x < LAND_WIDTH do |
195 while r.x < LAND_WIDTH do |
196 begin |
196 begin |
197 SDL_UpperBlit(tmpsurf, nil, Surface, @r); |
197 copyToXY(tmpsurf, Surface, r.x, r.y); |
|
198 //SDL_UpperBlit(tmpsurf, nil, Surface, @r); |
198 inc(r.x, tmpsurf^.w) |
199 inc(r.x, tmpsurf^.w) |
199 end; |
200 end; |
200 inc(y, tmpsurf^.h); |
201 inc(y, tmpsurf^.h); |
201 r.y:= y |
202 r.y:= y |
202 end; |
203 end; |