hedgewars/uMisc.pas
changeset 3774 af0e68ca273e
parent 3765 ebfe7c9b3085
child 3779 3351a017d4ad
equal deleted inserted replaced
3773:f552c7b439fa 3774:af0e68ca273e
    40     GameState       : TGameState;
    40     GameState       : TGameState;
    41     GameType        : TGameType;
    41     GameType        : TGameType;
    42     GameFlags       : Longword;
    42     GameFlags       : Longword;
    43     TrainingFlags   : Longword;
    43     TrainingFlags   : Longword;
    44     TurnTimeLeft    : Longword;
    44     TurnTimeLeft    : Longword;
       
    45     ReadyTimeLeft    : Longword;
    45     cSuddenDTurns   : LongInt;
    46     cSuddenDTurns   : LongInt;
    46     cDamagePercent  : LongInt;
    47     cDamagePercent  : LongInt;
    47     cMineDudPercent : LongWord;
    48     cMineDudPercent : LongWord;
    48     cTemplateFilter : LongInt;
    49     cTemplateFilter : LongInt;
    49     cMapGen         : LongInt;
    50     cMapGen         : LongInt;
   108 
   109 
   109     cSeed           : shortstring;
   110     cSeed           : shortstring;
   110     cVolumeDelta    : LongInt;
   111     cVolumeDelta    : LongInt;
   111     cHasFocus       : boolean;
   112     cHasFocus       : boolean;
   112     cInactDelay     : Longword;
   113     cInactDelay     : Longword;
       
   114     cReadyDelay     : Longword;
   113 
   115 
   114     bBetweenTurns   : boolean;
   116     bBetweenTurns   : boolean;
   115     cHealthDecrease : LongWord;
   117     cHealthDecrease : LongWord;
   116     bWaterRising    : Boolean;
   118     bWaterRising    : Boolean;
   117 
   119 
   781     isSEBackup      := true;
   783     isSEBackup      := true;
   782     cSeed           := '';
   784     cSeed           := '';
   783     cVolumeDelta    := 0;
   785     cVolumeDelta    := 0;
   784     cHasFocus       := true;
   786     cHasFocus       := true;
   785     cInactDelay     := 1250;
   787     cInactDelay     := 1250;
       
   788     cReadyDelay     := 5000;
       
   789     ReadyTimeLeft    := 0;
   786 
   790 
   787     ScreenFade      := sfNone;
   791     ScreenFade      := sfNone;
   788 
   792 
   789     // those values still aren't perfect
   793     // those values still aren't perfect
   790     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
   794     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);