equal
deleted
inserted
replaced
30 procedure KickFlakes(Radius, X, Y: LongInt); |
30 procedure KickFlakes(Radius, X, Y: LongInt); |
31 procedure DrawVisualGears(Layer: LongWord); |
31 procedure DrawVisualGears(Layer: LongWord); |
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 |
|
36 var VisualGearsList: PVisualGear; |
|
37 vobFrameTicks, vobFramesCount, vobCount: Longword; |
|
38 vobVelocity, vobFallSpeed: LongInt; |
|
39 |
35 |
40 implementation |
36 implementation |
41 uses uWorld, uMisc, uStore, uSound, uMobile, uVariables; |
37 uses uWorld, uMisc, uStore, uSound, uMobile, uVariables; |
42 |
38 |
43 const cExplFrameTicks = 110; |
39 const cExplFrameTicks = 110; |