40 procedure AddProgress;

    40 procedure AddProgress;

    41 function  LoadImage(filename: string; hasAlpha: boolean; const critical: boolean = true; const setTransparent: boolean = true): PSDL_Surface;

    41 function  LoadImage(filename: string; hasAlpha: boolean; const critical: boolean = true; const setTransparent: boolean = true): PSDL_Surface;

    42 

    42 

    43 var PixelFormat: PSDL_PixelFormat;

    43 var PixelFormat: PSDL_PixelFormat;

    44  SDLPrimSurface: PSDL_Surface;

    44  SDLPrimSurface: PSDL_Surface;

    45 

    46 

    46 implementation

    47 implementation

    48 

    49 

    49 var StoreSurface,

    50 var StoreSurface,

    50        HHSurface: PSDL_Surface;

    51        HHSurface: PSDL_Surface;

    51 

    52 

    52 procedure StoreInit;

    53 procedure StoreInit;

   306 HHSurface:= SDL_DisplayFormat(tmpsurf);

   307 HHSurface:= SDL_DisplayFormat(tmpsurf);

   307 SDL_FreeSurface(tmpsurf);

   308 SDL_FreeSurface(tmpsurf);

   308 

   309 

   309 InitHealth;

   310 InitHealth;

   310 

   311 

   311 {$IFDEF DUMP}

   314 {$IFDEF DUMP}

   312 SDL_SaveBMP_RW(LandSurface, SDL_RWFromFile('LandSurface.bmp', 'wb'), 1);

   315 SDL_SaveBMP_RW(LandSurface, SDL_RWFromFile('LandSurface.bmp', 'wb'), 1);

   313 SDL_SaveBMP_RW(StoreSurface, SDL_RWFromFile('StoreSurface.bmp', 'wb'), 1);

   316 SDL_SaveBMP_RW(StoreSurface, SDL_RWFromFile('StoreSurface.bmp', 'wb'), 1);

   314 {$ENDIF}

   317 {$ENDIF}

   315 end;

   318 end;