hedgewars/uGearsHandlersRope.pas
changeset 13468 f1d349a52bc7
parent 13082 c213645ff848
child 13961 2568fa516733
equal deleted inserted replaced
13467:4c47a480009b 13468:f1d349a52bc7
   495             tt := tt - _2;
   495             tt := tt - _2;
   496             end;
   496             end;
   497         end;
   497         end;
   498 
   498 
   499     if Gear^.Elasticity < _20 then Gear^.CollisionMask:= lfLandMask
   499     if Gear^.Elasticity < _20 then Gear^.CollisionMask:= lfLandMask
   500     else Gear^.CollisionMask:= lfNotCurrentMask; //lfNotObjMask or lfNotHHObjMask;
   500     else Gear^.CollisionMask:= lfNotCurHogCrate; //lfNotObjMask or lfNotHHObjMask;
   501     CheckCollision(Gear);
   501     CheckCollision(Gear);
   502 
   502 
   503     if (Gear^.State and gstCollision) <> 0 then
   503     if (Gear^.State and gstCollision) <> 0 then
   504         if Gear^.Elasticity < _10 then
   504         if Gear^.Elasticity < _10 then
   505             Gear^.Elasticity := _10000
   505             Gear^.Elasticity := _10000