Results 1 to 6 of 6

Thread: Need help with dropping logs in my script.

  1. #1
    Join Date
    Jun 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need help with dropping logs in my script.

    function InventoryFull: Boolean;
    Counts all items in inventory. Returns True if full. False if not.

    procedure DropAllLogs;
    Description:
    Will drop all logs, ignoring anythig you can Wield, Birds Nests,
    Knifes and Tinder Boxes

    Ok, I have these, can comeone please explain (slowly lol) how to use them in my script to get it to drop all of the logs?

    SCAR Code:
    program BasicTreeCutter;
    //with help from Sumilion =]

    {.include SRL\SRL.scar}
    Var TempCount, CutMark : integer;

    procedure Setup;
    begin;
      SetupSRL;
      ActivateClient;
      MouseSpeed := 20;
    end;

    procedure colourpick1;
    begin;
      If FindColorSpiral(x, y, 4483168, 000, 000, 516, 337) Then;
    begin;
      Mouse(x, y, 3, 5, true);
      TempCount := InvCount;
      MarkTime(CutMark);
    repeat
      Wait(200)
      Until(InvCount = TempCount +1) Or (TimeFromMark(CutMark) >= 10000)
    end;
    end;

    begin;
      Setup;
    repeat
      colourpick1;
    until(false)
    end.

    Thanks.
    Every time you macro, you kill a bunny...

    Kill all of the bunnies

  2. #2
    Join Date
    Feb 2006
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    im helping him now
    <3 SRL

  3. #3
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Look closely at the Ratz script. It will tell you all you need
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  4. #4
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    This ain't a long question, here is what you should do :

    SCAR Code:
    Repeat;
    DropAllLogs;
    Until Not(FindBitmapMaskTolerance(LogMask, x, y, MIX1, MIY1, MIX2, MIY2, 5, 5))

    Ill explain the bitmap mask later, cause you probably don't know how yet. So this alone won't work, but it is the basics of how to get it to work
    Administrator's Warning:


  5. #5
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by JLewis
    im helping him now
    Hey i met him first !
    Administrator's Warning:


  6. #6
    Join Date
    Jun 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks to all of you for your help, especially sumilion who helped with all of the script. here is the finished version:

    SCAR Code:
    program BasicTreeCutter;
    //with help from Sumilion =]
    //whith some guidance on log dropping from JLewis
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\WoodCutting.scar}
    Var TempCount, CutMark, Mymark : integer;

    procedure Setup;
    begin;
      SetupSRL;
      ActivateClient;
      MouseSpeed := 20;
    end;

    procedure colourpick1;
    begin;
      If FindColorSpiral(x, y, 2246712, 000, 000, 516, 337) Then;
    begin;
      Mouse(x, y, 3, 5, true);
      TempCount := InvCount;
      MarkTime(CutMark);
    repeat
      FindNormalRandoms;
      Wait(200)
    Until(InvCount = TempCount +1) Or (TimeFromMark(CutMark) >= 10000)
    end;
    end;

    begin;
      Setup;
    repeat
      marktime(mymark);
    repeat
      colourpick1;
    until(InvFull);
      If(InvFull) Or (TimeFromMark(CutMark) >= 60000) Then;
    begin;
      DropAllLogs;
    end;
    Until(false);
    end.
    Every time you macro, you kill a bunny...

    Kill all of the bunnies

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Script logs out
    By randy marsh in forum OSR Help
    Replies: 12
    Last Post: 08-31-2008, 05:17 PM
  2. Dropping
    By trav280 in forum OSR Help
    Replies: 8
    Last Post: 04-26-2008, 12:09 AM
  3. AHHH!!! Script logs out!!!
    By Richard in forum OSR Help
    Replies: 6
    Last Post: 02-13-2008, 05:54 PM
  4. Replies: 11
    Last Post: 11-04-2007, 12:42 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
  •