changeset 1120 | eb5a9f86f9c6 |
parent 1111 | 25d0ca2e4a7d |
child 1123 | ed713652afae |
1119:be9700b424b2 | 1120:eb5a9f86f9c6 |
---|---|
962 thexchar[Succ(t)]:= thexchar[cMaxTeams]; |
962 thexchar[Succ(t)]:= thexchar[cMaxTeams]; |
963 b:= false |
963 b:= false |
964 end |
964 end |
965 until b; |
965 until b; |
966 |
966 |
967 t:= cScreenHeight - 4; |
967 t:= - 4; |
968 for i:= 0 to Pred(TeamsCount) do |
968 for i:= 0 to Pred(TeamsCount) do |
969 with thexchar[i] do |
969 with thexchar[i] do |
970 begin |
970 begin |
971 dec(t, team^.HealthTex^.h + 2); |
971 dec(t, team^.HealthTex^.h + 2); |
972 ny:= t; |
972 ny:= t; |