hedgewars/uGearsHandlersRope.pas
changeset 13469 f1d349a52bc7
parent 13077 c213645ff848
child 13977 2568fa516733
equal deleted inserted replaced
13468:4c47a480009b 13469: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