equal
deleted
inserted
replaced
1124 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); |
1124 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); |
1125 var Gear: PGear; |
1125 var Gear: PGear; |
1126 dmg, dmgRadius: LongInt; |
1126 dmg, dmgRadius: LongInt; |
1127 begin |
1127 begin |
1128 TargetPoint.X:= NoPointX; |
1128 TargetPoint.X:= NoPointX; |
1129 {$IFDEF DEBUGFILE}if Radius > 3 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF} |
1129 {$IFDEF DEBUGFILE}if Radius > 4 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF} |
1130 if (Radius > 10) then AddGear(X, Y, gtExplosion, 0, _0, _0, 0); |
1130 if (Radius > 10) then AddGear(X, Y, gtExplosion, 0, _0, _0, 0); |
1131 if (Mask and EXPLAutoSound) <> 0 then PlaySound(sndExplosion, false); |
1131 if (Mask and EXPLAutoSound) <> 0 then PlaySound(sndExplosion, false); |
1132 |
1132 |
1133 if (Mask and EXPLAllDamageInRadius) = 0 then |
1133 if (Mask and EXPLAllDamageInRadius) = 0 then |
1134 dmgRadius:= Radius shl 1 |
1134 dmgRadius:= Radius shl 1 |