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 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;

   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;