# HG changeset patch # User unc0rr # Date 1215267193 0 # Node ID 741513156331425c462a3bbc093e7eaa7f0db6bc # Parent 4e04200f2cda48a5e641a7a77002248d86a05b5d Draw explosions for every kind of explosion diff -r 4e04200f2cda -r 741513156331 hedgewars/uGears.pas --- a/hedgewars/uGears.pas Sat Jul 05 14:12:48 2008 +0000 +++ b/hedgewars/uGears.pas Sat Jul 05 14:13:13 2008 +0000 @@ -979,7 +979,7 @@ begin TargetPoint.X:= NoPointX; {$IFDEF DEBUGFILE}if Radius > 3 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF} -if (Radius = 50) or (Radius = 30) then AddGear(X, Y, gtExplosion, 0, _0, _0, 0); +if (Radius > 10) then AddGear(X, Y, gtExplosion, 0, _0, _0, 0); if (Mask and EXPLAutoSound) <> 0 then PlaySound(sndExplosion, false); if (Mask and EXPLAllDamageInRadius)=0 then dmgRadius:= Radius shl 1 else dmgRadius:= Radius;