43 function  LoadImage(const filename: string; hasAlpha, critical, setTransparent: boolean): PSDL_Surface;

    43 function  LoadImage(const filename: string; hasAlpha, critical, setTransparent: boolean): PSDL_Surface;

    44 procedure SetupOpenGL;

    44 procedure SetupOpenGL;

    45 

    45 

    46 var PixelFormat: PSDL_PixelFormat;

    46 var PixelFormat: PSDL_PixelFormat;

    47  SDLPrimSurface: PSDL_Surface;

    47  SDLPrimSurface: PSDL_Surface;

    49 

    50 

    50 implementation

    51 implementation

    51 uses uMisc, uConsole, uLand, uLocale, GLU;

    52 uses uMisc, uConsole, uLand, uLocale, GLU;

    52 

    53 

    53 var

    54 var

   293 SDL_FreeSurface(tmpsurf);

   294 SDL_FreeSurface(tmpsurf);

   294 

   295 

   295 InitHealth;

   296 InitHealth;

   296 

   297 

   297 PauseTexture:= RenderStringTex(trmsg[sidPaused], $FFFF00, fntBig);

   298 PauseTexture:= RenderStringTex(trmsg[sidPaused], $FFFF00, fntBig);

   298 

   300 

   299 for ai:= Low(TAmmoType) to High(TAmmoType) do

   301 for ai:= Low(TAmmoType) to High(TAmmoType) do

   300 	with Ammoz[ai] do

   302 	with Ammoz[ai] do

   301 		begin

   303 		begin

   302 		tmpsurf:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(trAmmo[NameId]), $FFFFFF);

   304 		tmpsurf:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(trAmmo[NameId]), $FFFFFF);