equal
deleted
inserted
replaced
563 if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0) |
563 if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0) |
564 and not isInMultiShoot then |
564 and not isInMultiShoot then |
565 begin |
565 begin |
566 if (TurnTimeLeft = 5000) |
566 if (TurnTimeLeft = 5000) |
567 and (CurrentHedgehog^.Gear <> nil) |
567 and (CurrentHedgehog^.Gear <> nil) |
568 and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then PlaySound(sndHurry, false); |
568 and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then |
|
569 PlaySound(sndHurry, false, CurrentTeam^.voicepack); |
569 dec(TurnTimeLeft) |
570 dec(TurnTimeLeft) |
570 end; |
571 end; |
571 |
572 |
572 if (not CurrentTeam^.ExtDriven) and |
573 if (not CurrentTeam^.ExtDriven) and |
573 ((GameTicks and $FFFF) = $FFFF) then |
574 ((GameTicks and $FFFF) = $FFFF) then |
1159 dmg, dmgRadius: LongInt; |
1160 dmg, dmgRadius: LongInt; |
1160 begin |
1161 begin |
1161 TargetPoint.X:= NoPointX; |
1162 TargetPoint.X:= NoPointX; |
1162 {$IFDEF DEBUGFILE}if Radius > 4 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF} |
1163 {$IFDEF DEBUGFILE}if Radius > 4 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF} |
1163 if (Radius > 10) then AddGear(X, Y, gtExplosion, 0, _0, _0, 0); |
1164 if (Radius > 10) then AddGear(X, Y, gtExplosion, 0, _0, _0, 0); |
1164 if (Mask and EXPLAutoSound) <> 0 then PlaySound(sndExplosion, false); |
1165 if (Mask and EXPLAutoSound) <> 0 then PlaySound(sndExplosion, false, nil); |
1165 |
1166 |
1166 if (Mask and EXPLAllDamageInRadius) = 0 then |
1167 if (Mask and EXPLAllDamageInRadius) = 0 then |
1167 dmgRadius:= Radius shl 1 |
1168 dmgRadius:= Radius shl 1 |
1168 else |
1169 else |
1169 dmgRadius:= Radius; |
1170 dmgRadius:= Radius; |
1445 while t >= 0 do |
1446 while t >= 0 do |
1446 begin |
1447 begin |
1447 inc(i); |
1448 inc(i); |
1448 dec(t, Ammoz[i].Probability) |
1449 dec(t, Ammoz[i].Probability) |
1449 end; |
1450 end; |
1450 PlaySound(sndReinforce, false); |
1451 PlaySound(sndReinforce, false, CurrentTeam^.voicepack); |
1451 FollowGear^.Pos:= posCaseAmmo; |
1452 FollowGear^.Pos:= posCaseAmmo; |
1452 FollowGear^.State:= Longword(i) |
1453 FollowGear^.State:= Longword(i) |
1453 end; |
1454 end; |
1454 end; |
1455 end; |
1455 FindPlace(FollowGear, true, 0, 2048) |
1456 FindPlace(FollowGear, true, 0, 2048) |