hedgewars/uGearsHandlersRope.pas
changeset 12700 28210d2a9a36
parent 12697 cb6b70392459
child 12705 16fcd59295e3
equal deleted inserted replaced
12699:e96f0f89ba0c 12700:28210d2a9a36
    64     if ((HHGear^.State and gstHHDriven) = 0)
    64     if ((HHGear^.State and gstHHDriven) = 0)
    65     or (CheckGearDrowning(HHGear))
    65     or (CheckGearDrowning(HHGear))
    66     or (TestCollisionYwithGear(HHGear, 1) <> 0) then
    66     or (TestCollisionYwithGear(HHGear, 1) <> 0) then
    67         begin
    67         begin
    68         DeleteGear(Gear);
    68         DeleteGear(Gear);
       
    69         if (TestCollisionYwithGear(HHGear, 1) <> 0) and (GetAmmoEntry(HHGear^.Hedgehog^, amRope)^.Count >= 1) and (HHGear^.Hedgehog^.CurAmmoType <> amRope) then
       
    70             SetWeapon(amRope);
    69         isCursorVisible := false;
    71         isCursorVisible := false;
    70         ApplyAmmoChanges(HHGear^.Hedgehog^);
    72         ApplyAmmoChanges(HHGear^.Hedgehog^);
    71         exit
    73         exit
    72         end;
    74         end;
    73 
    75