changeset 11822 | 4600dcb9db4f |
parent 11739 | eee922f69d1b |
child 11868 | 60c8bb8bc1d7 |
11821:d8844d4c67de | 11822:4600dcb9db4f |
---|---|
73 |
73 |
74 function isSorterActive: boolean; inline; |
74 function isSorterActive: boolean; inline; |
75 procedure initModule; |
75 procedure initModule; |
76 |
76 |
77 implementation |
77 implementation |
78 uses uCollisions, uVariables, Math, uConsts, uVisualGearsList, uFloat, uSound, uRenderUtils, uWorld; |
78 uses uCollisions, uVariables, Math, uConsts, uVisualGearsList, uFloat, uSound, uRenderUtils, uWorld, uUtils; |
79 |
79 |
80 procedure doStepFlake(Gear: PVisualGear; Steps: Longword); |
80 procedure doStepFlake(Gear: PVisualGear; Steps: Longword); |
81 var sign: real; |
81 var sign: real; |
82 moved: boolean; |
82 moved: boolean; |
83 vfc, vft: LongWord; |
83 vfc, vft: LongWord; |
695 end; |
695 end; |
696 |
696 |
697 procedure doStepHealthTag(Gear: PVisualGear; Steps: Longword); |
697 procedure doStepHealthTag(Gear: PVisualGear; Steps: Longword); |
698 var s: shortstring; |
698 var s: shortstring; |
699 begin |
699 begin |
700 s:= ''; |
700 s:= IntToStr(Gear^.State); |
701 |
701 |
702 str(Gear^.State, s); |
|
703 if Gear^.Hedgehog <> nil then |
702 if Gear^.Hedgehog <> nil then |
704 Gear^.Tex:= RenderStringTex(ansistring(s), Gear^.Hedgehog^.Team^.Clan^.Color, fnt16) |
703 Gear^.Tex:= RenderStringTex(ansistring(s), Gear^.Hedgehog^.Team^.Clan^.Color, fnt16) |
705 else |
704 else |
706 Gear^.Tex:= RenderStringTex(ansistring(s), cWhiteColor, fnt16); |
705 Gear^.Tex:= RenderStringTex(ansistring(s), cWhiteColor, fnt16); |
707 |
706 |