| branch | transitional_engine |
| changeset 15929 | 128ace913837 |
| parent 15795 | da1bb21e6fbf |
| 15928:73cdc306888f | 15929:128ace913837 |
|---|---|
69 procedure doStepBulletHit(Gear: PVisualGear; Steps: Longword); |
69 procedure doStepBulletHit(Gear: PVisualGear; Steps: Longword); |
70 procedure doStepCircle(Gear: PVisualGear; Steps: Longword); |
70 procedure doStepCircle(Gear: PVisualGear; Steps: Longword); |
71 procedure doStepSmoothWindBar(Gear: PVisualGear; Steps: Longword); |
71 procedure doStepSmoothWindBar(Gear: PVisualGear; Steps: Longword); |
72 procedure doStepStraightShot(Gear: PVisualGear; Steps: Longword); |
72 procedure doStepStraightShot(Gear: PVisualGear; Steps: Longword); |
73 |
73 |
74 function isSorterActive: boolean; inline; |
74 function isSorterActive: boolean; |
75 procedure initModule; |
75 procedure initModule; |
76 |
76 |
77 implementation |
77 implementation |
78 uses uCollisions, uVariables, Math, uConsts, uVisualGearsList, uFloat, uSound, uRenderUtils, uWorld, uUtils; |
78 uses uCollisions, uVariables, Math, uConsts, uVisualGearsList, uFloat, uSound, uRenderUtils, uWorld, uUtils; |
79 |
79 |
571 SortFactor: QWord; |
571 SortFactor: QWord; |
572 hdw: array[0..cMaxHHIndex] of LongInt; |
572 hdw: array[0..cMaxHHIndex] of LongInt; |
573 end; |
573 end; |
574 currsorter: PVisualGear = nil; |
574 currsorter: PVisualGear = nil; |
575 |
575 |
576 function isSorterActive: boolean; inline; |
576 function isSorterActive: boolean; |
577 begin |
577 begin |
578 isSorterActive:= currsorter <> nil |
578 isSorterActive:= currsorter <> nil |
579 end; |
579 end; |
580 |
580 |
581 procedure doStepTeamHealthSorterWork(Gear: PVisualGear; Steps: Longword); |
581 procedure doStepTeamHealthSorterWork(Gear: PVisualGear; Steps: Longword); |