124 with team.Hedgehogs[i] do |
124 with team.Hedgehogs[i] do |
125 if Gear<>nil then |
125 if Gear<>nil then |
126 if Gear.State = 0 then |
126 if Gear.State = 0 then |
127 begin |
127 begin |
128 DrawCaption( round(Gear.X) + WorldDx, |
128 DrawCaption( round(Gear.X) + WorldDx, |
129 round(Gear.Y) - cHHHalfHeight - 30 + WorldDy, |
129 round(Gear.Y) - cHHRadius - 30 + WorldDy, |
130 HealthRect, Surface, true); |
130 HealthRect, Surface, true); |
131 DrawCaption( round(Gear.X) + WorldDx, |
131 DrawCaption( round(Gear.X) + WorldDx, |
132 round(Gear.Y) - cHHHalfHeight - 54 + WorldDy, |
132 round(Gear.Y) - cHHRadius - 54 + WorldDy, |
133 NameRect, Surface); |
133 NameRect, Surface); |
134 // DrawCaption( round(Gear.X) + WorldDx, |
134 // DrawCaption( round(Gear.X) + WorldDx, |
135 // round(Gear.Y) - Gear.HalfHeight - 60 + WorldDy, |
135 // round(Gear.Y) - Gear.Radius - 60 + WorldDy, |
136 // Team.NameRect, Surface); |
136 // Team.NameRect, Surface); |
137 end else // Current hedgehog |
137 end else // Current hedgehog |
138 begin |
138 begin |
139 if (Gear.State and (gstMoving or gstAttacked or gstDrowning or gstFalling))=0 then |
139 if (Gear.State and (gstMoving or gstAttacked or gstDrowning or gstFalling))=0 then |
140 if (Gear.State and gstHHThinking) <> 0 then |
140 if (Gear.State and gstHHThinking) <> 0 then |
141 DrawGear(sQuestion, Round(Gear.X) - 10 + WorldDx, Round(Gear.Y) - cHHHalfHeight - 34 + WorldDy, Surface) |
141 DrawGear(sQuestion, Round(Gear.X) - 10 + WorldDx, Round(Gear.Y) - cHHRadius - 34 + WorldDy, Surface) |
142 else |
142 else |
143 if ShowCrosshair then |
143 if ShowCrosshair then |
144 DrawCaption(Round(Gear.X + Sign(Gear.dX) * Sin(Gear.Angle*pi/cMaxAngle)*60) + WorldDx, |
144 DrawCaption(Round(Gear.X + Sign(Gear.dX) * Sin(Gear.Angle*pi/cMaxAngle)*60) + WorldDx, |
145 Round(Gear.Y - Cos(Gear.Angle*pi/cMaxAngle)*60) + WorldDy - 4, |
145 Round(Gear.Y - Cos(Gear.Angle*pi/cMaxAngle)*60) + WorldDy - 4, |
146 Team.CrossHairRect, Surface) |
146 Team.CrossHairRect, Surface) |