44 |
44 |
45 |
45 |
46 implementation |
46 implementation |
47 uses uWorld, uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics, |
47 uses uWorld, uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics, |
48 uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables, |
48 uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables, |
49 uCommands, uUtils, uTextures, uRender, uRenderUtils, uGearsRender; |
49 uCommands, uUtils, uTextures, uRenderUtils, uGearsRender; |
50 |
50 |
51 |
51 |
52 procedure DeleteGear(Gear: PGear); forward; |
52 procedure DeleteGear(Gear: PGear); forward; |
53 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); forward; |
53 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); forward; |
54 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask, Tint: LongWord); forward; |
54 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask, Tint: LongWord); forward; |