hedgewars/uVariables.pas
changeset 11520 663ecfb05df6
parent 11519 aab4767d9a50
child 11544 b69f5f22a3ba
child 11704 1694b379c83f
equal deleted inserted replaced
11519:aab4767d9a50 11520:663ecfb05df6
   213     ScreenFadeValue : LongInt;
   213     ScreenFadeValue : LongInt;
   214     ScreenFadeSpeed : LongInt;
   214     ScreenFadeSpeed : LongInt;
   215     InCinematicMode : boolean;
   215     InCinematicMode : boolean;
   216     CinematicSteps  : LongInt;
   216     CinematicSteps  : LongInt;
   217     CinematicBarH   : LongInt;
   217     CinematicBarH   : LongInt;
       
   218     CinematicScript : boolean;
   218 
   219 
   219     UIDisplay       : TUIDisplay;
   220     UIDisplay       : TUIDisplay;
   220     LocalMessage    : LongWord;
   221     LocalMessage    : LongWord;
   221 
   222 
   222     Theme           : shortstring;
   223     Theme           : shortstring;
  2689     disableLandBack := false;
  2690     disableLandBack := false;
  2690     ScreenFade      := sfNone;
  2691     ScreenFade      := sfNone;
  2691     InCinematicMode := false;
  2692     InCinematicMode := false;
  2692     CinematicSteps  := 0;
  2693     CinematicSteps  := 0;
  2693     CinematicBarH   := 0;
  2694     CinematicBarH   := 0;
       
  2695     CinematicScript := false;
  2694 
  2696 
  2695     // those values still are not perfect
  2697     // those values still are not perfect
  2696     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
  2698     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
  2697     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
  2699     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
  2698     cScreenSpace:= cRightScreenBorder - cLeftScreenBorder;
  2700     cScreenSpace:= cRightScreenBorder - cLeftScreenBorder;