equal
deleted
inserted
replaced
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; |
48 PauseTexture: PTexture; |
48 PauseTexture, |
|
49 ConfirmTexture: PTexture; |
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); |
|
299 ConfirmTexture:= RenderStringTex(trmsg[sidConfirm], $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); |