59 uses uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics,

    59 uses uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics,

    60     uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables,

    60     uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables,

    61     uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug, uLandTexture,

    61     uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug, uLandTexture,

    62     uGearsHedgehog, uGearsUtils, uGearsList;

    62     uGearsHedgehog, uGearsUtils, uGearsList;

    63 

    63 

    64 

    65 

    65 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); forward;

    66 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); forward;

    66 //procedure AmmoFlameWork(Ammo: PGear); forward;

    67 //procedure AmmoFlameWork(Ammo: PGear); forward;

    67 function  GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): TPGearArray; forward;

    68 function  GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): TPGearArray; forward;

    68 procedure SpawnBoxOfSmth; forward;

    69 procedure SpawnBoxOfSmth; forward;