equal
deleted
inserted
replaced
210 font:= fntSmall; |
210 font:= fntSmall; |
211 Gear^.dY:= -_0_02 |
211 Gear^.dY:= -_0_02 |
212 end; |
212 end; |
213 |
213 |
214 str(Gear^.State, s); |
214 str(Gear^.State, s); |
215 Gear^.Surf:= RenderString(s, PHedgehog(Gear^.Hedgehog)^.Team^.Clan^.Color, font); |
215 Gear^.Tex:= RenderStringTex(s, PHedgehog(Gear^.Hedgehog)^.Team^.Clan^.Color, font); |
216 if hwRound(Gear^.Y) < cWaterLine then Gear^.doStep:= @doStepHealthTagWork |
216 if hwRound(Gear^.Y) < cWaterLine then Gear^.doStep:= @doStepHealthTagWork |
217 else Gear^.doStep:= @doStepHealthTagWorkUnderWater; |
217 else Gear^.doStep:= @doStepHealthTagWorkUnderWater; |
218 Gear^.Y:= Gear^.Y - int2hwFloat(Gear^.Surf^.h) |
218 Gear^.Y:= Gear^.Y - int2hwFloat(Gear^.Tex^.h) |
219 end; |
219 end; |
220 |
220 |
221 //////////////////////////////////////////////////////////////////////////////// |
221 //////////////////////////////////////////////////////////////////////////////// |
222 procedure doStepGrave(Gear: PGear); |
222 procedure doStepGrave(Gear: PGear); |
223 begin |
223 begin |