--- a/hedgewars/uStore.pas Sun Apr 13 12:47:18 2008 +0000
+++ b/hedgewars/uStore.pas Sun Apr 13 13:57:32 2008 +0000
@@ -118,6 +118,7 @@
procedure StoreLoad;
var ii: TSprite;
fi: THWFont;
+ ai: TAmmoType;
s: string;
tmpsurf: PSDL_Surface;
@@ -295,6 +296,14 @@
PauseTexture:= RenderStringTex(trmsg[sidPaused], $FFFF00, fntBig);
+for ai:= Low(TAmmoType) to High(TAmmoType) do
+ with Ammoz[ai] do
+ begin
+ tmpsurf:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(trAmmo[NameId]), $FFFFFF);
+ NameTex:= Surface2Tex(tmpsurf);
+ SDL_FreeSurface(tmpsurf)
+ end;
+
{$IFDEF DUMP}
SDL_SaveBMP_RW(LandSurface, SDL_RWFromFile('LandSurface.bmp', 'wb'), 1);
SDL_SaveBMP_RW(StoreSurface, SDL_RWFromFile('StoreSurface.bmp', 'wb'), 1);