equal
deleted
inserted
replaced
260 |
260 |
261 procedure ColorizeLand(Surface: PSDL_Surface); |
261 procedure ColorizeLand(Surface: PSDL_Surface); |
262 var tmpsurf: PSDL_Surface; |
262 var tmpsurf: PSDL_Surface; |
263 r: TSDL_Rect; |
263 r: TSDL_Rect; |
264 begin |
264 begin |
265 tmpsurf:= LoadImage(Pathz[ptThemeCurrent] + '/LandTex', false); |
265 tmpsurf:= LoadImage(Pathz[ptCurrTheme] + '/LandTex', false); |
266 r.y:= 0; |
266 r.y:= 0; |
267 while r.y < 1024 do |
267 while r.y < 1024 do |
268 begin |
268 begin |
269 r.x:= 0; |
269 r.x:= 0; |
270 while r.x < 2048 do |
270 while r.x < 2048 do |
286 procedure AddBorder(Surface: PSDL_Surface); |
286 procedure AddBorder(Surface: PSDL_Surface); |
287 var tmpsurf: PSDL_Surface; |
287 var tmpsurf: PSDL_Surface; |
288 r, rr: TSDL_Rect; |
288 r, rr: TSDL_Rect; |
289 x, yd, yu: integer; |
289 x, yd, yu: integer; |
290 begin |
290 begin |
291 tmpsurf:= LoadImage(Pathz[ptThemeCurrent] + '/Border', false); |
291 tmpsurf:= LoadImage(Pathz[ptCurrTheme] + '/Border', false); |
292 for x:= 0 to 2047 do |
292 for x:= 0 to 2047 do |
293 begin |
293 begin |
294 yd:= 1023; |
294 yd:= 1023; |
295 repeat |
295 repeat |
296 while (yd > 0 ) and (Land[yd, x] = 0) do dec(yd); |
296 while (yd > 0 ) and (Land[yd, x] = 0) do dec(yd); |