equal
deleted
inserted
replaced
448 tt := tt - _2; |
448 tt := tt - _2; |
449 end; |
449 end; |
450 end; |
450 end; |
451 |
451 |
452 if Gear^.Elasticity < _20 then Gear^.CollisionMask:= $FF00 |
452 if Gear^.Elasticity < _20 then Gear^.CollisionMask:= $FF00 |
453 else Gear^.CollisionMask:= $FF7F; |
453 else Gear^.CollisionMask:= lfCurrentMask; |
454 CheckCollision(Gear); |
454 CheckCollision(Gear); |
455 |
455 |
456 if (Gear^.State and gstCollision) <> 0 then |
456 if (Gear^.State and gstCollision) <> 0 then |
457 if Gear^.Elasticity < _10 then |
457 if Gear^.Elasticity < _10 then |
458 Gear^.Elasticity := _10000 |
458 Gear^.Elasticity := _10000 |