hedgewars/uVariables.pas
changeset 7180 53ffc8853008
parent 7103 1c1afb5a1565
child 7198 5debd5fe526e
--- a/hedgewars/uVariables.pas	Mon Jun 04 08:11:47 2012 -0400
+++ b/hedgewars/uVariables.pas	Mon Jun 04 21:32:30 2012 +0400
@@ -52,6 +52,7 @@
     cReadyDelay     : Longword    = 5000;
     cStereoMode     : TStereoMode = smNone;
     cOnlyStats      : boolean = False;
+    cRecPrefix      : shortstring = '';
 //////////////////////////
     cMapName        : shortstring = '';
 
@@ -62,6 +63,7 @@
     isSpeed         : boolean;
 
     fastUntilLag    : boolean;
+    fastScrolling   : boolean;
     autoCameraOn    : boolean;
 
     GameTicks       : LongWord;
@@ -2437,6 +2439,10 @@
     framel, framer, depthl, depthr: GLuint;
     texl, texr: GLuint;
 
+    // video recorder framebuffer and texture
+    defaultFrame, depthv: GLuint;
+    texv: GLuint;
+
     VisualGearLayers: array[0..6] of PVisualGear;
     lastVisualGearByUID: PVisualGear;
     vobFrameTicks, vobFramesCount, vobCount: Longword;
@@ -2561,7 +2567,7 @@
     cExplosives     := 2;
 
     GameState       := Low(TGameState);
-    GameType        := gmtLocal;
+//    GameType        := gmtLocal;
     zoom            := cDefaultZoomLevel;
     ZoomValue       := cDefaultZoomLevel;
     WeaponTooltipTex:= nil;
@@ -2577,6 +2583,7 @@
     isInMultiShoot  := false;
     isSpeed         := false;
     fastUntilLag    := false;
+    fastScrolling   := false;
     autoCameraOn    := true;
     cScriptName     := '';
     cSeed           := '';