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