| branch | qmlfrontend |
| changeset 11828 | a69124eb7ce7 |
| parent 11822 | 4600dcb9db4f |
| child 11868 | 60c8bb8bc1d7 |
| 11827:8c71c5a1172f | 11828:a69124eb7ce7 |
|---|---|
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; |
84 begin |
84 begin |
85 if vobCount = 0 then exit; |
85 if SuddenDeathDmg then |
86 begin |
|
87 if (vobSDCount = 0) then exit; |
|
88 end |
|
89 else |
|
90 if (vobCount = 0) then exit; |
|
86 |
91 |
87 sign:= 1; |
92 sign:= 1; |
88 with Gear^ do |
93 with Gear^ do |
89 begin |
94 begin |
90 |
95 |
690 end; |
695 end; |
691 |
696 |
692 procedure doStepHealthTag(Gear: PVisualGear; Steps: Longword); |
697 procedure doStepHealthTag(Gear: PVisualGear; Steps: Longword); |
693 var s: shortstring; |
698 var s: shortstring; |
694 begin |
699 begin |
695 s:= ''; |
700 s:= IntToStr(Gear^.State); |
696 |
701 |
697 str(Gear^.State, s); |
|
698 if Gear^.Hedgehog <> nil then |
702 if Gear^.Hedgehog <> nil then |
699 Gear^.Tex:= RenderStringTex(ansistring(s), Gear^.Hedgehog^.Team^.Clan^.Color, fnt16) |
703 Gear^.Tex:= RenderStringTex(ansistring(s), Gear^.Hedgehog^.Team^.Clan^.Color, fnt16) |
700 else |
704 else |
701 Gear^.Tex:= RenderStringTex(ansistring(s), cWhiteColor, fnt16); |
705 Gear^.Tex:= RenderStringTex(ansistring(s), cWhiteColor, fnt16); |
702 |
706 |