Results 1 to 5 of 5

Thread: Dropall help

  1. #1
    Join Date
    Nov 2006
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Dropall help

    It isn't suppose to drop anything you can wield knife or tinderbox right? but it is dropping everything including axes

  2. #2
    Join Date
    Nov 2006
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Any help?

  3. #3
    Join Date
    Jun 2006
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    DropAll does exactly what it says on the tin. Drops all. Try this instead:

    SCAR Code:
    procedure DropAllNonWieldable;
    var
     Pr: TPoint
     I: Integer;
     begin
     GameTab(4);
     for i := 1 to 28 do
     begin
      if ExistsItem(i) then
      begin
       Pr := ItemCoords(i);
      MMouse(Pr.x,Pr.y,3,3);
       if Not IsUpText('Wield') then
       begin
        Mouse(Pr.x,Pr.y,3,3,False);
        wait(50+random(100));
        if ChooseOption(x,y,'Drop') then
         wait(200 + Random(100));
        end;
       end;
     end;
    end;

    Tell me if it doesn't compile 'cos I just wrote it there on the spot, but it should do the trick.

  4. #4
    Join Date
    Nov 2006
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {*******************************************************************************
    procedure DropAllLogs;
    By: Starblaster100
    Description: Will drop all logs, ignoring anythig you can Wield, Birds Nests,
    Knifes and Tinder Boxes
    *******************************************************************************}

    procedure DropAllLogs;
    var
      rx, ry, m, n : Integer;
    begin
        Status('Dropping Logs');
        Gametab(4)
        begin
          for M:=1 to 7 do
          begin
            for n:=1 to 4 do
            begin
              rx := 544 + (n * 42)
              ry := 192 + (m * 36)
              mmouse(rx, ry, 0, 0)
              wait(100 + random(100));
              if (IsTextAt2(9, 9, 'Wield', 100)) or
                 (IsTextAt2(9, 9, 'Search Bird', 100)) or
                 (IsTextAt2(9, 9, 'Use Knife', 100)) or
                 (IsTextAt2(9, 9, 'Use Tinder', 100)) then
                    Chopped := Chopped - 1;
              if not (IsTextAt2(9, 9, 'Wield', 100)) and
                 not (IsTextAt2(9, 9, 'Use Knife', 100)) and
                 not (IsTextAt2(9, 9, 'Search Bird', 100)) and
                 not (IsTextAt2(9, 9, 'Use Tinder', 100)) then
                 begin
                   getmousepos(x, y)
                   mouse(x, y, 5, 5, false);
                   wait(100 + random(50));
                   if(ClickText('Drop', MIX1, MIY1, MIX2, MIY2))then
                   begin
                     wait(150 + random(210));
                   end else
                     mmouse(233, 123, 50, 50)
                 end;
            end;
          end;
        end;
    end;
    I took that directly from WoodCutting.scar its not supposed to drop totally everything I need the knive to.

    I will try your thanks.

  5. #5
    Join Date
    Nov 2006
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks m0u53 I changed the DropAll around to get it to work. The main thing I chaged was the "IsTextAt2" to "IsUpText" thanks for the idea!

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Dropall?
    By Hack in forum OSR Help
    Replies: 1
    Last Post: 10-02-2008, 12:29 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •