hedgewars/uGearsRender.pas
changeset 14778 bbec6b28d072
parent 14750 ab7bf5036314
child 14919 e28ff0f1aca2
equal deleted inserted replaced
14777:8015a6e4ca3c 14778:bbec6b28d072
   239     i:= 0;
   239     i:= 0;
   240     c:= 0;
   240     c:= 0;
   241         repeat
   241         repeat
   242         hh:= @TeamsArray[t]^.Hedgehogs[i];
   242         hh:= @TeamsArray[t]^.Hedgehogs[i];
   243         inc(i);
   243         inc(i);
   244         if (hh <> nil) and (hh^.Gear <> nil) then
   244         if (hh <> nil) and (hh^.Gear <> nil) and (not hh^.Unplaced) then
   245             begin
   245             begin
   246             inc(c);
   246             inc(c);
   247             HHGear:= hh^.Gear;
   247             HHGear:= hh^.Gear;
   248             x:= hwRound(HHGear^.X) + WorldDx;
   248             x:= hwRound(HHGear^.X) + WorldDx;
   249             y:= hwRound(HHGear^.Y) + WorldDy - 2;
   249             y:= hwRound(HHGear^.Y) + WorldDy - 2;