--- a/hedgewars/uStore.pas	Mon Jun 11 17:56:10 2012 +0400
+++ b/hedgewars/uStore.pas	Mon Jun 11 18:15:30 2012 +0400
@@ -40,7 +40,9 @@
 procedure ShowWeaponTooltip(x, y: LongInt);
 procedure FreeWeaponTooltip;
 procedure MakeCrossHairs;
+{$IFDEF USE_VIDEO_RECORDING}
 procedure InitOffscreenOpenGL;
+{$ENDIF}
 
 procedure WarpMouse(x, y: Word); inline;
 procedure SwapBuffers; inline;
@@ -1022,6 +1024,7 @@
 WeaponTooltipTex:= nil
 end;
 
+{$IFDEF USE_VIDEO_RECORDING}
 procedure InitOffscreenOpenGL;
 var ArgCount: LongInt;
     PrgName: pchar;
@@ -1034,6 +1037,7 @@
     glutHideWindow();
     SetupOpenGL();
 end;
+{$ENDIF}
 
 procedure chFullScr(var s: shortstring);
 var flags: Longword = 0;