equal
deleted
inserted
replaced
44 uLocale, uTextures, uRenderUtils, uRandom, SDLh, uDebug, uGears, |
44 uLocale, uTextures, uRenderUtils, uRandom, SDLh, uDebug, uGears, |
45 uGearsList; |
45 uGearsList; |
46 |
46 |
47 procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword; const Tint: LongWord); |
47 procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword; const Tint: LongWord); |
48 var Gear: PGear; |
48 var Gear: PGear; |
49 dmg, dmgRadius, dmgBase: LongInt; |
49 dmg, dmgBase: LongInt; |
50 fX, fY, tdX, tdY: hwFloat; |
50 fX, fY, tdX, tdY: hwFloat; |
51 vg: PVisualGear; |
51 vg: PVisualGear; |
52 i, cnt: LongInt; |
52 i, cnt: LongInt; |
53 begin |
53 begin |
54 if Radius > 4 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')'); |
54 if Radius > 4 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')'); |