Results 1 to 16 of 16

Thread: Help with coal banker

  1. #1
    Join Date
    Dec 2008
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with coal banker

    everything works but the minecoal procedure ... and im so lost .. it just makes no sence why it doesn't work -_- some one pls help me

    and i really hope its not something stupid

    SCAR Code:
    program AutoCoalMinerAndBanker;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/mining.scar}
    {
    |\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/|
    |                Instructions                  |
    |     1. Be next to the coal in barbville      |
    |     3. You MUST be wielding your pickaxe     |
    |     4. Fill out your information             |
    |     5. Run the script                        |
    |                                              |
    |/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\|
    }

    const
    directionToRun='E';
    yourSRLID='';
    yourSRLPW='';


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; //Your runescape username
      Players[0].Nick := ''; //3-4 letters from your username
      Players[0].Pass := ''; //Your runescape password
      Players[0].Pin  := ''; //Your RuneScape bank pin
      Players[0].Strings[0] := 'vwb'; //Do not mess with this
      Players[0].Active := True;

    end;

    procedure Signature;
    begin
      ClearReport;
      AddtoReport(' ____                        ');
      AddtoReport('|  _ \    Made By            ');
      AddtoReport('| | \ \_ __ ___ _ __ _ __    ');
      AddtoReport('| | | | ''__/ _ | `_ \ `_ \  ');
      AddtoReport('| |_/ / | | (_)| (_) |(_) |  ');
      AddtoReport('|____/|_|  \___|  __/  __/ED ');
      AddtoReport('               | |  | |      ');
      AddtoReport('PowerMiner v1.0|_|  |_|      ');
      AddtoReport('StartTime:' +TheTime);
      writeln(' ____                        ');
      writeln('|  _ \    Made By            ');
      writeln('| | \ \_ __ __  _ __ _ __    ');
      writeln('| | | | ''__/_ \| `_ \ `_ \  ');
      writeln('| |_/ / || (_) | (_) |(_) |  ');
      writeln('|____/|_| \___/|  __/  __/ED ');
      writeln('               | |  | |      ');
      writeln('PowerMiner v1.0|_|  |_|      ');
      writeln('StartTime:' +TheTime);
    end;

    procedure SetupScript;
    begin
      Signature;
      SetupSRL;
      DeclarePlayers;
      if not(LoggedIn) then LogInPlayer;
      makecompass('n');
    end;

    function AutoColorCoal2: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
      H, S, L: Extended;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(1);

      FindColorsSpiralTolerance(MSCX, MSCY, arP, 2504504, MSX1, MSY1, MSX2, MSY2, 22);
      if (Length(arP) = 0) then
      begin
        Writeln('Failed to find the color, no result.');
        ColorToleranceSpeed(tmpCTS);
        Exit;
      end;

      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);

      for i := 0 to arL do
      begin
        ColorToHSL(arC[i], H, S, L);

        if (H >= 15.77) and (H <= 16.69) and (S >= 18.29) and (S <= 20.02) and (L >= 13.90) and (L <= 22.57) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);

          if (X >= 1.98) and (X <= 5.03) and (Y >= 2.22) and (Y <= 5.62) and (Z >= 1.47) and (Z <= 3.42) then
          begin
            Result := arC[i];
            Writeln('AutoColor = ' + IntToStr(arC[i]));
            Break;
          end;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);

      if (i = arL + 1) then
        Writeln('AutoColor failed in finding the color.');
    end;

    function AutoColorCoal: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
      H, S, L: Extended;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(1);

      FindColorsSpiralTolerance(MMCX, MMCY, arP, 2570553, MMX1, MMY1, MMX2, MMY2, 24);
      if (Length(arP) = 0) then
      begin
        Writeln('Failed to find the color, no result.');
        ColorToleranceSpeed(tmpCTS);
        Exit;
      end;

      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);

      for i := 0 to arL do
      begin
        ColorToHSL(arC[i], H, S, L);

        if (H >= 15.77) and (H <= 16.69) and (S >= 18.29) and (S <= 20.02) and (L >= 13.90) and (L <= 23.75) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);

          if (X >= 1.98) and (X <= 5.56) and (Y >= 2.22) and (Y <= 6.25) and (Z >= 1.47) and (Z <= 3.84) then
          begin
            Result := arC[i];
            Writeln('AutoColor = ' + IntToStr(arC[i]));
            Break;
          end;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);

      if (i = arL + 1) then
        Writeln('AutoColor failed in finding the color.');
    end;


    procedure MineCoal;// finds the coal and mines it... WICH IS NOT WORKING!!!$@#%#@%*$^#$^##$^#$
    var                                               // AND I HAVE NO IDEA WHY!!!!! It JUST WONT CLICK!!#$@#%#^@$&%&%&&%$
    x,y:integer;
    begin
      FindPick;
      if (FindColor(x,y,AutoColorCoal2,0,0,516,336)) then
      if not (findgas(x,y)) then
      begin
      wait(1000+random(2750));
      MMouse(x,y,0,0);
      if (IsUpText('mine')) then
      mouse(x,y,0,0,true);
      end;
    end;


    procedure BankWalk;// walks to bank once inventory is full.
    begin
      if (InvFull = true) then
      Mouse(506,224,0,0,true);
      wait(4000);
      Mouse(506,224,0,0,true);
      if RadialWalk(FindRoadColor,60,120,85,-1,0) then
      if RadialWalk(FindRoadColor,40,160,40,-1,0) then
      if RadialWalk(FindRoadColor,60,120,40,-1,0) then
      if RadialWalk(FindRoadColor,60,120,40,-1,0) then
      repeat
      RadialWalk(FindVarrockRoadColor,60,120,40,-1,0);
      until(FindBank('vwb'));
      if (FindBank('vwb')) then
      if OpenBank(Players[CurrentPlayer].Strings[0], true, true) = true then
      begin
        if (pinscreen = true) then
        wait(200+random(500));
        InPin(Players[CurrentPlayer].Pin);
      if (BankScreen = true) then
      begin
        DepositAll;
        wait(500+random(500));
        closebank;
        end;
      end;
    end;

    procedure CoalWalk;
    begin
      if invempty = true then
      if RadialWalk(FindVarrockRoadColor,160,200,65,-1,0) then
      if RadialWalk(FindVarrockRoadColor,240,300,40,-1,0) then
      if RadialWalk(FindVarrockRoadColor,240,300,40,-1,0) then
      if RadialWalk(FindRoadColor,60,120,85,-1,0) then
      if RadialWalk(FindRoadColor,40,160,40,-1,0) then
      if RadialWalk(FindRoadColor,60,120,40,-1,0) then
      if RadialWalk(FindRoadColor,60,120,40,-1,0) then
      Mouse(454, 418,0,0,true);
      wait(4000);
      Mouse(454, 418,0,0,true);
    end;

    begin
      SetupScript;
      if (FindPickHeadColor) then
      begin
      repeat
      MineCoal;
      until(invfull = true);
      begin
      BankWalk;
      if (invempty = true) then
      begin
      coalwalk;
      end;
     end;
    end;
    end.
    i'm perty much a noob


    btw i realize my standards r bad and i got kinda lazy on the bankwalk and coalwalk procedures -_-
    thanks for the help
    BarbvilleCoalMinerAndBanker
    80% complete
    AutoPCTrainer
    60% complete

    Quote Originally Posted by whereyouat07 View Post
    [Runtime Error] : Out Of Range in line 68 in script C:\Users\Oliver\AppData\Local\Microsoft\Windows\Te mporary Internet Files\Low\Content.IE5\OB8J6FUC\LumbyNewbie%20V0.9[1].scar

    what the hell is this lol?
    Quote Originally Posted by TravisV10 View Post
    An error (h)

  2. #2
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    instead of:
    SCAR Code:
    if (IsUpText('mine')) then
    try:
    SCAR Code:
    if (IsUpText('Mine')) then

  3. #3
    Join Date
    Dec 2008
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OMFG i new it was something stupid

    thank u sooooooo much ily 4evr
    BarbvilleCoalMinerAndBanker
    80% complete
    AutoPCTrainer
    60% complete

    Quote Originally Posted by whereyouat07 View Post
    [Runtime Error] : Out Of Range in line 68 in script C:\Users\Oliver\AppData\Local\Microsoft\Windows\Te mporary Internet Files\Low\Content.IE5\OB8J6FUC\LumbyNewbie%20V0.9[1].scar

    what the hell is this lol?
    Quote Originally Posted by TravisV10 View Post
    An error (h)

  4. #4
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    lol its ok

    When you do UpText like that you have to make sure its EXACT is all.

  5. #5
    Join Date
    Dec 2008
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i've got one more question, when i use the chooseoption procedure. it doesn't click on the text i tell it to. and its exactly the same. it just does the motions
    BarbvilleCoalMinerAndBanker
    80% complete
    AutoPCTrainer
    60% complete

    Quote Originally Posted by whereyouat07 View Post
    [Runtime Error] : Out Of Range in line 68 in script C:\Users\Oliver\AppData\Local\Microsoft\Windows\Te mporary Internet Files\Low\Content.IE5\OB8J6FUC\LumbyNewbie%20V0.9[1].scar

    what the hell is this lol?
    Quote Originally Posted by TravisV10 View Post
    An error (h)

  6. #6
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Post the line your having trouble with?

  7. #7
    Join Date
    Dec 2008
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure MineCoal;// finds the coal and mines it...
    var
    x,y:integer;
    begin
      AntiRandoms;
      FindPick;
      if (FindColor(x,y,AutoColorCoal2,0,0,516,336)) then
      if not (findgas(x,y)) then
      begin
      wait(3000+random(500));
      MMouse(x,y,0,0);
      if (IsUpText('Mine')) then
      mouse(x,y,0,0,false);
      ChooseOption('Mine');
      end;
    end;
    BarbvilleCoalMinerAndBanker
    80% complete
    AutoPCTrainer
    60% complete

    Quote Originally Posted by whereyouat07 View Post
    [Runtime Error] : Out Of Range in line 68 in script C:\Users\Oliver\AppData\Local\Microsoft\Windows\Te mporary Internet Files\Low\Content.IE5\OB8J6FUC\LumbyNewbie%20V0.9[1].scar

    what the hell is this lol?
    Quote Originally Posted by TravisV10 View Post
    An error (h)

  8. #8
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Try:
    SCAR Code:
    Mouse( x, y, 0, 0, false);
    Wait(RandomRange ( 100, 200 ) );
    ChooseOption ( ' ine ' );
    just let me know if that works

  9. #9
    Join Date
    Dec 2008
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    works =) thank you so much
    BarbvilleCoalMinerAndBanker
    80% complete
    AutoPCTrainer
    60% complete

    Quote Originally Posted by whereyouat07 View Post
    [Runtime Error] : Out Of Range in line 68 in script C:\Users\Oliver\AppData\Local\Microsoft\Windows\Te mporary Internet Files\Low\Content.IE5\OB8J6FUC\LumbyNewbie%20V0.9[1].scar

    what the hell is this lol?
    Quote Originally Posted by TravisV10 View Post
    An error (h)

  10. #10
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    No problem

    Try to not use 'Whole Words' when your using ChooseOption and a little pause (Wait) doesnt hurt between things

  11. #11
    Join Date
    Dec 2008
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm 1 last thing. the findbank('fwb') procedure is kinda glitchy. cuz i get to the bank with radial walk then, then find bank thing makes my char go outside the bank
    BarbvilleCoalMinerAndBanker
    80% complete
    AutoPCTrainer
    60% complete

    Quote Originally Posted by whereyouat07 View Post
    [Runtime Error] : Out Of Range in line 68 in script C:\Users\Oliver\AppData\Local\Microsoft\Windows\Te mporary Internet Files\Low\Content.IE5\OB8J6FUC\LumbyNewbie%20V0.9[1].scar

    what the hell is this lol?
    Quote Originally Posted by TravisV10 View Post
    An error (h)

  12. #12
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    SCAR Code:
    procedure BankWalk;// walks to bank once inventory is full.
    begin
      if (InvFull = true) then
      Mouse(506,224,0,0,true);// Try not to use Exact coord to click something as it is very easily detctable.
      wait(4000);
      Mouse(506,224,0,0,true);// Same here
      if RadialWalk(FindRoadColor,60,120,85,-1,0) then
      if RadialWalk(FindRoadColor,40,160,40,-1,0) then
      if RadialWalk(FindRoadColor,60,120,40,-1,0) then
      if RadialWalk(FindRoadColor,60,120,40,-1,0) then
      repeat
      RadialWalk(FindVarrockRoadColor,60,120,40,-1,0);
      until(FindBank('vwb'));
      if (FindBank('vwb')) then
      if OpenBank(Players[CurrentPlayer].Strings[0], true, true) = true then
      begin
        OpenBankFast('vwb');//You never told the script to Open the Bank
        Wait(RandomRange ( 300, 500);// Waits are good :)
        if (pinscreen = true) then
        wait(200+random(500));
        InPin(Players[CurrentPlayer].Pin);
      if (BankScreen = true) then
      begin
        DepositAll;
        wait(500+random(500));
        closebank;
        end;
      end;
    end;

    Ok try that. It should work but let me know.

  13. #13
    Join Date
    Dec 2008
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    seems to b working

    so wut should i do about the Mouse(506,224,0,0,true);
    cuz i use that so i can get close enough to see the road so the radial walk will pik it up.
    BarbvilleCoalMinerAndBanker
    80% complete
    AutoPCTrainer
    60% complete

    Quote Originally Posted by whereyouat07 View Post
    [Runtime Error] : Out Of Range in line 68 in script C:\Users\Oliver\AppData\Local\Microsoft\Windows\Te mporary Internet Files\Low\Content.IE5\OB8J6FUC\LumbyNewbie%20V0.9[1].scar

    what the hell is this lol?
    Quote Originally Posted by TravisV10 View Post
    An error (h)

  14. #14
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    I would suggest Looking into SRL's CORE Folder, I believe Map Walking is in there. If its not in there then its in Misc or the other one, but look in there and it will show you all kinds of possibilities.

    do that by My Computer-->Local Drive 'c'-->Program Files-->Scar 3.15b-->Srl-->Includes-->SRL-->SRL-->CORE.

    I believe thats correct.

  15. #15
    Join Date
    Dec 2008
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thank you fur all ur help =)
    BarbvilleCoalMinerAndBanker
    80% complete
    AutoPCTrainer
    60% complete

    Quote Originally Posted by whereyouat07 View Post
    [Runtime Error] : Out Of Range in line 68 in script C:\Users\Oliver\AppData\Local\Microsoft\Windows\Te mporary Internet Files\Low\Content.IE5\OB8J6FUC\LumbyNewbie%20V0.9[1].scar

    what the hell is this lol?
    Quote Originally Posted by TravisV10 View Post
    An error (h)

  16. #16
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Anytime

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Edgeville Coal Miner/Banker
    By quiescent_87 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 09-01-2007, 08:30 AM
  2. ~~Also looking for a Coal Miner/banker~~
    By crossbreedxp in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 08-15-2007, 02:50 AM
  3. Barbarian Coal Miner+Banker
    By remy in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 06-10-2007, 11:33 AM
  4. A simple coal miner/bankeR?
    By bilbobaggins in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 03-01-2007, 05:40 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
  •