42 function ModifyDamage(dmg: Longword; Gear: PGear): Longword; |
42 function ModifyDamage(dmg: Longword; Gear: PGear): Longword; |
43 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); |
43 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); |
44 |
44 |
45 |
45 |
46 implementation |
46 implementation |
47 uses uWorld, uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics, |
47 uses 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, uRenderUtils, uGearsRender; |
49 uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions; |
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; |