equal
deleted
inserted
replaced
777 team:= team.Next |
777 team:= team.Next |
778 end; |
778 end; |
779 thexchcnt:= i; |
779 thexchcnt:= i; |
780 for i:= 1 to thexchcnt do |
780 for i:= 1 to thexchcnt do |
781 for t:= 0 to thexchcnt - 2 do |
781 for t:= 0 to thexchcnt - 2 do |
782 if thexchar[t].team.TeamHealth > thexchar[Succ(t)].team.TeamHealth then |
782 if thexchar[t].team.TeamHealthBarWidth > thexchar[Succ(t)].team.TeamHealthBarWidth then |
783 begin |
783 begin |
784 thexchar[5]:= thexchar[t]; |
784 thexchar[5]:= thexchar[t]; |
785 thexchar[t]:= thexchar[Succ(t)]; |
785 thexchar[t]:= thexchar[Succ(t)]; |
786 thexchar[Succ(t)]:= thexchar[5] |
786 thexchar[Succ(t)]:= thexchar[5] |
787 end; |
787 end; |