--- a/hedgewars/uStore.pas	Sun Apr 13 13:57:32 2008 +0000
+++ b/hedgewars/uStore.pas	Sun Apr 13 14:06:17 2008 +0000
@@ -116,11 +116,7 @@
 end;
 
 procedure StoreLoad;
-var ii: TSprite;
-    fi: THWFont;
-    ai: TAmmoType;
-    s: string;
-    tmpsurf: PSDL_Surface;
+var s: string;
 
     procedure WriteNames(Font: THWFont);
     var t: LongInt;
@@ -163,7 +159,6 @@
     procedure MakeCrossHairs;
     var t: LongInt;
         tmpsurf, texsurf: PSDL_Surface;
-        s: string;
         Color, i: Longword;
     begin
     s:= Pathz[ptGraphics] + '/' + cCHFileName;
@@ -249,6 +244,11 @@
                             $FF000000
     end;
 
+var ii: TSprite;
+    fi: THWFont;
+    ai: TAmmoType;
+    tmpsurf: PSDL_Surface;
+    i: LongInt;
 begin
 for fi:= Low(THWFont) to High(THWFont) do
     with Fontz[fi] do
@@ -304,6 +304,13 @@
 		SDL_FreeSurface(tmpsurf)
 		end;
 
+for i:= Low(CountTexz) to High(CountTexz) do
+	begin
+	tmpsurf:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(IntToStr(i) + 'x'), $FFFFFF);
+	CountTexz[i]:= 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);