hedgewars/GSHandlers.inc
changeset 690 e9d35e319328
parent 652 4cca0c7de609
child 762 5ecf042f6113
equal deleted inserted replaced
689:f4ec46c48ed2 690:e9d35e319328
   921 
   921 
   922 t:= cScreenHeight - 4;
   922 t:= cScreenHeight - 4;
   923 for i:= 0 to Pred(TeamsCount) do
   923 for i:= 0 to Pred(TeamsCount) do
   924     with thexchar[i] do
   924     with thexchar[i] do
   925          begin
   925          begin
   926          dec(t, team^.HealthRect.h + 2);
   926          dec(t, team^.HealthSurf^.h + 2);
   927          ny:= t;
   927          ny:= t;
   928          dy:= dy - ny
   928          dy:= dy - ny
   929          end;
   929          end;
   930          
   930          
   931 Gear^.Timer:= cSorterWorkTime;
   931 Gear^.Timer:= cSorterWorkTime;