hedgewars/uGearsHandlersRope.pas
changeset 12695 28210d2a9a36
parent 12692 cb6b70392459
child 12700 16fcd59295e3
equal deleted inserted replaced
12694:e96f0f89ba0c 12695: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