hedgewars/uGears.pas
changeset 14407 234bb36d3b8c
parent 14405 9c7d5f595881
child 14410 dce60c706f01
equal deleted inserted replaced
14406:6c21bd8547dd 14407:234bb36d3b8c
   430             inc(step);
   430             inc(step);
   431     stHealth:
   431     stHealth:
   432         begin
   432         begin
   433         if bBetweenTurns
   433         if bBetweenTurns
   434         or isInMultiShoot
   434         or isInMultiShoot
   435         or (TotalRoundsPre = -1) then
   435         or (TotalRoundsReal = -1) then
   436             inc(step)
   436             inc(step)
   437         else
   437         else
   438             begin
   438             begin
   439             bBetweenTurns:= true;
   439             bBetweenTurns:= true;
   440             HealthMachine;
   440             HealthMachine;