hedgewars/uVariables.pas
changeset 4806 48c1a395f0a7
parent 4792 68f9b331014a
child 4807 180dbfb13903
--- a/hedgewars/uVariables.pas	Sat Jan 01 19:41:58 2011 +0100
+++ b/hedgewars/uVariables.pas	Sat Jan 01 23:10:57 2011 +0100
@@ -2107,6 +2107,8 @@
     lastVisualGearByUID: PVisualGear;
     vobFrameTicks, vobFramesCount, vobCount: Longword;
     vobVelocity, vobFallSpeed: LongInt;
+    vobSDFrameTicks, vobSDFramesCount, vobSDCount: Longword;
+    vobSDVelocity, vobSDFallSpeed: LongInt;
 
 
     hideAmmoMenu: boolean;
@@ -2127,6 +2129,7 @@
     DefaultBinds, CurrentBinds: TBinds;
 
     coeff: LongInt;
+
 {$IFDEF HWLIBRARY}
     leftClick: boolean;
     middleClick: boolean;
@@ -2293,6 +2296,12 @@
         cMaxCaptions:= 3
     else
         cMaxCaptions:= 4;
+
+    vobSDFrameTicks:= 0;
+    vobSDFramesCount:= 0;
+    vobSDCount:= 30 * cScreenSpace div LAND_WIDTH;
+    vobSDVelocity:= 0;
+    vobSDFallSpeed:= 0;
 end;
 
 procedure freeModule;