hedgewars/GSHandlers.inc
changeset 1120 eb5a9f86f9c6
parent 1111 25d0ca2e4a7d
child 1123 ed713652afae
equal deleted inserted replaced
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;