equal
deleted
inserted
replaced
531 i: LongInt; |
531 i: LongInt; |
532 vga: PVisualGear; |
532 vga: PVisualGear; |
533 begin |
533 begin |
534 Gear^.Message:= gmDestroy; |
534 Gear^.Message:= gmDestroy; |
535 PlaySound(sndShotgunReload); |
535 PlaySound(sndShotgunReload); |
536 if (Gear^.Pos and posCaseTrap) <> 0 then doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, HH^.Hedgehog, EXPLAutoSound) |
536 if (Gear^.Pos and posCaseExplode) <> 0 then |
|
537 if (Gear^.Pos and posCasePoison) <> 0 then |
|
538 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned) |
|
539 else |
|
540 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound) |
|
541 else if (Gear^.Pos and posCasePoison) <> 0 then |
|
542 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned + EXPLNoDamage) |
537 else |
543 else |
538 case Gear^.Pos of |
544 case Gear^.Pos of |
539 posCaseUtility, |
545 posCaseUtility, |
540 posCaseAmmo: begin |
546 posCaseAmmo: begin |
541 a:= Gear^.AmmoType; |
547 a:= Gear^.AmmoType; |