equal
deleted
inserted
replaced
60 var VisualGearsList: PVisualGear; |
60 var VisualGearsList: PVisualGear; |
61 vobFrameTicks, vobFramesCount, vobCount: Longword; |
61 vobFrameTicks, vobFramesCount, vobCount: Longword; |
62 vobVelocity, vobFallSpeed: LongInt; |
62 vobVelocity, vobFallSpeed: LongInt; |
63 |
63 |
64 implementation |
64 implementation |
65 uses uWorld, uMisc, uStore, uTeams, uSound, uMobile; |
65 uses uWorld, uMisc, uStore, uTeams, uSound, uMobile, uVariables; |
66 const cExplFrameTicks = 110; |
66 const cExplFrameTicks = 110; |
67 |
67 |
68 {$INCLUDE "VGSHandlers.inc"} |
68 {$INCLUDE "VGSHandlers.inc"} |
69 |
69 |
70 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
70 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |