hedgewars/uGears.pas
changeset 14402 234bb36d3b8c
parent 14400 9c7d5f595881
child 14405 dce60c706f01
equal deleted inserted replaced
14401:6c21bd8547dd 14402: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;