Page 3 of 6 FirstFirst 12345 ... LastLast
Results 51 to 75 of 132

Thread: flax picker spinner banker

  1. #51
    Join Date
    Mar 2007
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yep, wt-fakawi was right, it clicks too far from that door sometimes so it can't find it =)

    Anyway, first post at these forums, just downloaded srl and still no problems =)
    GJ SRL TEAM!!!!!

  2. #52
    Join Date
    Feb 2007
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Failed when compiling
    Line 29: [Error] (18049:1): Duplicate identifier 'a' in script C:\DOCUME~1\Me\LOCALS~1\Temp\flax picker spinner banker V 1.2-1.scar
    I get this everytime that i try to run the script...

    any ideas?

  3. #53
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    This script is pretty old...

    Look at Martin's post (about halfway up the page)
    Interested in C# and Electrical Engineering? This might interest you.

  4. #54
    Join Date
    Feb 2007
    Location
    Australia
    Posts
    358
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Nice script,
    Just a few things I could mention.
    Instead of making all those TypeSend Procedures for the random numbers
    and picking one with a case of 1-10,
    you could just do this

    PHP Code:
    var Number:integer;
     
    Number:=27+Random(43);
    TypeSend(IntToStr(number)); 
    This way it will type in any number between 27 and 70.
    Anyway, awesome script man. Im working on a Flax Picker myself.

  5. #55
    Join Date
    Mar 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    After I started using Martin's adjustment it started to run just fine.

    I also made a few changes in angles to help the "up-ladder" and angle correction in the beging incase someone forgets to align it before they start.

    MY edited version
    SCAR Code:
    program seersflaxpickerspinnerbanker;


    {made by scarscaper4life and fixed by martin and -=BINOGO-BANGO=-}
    {start at seers bank loged out}
    {script only currently supports one player i may add multiplayers later}
    {you may edit this script just give credit where nesseacery}
    {thanks to the SRL team an Weibs for his help with the ladder finding loop}
    {also thanks to cheesehunk for fixing some of my errors}
    {enjoy an auto with care }

                              {version history}

                    {version 1   First stable release       }
                    {version 1.1 added multi paths          }
                    {version 1.2 added breaks an fail safes }




                               

    {.include SRL/SRL.scar}
    {.include SRL\SRL\Extended\Obsolete.Scar}



    var

    alog,blog,clog,dlog,elog,flog,glog,hlog,bowstrings,tripsdone,ladder2,ladder,flax: Integer;




    Const StartPlayer          = 0;
          amounttrips=99999;

    Procedure DeclarePlayers;
    begin
         HowManyPlayers:=1;

         NumberOfPlayers(HowManyPlayers);
         CurrentPlayer := StartPlayer;

         Players[0].Name :='';
         Players[0].Pass :='';
         Players[0].Nick :='';
         Players[0].Loc  :='';
         Players[0].Active:=True;


    end;


    procedure setup;
    begin



    setupsrl;

    end;


    procedure login1;

    begin
    if(not(loggedin)) then LoginPlayer;
    end;


    procedure loadbtms;

    begin

    ladder := BitmapFromString(18, 23, 'z78DACDD63D0EC3200C05E02' +
           'B610AB13AA62DDCFF48199CE1490E96F993BA5888810F61784926' +
           'FED02FBFFBEA91B8507DA8A755B358AA46CE2745A91D96B907AD5' +
           '0491CBE686971DE12A565A13863A1628B32BFC34211C77A35DC8F' +
           'DF929954E32B8474C44A64DF8DD60968B1750F45B12D4F7FD11DB' +
           '3FCFDC5F35F6B6911675A56A6BEDCC0FE4AF5F7ABDB0265B7A5C5' +
           'DD969DC0A9303FAD3695BD6ECB93BD635F16B4FC6F73C61A7B9B6' +
           'BADDE041EBB1BF7DB7427F08C758B8E04FE4F2BB365ADFD9BBA00' +
           'BC412C2A');

    ladder2 := BitmapFromString(4, 20, 'z78DABD904B0AC0300844AFA4F94' +
           'DBA4C8AB9FF919262298264555A170F790C2388010904C711E590' +
           'EE09CE2166CBF77ED72F8DD6E04467F9C2DF172BB0F7A9722152A' +
           'AD7DDE76DF29FBC25B8245EDF2B8D9F866B9FBA3B67B4');






    end;

    procedure loaddtm;

    begin

    flax := DTMFromString('78DA639CCFC4C050CD8002820317337001694' +
           '620FE0F0400427D066C');


    end;

    procedure antirandoms;

    begin
         Findnormalrandoms;
         AntiBan;
         RandomChatEvery( 3 );
         LeaveScreenEvery( 1 );
    end;


    Procedure WalkToFlax1;

      begin
    makecompass('N');
    HighestAngle;
    makecompass('N');
    HighestAngle;
    makecompass('N');
    HighestAngle;
    writeln('path1')
    if not LoggedIn then Exit;
    AngleWalk(310, 70, 4, 4);
    flag;
    antirandoms;
    AngleWalk(300, 70, 4, 4);
    flag
    antirandoms;
    AngleWalk(240, 40, 4, 4);
    flag;
    antirandoms;
    wait(1002 + random(40 * 2 / 2 + 6 - 1));

    repeat
    if not LoggedIn then Exit;
    clog:=clog+1
    wait(102 + random(40 * 2 / 2 + 6 - 1));
    if Clog=10 then begin writeln('ERROR: mm colour flax NOT Found'); Logout; exit; TerminateScript end;
    until(FindMMColorTol(x, y , 11098709, 20)) or (FindMMColorTol(x, y , 12548457, 20)) or  (FindMMColorTol(x, y , 12220787, 20)) or (FindMMColorTol(x, y , 9786952, 20)) or(FindMMColorTol(x, y , 12414843, 20)) or (FindMMColorTol(x, y , 9852246, 20));
    Mouse(x+2, y+2 , 1 , 1, true);
    flag;
    antirandoms;
    Clog:=Clog-Clog
    end;

    Procedure WalkToFlax2;
    begin
    makecompass('N');
    HighestAngle;
    makecompass('N');
    HighestAngle;
    makecompass('N');
    HighestAngle;
    writeln('path2')
    if not LoggedIn then Exit;
    AngleWalk(300, 70, 4, 4);
    flag;
    antirandoms;
    AngleWalk(305, 55, 4, 4);
    antirandoms;
    flag;
    AngleWalk(240, 60, 4, 4);
    antirandoms;
    flag;
    repeat
    if not LoggedIn then Exit;
    Alog:=alog+1
    wait(102 + random(40 * 2 / 2 + 6 - 1));
    if Alog=10 then begin writeln('ERROR: mm colour flax NOT Found'); Logout; exit; TerminateScript end;
    until(FindMMColorTol(x, y , 11098709, 20)) or (FindMMColorTol(x, y , 12548457, 20)) or  (FindMMColorTol(x, y , 12220787, 20)) or (FindMMColorTol(x, y , 9786952, 20)) or (FindMMColorTol(x, y , 12220787, 20)) or (FindMMColorTol(x, y , 9852246, 20));
    Mouse(x+2, y+2 , 1 , 1, true);
    antirandoms;
    flag;
    Alog:=Alog-Alog
    end;

    procedure choosepath;
    begin
    case random(2) of
     0: WalkToFlax1;
     1: WalkToFlax2;

    end;
    end;

    procedure pickflax;

    begin
    gametab(4)
    repeat
    if not LoggedIn then Exit;
    Blog:=blog+1
    wait(500 +random(200));
    FindObj(x, y,'Pick' , 15131546, 10);
    Mouse(x, y , 4 , 4, true);
    flag;
    antirandoms;
    if Blog=55 then begin writeln('ERROR: taking to long to pick flax something might have gone wrong'); Logout; exit; TerminateScript end;
    until (InvFull);
    wait(1000 +random(200));
    antirandoms;
    Blog:=blog-blog
    end;


    procedure tospiningwheel1;

    begin
    if not LoggedIn then Exit;
    writeln('path2');
    AngleWalk(40, 60, 4, 4);
    antirandoms;
    wait(8000 +random(200));
    flag;
    antirandoms;
    FindBitMapTol(X, Y, ladder, 552, 8, 714, 148);
    Mouse(x, y , 1 , 1, true);
    antirandoms;
    wait(3000 +random(200));
    flag;
    antirandoms;
    wait(3000 +random(200));
    AngleWalk(90, 40, 4, 4);
    flag;
    antirandoms;
    end;

    procedure tospiningwheel2;
    begin
    if not LoggedIn then Exit;
    writeln('path2');
    AngleWalk(45, 65, 2, 2);
    wait(8000 +random(250));
    antirandoms;
    flag;
    FindBitMapTol(X, Y, ladder, 552, 8, 714, 148);
    Mouse(x, y , 4 , 4, true);
    antirandoms;
    flag;
    FindSymbol(x,y, 'cookery');
    Mouse(x+5, y+20 , 1 , 1, true);
    antirandoms;
    flag;
    end;

    procedure tospiningwheel3;
    begin
    if not LoggedIn then Exit;
    writeln('path3');
    AngleWalk(45, 65, 2, 2);
    wait(8000 +random(250));
    antirandoms;
    flag;
    GetSymbolColor(x, y, 'Tree');
    Mouse(x+2, y , 4 , 4, true);
    flag;
    antirandoms;
    wait(100 +random(250));
    repeat
    if not LoggedIn then Exit;
    Flog:=Flog+1
    if Flog=15 then begin writeln('ERROR: can not find mapple colour'); Logout; exit; TerminateScript end;
    until(FindMiniColor(x, y, 2378594, 10, True)) or(FindMMColorTol(x, y , 1719919, 10)) or (FindMMColorTol(x, y , 11858, 10));
    Mouse(x-8, y+20 , 0 , 0, true);
    flag;
    Flog:=Flog-flog
    end;



    procedure choosepath1;
    begin
    case random(3) of
     0: tospiningwheel1;
     1: tospiningwheel2;
     2: tospiningwheel3;


    end;
    end;

    procedure checkDoor;
    begin
      MakeCompass('N');
      repeat
        if (FindObj(x, y, 'Door', 2519700, 4)) or (FindObj(x, y, 'Door', 2652829, 4)) or (FindObj(x, y, 'Door', 2520471, 4)) or (FindObj(x, y, 'Door', 2652829, 4)) then
        begin
          if IsUpText('Open') then
          begin
            Mouse(x, y, 0, 0, False);
            Wait(500+Random(250));
            ChooseOption(x, y, 'Open');
            Flag;
          end else
            Break;
        end;
        Wait(500+Random(500));
      until(false);
      antirandoms;
    end;



    procedure upladder;

    begin
    makecompass('S');
    HighestAngle;
    makecompass('S');
    HighestAngle;
    makecompass('S');
    HighestAngle;
    repeat
    if not LoggedIn then Exit;
    Dlog:=Dlog+1
    FindObj3(  x, y, 'adder'  ,2642028, 8);
    Mouse(x, y, 5, 5, false);
    if Dlog=15 then begin writeln('ERROR: could not find up ladder'); Logout; exit; TerminateScript end;
    until
    PopUp('Climb-up');
    flag;
    antirandoms;
    Dlog:=Dlog-Dlog
    end;





    procedure spin;

    begin
    makecompass('N');
    makecompass('N');

    wait(1000+random(300));
    repeat
    if not LoggedIn then Exit;
    Elog:=elog+1
    FindObj(x, y, 'Spin', 14013914, 5);
    Mouse(x, y, 5, 5, false);
    if Elog=15 then begin writeln('ERROR: can not find spining wheel'); Logout; exit; TerminateScript end;
    until
    ChooseOption(x,y,'Spin');
    flag;
    Elog:=Elog-Elog
    end;


    procedure weretoclick1;

    begin

    Mouse(266, 132, 5, 5, false);

    end;

    procedure weretoclick2;

    begin

    Mouse(270, 125, 5, 5, false);

    end;

    procedure weretoclick3;

    begin

    Mouse(250, 102, 5, 5, false);

    end;

    procedure weretoclick4;

    begin

    Mouse(259, 140, 5, 5, false);

    end;
    procedure weretoclick5;

    begin

    Mouse(270, 138, 5, 5, false);

    end;
    procedure weretoclick6;

    begin

    Mouse(252, 137, 5, 5, false);

    end;

    procedure chooseweretoclick;

    begin
    case random(6) of
     0: weretoclick1;
     1: weretoclick2;
     2: weretoclick3;
     3: weretoclick4;
     4: weretoclick5;
     5: weretoclick6;
    end;
    end;



    procedure makex;
    begin

    wait(1000 + random(300));
    PopUp('Make X');
    wait(1200 + random(300));

    end;

    procedure TypeSend1;

    begin

    typesend('33')

    end;

    procedure TypeSend2;

    begin

    typesend('6457')

    end;

    procedure TypeSend3;

    begin

    typesend('99')

    end;

    procedure TypeSend4;

    begin

    typesend('4356')

    end;

    procedure TypeSend5;

    begin

    typesend('6542')

    end;

    procedure TypeSend6;

    begin

    typesend('222')

    end;

    procedure TypeSend7;

    begin

    typesend('444')

    end;

    procedure TypeSend8;

    begin

    typesend('555')

    end;

    procedure TypeSend9;

    begin

    typesend('66')

    end;

    procedure TypeSend10;

    begin

    typesend('33')

    end;


    procedure choosetypesend;
    begin
    case random(10) of
     0: TypeSend1;
     1: TypeSend2;
     2: TypeSend3;
     3: TypeSend4;
     4: TypeSend5;
     5: TypeSend6;
     6: TypeSend7;
     7: TypeSend8;
     8: TypeSend9;
     9: TypeSend10;

    end;
    end;



    procedure wait1;
    begin
    wait(100 + random(50));
    repeat
    if not LoggedIn then Exit;
    Glog:=Glog+1
    wait(400 + random(300));
    RandomMovement;
    antirandoms;
    if glog=115 then begin writeln('ERROR: taking to long to spin flax'); Logout; exit; TerminateScript end;
    until
    IsChatMessage('out');
    Glog:=Glog-Glog
    end;

    procedure downladder;

    begin
    wait(800 + random(400));
    makecompass('S');
    HighestAngle;
    makecompass('S');
    HighestAngle;
    repeat
    if not LoggedIn then Exit;
    Hlog:=Hlog+1
    makecompass('S');
    HighestAngle;
    FindObj3(  x, y, 'adder'  ,2642028, 8);
    Mouse(x, y, 5, 5, false);
    if Hlog=15 then begin writeln('ERROR: can not find down ladder'); Logout; exit; TerminateScript end;
    until
    PopUp('Climb-down');
    flag;
    antirandoms;
    Hlog:=Hlog-Hlog
    makecompass('N');
    end;


    procedure checkDoor2;
    begin
      makecompass('N');
      makecompass('N');
      makecompass('N');
      makecompass('N');
      repeat
        if (FindObj(x, y, 'Door', 2519700, 4)) or (FindObj(x, y, 'Door', 2652829, 4)) or (FindObj(x, y, 'Door', 2520471, 4)) or (FindObj(x, y, 'Door', 2652829, 4)) then
        begin
          if IsUpText('Open') then
          begin
            Mouse(x, y, 0, 0, False);
            Wait(500+Random(250));
            ChooseOption(x, y, 'Open');
            Flag;
          end else
            Break;
        end;
        Wait(500+Random(500));
      until(false);
      antirandoms;
    end;

    procedure tobank;
    begin
    makecompass('N');
    makecompass('N');
    makecompass('N');
    makecompass('N');

    AngleWalk(150, 65, 4, 4);
    wait(1000 + random(300));
    flag;
    antirandoms;
    end;

    procedure findbank1;

    begin
    makecompass('N');

    if (FindSymbol(x,y, 'bank')) then
        wait(202 + random(6 * 6 / 2 + 5 - 2));
       Mouse(x, y - 2, 4 , 4, true);
      antirandoms;
      flag;
    end;

    procedure bankbstrings;

    begin
         OpenBank3;
         DepositAll;
         CloseBank;
         antirandoms;
         SetRun(true);
         tripsdone:=tripsdone+1;
         bowstrings:=bowstrings+28
    end;

    procedure progressreport;
    begin
    writeln('@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
    writeln('  THIS SCRIPT IS MADE BY SCARSCAPER4LIFE                    ');
    writeln('  WORKED FOR '+intToStr(Players[CurrentPlayer].Worked)+'    ');
    writeln('  DONE '+inttostr(tripsdone)+' TIMES SO FAR                 ');
    writeln('  PICKED AN SPUN '+inttostr(bowstrings)+ 'FLAX SO FAR       ');
    writeln('  YOU HAVE MADE'  +inttostr(bowstrings*200)+ 'GP so far     ');
    writeln('@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
    SRLRandomsReport;
    end;

    procedure loop;

    begin




    end;



    begin
      setup;
      DeclarePlayers;
      loadbtms;
      loaddtm;
      repeat
      login1;
      antirandoms;
      choosepath;
      pickflax;
      choosepath1;
      checkDoor;
      upladder;
      spin;
      chooseweretoclick;
      makex;
      choosetypesend;
      wait1;
      downladder;
      checkdoor2;
      tobank;
      findbank1;
      bankbstrings;
      progressreport;
      loop;
      until
      (tripsdone=amounttrips);
       logout;
    end.

    Heres my proggi with my edits.

    THIS SCRIPT IS MADE BY SCARSCAPER4LIFE
    WORKED FOR 0
    DONE 46 TIMES SO FAR
    PICKED AN SPUN 1228FLAX SO FAR
    YOU HAVE MADE245600GP so far
    Suggestions:

    Necessairy-
    -Increase efficiency of finding up-ladder
    -Add martins var adjustments

    Rocommended-
    -Better Bank Booth finding
    -Bank pin ability

  6. #56
    Join Date
    Mar 2007
    Location
    Newcastle, England
    Posts
    98
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Im debating if I should buy a members pin purely to use this script.

    Could people post some progress reports from using the script in the post above and also tell me the tiemframe the progress report was in.

    Thanks.

  7. #57
    Join Date
    Mar 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I would wait if/when there is an official update. My edits help a bit but It still dosent run for very long until it gets stuck going NE or SW because it clicks before it turns sometimes. My proggress report was one that wasent very common. And my edits slowed it down a bit so maby scarscape4life could make it faster

  8. #58
    Join Date
    Mar 2007
    Location
    Newcastle, England
    Posts
    98
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Alright, maybe not then. I have another script that I think only has outdated anti randoms and anti ban, I really wish I had more knowledge of srl to decide wether this script would stand a chance.

    I'll edit this post with the script I have, maybe it could help you scar, Im not sure, whats the harm in posting it?

    Runescape membership isn't really alot of money.

  9. #59
    Join Date
    Mar 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Error message:
    Line 29: [Error] (18049:1): Duplicate identifier 'a' in script.

    Fix this error please..

  10. #60
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Riedell3959 View Post
    Error message:
    Line 29: [Error] (18049:1): Duplicate identifier 'a' in script.

    Fix this error please..
    If you looked above your post, you'd see that there's been two fixes for this error that have been posted
    Interested in C# and Electrical Engineering? This might interest you.

  11. #61
    Join Date
    Feb 2007
    Location
    Brisbane, Australia
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i'll give it a try... easy way to get your crafting up a little bit

    cheers
    Q

  12. #62
    Join Date
    Mar 2007
    Posts
    351
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    'Failed when compiling
    Line 29: [Error] (18049:1): Duplicate identifier 'a' in script C:\Program Files\SCAR 2.03\Scripts\flax picker spinner banker V 1.2.scar'

    Help please?

  13. #63
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by VivaLaRofl View Post
    'Failed when compiling
    Line 29: [Error] (18049:1): Duplicate identifier 'a' in script C:\Program Files\SCAR 2.03\Scripts\flax picker spinner banker V 1.2.scar'

    Help please?
    Page 3: there's two fixes

    Read before you post?
    Interested in C# and Electrical Engineering? This might interest you.

  14. #64
    Join Date
    Mar 2007
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    help with this...
    Line 29: [Error] (18049:1): Duplicate identifier 'a' in script C:\Documents and Settings\Fun with U\My Documents\SCAR\Others\flax picker spinner banker V 1.2.scar


    EDIT: Oh sorry...i know now!

  15. #65
    Join Date
    Mar 2007
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ************************************************** **********
    THIS SCRIPT IS MADE BY SCARSCAPER4LIFE
    WORKED FOR 0
    DONE 1 TRIPS SO FAR
    PICKED AN SPUN 28FLAX SO FAR
    YOU HAVE MADE5600GP so far
    ************************************************** **********
    path2
    ERROR: mm colour flax NOT Found
    0
    Error detecting Compass Angle.



    BUT:: i dont like when after the first load, i started going into the party place, then i went around to the right, way to random, and then the script stopped because flag was gone and flax could not be found, try to make a failsafe, that not to clck on the blue part of the party place , cause that messed it up alot, i removed the random paths to flax, i dont care for randomness, i have a totally newb character, and i trade imediatly whatever money i make to my main



    ************************************************** **********
    THIS SCRIPT IS MADE BY SCARSCAPER4LIFE
    WORKED FOR 0
    DONE 2 TRIPS SO FAR
    PICKED AN SPUN 56FLAX SO FAR
    YOU HAVE MADE11200GP so far
    ************************************************** **********
    path1
    path2
    ERROR: can not find spining wheel

    i had to pause it, i was going to the spinning wheel, and it clicked by the yew trees, but because of having to go around the fences/trees, the flag went away, so it clicked inside the party palace again, and it couldnt find the spinner, my suggestion, not as random, when i took away the randomness of which path to go to flax, i have not had a problem with it, except with camera angle, and finding the edge of the rare trees or party place, thats not your fault though

    GREAT SCRIPT THOUGH!!! ill be trying to edit it on my own to make it more effecient, but im a newb at this scripting

    oh another suggestion is, when spinning, and you gain a lvl, make it check for the 'click here to continue' bitmap or something, and if it shows up, click it, and the spinning continues


    tried running a third time, it got finished picking the flax, BUT, as soon as i got to the yew trees below the building were you have to go to spin them, it logged me out because it

    ERROR: can not find mapple colour
    0
    Error detecting Compass Angle.

    again, the only thing that i could say to fix this, is less randomnization, it screws with it too much, i removed the random choosing of paths to spinning wheel, ill see if that fixes it abit

    ************************************************** **********
    THIS SCRIPT IS MADE BY SCARSCAPER4LIFE
    WORKED FOR 0
    DONE 1 TRIPS SO FAR
    PICKED AN SPUN 28FLAX SO FAR
    YOU HAVE MADE5600GP so far
    ************************************************** **********
    Successfully executed

    fourth time i ran it, i had to change the compass just slightly, it had taken forever to find the bank booth

  16. #66
    Join Date
    Mar 2007
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ************************************************** **********
    THIS SCRIPT IS MADE BY SCARSCAPER4LIFE
    WORKED FOR 0
    DONE 4 TRIPS SO FAR
    PICKED AN SPUN 112FLAX SO FAR
    YOU HAVE MADE22400GP so far
    ************************************************** **********
    path1
    0
    Error detecting Compass Angle.
    Successfully executed


    fifth time i ran it, i was working great, except the little help i had to put into it, such as change the compass slightly, or pause and move a couple more squares, and pausing to click here to continue on gaining a level, but then i got the beehive random, and the script continued to run after logging out
    so thats wha ti got for yer, it works fine for me, i dont run scripts without me sitting in the chair watching it, just for those randoms ect...

    but here ya go with my edited scirpt somewhat


    SCAR Code:
    program seersflaxpickerspinnerbanker;


    {made by scarscaper4life and fixed by martin and -=BINOGO-BANGO=-}
    {start at seers bank loged out}
    {script only currently supports one player i may add multiplayers later}
    {you may edit this script just give credit where nesseacery}
    {thanks to the SRL team an Weibs for his help with the ladder finding loop}
    {also thanks to cheesehunk for fixing some of my errors}
    {enjoy an auto with care }

                              {version history}

                    {version 1   First stable release       }
                    {version 1.1 added multi paths          }
                    {version 1.2 added breaks an fail safes }






    {.include SRL/SRL.scar}
    {.include SRL\SRL\Extended\Obsolete.Scar}



    var

    alog,blog,clog,dlog,elog,flog,glog,hlog,bowstrings,tripsdone,ladder2,ladder,flax: Integer;




    Const StartPlayer          = 0;
          amounttrips=99999;

    Procedure DeclarePlayers;
    begin
         HowManyPlayers:=1;

         NumberOfPlayers(HowManyPlayers);
         CurrentPlayer := StartPlayer;

         Players[0].Name :='';
         Players[0].Pass :='';
         Players[0].Nick :='';
         Players[0].Loc  :='';
         Players[0].Active:=True;


    end;


    procedure setup;
    begin



    setupsrl;

    end;


    procedure login1;

    begin
    if(not(loggedin)) then LoginPlayer;
    end;


    procedure loadbtms;

    begin

    ladder := BitmapFromString(18, 23, 'z78DACDD63D0EC3200C05E02' +
           'B610AB13AA62DDCFF48199CE1490E96F993BA5888810F61784926' +
           'FED02FBFFBEA91B8507DA8A755B358AA46CE2745A91D96B907AD5' +
           '0491CBE686971DE12A565A13863A1628B32BFC34211C77A35DC8F' +
           'DF929954E32B8474C44A64DF8DD60968B1750F45B12D4F7FD11DB' +
           '3FCFDC5F35F6B6911675A56A6BEDCC0FE4AF5F7ABDB0265B7A5C5' +
           'DD969DC0A9303FAD3695BD6ECB93BD635F16B4FC6F73C61A7B9B6' +
           'BADDE041EBB1BF7DB7427F08C758B8E04FE4F2BB365ADFD9BBA00' +
           'BC412C2A');

    ladder2 := BitmapFromString(4, 20, 'z78DABD904B0AC0300844AFA4F94' +
           'DBA4C8AB9FF919262298264555A170F790C2388010904C711E590' +
           'EE09CE2166CBF77ED72F8DD6E04467F9C2DF172BB0F7A9722152A' +
           'AD7DDE76DF29FBC25B8245EDF2B8D9F866B9FBA3B67B4');






    end;

    procedure loaddtm;

    begin

    flax := DTMFromString('78DA639CCFC4C050CD8002820317337001694' +
           '620FE0F0400427D066C');


    end;

    procedure antirandoms;

    begin
         Findnormalrandoms;
         LeaveScreenEvery( 1 );
    end;


    Procedure WalkToFlax1;

      begin
    makecompass('N');
    HighestAngle;
    makecompass('N');
    HighestAngle;
    makecompass('N');
    HighestAngle;
    writeln('path1')
    if not LoggedIn then Exit;
    AngleWalk(310, 70, 4, 4);
    flag;
    antirandoms;
    AngleWalk(300, 70, 4, 4);
    flag
    antirandoms;
    AngleWalk(240, 40, 4, 4);
    flag;
    antirandoms;
    wait(1002 + random(40 * 2 / 2 + 6 - 1));

    repeat
    if not LoggedIn then Exit;
    clog:=clog+1
    wait(102 + random(40 * 2 / 2 + 6 - 1));
    if Clog=10 then begin writeln('ERROR: mm colour flax NOT Found'); Logout; exit; TerminateScript end;
    until(FindMMColorTol(x, y , 11098709, 20)) or (FindMMColorTol(x, y , 12548457, 20)) or  (FindMMColorTol(x, y , 12220787, 20)) or (FindMMColorTol(x, y , 9786952, 20)) or(FindMMColorTol(x, y , 12414843, 20)) or (FindMMColorTol(x, y , 9852246, 20));
    Mouse(x+2, y+2 , 1 , 1, true);
    flag;
    antirandoms;
    Clog:=Clog-Clog
    end;

    Procedure WalkToFlax2;
    begin
    makecompass('N');
    HighestAngle;
    makecompass('N');
    HighestAngle;
    makecompass('N');
    HighestAngle;
    writeln('path2')
    if not LoggedIn then Exit;
    AngleWalk(300, 70, 4, 4);
    flag;
    antirandoms;
    AngleWalk(305, 55, 4, 4);
    antirandoms;
    flag;
    AngleWalk(240, 60, 4, 4);
    antirandoms;
    flag;
    repeat
    if not LoggedIn then Exit;
    Alog:=alog+1
    wait(102 + random(40 * 2 / 2 + 6 - 1));
    if Alog=10 then begin writeln('ERROR: mm colour flax NOT Found'); Logout; exit; TerminateScript end;
    until(FindMMColorTol(x, y , 11098709, 20)) or (FindMMColorTol(x, y , 12548457, 20)) or  (FindMMColorTol(x, y , 12220787, 20)) or (FindMMColorTol(x, y , 9786952, 20)) or (FindMMColorTol(x, y , 12220787, 20)) or (FindMMColorTol(x, y , 9852246, 20));
    Mouse(x+2, y+2 , 1 , 1, true);
    antirandoms;
    flag;
    Alog:=Alog-Alog
    end;

    procedure choosepath;
    begin
    WalkToFlax1;


    end;

    procedure pickflax;

    begin
    gametab(4)
    repeat
    if not LoggedIn then Exit;
    Blog:=blog+1
    wait(500 +random(200));
    FindObj(x, y,'Pick' , 15131546, 10);
    Mouse(x, y , 4 , 4, true);
    flag;
    antirandoms;
    if Blog=55 then begin writeln('ERROR: taking to long to pick flax something might have gone wrong'); Logout; exit; TerminateScript end;
    until (InvFull);
    wait(1000 +random(200));
    antirandoms;
    Blog:=blog-blog
    end;


    procedure tospiningwheel1;

    begin
    if not LoggedIn then Exit;
    writeln('path2');
    AngleWalk(40, 60, 4, 4);
    antirandoms;
    wait(8000 +random(200));
    flag;
    antirandoms;
    FindBitMapTol(X, Y, ladder, 552, 8, 714, 148);
    Mouse(x, y , 1 , 1, true);
    antirandoms;
    wait(3000 +random(200));
    flag;
    antirandoms;
    wait(3000 +random(200));
    AngleWalk(90, 40, 4, 4);
    flag;
    antirandoms;
    end;

    procedure tospiningwheel2;
    begin
    if not LoggedIn then Exit;
    writeln('path2');
    AngleWalk(45, 65, 2, 2);
    wait(8000 +random(250));
    antirandoms;
    flag;
    FindBitMapTol(X, Y, ladder, 552, 8, 714, 148);
    Mouse(x, y , 4 , 4, true);
    antirandoms;
    flag;
    FindSymbol(x,y, 'cookery');
    Mouse(x+5, y+20 , 1 , 1, true);
    antirandoms;
    flag;
    end;

    procedure tospiningwheel3;
    begin
    if not LoggedIn then Exit;
    writeln('path3');
    AngleWalk(45, 65, 2, 2);
    wait(8000 +random(250));
    antirandoms;
    flag;
    GetSymbolColor(x, y, 'Tree');
    Mouse(x+2, y , 4 , 4, true);
    flag;
    antirandoms;
    wait(100 +random(250));
    repeat
    if not LoggedIn then Exit;
    Flog:=Flog+1
    if Flog=15 then begin writeln('ERROR: can not find mapple colour'); Logout; exit; TerminateScript end;
    until(FindMiniColor(x, y, 2378594, 10, True)) or(FindMMColorTol(x, y , 1719919, 10)) or (FindMMColorTol(x, y , 11858, 10));
    Mouse(x-8, y+20 , 0 , 0, true);
    flag;
    Flog:=Flog-flog
    end;



    procedure choosepath1;
    begin
    tospiningwheel1;
    end;

    procedure checkDoor;
    begin
      MakeCompass('N');
      repeat
        if (FindObj(x, y, 'Door', 2519700, 4)) or (FindObj(x, y, 'Door', 2652829, 4)) or (FindObj(x, y, 'Door', 2520471, 4)) or (FindObj(x, y, 'Door', 2652829, 4)) then
        begin
          if IsUpText('Open') then
          begin
            Mouse(x, y, 0, 0, False);
            Wait(500+Random(250));
            ChooseOption(x, y, 'Open');
            Flag;
          end else
            Break;
        end;
        Wait(500+Random(500));
      until(false);
      antirandoms;
    end;



    procedure upladder;

    begin
    makecompass('S');
    HighestAngle;
    makecompass('S');
    HighestAngle;
    makecompass('S');
    HighestAngle;
    repeat
    if not LoggedIn then Exit;
    Dlog:=Dlog+1
    FindObj3(  x, y, 'adder'  ,2642028, 8);
    Mouse(x, y, 5, 5, false);
    if Dlog=15 then begin writeln('ERROR: could not find up ladder'); Logout; exit; TerminateScript end;
    until
    PopUp('Climb-up');
    flag;
    antirandoms;
    Dlog:=Dlog-Dlog
    end;





    procedure spin;

    begin
    makecompass('N');
    makecompass('N');

    wait(1000+random(300));
    repeat
    if not LoggedIn then Exit;
    Elog:=elog+1
    FindObj(x, y, 'Spin', 14013914, 5);
    Mouse(x, y, 5, 5, false);
    if Elog=15 then begin writeln('ERROR: can not find spining wheel'); Logout; exit; TerminateScript end;
    until
    ChooseOption(x,y,'Spin');
    flag;
    Elog:=Elog-Elog
    end;


    procedure weretoclick1;

    begin

    Mouse(266, 132, 5, 5, false);

    end;

    procedure weretoclick2;

    begin

    Mouse(270, 125, 5, 5, false);

    end;

    procedure weretoclick3;

    begin

    Mouse(250, 102, 5, 5, false);

    end;

    procedure weretoclick4;

    begin

    Mouse(259, 140, 5, 5, false);

    end;
    procedure weretoclick5;

    begin

    Mouse(270, 138, 5, 5, false);

    end;
    procedure weretoclick6;

    begin

    Mouse(252, 137, 5, 5, false);

    end;

    procedure chooseweretoclick;

    begin
    case random(6) of
     0: weretoclick1;
     1: weretoclick2;
     2: weretoclick3;
     3: weretoclick4;
     4: weretoclick5;
     5: weretoclick6;
    end;
    end;



    procedure makex;
    begin

    wait(1000 + random(300));
    PopUp('Make X');
    wait(1200 + random(300));

    end;

    procedure TypeSend1;

    begin

    typesend('33')

    end;

    procedure TypeSend2;

    begin

    typesend('6457')

    end;

    procedure TypeSend3;

    begin

    typesend('99')

    end;

    procedure TypeSend4;

    begin

    typesend('4356')

    end;

    procedure TypeSend5;

    begin

    typesend('6542')

    end;

    procedure TypeSend6;

    begin

    typesend('222')

    end;

    procedure TypeSend7;

    begin

    typesend('444')

    end;

    procedure TypeSend8;

    begin

    typesend('555')

    end;

    procedure TypeSend9;

    begin

    typesend('66')

    end;

    procedure TypeSend10;

    begin

    typesend('33')

    end;


    procedure choosetypesend;
    begin
    case random(10) of
     0: TypeSend1;
     1: TypeSend2;
     2: TypeSend3;
     3: TypeSend4;
     4: TypeSend5;
     5: TypeSend6;
     6: TypeSend7;
     7: TypeSend8;
     8: TypeSend9;
     9: TypeSend10;

    end;
    end;



    procedure wait1;
    begin
    wait(100 + random(50));
    repeat
    if not LoggedIn then Exit;
    Glog:=Glog+1
    wait(400 + random(300));
    RandomMovement;
    antirandoms;
    if glog=115 then begin writeln('ERROR: taking to long to spin flax'); Logout; exit; TerminateScript end;
    until
    IsChatMessage('out');
    Glog:=Glog-Glog
    end;

    procedure downladder;

    begin
    wait(800 + random(400));
    makecompass('S');
    HighestAngle;
    makecompass('S');
    HighestAngle;
    repeat
    if not LoggedIn then Exit;
    Hlog:=Hlog+1
    makecompass('S');
    HighestAngle;
    FindObj3(  x, y, 'adder'  ,2642028, 8);
    Mouse(x, y, 5, 5, false);
    if Hlog=15 then begin writeln('ERROR: can not find down ladder'); Logout; exit; TerminateScript end;
    until
    PopUp('Climb-down');
    flag;
    antirandoms;
    Hlog:=Hlog-Hlog
    makecompass('N');
    end;


    procedure checkDoor2;
    begin
      makecompass('N');
      makecompass('N');
      makecompass('N');
      makecompass('N');
      repeat
        if (FindObj(x, y, 'Door', 2519700, 4)) or (FindObj(x, y, 'Door', 2652829, 4)) or (FindObj(x, y, 'Door', 2520471, 4)) or (FindObj(x, y, 'Door', 2652829, 4)) then
        begin
          if IsUpText('Open') then
          begin
            Mouse(x, y, 0, 0, False);
            Wait(500+Random(250));
            ChooseOption(x, y, 'Open');
            Flag;
          end else
            Break;
        end;
        Wait(500+Random(500));
      until(false);
      antirandoms;
    end;

    procedure tobank;
    begin
    makecompass('N');
    makecompass('N');
    makecompass('N');
    makecompass('N');

    AngleWalk(150, 65, 4, 4);
    wait(1000 + random(300));
    flag;
    antirandoms;
    end;

    procedure findbank1;

    begin
    makecompass('N');

    if (FindSymbol(x,y, 'bank')) then
        wait(202 + random(6 * 6 / 2 + 5 - 2));
       Mouse(x, y - 2, 4 , 4, true);
      antirandoms;
      flag;
    end;

    procedure bankbstrings;

    begin
         OpenBank3;
         DepositAll;
         CloseBank;
         antirandoms;
         SetRun(true);
         tripsdone:=tripsdone+1;
         bowstrings:=bowstrings+28
    end;

    procedure progressreport;
    begin
    writeln('************************************************************');
    writeln('  THIS SCRIPT IS MADE BY SCARSCAPER4LIFE                    ');
    writeln('  WORKED FOR '+intToStr(Players[CurrentPlayer].Worked)+'    ');
    writeln('  DONE '+inttostr(tripsdone)+' TRIPS SO FAR                 ');
    writeln('  PICKED AN SPUN '+inttostr(bowstrings)+ 'FLAX SO FAR       ');
    writeln('  YOU HAVE MADE'  +inttostr(bowstrings*200)+ 'GP so far     ');
    writeln('************************************************************');
    SRLRandomsReport;
    end;

    procedure loop;

    begin




    end;



    begin
      setup;
      DeclarePlayers;
      loadbtms;
      loaddtm;
      repeat
      login1;
      antirandoms;
      choosepath;
      pickflax;
      choosepath1;
      checkDoor;
      upladder;
      spin;
      chooseweretoclick;
      makex;
      choosetypesend;
      wait1;
      downladder;
      checkdoor2;
      tobank;
      findbank1;
      bankbstrings;
      progressreport;
      loop;
      until
      (tripsdone=amounttrips);
       logout;
    end.

  17. #67
    Join Date
    Apr 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How do I stop my guy from saying random things like "doof"? I don't want people gaining suspicions.....

    Other than that this thing works awesome. I'm gonna leave it on overnight and let it fletch bowstrings. But I wanna turn off the bloody random speech and I don't see any autotalk actions in the script....

  18. #68
    Join Date
    Mar 2007
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    get rid of the functions anti random or whatnot, or edit the included files yourself

  19. #69
    Join Date
    Apr 2007
    Posts
    217
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks good and shite im gonna try it out

  20. #70
    Join Date
    Apr 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Um....I'm not to bright when it comes to editing scripts so can someone remove all the stuff that makes your character say random things like "doof" for me and post the edited script? Please?

  21. #71
    Join Date
    Sep 2006
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nvm

  22. #72
    Join Date
    Feb 2007
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    uhhh im getting this.
    Line 52: [Error] (17410:34): Unknown identifier 'DetectRS2MinimapCompassAngle' in script C:\Program Files\SCAR 3.0\includes\SRL\SRL\Extended\Obsolete.Scar

  23. #73
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by tjrazor View Post
    uhhh im getting this.
    Line 52: [Error] (17410:34): Unknown identifier 'DetectRS2MinimapCompassAngle' in script C:\Program Files\SCAR 3.0\includes\SRL\SRL\Extended\Obsolete.Scar
    ^^^^^^^^^ Same problem..

  24. #74
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    You took some pieces from Flax0r.. ? Your must do because there is so Similar coding (::

  25. #75
    Join Date
    Apr 2007
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 52: [Error] (17410:34): Unknown identifier 'DetectRS2MinimapCompassAngle' in script C:\Program Files\SCAR 3.0\includes\SRL\SRL\Extended\Obsolete.Scar
    how are you supposed to fix this?
    i am trying to see how this works to complacated for a chicken

Page 3 of 6 FirstFirst 12345 ... LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Flax Picker + Spinner
    By Town in forum RS3 Outdated / Broken Scripts
    Replies: 170
    Last Post: 08-29-2007, 12:55 AM
  2. Need auto flax picker, spinner, banker
    By Killmar in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 08-07-2007, 11:19 PM
  3. Flax Picker/Spinner/Banker [EDITED]
    By marneus901 in forum RS3 Outdated / Broken Scripts
    Replies: 19
    Last Post: 07-06-2007, 07:23 AM
  4. Error with flax picker,spinner and banker
    By Crazyiom in forum OSR Help
    Replies: 1
    Last Post: 03-29-2007, 11:28 PM

Posting Permissions

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