59 

    59 

    60 

    60 

    61 var PixelFormat: PSDL_PixelFormat = nil;

    61 var PixelFormat: PSDL_PixelFormat = nil;

    62  SDLPrimSurface: PSDL_Surface = nil;

    62  SDLPrimSurface: PSDL_Surface = nil;

    63    PauseTexture,

    63    PauseTexture,

    64    ConfirmTexture: PTexture;

    65    ConfirmTexture: PTexture;

    65    cScaleFactor: GLfloat = 2.0;

    66    cScaleFactor: GLfloat = 2.0;

    66 

    67 

    67 implementation

    68 implementation

    68 uses uMisc, uConsole, uLand, uLocale, uWorld;

    69 uses uMisc, uConsole, uLand, uLocale, uWorld;

   306 

   307 

   307 InitHealth;

   308 InitHealth;

   308 

   309 

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

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

   310 ConfirmTexture:= RenderStringTex(trmsg[sidConfirm], $FFFF00, fntBig);

   311 ConfirmTexture:= RenderStringTex(trmsg[sidConfirm], $FFFF00, fntBig);

   311 

   313 

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

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

   313 	with Ammoz[ai] do

   315 	with Ammoz[ai] do

   314 		begin

   316 		begin

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

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