equal
deleted
inserted
replaced
429 ty := ty + Gear^.dY + Gear^.dY; |
429 ty := ty + Gear^.dY + Gear^.dY; |
430 tt := tt - _2; |
430 tt := tt - _2; |
431 end; |
431 end; |
432 end; |
432 end; |
433 |
433 |
|
434 if Gear^.Elasticity < _20 then Gear^.CollisionMask:= $FF00 |
|
435 else Gear^.CollisionMask:= $FF7F; |
434 CheckCollision(Gear); |
436 CheckCollision(Gear); |
435 |
437 |
436 if (Gear^.State and gstCollision) <> 0 then |
438 if (Gear^.State and gstCollision) <> 0 then |
437 if Gear^.Elasticity < _10 then |
439 if Gear^.Elasticity < _10 then |
438 Gear^.Elasticity := _10000 |
440 Gear^.Elasticity := _10000 |