206 end;

   206 end;

   207 

   207 

   208 procedure AfterSwitchHedgehog;

   208 procedure AfterSwitchHedgehog;

   209 var g: PGear;

   209 var g: PGear;

   210 begin

   210 begin

   211 SwitchNotHeldAmmo(CurrentHedgehog^);

   213 SwitchNotHeldAmmo(CurrentHedgehog^);

   212 with CurrentHedgehog^ do

   215 with CurrentHedgehog^ do

   213 	begin

   216 	begin

   214 	with Gear^ do

   217 	with Gear^ do

   215 		begin

   218 		begin

   216 		Z:= cCurrHHZ;

   219 		Z:= cCurrHHZ;

   219 		end;

   222 		end;

   220 	RemoveGearFromList(Gear);

   223 	RemoveGearFromList(Gear);

   221 	InsertGearToList(Gear);

   224 	InsertGearToList(Gear);

   222 	FollowGear:= Gear

   225 	FollowGear:= Gear

   223 	end;

   226 	end;

   226 

   227 

   227 ResetKbd;

   228 ResetKbd;

   228 

   229 

   229 cWindSpeed:= rndSign(GetRandom * cMaxWindSpeed);

   230 cWindSpeed:= rndSign(GetRandom * cMaxWindSpeed);

   230 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);

   231 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);