equal
deleted
inserted
replaced
538 Gear^.State := Gear^.State or gstMoving; |
538 Gear^.State := Gear^.State or gstMoving; |
539 |
539 |
540 if ((xland or land) and lfBouncy <> 0) and (Gear^.dX.QWordValue < _0_15.QWordValue) and (Gear^.dY.QWordValue < _0_15.QWordValue) then |
540 if ((xland or land) and lfBouncy <> 0) and (Gear^.dX.QWordValue < _0_15.QWordValue) and (Gear^.dY.QWordValue < _0_15.QWordValue) then |
541 Gear^.State := Gear^.State or gstCollision; |
541 Gear^.State := Gear^.State or gstCollision; |
542 |
542 |
543 if ((xland or land) and lfBouncy <> 0) and (Gear^.Radius >= 3) and |
543 if ((xland or land) and lfBouncy <> 0) and |
544 ((Gear^.dX.QWordValue > _0_15.QWordValue) or (Gear^.dY.QWordValue > _0_15.QWordValue)) then |
544 ((Gear^.dX.QWordValue > _0_15.QWordValue) or (Gear^.dY.QWordValue > _0_15.QWordValue)) then |
545 begin |
545 begin |
546 AddBounceEffectForGear(Gear); |
546 AddBounceEffectForGear(Gear); |
547 end |
547 end |
548 else if (Gear^.nImpactSounds > 0) and |
548 else if (Gear^.nImpactSounds > 0) and |
3712 Gear^.dX.isNegative := (not Gear^.dX.isNegative); |
3712 Gear^.dX.isNegative := (not Gear^.dX.isNegative); |
3713 Gear^.WDTimer := 0; |
3713 Gear^.WDTimer := 0; |
3714 Gear^.Angle := (LongInt(Gear^.Angle) + 2) and 3; |
3714 Gear^.Angle := (LongInt(Gear^.Angle) + 2) and 3; |
3715 |
3715 |
3716 // Bounce effect |
3716 // Bounce effect |
3717 if (Gear^.Karma = 2) and (Gear^.Radius > 2) then |
3717 if (Gear^.Karma = 2) then |
3718 AddBounceEffectForGear(Gear, 0.55); |
3718 AddBounceEffectForGear(Gear, 0.55); |
3719 |
3719 |
3720 Gear^.Tag:= 0; |
3720 Gear^.Tag:= 0; |
3721 Gear^.Karma := 4; |
3721 Gear^.Karma := 4; |
3722 end; |
3722 end; |