equal
deleted
inserted
replaced
977 var Gear: PGear; |
977 var Gear: PGear; |
978 dmg, dmgRadius: LongInt; |
978 dmg, dmgRadius: LongInt; |
979 begin |
979 begin |
980 TargetPoint.X:= NoPointX; |
980 TargetPoint.X:= NoPointX; |
981 {$IFDEF DEBUGFILE}if Radius > 3 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF} |
981 {$IFDEF DEBUGFILE}if Radius > 3 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF} |
982 if (Radius = 50) or (Radius = 30) then AddGear(X, Y, gtExplosion, 0, _0, _0, 0); |
982 if (Radius > 10) then AddGear(X, Y, gtExplosion, 0, _0, _0, 0); |
983 if (Mask and EXPLAutoSound) <> 0 then PlaySound(sndExplosion, false); |
983 if (Mask and EXPLAutoSound) <> 0 then PlaySound(sndExplosion, false); |
984 if (Mask and EXPLAllDamageInRadius)=0 then dmgRadius:= Radius shl 1 |
984 if (Mask and EXPLAllDamageInRadius)=0 then dmgRadius:= Radius shl 1 |
985 else dmgRadius:= Radius; |
985 else dmgRadius:= Radius; |
986 Gear:= GearsList; |
986 Gear:= GearsList; |
987 while Gear <> nil do |
987 while Gear <> nil do |