equal
deleted
inserted
replaced
701 end; |
701 end; |
702 end; |
702 end; |
703 |
703 |
704 //////////////////////////////////////////////////////////////////////////////// |
704 //////////////////////////////////////////////////////////////////////////////// |
705 procedure PickUp(HH, Gear: PGear); |
705 procedure PickUp(HH, Gear: PGear); |
706 var s: shortstring; |
706 var s: ansistring; |
707 i: LongInt; |
707 i: LongInt; |
708 vga: PVisualGear; |
708 vga: PVisualGear; |
709 ag, gi: PGear; |
709 ag, gi: PGear; |
710 begin |
710 begin |
711 if Gear^.State and gstFrozen <> 0 then exit; |
711 if Gear^.State and gstFrozen <> 0 then exit; |
753 end; |
753 end; |
754 posCaseHealth: begin |
754 posCaseHealth: begin |
755 PlaySound(sndShotgunReload); |
755 PlaySound(sndShotgunReload); |
756 inc(HH^.Health, Gear^.Health); |
756 inc(HH^.Health, Gear^.Health); |
757 HH^.Hedgehog^.Effects[hePoisoned] := 0; |
757 HH^.Hedgehog^.Effects[hePoisoned] := 0; |
758 s:= '+' + IntToStr(Gear^.Health); |
758 s:= IntToStr(Gear^.Health); |
759 AddCaption(ansistring(s), HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo); |
759 AddCaption(FormatA(trmsg[sidHealthGain], s), HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo); |
760 RenderHealth(HH^.Hedgehog^); |
760 RenderHealth(HH^.Hedgehog^); |
761 RecountTeamHealth(HH^.Hedgehog^.Team); |
761 RecountTeamHealth(HH^.Hedgehog^.Team); |
762 |
762 |
763 i:= 0; |
763 i:= 0; |
764 while (i < Gear^.Health) and (i <= 1000) do |
764 while (i < Gear^.Health) and (i <= 1000) do |