hedgewars/uVariables.pas
changeset 4806 48c1a395f0a7
parent 4792 68f9b331014a
child 4807 180dbfb13903
equal deleted inserted replaced
4805:01332828b568 4806:48c1a395f0a7
  2105 
  2105 
  2106     VisualGearsList: PVisualGear;
  2106     VisualGearsList: PVisualGear;
  2107     lastVisualGearByUID: PVisualGear;
  2107     lastVisualGearByUID: PVisualGear;
  2108     vobFrameTicks, vobFramesCount, vobCount: Longword;
  2108     vobFrameTicks, vobFramesCount, vobCount: Longword;
  2109     vobVelocity, vobFallSpeed: LongInt;
  2109     vobVelocity, vobFallSpeed: LongInt;
       
  2110     vobSDFrameTicks, vobSDFramesCount, vobSDCount: Longword;
       
  2111     vobSDVelocity, vobSDFallSpeed: LongInt;
  2110 
  2112 
  2111 
  2113 
  2112     hideAmmoMenu: boolean;
  2114     hideAmmoMenu: boolean;
  2113     wheelUp: boolean;
  2115     wheelUp: boolean;
  2114     wheelDown: boolean;
  2116     wheelDown: boolean;
  2125     ControllerButtons: array[0..5] of array[0..19] of Byte;
  2127     ControllerButtons: array[0..5] of array[0..19] of Byte;
  2126 
  2128 
  2127     DefaultBinds, CurrentBinds: TBinds;
  2129     DefaultBinds, CurrentBinds: TBinds;
  2128 
  2130 
  2129     coeff: LongInt;
  2131     coeff: LongInt;
       
  2132 
  2130 {$IFDEF HWLIBRARY}
  2133 {$IFDEF HWLIBRARY}
  2131     leftClick: boolean;
  2134     leftClick: boolean;
  2132     middleClick: boolean;
  2135     middleClick: boolean;
  2133     rightClick: boolean;
  2136     rightClick: boolean;
  2134 
  2137 
  2291 
  2294 
  2292     if isPhone() then
  2295     if isPhone() then
  2293         cMaxCaptions:= 3
  2296         cMaxCaptions:= 3
  2294     else
  2297     else
  2295         cMaxCaptions:= 4;
  2298         cMaxCaptions:= 4;
       
  2299 
       
  2300     vobSDFrameTicks:= 0;
       
  2301     vobSDFramesCount:= 0;
       
  2302     vobSDCount:= 30 * cScreenSpace div LAND_WIDTH;
       
  2303     vobSDVelocity:= 0;
       
  2304     vobSDFallSpeed:= 0;
  2296 end;
  2305 end;
  2297 
  2306 
  2298 procedure freeModule;
  2307 procedure freeModule;
  2299 begin
  2308 begin
  2300     // re-init flags so they will always contain safe values
  2309     // re-init flags so they will always contain safe values