equal
deleted
inserted
replaced
521 else |
521 else |
522 Gear^.Tex:= RenderStringTex(s, cWhiteColor, fnt16); |
522 Gear^.Tex:= RenderStringTex(s, cWhiteColor, fnt16); |
523 |
523 |
524 Gear^.doStep:= @doStepHealthTagWork; |
524 Gear^.doStep:= @doStepHealthTagWork; |
525 |
525 |
526 if (round(Gear^.Y) < cWaterLine) and (Frame = 0) then |
526 if (round(Gear^.Y) < cWaterLine) and (Gear^.Frame = 0) then |
527 Gear^.doStep:= @doStepHealthTagWorkUnderWater; |
527 Gear^.doStep:= @doStepHealthTagWorkUnderWater; |
528 |
528 |
529 Gear^.Y:= Gear^.Y - Gear^.Tex^.h; |
529 Gear^.Y:= Gear^.Y - Gear^.Tex^.h; |
530 |
530 |
531 if Steps > 1 then Gear^.doStep(Gear, Steps-1); |
531 if Steps > 1 then Gear^.doStep(Gear, Steps-1); |