equal
deleted
inserted
replaced
114 Gear^.Message:= gm_Destroy; |
114 Gear^.Message:= gm_Destroy; |
115 case Gear^.Pos of |
115 case Gear^.Pos of |
116 posCaseAmmo: begin |
116 posCaseAmmo: begin |
117 a:= TAmmoType(Gear^.State); |
117 a:= TAmmoType(Gear^.State); |
118 AddAmmo(PHedgehog(HH^.Hedgehog), a); |
118 AddAmmo(PHedgehog(HH^.Hedgehog), a); |
119 s:= trammo[Ammoz[a].NameId]; |
119 s:= trammo[Ammoz[a].NameId] + '(+' + IntToStr(Ammoz[a].NumberInCase) + ')'; |
120 AddCaption(s, PHedgehog(HH^.Hedgehog)^.Team^.Color, capgrpAmmoinfo); |
120 AddCaption(s, PHedgehog(HH^.Hedgehog)^.Team^.Color, capgrpAmmoinfo); |
121 end; |
121 end; |
122 posCaseHealth: begin |
122 posCaseHealth: begin |
123 inc(HH^.Health, Gear^.Health); |
123 inc(HH^.Health, Gear^.Health); |
124 str(Gear^.Health, s); |
124 str(Gear^.Health, s); |