equal
deleted
inserted
replaced
36 var VisualGearsList: PVisualGear; |
36 var VisualGearsList: PVisualGear; |
37 vobFrameTicks, vobFramesCount, vobCount: Longword; |
37 vobFrameTicks, vobFramesCount, vobCount: Longword; |
38 vobVelocity, vobFallSpeed: LongInt; |
38 vobVelocity, vobFallSpeed: LongInt; |
39 |
39 |
40 implementation |
40 implementation |
41 uses uWorld, uMisc, uStore, uTeams, uSound, uMobile, uVariables; |
41 uses uWorld, uMisc, uStore, uSound, uMobile, uVariables; |
|
42 |
42 const cExplFrameTicks = 110; |
43 const cExplFrameTicks = 110; |
43 |
44 |
44 {$INCLUDE "VGSHandlers.inc"} |
45 {$INCLUDE "VGSHandlers.inc"} |
45 |
46 |
46 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
47 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |