equal
deleted
inserted
replaced
762 begin |
762 begin |
763 HHGear^.dY:= -_0_6 * HHGear^.dY; |
763 HHGear^.dY:= -_0_6 * HHGear^.dY; |
764 haveCollision:= true |
764 haveCollision:= true |
765 end; |
765 end; |
766 |
766 |
767 if haveCollision and (Gear^.Message and (gm_Left or gm_Right) <> 0) then |
767 if haveCollision |
768 begin |
768 and (Gear^.Message and (gm_Left or gm_Right) <> 0) |
769 HHGear^.dX:= SignAs(hwAbs(HHGear^.dX) + _0_15, HHGear^.dX); |
769 and (Gear^.Message and (gm_Up or gm_Down) <> 0) then |
770 HHGear^.dY:= SignAs(hwAbs(HHGear^.dY) + _0_15, HHGear^.dY) |
770 begin |
|
771 HHGear^.dX:= SignAs(hwAbs(HHGear^.dX) + _0_2, HHGear^.dX); |
|
772 HHGear^.dY:= SignAs(hwAbs(HHGear^.dY) + _0_2, HHGear^.dY) |
771 end; |
773 end; |
772 |
774 |
773 len:= Distance(HHGear^.dX, HHGear^.dY); |
775 len:= Distance(HHGear^.dX, HHGear^.dY); |
774 if len > _0_8 then |
776 if len > _0_8 then |
775 begin |
777 begin |