equal
deleted
inserted
replaced
465 i: LongInt; |
465 i: LongInt; |
466 vga: PVisualGear; |
466 vga: PVisualGear; |
467 begin |
467 begin |
468 Gear^.Message:= gmDestroy; |
468 Gear^.Message:= gmDestroy; |
469 PlaySound(sndShotgunReload); |
469 PlaySound(sndShotgunReload); |
|
470 if (Gear^.Pos and posCaseTrap) <> 0 then doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, HH^.Hedgehog, EXPLAutoSound) |
|
471 else |
470 case Gear^.Pos of |
472 case Gear^.Pos of |
471 posCaseUtility, |
473 posCaseUtility, |
472 posCaseAmmo: begin |
474 posCaseAmmo: begin |
473 a:= Gear^.AmmoType; |
475 a:= Gear^.AmmoType; |
474 AddAmmo(HH^.Hedgehog^, a); |
476 AddAmmo(HH^.Hedgehog^, a); |