equal
deleted
inserted
replaced
266 |
266 |
267 procedure ColorizeLand(Surface: PSDL_Surface); |
267 procedure ColorizeLand(Surface: PSDL_Surface); |
268 var tmpsurf: PSDL_Surface; |
268 var tmpsurf: PSDL_Surface; |
269 r: TSDL_Rect; |
269 r: TSDL_Rect; |
270 begin |
270 begin |
271 tmpsurf:= LoadImage(Pathz[ptThemeCurrent] + 'LandTex.png', false); |
271 tmpsurf:= LoadImage(Pathz[ptThemeCurrent] + '/LandTex.png', false); |
272 r.y:= 0; |
272 r.y:= 0; |
273 while r.y < 1024 do |
273 while r.y < 1024 do |
274 begin |
274 begin |
275 r.x:= 0; |
275 r.x:= 0; |
276 while r.x < 2048 do |
276 while r.x < 2048 do |
292 procedure AddBorder(Surface: PSDL_Surface); |
292 procedure AddBorder(Surface: PSDL_Surface); |
293 var tmpsurf: PSDL_Surface; |
293 var tmpsurf: PSDL_Surface; |
294 r, rr: TSDL_Rect; |
294 r, rr: TSDL_Rect; |
295 x, yd, yu: integer; |
295 x, yd, yu: integer; |
296 begin |
296 begin |
297 tmpsurf:= LoadImage(Pathz[ptThemeCurrent] + 'Border.png', false); |
297 tmpsurf:= LoadImage(Pathz[ptThemeCurrent] + '/Border.png', false); |
298 for x:= 0 to 2047 do |
298 for x:= 0 to 2047 do |
299 begin |
299 begin |
300 yd:= 1023; |
300 yd:= 1023; |
301 repeat |
301 repeat |
302 while (yd > 0 ) and (Land[yd, x] = 0) do dec(yd); |
302 while (yd > 0 ) and (Land[yd, x] = 0) do dec(yd); |