32 uses uConsts, uFloat, GLunit, uTypes, uWorld; |
32 uses uConsts, uFloat, GLunit, uTypes, uWorld; |
33 |
33 |
34 procedure initModule; |
34 procedure initModule; |
35 procedure freeModule; |
35 procedure freeModule; |
36 |
36 |
37 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear; |
37 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear; inline; |
|
38 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord): PVisualGear; inline; |
|
39 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord; Critical: Boolean): PVisualGear; |
|
40 |
38 procedure ProcessVisualGears(Steps: Longword); |
41 procedure ProcessVisualGears(Steps: Longword); |
39 procedure KickFlakes(Radius, X, Y: LongInt); |
|
40 procedure DrawVisualGears(Layer: LongWord); |
42 procedure DrawVisualGears(Layer: LongWord); |
41 procedure DeleteVisualGear(Gear: PVisualGear); |
43 procedure DeleteVisualGear(Gear: PVisualGear); |
42 function VisualGearByUID(uid : Longword) : PVisualGear; |
44 function VisualGearByUID(uid : Longword) : PVisualGear; |
|
45 |
43 procedure AddClouds; |
46 procedure AddClouds; |
|
47 procedure AddFlakes; |
|
48 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
|
49 |
44 procedure ChangeToSDClouds; |
50 procedure ChangeToSDClouds; |
45 procedure AddFlakes; |
|
46 procedure ChangeToSDFlakes; |
51 procedure ChangeToSDFlakes; |
47 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
52 |
|
53 procedure KickFlakes(Radius, X, Y: LongInt); |
48 |
54 |
49 implementation |
55 implementation |
50 uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils, uStore, uUtils; |
56 uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils, uStore, uUtils; |
51 |
57 |
52 const cExplFrameTicks = 110; |
58 const cExplFrameTicks = 110; |
110 @doStepCircle, |
116 @doStepCircle, |
111 @doStepSmoothWindBar, |
117 @doStepSmoothWindBar, |
112 @doStepStraightShot |
118 @doStepStraightShot |
113 ); |
119 ); |
114 |
120 |
115 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear; |
121 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear; inline; |
|
122 begin |
|
123 AddVisualGear:= AddVisualGear(X, Y, Kind, 0, false); |
|
124 end; |
|
125 |
|
126 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord): PVisualGear; inline; |
|
127 begin |
|
128 AddVisualGear:= AddVisualGear(X, Y, Kind, State, false); |
|
129 end; |
|
130 |
|
131 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord; Critical: Boolean): PVisualGear; |
116 var gear: PVisualGear; |
132 var gear: PVisualGear; |
117 t: Longword; |
133 t: Longword; |
118 sp: real; |
134 sp: real; |
119 begin |
135 begin |
120 AddVisualGear:= nil; |
136 AddVisualGear:= nil; |