equal
deleted
inserted
replaced
102 end |
102 end |
103 end; |
103 end; |
104 |
104 |
105 //////////////////////////////////////////////////////////////////////////////// |
105 //////////////////////////////////////////////////////////////////////////////// |
106 procedure PickUp(HH, Gear: PGear); |
106 procedure PickUp(HH, Gear: PGear); |
|
107 var s: shortstring; |
|
108 a: TAmmoType; |
107 begin |
109 begin |
108 Gear.Message:= gm_Destroy; |
110 Gear.Message:= gm_Destroy; |
109 case Gear.Pos of |
111 case Gear.Pos of |
|
112 posCaseAmmo: begin |
|
113 a:= TAmmoType(Gear.State); |
|
114 AddAmmo(PHedgehog(HH.Hedgehog), a); |
|
115 s:= trammo[Ammoz[a].NameId]; |
|
116 AddCaption(s, PHedgehog(HH.Hedgehog).Team.Color, capgrpAmmoinfo); |
|
117 end; |
110 posCaseHealth: begin |
118 posCaseHealth: begin |
111 inc(HH.Health, Gear.Health); |
119 inc(HH.Health, Gear.Health); |
|
120 str(Gear.Health, s); |
|
121 s:= '+' + s; |
|
122 AddCaption(s, PHedgehog(HH.Hedgehog).Team.Color, capgrpAmmoinfo); |
112 RenderHealth(PHedgehog(HH.Hedgehog)^); |
123 RenderHealth(PHedgehog(HH.Hedgehog)^); |
113 RecountTeamHealth(PHedgehog(HH.Hedgehog)^.Team) |
124 RecountTeamHealth(PHedgehog(HH.Hedgehog)^.Team) |
114 end; |
125 end; |
115 end; |
126 end; |
116 end; |
127 end; |