equal
deleted
inserted
replaced
296 |
296 |
297 procedure ColorizeLand(Surface: PSDL_Surface); |
297 procedure ColorizeLand(Surface: PSDL_Surface); |
298 var tmpsurf: PSDL_Surface; |
298 var tmpsurf: PSDL_Surface; |
299 r: TSDL_Rect; |
299 r: TSDL_Rect; |
300 begin |
300 begin |
301 tmpsurf:= LoadImage(Pathz[ptCurrTheme] + '/LandTex', false, true, true); |
301 tmpsurf:= LoadImage(Pathz[ptCurrTheme] + '/LandTex', false, true, false); |
302 r.y:= 0; |
302 r.y:= 0; |
303 while r.y < 1024 do |
303 while r.y < 1024 do |
304 begin |
304 begin |
305 r.x:= 0; |
305 r.x:= 0; |
306 while r.x < 2048 do |
306 while r.x < 2048 do |