hedgewars/uTeams.pas
changeset 1922 88cdabb51995
parent 1906 644f93d8f148
child 2005 aa79f631711b
equal deleted inserted replaced
1921:2a09f7f786a0 1922:88cdabb51995
   204 end;
   204 end;
   205 
   205 
   206 procedure AfterSwitchHedgehog;
   206 procedure AfterSwitchHedgehog;
   207 var g: PGear;
   207 var g: PGear;
   208 begin
   208 begin
   209 SwitchNotHoldedAmmo(CurrentHedgehog^);
   209 SwitchNotHeldAmmo(CurrentHedgehog^);
   210 with CurrentHedgehog^ do
   210 with CurrentHedgehog^ do
   211 	begin
   211 	begin
   212 	with Gear^ do
   212 	with Gear^ do
   213 		begin
   213 		begin
   214 		Z:= cCurrHHZ;
   214 		Z:= cCurrHHZ;