equal
deleted
inserted
replaced
413 ty := ty + Gear^.dY + Gear^.dY; |
413 ty := ty + Gear^.dY + Gear^.dY; |
414 tt := tt - _2; |
414 tt := tt - _2; |
415 end; |
415 end; |
416 end; |
416 end; |
417 |
417 |
|
418 if Gear^.Elasticity < _20 then Gear^.CollisionMask:= $FF00 |
|
419 else Gear^.CollisionMask:= $FF7F; |
418 CheckCollision(Gear); |
420 CheckCollision(Gear); |
419 |
421 |
420 if (Gear^.State and gstCollision) <> 0 then |
422 if (Gear^.State and gstCollision) <> 0 then |
421 if Gear^.Elasticity < _10 then |
423 if Gear^.Elasticity < _10 then |
422 Gear^.Elasticity := _10000 |
424 Gear^.Elasticity := _10000 |