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 |