Results 1 to 5 of 5

Thread: 2 Questions

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

    Default 2 Questions

    first of all if im using SRL do i need to have it downloaded?

    and 2 can someone please fix this auto willow for me? its SRL is incomplete!!!




    {.Script Info:
    # ScriptName = Willower
    # Author = Ace
    # Description = Willow Cutter + Draynor Banker
    # Version = 0.8
    # Date = 5/19/2006
    # Comments = SRL v2.2+
    /Script Info}
    program Willower;
    {.include SRL\SRL.scar}
    //INSTRUCTIONS////////////////////////////////////////////////////////////////////
    {
    1. Use with Low Detail, Very Bright.
    2. Set your Screen to 32 bit TRUE color.
    3. Put your character next to some willow trees.
    4. If you can weild the axe you are using, weild it.
    Otherwise put it in the first inventory slot.
    6. Fill out the setup constants.
    7. Script will begin ten seconds after clicking start.
    }
    //END OF INSTRUCTIONS/////////////////////////////////////////////////////////////
    //SETUP///////////////////////////////////////////////////////////////////////////
    Const WillowColor=2112579; //Distinct colors of willow trees.
    Const WillowColor2=2113093; //Trunks tend to work well.
    Const WillowColor3=2113093;
    Const MaxLoads=0; //Set maximum amount of loads (0 for no max)
    //END OF SETUP////////////////////////////////////////////////////////////////////
    //DO NOT EDIT ANYTHING PAST HERE! -- THANK YOU /////////////////////////////////
    var lasttree : TPoint; tinderspot : Integer; banked : boolean;totallogs,totalloads :integer;

    procedure Mine1Willow();
    var x,y,tol : Integer; o : boolean;
    begin
    tol:=9;
    repeat
    o:=FindObject(x, y,'Chop down Willow',WillowColor,tol,True)
    WriteLn(getoption);
    if(o)then
    begin
    lasttree.x := x; lasttree.y := y;
    x := x - Random(5)
    y := y - Random(5)
    case random(3) of
    0: begin mouse(x,y,Random(2),Random(3),true); end;
    1: begin mouse(x,y,Random(4),Random(2),false); wait(200+random(120)); PopUp('Chop'); end;
    2: begin mouse(x,y,Random(2),Random(4),true); end;
    3: begin mouse(x,y,Random(3),Random(2),false); wait(600+random(90)); MMouse(x - 40 - Random(20), y - 40 - Random(20),5,5); mouse(x,y,Random(2),Random(4),true); end;
    end;
    end else
    begin
    tol:=tol+3;
    WriteLn('Raised tol to ' + IntToStr(tol) + '.');
    end;
    until((tol=60) or (o) or IsChatMessage('You swing'));
    end;

    procedure DealWithRandoms;
    begin
    WriteLn('Dealing With Random events...NOT');
    end;

    function GetObjInInventory(slot : Integer) : String;
    var
    text : String;
    pMouse : boolean;
    begin
    pMouse:= benmouse;
    benmouse:= false;
    MMouseItem(slot);
    Wait(40 + Random(10));
    text:= GetOption;
    text:= Between(' ',' /',text);
    result:= text;
    benmouse:= pMouse;
    end;

    procedure setupscript();
    begin
    ClearDebug();
    Writeln('||||||||||||||||||||||||||||||||||||||||| ||||||');
    Writeln('||||||WILLOWER - WILLOW CUTTER + BURNER||||||||');
    Writeln('||||||VERSION 0.8 (BETA)|||||||||||||||||||||||');
    Writeln('||||||SCRIPTED BY ACE||||||||||||||||||||||||||');
    Writeln('||||||VISIT MY WEBSITE AT WWW.DARKCDE.NET||||||');
    Writeln('||||||QUESTIONS OR COMMENTS?|||||||||||||||||||');
    Writeln('||||||||CONTACT ME AT SRL OR DARKCDE (ACE)|||||');
    Writeln('||||||||||||||||||||||||||||||||||||||||| ||||||');
    Writeln('Script will begin in ten seconds...');
    Wait(10000);
    Retaliate(false);
    SetRun(true);
    gametab(4);
    ChatsOff;
    //DEFAULT VARS
    tinderspot := 2
    end;

    procedure statusreport();
    begin
    Writeln('STATUS REPORT||||||||||||||||||||||||||||||||||');
    Writeln('WILLOWER - WILLOW CUTTER + BURNER');
    Writeln('VERSION 0.8 (BETA)');
    Writeln('You made a total of ' + IntToStr(TotalLoads) +' loads');
    Writeln('You cut ' + IntToStr(TotalLogs) +' willow logs');
    Writeln('VISIT MY WEBSITE AT WWW.DARKCDE.NET');
    Writeln('QUESTIONS OR COMMENTS?');
    Writeln('CONTACT ME AT SRL OR DARKCDE (ACE)');
    Writeln('||||||||||||||||||||||||||||||||||||||||| ||||||');
    end;

    function BankLogs() : boolean;
    begin
    while(not result) do
    begin
    if(FindBank('db'))then
    begin
    result:=true
    SleepAndMoveMouse(400+random(2000));
    OpenBankQuiet('db');
    SleepAndMoveMouse(1000+random(200));
    Deposit2(3,0);
    CloseBank;
    end else
    begin
    MouseFlag(648, 83 - 30, 0, 0)
    end;
    end;
    end;

    procedure LocateTBox();
    var i : string; t : integer;
    begin
    t := 1;
    i := GetObjInInventory(t);
    if i='Tinderbox' then
    tinderspot:=1
    end;

    function TestTree() : boolean;
    begin
    MMouse(lasttree.x,lasttree.y,Random(5),Random(5));
    Wait(300 + Random(99));
    if(getoption='Chop down Willow')then
    result:=true;
    end;

    procedure CutLogs();
    var dlogs : Integer;
    var tree : boolean;
    begin
    while(dlogs <= 28) do
    begin
    begin
    Mine1Willow;
    if(IsChatMessage('You swing')) then
    repeat
    writeln('Waiting for willow log to be mined.');
    SleepAndMoveMouse(100+random(20));
    DealWithRandoms;
    //if(Random(1) = 1)then
    //begin
    tree:=Not TestTree;
    //end else
    tree:=false;
    until((tree) or IsChatMessage('get some willow') or (ClickToContinue))
    totallogs:=totallogs+1;
    dlogs:=dlogs+1;
    end;
    end;
    end;

    begin
    SetupSRL;
    SetupScript;
    repeat
    begin
    CutLogs;
    BankLogs;
    totalloads:=totalloads+1;
    if(MaxLoads>=totalloads)then break;
    end;
    until(false)
    end.

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

    Default

    1. Yes, you need to save SRL to your includes folder.
    2. No

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

    Default

    yeah i got lost trying to do that

  4. #4
    Join Date
    Feb 2006
    Location
    New Zealand
    Posts
    485
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Save srl to your includes folder, extract it with Winrar ( http://www.rarlabs.com/ )
    to your includes folder.

  5. #5
    Join Date
    Jun 2006
    Location
    Bristol, UK
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    http://82.92.130.193/forums/showthread.php?t=483
    Here is a tutorial that helps you to set up SCAR so you can auto properly.

    http://82.92.130.193/forums/showthread.php?t=1883
    This is a tutorial of how to downoad and setup SRL the correct way.

    http://82.92.130.193/forums/showthread.php?t=1706
    And if you ever get round to it, here is the Beginners/Intermediate guide to scripting.

    As for the script it will run fine when you have downloaded SRL and installed it. if not then you can find some useful error solutions in the Tutorial thread below.

    http://82.92.130.193/forums/showthread.php?t=1155

    It is program that teaches you to script SCAr but also has some very useful ints and tips on errors at the end.

    I hope this helped, good luck.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Few questions.
    By Dervish in forum OSR Help
    Replies: 6
    Last Post: 03-09-2009, 08:43 PM
  2. A few questions
    By RSMacroLegend in forum OSR Help
    Replies: 6
    Last Post: 11-29-2007, 03:23 AM
  3. several questions
    By lnknprkn in forum RuneScape News and General
    Replies: 0
    Last Post: 11-14-2007, 02:37 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
  •