--- a/hedgewars/uStore.pas	Sat Sep 30 20:31:07 2017 +0200
+++ b/hedgewars/uStore.pas	Sat Sep 30 21:54:47 2017 +0200
@@ -370,9 +370,7 @@
 end;
 
 procedure StoreLoad(reload: boolean);
-var s: shortstring;
-    ii: TSprite;
-    fi: THWFont;
+var ii: TSprite;
     ai: TAmmoType;
     tmpsurf, tmpoverlay: PSDL_Surface;
     i, imflags: LongInt;