equal
deleted
inserted
replaced
769 HHGear^.dX:= HHGear^.X - tx; |
769 HHGear^.dX:= HHGear^.X - tx; |
770 HHGear^.dY:= HHGear^.Y - ty; |
770 HHGear^.dY:= HHGear^.Y - ty; |
771 //// |
771 //// |
772 |
772 |
773 |
773 |
774 haveDivided:= false; |
774 haveDivided:= false; |
775 // check whether rope needs dividing |
775 // check whether rope needs dividing |
776 len:= _1 / Distance(ropeDx, ropeDy); // old rope pos |
776 len:= _1 / Distance(ropeDx, ropeDy); // old rope pos |
777 nx:= ropeDx * len; |
777 nx:= ropeDx * len; |
778 ny:= ropeDy * len; |
778 ny:= ropeDy * len; |
779 |
779 |
847 HHGear^.dY:= HHGear^.dY * len; |
847 HHGear^.dY:= HHGear^.dY * len; |
848 end; |
848 end; |
849 |
849 |
850 if (Gear^.Message and gm_Attack) <> 0 then |
850 if (Gear^.Message and gm_Attack) <> 0 then |
851 if (Gear^.State and gsttmpFlag) <> 0 then |
851 if (Gear^.State and gsttmpFlag) <> 0 then |
852 WaitCollision |
852 with PHedgehog(Gear^.Hedgehog)^ do |
|
853 if Ammo^[CurSlot, CurAmmo].AmmoType = amRope then |
|
854 WaitCollision |
|
855 else |
|
856 DeleteMe |
853 else |
857 else |
854 else |
858 else |
855 if (Gear^.State and gsttmpFlag) = 0 then |
859 if (Gear^.State and gsttmpFlag) = 0 then |
856 Gear^.State:= Gear^.State or gsttmpFlag; |
860 Gear^.State:= Gear^.State or gsttmpFlag; |
857 end; |
861 end; |