Draw explosions for every kind of explosion
authorunc0rr
Sat, 05 Jul 2008 14:13:13 +0000
changeset 1049 741513156331
parent 1048 4e04200f2cda
child 1050 8e5f8bf9a242
Draw explosions for every kind of explosion
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;