diff -r 75db7bb8dce8 -r c18ba8726f5a hedgewars/uStore.pas
--- a/hedgewars/uStore.pas	Sun Jan 27 00:28:57 2013 +0100
+++ b/hedgewars/uStore.pas	Tue Feb 19 22:45:02 2013 +0400
@@ -468,6 +468,7 @@
 WriteLnToConsole('Leaving StoreLoad');
 end;
 
+{$IFNDEF PAS2C}
 {$IF DEFINED(USE_S3D_RENDERING) OR DEFINED(USE_VIDEO_RECORDING)}
 procedure CreateFramebuffer(var frame, depth, tex: GLuint);
 begin
@@ -492,6 +493,7 @@
     glDeleteFramebuffersEXT(1, @frame);
 end;
 {$ENDIF}
+{$ENDIF}
 
 procedure StoreRelease(reload: boolean);
 var ii: TSprite;
@@ -566,6 +568,7 @@
                 end;
             end;
         end;
+{$IFNDEF PAS2C}
 {$IFDEF USE_VIDEO_RECORDING}
     if defaultFrame <> 0 then
         DeleteFramebuffer(defaultFrame, depthv, texv);
@@ -577,6 +580,7 @@
         DeleteFramebuffer(framer, depthr, texr);
         end
 {$ENDIF}
+{$ENDIF}
 end;
 
 
@@ -994,6 +998,7 @@
     UpdateModelviewProjection;
 {$ENDIF}
 
+{$IFNDEF PAS2C}
 {$IFNDEF USE_S3D_RENDERING}
     if (cStereoMode = smHorizontal) or (cStereoMode = smVertical) or (cStereoMode = smAFR) then
     begin
@@ -1010,6 +1015,7 @@
             cStereoMode:= smNone;
     end;
 {$ENDIF}
+{$ENDIF}
 
 // set view port to whole window
 glViewport(0, 0, cScreenWidth, cScreenHeight);
@@ -1209,10 +1215,11 @@
         squaresize:= texsurf^.w shr 1;
         numsquares:= texsurf^.h div squaresize;
         SDL_FreeSurface(texsurf);
+        {$IFNDEF PAS2C}
         with mobileRecord do
             if GameLoading <> nil then
                 GameLoading();
-
+        {$ENDIF}
         end;
 
     TryDo(ProgrTex <> nil, 'Error - Progress Texure is nil!', true);
@@ -1236,9 +1243,11 @@
 
 procedure FinishProgress;
 begin
+    {$IFNDEF PAS2C}
     with mobileRecord do
         if GameLoaded <> nil then
             GameLoaded();
+    {$ENDIF}
     WriteLnToConsole('Freeing progress surface... ');
     FreeTexture(ProgrTex);
     ProgrTex:= nil;