equal
deleted
inserted
replaced
265 ai: TAmmoType; |
265 ai: TAmmoType; |
266 tmpsurf: PSDL_Surface; |
266 tmpsurf: PSDL_Surface; |
267 i: LongInt; |
267 i: LongInt; |
268 begin |
268 begin |
269 |
269 |
|
270 AddProgress; |
|
271 |
270 for fi:= Low(THWFont) to High(THWFont) do |
272 for fi:= Low(THWFont) to High(THWFont) do |
271 with Fontz[fi] do |
273 with Fontz[fi] do |
272 begin |
274 begin |
273 s:= Pathz[ptFonts] + '/' + Name; |
275 s:= Pathz[ptFonts] + '/' + Name; |
274 WriteToConsole(msgLoading + s + '... '); |
276 WriteToConsole(msgLoading + s + '... '); |
354 //not working anymore, where are LandSurface and StoreSurface defined? |
356 //not working anymore, where are LandSurface and StoreSurface defined? |
355 //SDL_SaveBMP_RW(LandSurface, SDL_RWFromFile('LandSurface.bmp', 'wb'), 1); |
357 //SDL_SaveBMP_RW(LandSurface, SDL_RWFromFile('LandSurface.bmp', 'wb'), 1); |
356 //SDL_SaveBMP_RW(StoreSurface, SDL_RWFromFile('StoreSurface.bmp', 'wb'), 1); |
358 //SDL_SaveBMP_RW(StoreSurface, SDL_RWFromFile('StoreSurface.bmp', 'wb'), 1); |
357 {$ENDIF} |
359 {$ENDIF} |
358 AddProgress; |
360 AddProgress; |
|
361 |
|
362 IMG_Quit(); |
359 end; |
363 end; |
360 |
364 |
361 procedure DrawFromRect(X, Y: LongInt; r: PSDL_Rect; SourceTexture: PTexture); |
365 procedure DrawFromRect(X, Y: LongInt; r: PSDL_Rect; SourceTexture: PTexture); |
362 var rr: TSDL_Rect; |
366 var rr: TSDL_Rect; |
363 _l, _r, _t, _b: real; |
367 _l, _r, _t, _b: real; |