hedgewars/GSHandlers.inc
changeset 549 4278a80140a8
parent 547 b81a055f2d06
child 551 86bc0430ba17
equal deleted inserted replaced
548:ac1e32b538fd 549:4278a80140a8
   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^.Color, font);
   215 Gear^.Surf:= RenderString(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^.Surf^.h)
   219 end;
   219 end;
   220 
   220