equal
deleted
inserted
replaced
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 uWorld, uMisc, uStore, uSound, uMobile, uVariables; |
37 uses uMisc, uStore, uSound, uMobile, uVariables; |
38 |
38 |
39 const cExplFrameTicks = 110; |
39 const cExplFrameTicks = 110; |
40 |
40 |
41 {$INCLUDE "VGSHandlers.inc"} |
41 {$INCLUDE "VGSHandlers.inc"} |
42 |
42 |