hedgewars/GSHandlers.inc
changeset 974 fc16141a0128
parent 963 5f8bb3470563
child 979 edb8f208c1d9
equal deleted inserted replaced
973:8b5647def4b5 974:fc16141a0128
   738 CheckCollision(Gear);
   738 CheckCollision(Gear);
   739 
   739 
   740 if (Gear^.State and gstCollision) <> 0 then
   740 if (Gear^.State and gstCollision) <> 0 then
   741 	begin
   741 	begin
   742 	Gear^.doStep:= @doStepRopeWork;
   742 	Gear^.doStep:= @doStepRopeWork;
   743 	with HHGear^ do State:= State and not gstAttacking;
   743 	with HHGear^ do State:= State and not (gstAttacking or gstHHHJump);
   744 
   744 
   745 	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
   745 	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
   746 	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
   746 	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
   747 	
   747 	
   748 	if Gear^.Elasticity < _10 then
   748 	if Gear^.Elasticity < _10 then