48 |
48 |
49 implementation |
49 implementation |
50 uses uFloat, uSound, uCollisions, uUtils, uConsts, uVisualGears, uAIMisc, |
50 uses uFloat, uSound, uCollisions, uUtils, uConsts, uVisualGears, uAIMisc, |
51 uVariables, uLandGraphics, uScript, uStats, uCaptions, uTeams, uStore, |
51 uVariables, uLandGraphics, uScript, uStats, uCaptions, uTeams, uStore, |
52 uLocale, uTextures, uRenderUtils, uRandom, SDLh, uDebug, uGears, |
52 uLocale, uTextures, uRenderUtils, uRandom, SDLh, uDebug, uGears, |
53 uGearsList, Math; |
53 uGearsList, Math, uVisualGearsList; |
54 |
54 |
55 procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword); inline; |
55 procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword); inline; |
56 begin |
56 begin |
57 doMakeExplosion(X, Y, Radius, AttackingHog, Mask, $FFFFFFFF); |
57 doMakeExplosion(X, Y, Radius, AttackingHog, Mask, $FFFFFFFF); |
58 end; |
58 end; |