hedgewars/uVariables.pas
changeset 12999 46ba3285449a
parent 12920 21827fc9ca98
child 13039 aed4b25ff242
equal deleted inserted replaced
12998:22e032ab1cb7 12999:46ba3285449a
   121 
   121 
   122     cCloudsNumber    : LongWord;
   122     cCloudsNumber    : LongWord;
   123     cSDCloudsNumber  : LongWord;
   123     cSDCloudsNumber  : LongWord;
   124 
   124 
   125     cTagsMask        : byte;
   125     cTagsMask        : byte;
       
   126     cPrevTagsMask    : byte;
   126     zoom             : GLfloat;
   127     zoom             : GLfloat;
   127     ZoomValue        : GLfloat;
   128     ZoomValue        : GLfloat;
   128 
   129 
   129     cWaterLine       : LongInt;
   130     cWaterLine       : LongInt;
   130     cGearScrEdgesDist: LongInt;
   131     cGearScrEdgesDist: LongInt;
  2622     cVideoQuality      := 0;
  2623     cVideoQuality      := 0;
  2623     cAudioCodec        := '';
  2624     cAudioCodec        := '';
  2624 {$ENDIF}
  2625 {$ENDIF}
  2625 
  2626 
  2626     cTagsMask:= htTeamName or htName or htHealth;
  2627     cTagsMask:= htTeamName or htName or htHealth;
       
  2628     cPrevTagsMask:= cTagsMask;
  2627 end;
  2629 end;
  2628 
  2630 
  2629 procedure initScreenSpaceVars();
  2631 procedure initScreenSpaceVars();
  2630 begin
  2632 begin
  2631     // those values still are not perfect
  2633     // those values still are not perfect