18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uGearsUtils; |
21 unit uGearsUtils; |
22 interface |
22 interface |
23 uses uTypes, math; |
23 uses uTypes; |
24 |
24 |
25 procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword); inline; |
25 procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword); inline; |
26 procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword; const Tint: LongWord); |
26 procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword; const Tint: LongWord); |
27 |
27 |
28 function ModifyDamage(dmg: Longword; Gear: PGear): Longword; |
28 function ModifyDamage(dmg: Longword; Gear: PGear): Longword; |
44 |
44 |
45 implementation |
45 implementation |
46 uses uFloat, uSound, uCollisions, uUtils, uConsts, uVisualGears, uAIMisc, |
46 uses uFloat, uSound, uCollisions, uUtils, uConsts, uVisualGears, uAIMisc, |
47 uVariables, uLandGraphics, uScript, uStats, uCaptions, uTeams, uStore, |
47 uVariables, uLandGraphics, uScript, uStats, uCaptions, uTeams, uStore, |
48 uLocale, uTextures, uRenderUtils, uRandom, SDLh, uDebug, uGears, |
48 uLocale, uTextures, uRenderUtils, uRandom, SDLh, uDebug, uGears, |
49 uGearsList; |
49 uGearsList, Math; |
50 |
50 |
51 procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword); inline; |
51 procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword); inline; |
52 begin |
52 begin |
53 doMakeExplosion(X, Y, Radius, AttackingHog, Mask, $FFFFFFFF); |
53 doMakeExplosion(X, Y, Radius, AttackingHog, Mask, $FFFFFFFF); |
54 end; |
54 end; |