| branch | physfslayer |
| changeset 8520 | 1dedcc37bfe8 |
| parent 8370 | 0c79946e96f8 |
| child 8444 | 75db7bb8dce8 |
| child 9080 | 9b42757d7e71 |
| 8056:d5d5e1698554 | 8520:1dedcc37bfe8 |
|---|---|
51 procedure ChangeToSDFlakes; |
51 procedure ChangeToSDFlakes; |
52 |
52 |
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, 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 |