| changeset 4390 | f219628ed666 |
| parent 4380 | b78638b36b89 |
| child 4420 | 6be946bcd17a |
| 4389:d1c65b60cd68 | 4390:f219628ed666 |
|---|---|
32 procedure DeleteVisualGear(Gear: PVisualGear); |
32 procedure DeleteVisualGear(Gear: PVisualGear); |
33 procedure AddClouds; |
33 procedure AddClouds; |
34 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
34 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
35 |
35 |
36 implementation |
36 implementation |
37 uses uMisc, uStore, uSound, uMobile, uVariables, uTextures, uRender, uUtils, Math, uRenderUtils; |
37 uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils; |
38 |
38 |
39 const cExplFrameTicks = 110; |
39 const cExplFrameTicks = 110; |
40 |
40 |
41 {$INCLUDE "VGSHandlers.inc"} |
41 {$INCLUDE "VGSHandlers.inc"} |
42 |
42 |