| changeset 8145 | 6408c0ba4ba1 |
| parent 7822 | 61ff669d610f |
| child 8204 | 9a6030d96273 |
| 8143:3f2ba6debbdd | 8145:6408c0ba4ba1 |
|---|---|
53 procedure KickFlakes(Radius, X, Y: LongInt); |
53 procedure KickFlakes(Radius, X, Y: LongInt); |
54 |
54 |
55 implementation |
55 implementation |
56 uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils, uStore, uUtils; |
56 uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils, uStore, uUtils; |
57 |
57 |
58 const cExplFrameTicks = 110; |
58 const |
59 cExplFrameTicks = 110; |
|
60 cSmokeZ = 499; |
|
59 var VGCounter: LongWord; |
61 var VGCounter: LongWord; |
62 VisualGearLayers: array[0..6] of PVisualGear; |
|
60 |
63 |
61 // For better maintainability the step handlers of visual gears are stored |
64 // For better maintainability the step handlers of visual gears are stored |
62 // in a separate file. |
65 // in a separate file. |
63 {$INCLUDE "VGSHandlers.inc"} |
66 {$INCLUDE "VGSHandlers.inc"} |
64 |
67 |