hedgewars/uVariables.pas
branchqmlfrontend
changeset 11544 b69f5f22a3ba
parent 11481 caa1e84c3ac2
parent 11520 663ecfb05df6
child 11828 a69124eb7ce7
equal deleted inserted replaced
11481:caa1e84c3ac2 11544:b69f5f22a3ba
   207     TargetPoint           : TPoint;
   207     TargetPoint           : TPoint;
   208 
   208 
   209     ScreenFade      : TScreenFade;
   209     ScreenFade      : TScreenFade;
   210     ScreenFadeValue : LongInt;
   210     ScreenFadeValue : LongInt;
   211     ScreenFadeSpeed : LongInt;
   211     ScreenFadeSpeed : LongInt;
       
   212     InCinematicMode : boolean;
       
   213     CinematicSteps  : LongInt;
       
   214     CinematicBarH   : LongInt;
       
   215     CinematicScript : boolean;
   212 
   216 
   213     UIDisplay       : TUIDisplay;
   217     UIDisplay       : TUIDisplay;
   214     LocalMessage    : LongWord;
   218     LocalMessage    : LongWord;
   215 
   219 
   216     Theme           : shortstring;
   220     Theme           : shortstring;
  2678     cInactDelay     := 100;
  2682     cInactDelay     := 100;
  2679     ReadyTimeLeft   := 0;
  2683     ReadyTimeLeft   := 0;
  2680 
  2684 
  2681     disableLandBack := false;
  2685     disableLandBack := false;
  2682     ScreenFade      := sfNone;
  2686     ScreenFade      := sfNone;
       
  2687     InCinematicMode := false;
       
  2688     CinematicSteps  := 0;
       
  2689     CinematicBarH   := 0;
       
  2690     CinematicScript := false;
  2683 
  2691 
  2684     // those values still are not perfect
  2692     // those values still are not perfect
  2685     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
  2693     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
  2686     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
  2694     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
  2687     cScreenSpace:= cRightScreenBorder - cLeftScreenBorder;
  2695     cScreenSpace:= cRightScreenBorder - cLeftScreenBorder;