equal
deleted
inserted
replaced
847 |
847 |
848 if Gear^.Elasticity < _10 then |
848 if Gear^.Elasticity < _10 then |
849 Gear^.Elasticity:= _10000; |
849 Gear^.Elasticity:= _10000; |
850 end; |
850 end; |
851 |
851 |
852 if (Gear^.Elasticity > Gear^.Friction) or ((Gear^.Message and gm_Attack) = 0) then |
852 if (Gear^.Elasticity > Gear^.Friction) |
|
853 or ((Gear^.Message and gm_Attack) = 0) |
|
854 or (HHGear^.Damage > 0) then |
853 begin |
855 begin |
854 with PHedgehog(Gear^.Hedgehog)^.Gear^ do |
856 with PHedgehog(Gear^.Hedgehog)^.Gear^ do |
855 begin |
857 begin |
856 State:= State and not gstAttacking; |
858 State:= State and not gstAttacking; |
857 Message:= Message and not gm_Attack |
859 Message:= Message and not gm_Attack |