equal
deleted
inserted
replaced
724 end; |
724 end; |
725 end; |
725 end; |
726 |
726 |
727 //////////////////////////////////////////////////////////////////////////////// |
727 //////////////////////////////////////////////////////////////////////////////// |
728 procedure PickUp(HH, Gear: PGear); |
728 procedure PickUp(HH, Gear: PGear); |
729 var s: ansistring; |
729 var ag, gi: PGear; |
730 i: LongInt; |
|
731 vga: PVisualGear; |
|
732 ag, gi: PGear; |
|
733 begin |
730 begin |
734 if Gear^.State and gstFrozen <> 0 then exit; |
731 if Gear^.State and gstFrozen <> 0 then exit; |
735 |
732 |
736 Gear^.Message:= gmDestroy; |
733 Gear^.Message:= gmDestroy; |
737 if (Gear^.Pos and posCaseExplode) <> 0 then |
734 if (Gear^.Pos and posCaseExplode) <> 0 then |
776 end; |
773 end; |
777 posCaseHealth: begin |
774 posCaseHealth: begin |
778 PlaySound(sndShotgunReload); |
775 PlaySound(sndShotgunReload); |
779 inc(HH^.Health, Gear^.Health); |
776 inc(HH^.Health, Gear^.Health); |
780 HH^.Hedgehog^.Effects[hePoisoned] := 0; |
777 HH^.Hedgehog^.Effects[hePoisoned] := 0; |
781 s:= IntToStr(Gear^.Health); |
|
782 AddCaption(FormatA(trmsg[sidHealthGain], s), HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo); |
|
783 RenderHealth(HH^.Hedgehog^); |
778 RenderHealth(HH^.Hedgehog^); |
784 RecountTeamHealth(HH^.Hedgehog^.Team); |
779 RecountTeamHealth(HH^.Hedgehog^.Team); |
785 |
780 HHHeal(HH^.Hedgehog, Gear^.Health, true); |
786 i:= 0; |
|
787 while (i < Gear^.Health) and (i <= 1000) do |
|
788 begin |
|
789 vga:= AddVisualGear(hwRound(HH^.X), hwRound(HH^.Y), vgtStraightShot); |
|
790 if vga <> nil then |
|
791 with vga^ do |
|
792 begin |
|
793 Tint:= $00FF00FF; |
|
794 State:= ord(sprHealth) |
|
795 end; |
|
796 inc(i, 5); |
|
797 end; |
|
798 end; |
781 end; |
799 end |
782 end |
800 end; |
783 end; |
801 |
784 |
802 procedure HedgehogStep(Gear: PGear); |
785 procedure HedgehogStep(Gear: PGear); |