equal
deleted
inserted
replaced
513 end; |
513 end; |
514 |
514 |
515 procedure doStepTeamHealthSorterWork(Gear: PVisualGear; Steps: Longword); |
515 procedure doStepTeamHealthSorterWork(Gear: PVisualGear; Steps: Longword); |
516 var i, t, h: LongInt; |
516 var i, t, h: LongInt; |
517 begin |
517 begin |
518 for t:= 1 to min(Steps, Gear^.Timer) do |
518 if currsorter = Gear then |
|
519 for t:= 1 to min(Steps, Gear^.Timer) do |
519 begin |
520 begin |
520 dec(Gear^.Timer); |
521 dec(Gear^.Timer); |
521 if (Gear^.Timer and 15) = 0 then |
522 if (Gear^.Timer and 15) = 0 then |
522 for i:= 0 to Pred(TeamsCount) do |
523 for i:= 0 to Pred(TeamsCount) do |
523 with thexchar[i] do |
524 with thexchar[i] do |