equal
deleted
inserted
replaced
977 end; |
977 end; |
978 |
978 |
979 CheckCollision(Gear); |
979 CheckCollision(Gear); |
980 |
980 |
981 if (Gear^.State and gstCollision) <> 0 then |
981 if (Gear^.State and gstCollision) <> 0 then |
982 begin |
|
983 Gear^.doStep:= @doStepRopeWork; |
|
984 with HHGear^ do State:= State and not (gstAttacking or gstHHHJump); |
|
985 |
|
986 RemoveFromAmmo; |
|
987 |
|
988 if Gear^.Elasticity < _10 then |
982 if Gear^.Elasticity < _10 then |
989 Gear^.Elasticity:= _10000; |
983 Gear^.Elasticity:= _10000 |
990 end; |
984 else |
|
985 begin |
|
986 Gear^.doStep:= @doStepRopeWork; |
|
987 with HHGear^ do State:= State and not (gstAttacking or gstHHHJump); |
|
988 |
|
989 RemoveFromAmmo; |
|
990 |
|
991 exit |
|
992 end; |
991 |
993 |
992 if (Gear^.Elasticity > Gear^.Friction) |
994 if (Gear^.Elasticity > Gear^.Friction) |
993 or ((Gear^.Message and gm_Attack) = 0) |
995 or ((Gear^.Message and gm_Attack) = 0) |
994 or (HHGear^.Damage > 0) then |
996 or (HHGear^.Damage > 0) then |
995 begin |
997 begin |