hedgewars/uGears.pas
changeset 15012 dc50766f6d0c
parent 14977 225839af5272
child 15085 96244def1cc0
equal deleted inserted replaced
15011:c52aa7ba2e16 15012:dc50766f6d0c
    67     stTurnReact, stDelay2, stChWin2, stWater, stChWin3,
    67     stTurnReact, stDelay2, stChWin2, stWater, stChWin3,
    68     stChKing, stSuddenDeath, stDelay3, stHealth, stSpawn, stDelay4,
    68     stChKing, stSuddenDeath, stDelay3, stHealth, stSpawn, stDelay4,
    69     stNTurn);
    69     stNTurn);
    70     NewTurnTick: LongWord;
    70     NewTurnTick: LongWord;
    71 
    71 
    72 const delaySDStart = 1600;
    72 const delayInit = 50;
       
    73       delaySDStart = 1600;
    73       delaySDWarning = 1000;
    74       delaySDWarning = 1000;
    74       delayDamageTagFull = 1500;
    75       delayDamageTagFull = 1500;
    75       delayDamageTagShort = 500;
    76       delayDamageTagShort = 500;
    76       delayTurnReact = 800;
    77       delayTurnReact = 800;
    77       delayFinal = 100;
    78       delayFinal = 100;
   330 case step of
   331 case step of
   331     stInit:
   332     stInit:
   332         begin
   333         begin
   333         if (not bBetweenTurns) and (not isInMultiShoot) then
   334         if (not bBetweenTurns) and (not isInMultiShoot) then
   334             ScriptCall('onEndTurn');
   335             ScriptCall('onEndTurn');
       
   336         delay:= delayInit;
   335         inc(step)
   337         inc(step)
   336         end;
   338         end;
   337     stDelay1:
   339     stDelay1:
       
   340         begin
   338         if DoDelay() then
   341         if DoDelay() then
   339             inc(step);
   342             inc(step);
       
   343         end;
   340     stChDmg:
   344     stChDmg:
   341     if CheckNoDamage then
   345     if CheckNoDamage then
   342         inc(step)
   346         inc(step)
   343     else
   347     else
   344         begin
   348         begin