hedgewars/GSHandlers.inc
changeset 4018 7f2c71638466
parent 4017 048bcb8c72ae
child 4021 014325c23705
equal deleted inserted replaced
4017:048bcb8c72ae 4018:7f2c71638466
  4094 begin
  4094 begin
  4095     AllInactive := false;
  4095     AllInactive := false;
  4096     hh := PHedgehog(Gear^.Hedgehog);
  4096     hh := PHedgehog(Gear^.Hedgehog);
  4097     DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy -
  4097     DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy -
  4098             cHHRadius - 14 - hh^.HealthTagTex^.h, hh^.HealthTagTex);
  4098             cHHRadius - 14 - hh^.HealthTagTex^.h, hh^.HealthTagTex);
  4099     DrawCircle(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Radius, 1.5, 0, 0, $FF,
  4099     (*DrawCircle(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Radius, 1.5, 0, 0, $FF,
  4100             $FF);
  4100             $FF);*)
  4101 
  4101 
  4102     doStepHedgehogMoving(hh^.Gear);
  4102     doStepHedgehogMoving(hh^.Gear);
  4103 
  4103 
  4104     if ((Gear^.Message and gmUp) <> 0) then 
  4104     if ((Gear^.Message and gmUp) <> 0) then 
  4105         begin
  4105         begin