equal
deleted
inserted
replaced
921 var Gear: PGear; |
921 var Gear: PGear; |
922 dmg, dmgRadius: LongInt; |
922 dmg, dmgRadius: LongInt; |
923 begin |
923 begin |
924 TargetPoint.X:= NoPointX; |
924 TargetPoint.X:= NoPointX; |
925 {$IFDEF DEBUGFILE}if Radius > 3 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF} |
925 {$IFDEF DEBUGFILE}if Radius > 3 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF} |
926 if Radius = 50 then AddGear(X, Y, gtExplosion, 0, _0, _0, 0); |
926 if (Radius = 50) or (Radius = 30) then AddGear(X, Y, gtExplosion, 0, _0, _0, 0); |
927 if (Mask and EXPLAutoSound) <> 0 then PlaySound(sndExplosion, false); |
927 if (Mask and EXPLAutoSound) <> 0 then PlaySound(sndExplosion, false); |
928 if (Mask and EXPLAllDamageInRadius)=0 then dmgRadius:= Radius shl 1 |
928 if (Mask and EXPLAllDamageInRadius)=0 then dmgRadius:= Radius shl 1 |
929 else dmgRadius:= Radius; |
929 else dmgRadius:= Radius; |
930 Gear:= GearsList; |
930 Gear:= GearsList; |
931 while Gear <> nil do |
931 while Gear <> nil do |