hedgewars/uVariables.pas
changeset 11519 aab4767d9a50
parent 11477 e425a6eb9da3
child 11520 663ecfb05df6
equal deleted inserted replaced
11518:02a13be714d2 11519:aab4767d9a50
   210     TargetPoint           : TPoint;
   210     TargetPoint           : TPoint;
   211 
   211 
   212     ScreenFade      : TScreenFade;
   212     ScreenFade      : TScreenFade;
   213     ScreenFadeValue : LongInt;
   213     ScreenFadeValue : LongInt;
   214     ScreenFadeSpeed : LongInt;
   214     ScreenFadeSpeed : LongInt;
       
   215     InCinematicMode : boolean;
       
   216     CinematicSteps  : LongInt;
       
   217     CinematicBarH   : LongInt;
   215 
   218 
   216     UIDisplay       : TUIDisplay;
   219     UIDisplay       : TUIDisplay;
   217     LocalMessage    : LongWord;
   220     LocalMessage    : LongWord;
   218 
   221 
   219     Theme           : shortstring;
   222     Theme           : shortstring;
  2683     cInactDelay     := 100;
  2686     cInactDelay     := 100;
  2684     ReadyTimeLeft   := 0;
  2687     ReadyTimeLeft   := 0;
  2685 
  2688 
  2686     disableLandBack := false;
  2689     disableLandBack := false;
  2687     ScreenFade      := sfNone;
  2690     ScreenFade      := sfNone;
       
  2691     InCinematicMode := false;
       
  2692     CinematicSteps  := 0;
       
  2693     CinematicBarH   := 0;
  2688 
  2694 
  2689     // those values still are not perfect
  2695     // those values still are not perfect
  2690     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
  2696     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
  2691     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
  2697     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
  2692     cScreenSpace:= cRightScreenBorder - cLeftScreenBorder;
  2698     cScreenSpace:= cRightScreenBorder - cLeftScreenBorder;