hedgewars/uGears.pas
changeset 1063 a86328091611
parent 1061 a30296274c46
child 1064 9e0701c56fb3
equal deleted inserted replaced
1062:7b148e157a67 1063:a86328091611
   503                     if delay = 0 then
   503                     if delay = 0 then
   504                        if not WaterMachine then inc(step)
   504                        if not WaterMachine then inc(step)
   505                     end
   505                     end
   506                  end;
   506                  end;
   507        stHealth: begin
   507        stHealth: begin
   508                  if TotalRounds = 15 then cHealthDecrease:= 5;
   508                  if (TotalRounds = 15) and (cHealthDecrease = 0) then
       
   509                     begin
       
   510                     cHealthDecrease:= 5;
       
   511                     AddCaption(trmsg[sidSuddenDeath], $FFFFFF, capgrpGameState)
       
   512                     end;
   509 
   513 
   510                  if (cHealthDecrease = 0)
   514                  if (cHealthDecrease = 0)
   511                    or bBetweenTurns
   515                    or bBetweenTurns
   512                    or isInMultiShoot
   516                    or isInMultiShoot
   513                    or (TotalRounds = 0) then inc(step)
   517                    or (TotalRounds = 0) then inc(step)