57 |
57 |
58 implementation |
58 implementation |
59 uses uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics, {$IFDEF SDL13}uTouch,{$ENDIF} |
59 uses uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics, {$IFDEF SDL13}uTouch,{$ENDIF} |
60 uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uVariables, |
60 uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uVariables, |
61 uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug, uLandTexture, |
61 uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug, uLandTexture, |
62 uGearsHedgehog, uGearsUtils, uGearsList, uGearsHandlers, uGearsHandlersRope; |
62 uGearsHedgehog, uGearsUtils, uGearsList, uGearsHandlers, uGearsHandlersRope |
|
63 , uVisualGearsList; |
63 |
64 |
64 var skipFlag: boolean; |
65 var skipFlag: boolean; |
65 |
66 |
66 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); forward; |
67 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); forward; |
67 //procedure AmmoFlameWork(Ammo: PGear); forward; |
68 //procedure AmmoFlameWork(Ammo: PGear); forward; |