Page 2 of 4 FirstFirst 1234 LastLast
Results 26 to 50 of 94

Thread: Ranger's West Varrock Miner and Banker

  1. #26
    Join Date
    Sep 2006
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    When I try it, it just stands at bank and does nothing :O
    Debug box says nothing... I have the includes in right folder too.. Help me.

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

    Default

    jeesus just wait , because of the update some procedures were broken, all of them are fixed now but they need to be tested and put together, so be patient for SRL 3.4

  3. #28
    Join Date
    Sep 2006
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hello everyone , yes this is my first post.
    Dont know if this is helping , but i'm getting the error also :
    Line 193: [Error] (15661:30): Unknown identifier 'BoothColor' in script C:\Program Files\SCAR 2.03\Scripts\warrockwestbankerminer.scar
    Wondering if ur gonna update the problem if i can say so?
    Or is it just me making mistakes, probably cause im not very into coding and stuff , but i know some basics.. anyways ill be glad if i would ge to know what im doing wrong.
    Thanks , oh and ppl you don't need to call me a leecher cause i know i am one...

  4. #29
    Join Date
    Sep 2006
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    stuck

    i starded at most south slot of w-bank but i wont move

  5. #30
    Join Date
    Sep 2006
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I got this error when i tried to run it =(
    Line 28: [Error] (13879:1): Duplicate identifier '' in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\AntiBan.scar

  6. #31
    Join Date
    Oct 2006
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default hey

    nice script dude ima try it out

  7. #32
    Join Date
    Aug 2006
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cant seem to download

  8. #33
    Join Date
    Oct 2006
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey im new and im kind of wundering on ur scrpit it says


    include file c:\program file\ scar 2.03\ includes\srl/srl/skill/mining .scar does not exist

    can any 1 plz tell me were to find this thx

  9. #34
    Join Date
    Aug 2006
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Failed when compiling
    Line 28: [Error] (15687:1): Duplicate identifier '' in script C:\Program Files\SCAR 2.03\includes\SRL\SRL\misc\VarrockWestColorFinder. scar
    watd i do wrong?

  10. #35
    Join Date
    Oct 2006
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This script looks liek it has WAY to many errors, lol i wont even bother testing it

  11. #36
    Join Date
    Sep 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Brandon1793 View Post
    This script looks liek it has WAY to many errors, lol i wont even bother testing it
    Most of the errors are because people ignore the
    GIANT RED TEXT
    within his first post.


    Wow. I've been away quite a while. Real life, yea, way unpredictable. Sorry, y'all, if I've caused any inconvenience.

  12. #37
    Join Date
    Aug 2006
    Posts
    114
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol, i should close this post since i need to integrate the bank booth color into my script, and this only seems to work with the old SRL 3.2. I also need to make SCAR drop the bitmaps it loads. otherwise, eventually there is a "memory leak" and continues to not function. lol, ooooo gees.

  13. #38
    Join Date
    Oct 2006
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I still get the booth color error...

  14. #39
    Join Date
    Sep 2006
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for the script. It doesn't seem to be quite as polished as some I've tried; it doesn't always seem to initialize correctly, but that could be for a multitude of reasons (probably my own fault), and I'm just happy to have a miner+BANKER, as many other's aren't. Plus, I can't complain, I have currently churned out 0 scripts (I'm attempting to change that).

    Thanks again.

    EDIT: And no, the reason for not initializing correctly isn't because I ignored the GIANT RED LETTERS (LOL). I learned my lesson after asking my first dimwitted question on some other topic (the people are really nice here in general and didn't grouch at me).

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

    Default

    what is my problem when i try run it this become( Failed when compiling
    Line 17: [Error] (17:1): 'BEGIN' expected in script C:\Program Files\SCAR 2.03\Scripts\Ranger's West Varrock Miner and Banker.txt)

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

    Default

    yeah im getting same error!

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

    Default

    I'm getting this error : "Line 15: [Error] (15:1): 'BEGIN' expected in script". It looks like a great script from reading it tho

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

    Default

    okay i was asking a friend why the error occurred and he told me and it was fixed.

    Code:
    program New;
    {.include SRL/SRL.scar} {.include SRL/SRL/skill/Mining.scar} {.include SRL\SRL\misc\VarrockWestColorFinder.scar} {/----------------------------------------------------------------------------//
    //                         Ranger135xp's West Varrock:
    //                              Miner and Banker!
    //
    //  1. This is a miner and banker for the West Varrock mines.
    //  2. START in the South-Most bank slot.
    //  3. AntiBan included.
    //  4. For best/any results, Please download the VarrockWestColorFinder.scar
    //         attachment that I have included. AntiBan.scar is Optional(I tweaked
    //         the time settings in the antiban so they work sooner and it does keep
    //         yoou from being banned(at least for me so far...))
    //  5. Enjoy!
    //----------------------------------------------------------------------------/}
     
    //----------------------------------------------------------------------------// var BLadder,BLadder2,MineTree,MineSymbol,StartPlayer
    OreTol,J,H,G,SecondsToWait,Clay,PickaxeMask,
    OreMask,VBank,banksC,TotalOres: Integer; acc2: Extended;
    EquipPick2,AutoColor,NewOres: Boolean;
    RunDir: String;
     
    //----------------------------------------------------------------------------// Procedure SetVars;
    begin
      OreTol:=20; //Tamper with this to get the best results for you
      AutoColor:=True; //Leave this on
      MouseSpeed:=10; //Seems to be best speed... Leave alone
      BenMouse:=False; //Leave False
      StartPlayer:=0; //Leave at 0
      HowManyPlayers:=1; //Leave at 1
      NewOres:=True; //Tamper True/False on this, see which 1 works best for you
      SecondsToWait:=3; //Seconds to wait to click ores
      RunDir:='E'; //Run Direction for fights/fight randoms end;
     
    //----------------------------------------------------------------------------//
     
    Procedure DeclarePlayers;
     
      Begin
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;
     
         Players[0].Name :='';
         Players[0].Pass :='';
         Players[0].Nick :='';  // Short version of your username to spot randoms
         Players[0].Active:=True; //Leave true
         Players[0].String1  := 'Iron';      // Primairy Ore Color
         Players[0].String2  := 'Iron';      // Secondairy Ore Color wont be mined as much as 1.
         Players[0].String3  := 'Iron';      // Third Ore Color, won't be mined as much as 1 and 2.
         Players[0].Boolean1  := False;       // Is The Pick Equipped?
     
        Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
      End;
     
    //----------------------------------------------------------------------------//
     
    Const
     VersionNumber     = '1.0';
     CopperColor       = 4879520;
     TinColor          = 9277080;
     ClayColor         = 4553880;
     IronColor         = 2898528;
     SilverColor       = 12434885;
     CoalColor         = 2834753;
     GoldColor         = 1881051;
     MithrilColor      = 7359564;
     AdamantColor      = 6322272;
     RuniteColor       = 0;
     
    //----------------------------------------------------------------------------// // Mine To Bank; By: Ranger135xp //----------------------------------------------------------------------------//
     
    procedure MinetoBank;
    var RX,RY,EX,EY: Integer; Result2: Boolean;
    begin
    PerfectNorth;
    repeat
        MineTree := BitmapFromString(3, 3, '938D5322290D533815B2A6A7' +
           '22290D533815B2A6A7B2A6A7B2A6A7');
      //While(D<1000) do begin //D:=D+5; If FindDeformedBitmapToleranceIn(MineTree,RX,RY,554,12,746,92,50,1,False,acc2) then begin
          Result2:=True;
          MoveMouse(RX,RY-13);
          Wait(300);
          GetMousePos(EX,EY);
          ClickMouse(EX,EY,True);
          HumanFlag(0);
          Mouse(625,20,2,2,True);
          HumanFlag(0);
        end else SendArrowSilentWait((Random(2)*2)+1, 20 + Random(10));
      end; until(Result2=True);
    end; //----------------------------------------------------------------------------// // Almost1; By Ranger135xp //Walks to the bank part-way //----------------------------------------------------------------------------// Procedure Almost1;
    var AX,AY,BX,BY: Integer; Result3: Boolean;
    begin
    PerfectNorth;
    repeat
       BLadder:= BitmapFromString(2, 12, 'z78DAB370B5303332B1C04B' +
           '9A3A1B391B1843483713572737030869E668626164862C0B21891' +
           '187B031490009A11FB2');
       begin repeat if FlagPresent then Wait(2000);
       until(not(FlagPresent));
         if FindDeformedBitmapToleranceIn(BLadder,AX,AY,554,12,746,92,50,1,False,acc2) then begin
             Result3:=True;
             MoveMouse(AX-18,AY-25);
             Wait(600);
             GetMousePos(BX,BY);
             ClickMouse(BX,BY,True);
           end else SendArrowSilentWait((Random(2)*2)+1, 20 + Random(10));
       end; until(Result3=True);
    end; //----------------------------------------------------------------------------// // Almost2; Finishes the Walk-To-Bank //----------------------------------------------------------------------------// Procedure Almost2;
    var CX,CY,DX,DY,D: Integer; Result4: Boolean;
    begin
    PerfectNorth;
    repeat
       BLadder2:= BitmapFromString(4, 9, 'z78DA337334B13032330393A' +
           'E6E6E266E8696A616C64626A6CE46CE06C61012591CA212537CB0' +
           'A9070065413016');
       begin repeat if FlagPresent then Wait(2000);
       until(not(FlagPresent));
       MakeCompass('N');
         if FindDeformedBitmapToleranceIn(BLadder2,CX,CY,554,12,746,164,50,1,False,acc2) then begin
             Result4:=True;
             MoveMouse(CX-20,CY);
             Wait(600);
             GetMousePos(DX,DY);
             ClickMouse(DX,DY,True);
             Wait(4000);
             repeat if FlagPresent then Wait(3000);
             until(not(FlagPresent));
             HumanFlag(0);
             Mouse(678,63,2,2,True);
             Wait(5000+Random(500));
             repeat
             VBank:= BitmapFromString(5, 3, 'z78DAB33036B734B77435713' +
             '3703380005367236703630869814316C286C81A200164BD00649B' +
             '12DC');
             if FindDeformedBitMapToleranceIn(VBank,x,y,MMX1,MMY1,MMX2,MMY2,35,0,False,acc2) then begin
                 D:=1;
                 MouseFlag(x-6,y-4,1,1);
                 //MouseFlag(x-8,y+2,1,1);
                 HumanFlag(0);
               end else SendArrowSilentWait((Random(2)*2)+1, 20 + Random(10));//SendArrowSilentWait(3,3);
               Wait(1000);
             until(D = 1);
              //If FindColor(x,y,BankColor,MMX1,MMY1,MMX2,MMY2) then //begin //HumanMouseFlag(x,y,1,1,1); repeat if FlagPresent then Wait(2000+Random(1000));
               until(not(FlagPresent));
               //Bank; //end end else SendArrowSilentWait((Random(2)*2)+1, 20 + Random(10));
       end; until(Result4=True);
    end; //----------------------------------------------------------------------------// // Banking; Pieces by: Wizzup? //----------------------------------------------------------------------------// Procedure Bank;
    Var Vx,Vy,kx,ky,LocalOres: integer;
    begin
    LocalOres:=CountItemBmpTol(Ore,50);
    repeat if (FindColorTolerance(kx,ky,BoothColor,MSX1+230,MSY1+137,MSX2-100,MSY2,5)) then begin
           Wait(300);
           MoveMouse(kx,ky);
         end if (IsUpTextMulti('e Booth','Booth','ooth')) then begin
         GetMousePos(Vx,Vy);
         PopUp2(Vx,Vy,1,2,'uickly');
       end if(not(BankScreen)) then Wait(1000+Random(1000));
     
    until(BankScreen);
      if BankScreen then begin
          Wait(Random(1000)+500);
          FixBank;
          begin If(EquipPick2=false)then Deposit(2,28,2);
           Wait(Random(2000)+200);
           if(EquipPick2=true)then begin
                 ClickAllItemsColorWait('All',65536,1000+Random(100));
                 Wait(Random(2000)+200);
               end; end
           CloseBank;
           banksC:=banksC+1;
           TotalOres:=TotalOres+LocalOres;
        end end;
     
    //----------------------------------------------------------------------------// //  Progress Report; By: Wizzup? //----------------------------------------------------------------------------//
     
    procedure ProgressReport;
    begin
      WriteLn(' ');
      WriteLn(' ');
      WriteLn(' ');
      WriteLn('<============== -'+VersionNumber+'- Progress Report ===============>');
      writeln('Worked for '+ TimeRunning);
      WriteLn('Banked '+IntToStr(banksC)+' loads[s].');
      WriteLn('Banked '+IntToStr(TotalOres)+' ores;');
      writeln('Mining Level : '+ inttostr(Players[CurrentPlayer].level[15]));
      WriteLn('<=====================================================>');
      //PlayerStats;
      SRLRandomsReport;
    end;
     
    //----------------------------------------------------------------------------// // WalkToMines; By: Ranger135xp //----------------------------------------------------------------------------//
     
    Procedure WalkToMines;
    var CX,CY,DX,DY,RX,RY,EX,EY,F: Integer; Result5,Result6: Boolean;
    begin repeat
     VBank:= BitmapFromString(5, 3, 'z78DAB33036B734B77435713' +
           '3703380005367236703630869814316C286C81A200164BD00649B' +
           '12DC');
     if FindDeformedBitMapToleranceIn(VBank,x,y,MMX1,MMY1,MMX2,MMY2,35,0,False,acc2) then begin
         F:=1;
         //MouseFlag(x-6,y-6,1,1);
         MouseFlag(x-20,y+6,1,1);
         HumanFlag(0);
       end else SendArrowSilentWait((Random(2)*2)+1, 20 + Random(10));//SendArrowSilentWait(3,3);
       Wait(1000);
     until(F = 1);
     //If FindColorTolerance(x,y,0,612,37,698,115,0) then Mouse(x,y,1,1,true);
     HumanFlag(0);
     Mouse(622,115,2,2,true)
     HumanFlag(0);
     PerfectNorth; MakeCompass('N');
     repeat
     BLadder2:= BitmapFromString(4, 9, 'z78DA337334B13032330393A' +
           'E6E6E266E8696A616C64626A6CE46CE06C61012591CA212537CB0' +
           'A9070065413016');
     MineTree := BitmapFromString(3, 3, '938D5322290D533815B2A6A7' +
           '22290D533815B2A6A7B2A6A7B2A6A7');
      if FindDeformedBitmapToleranceIn(BLadder2,CX,CY,554,80,700,167,50,0,False,acc2) then begin
             Result5:= True;
             MoveMouse(CX-20,CY+15);
             Wait(600);
             GetMousePos(DX,DY);
             ClickMouse(DX,DY,True);
             HumanFlag(0);
             Mouse(642,150,2,2,True);
             repeat if(FlagPresent) then Wait(Random(2000)+600);
             until(not(FlagPresent));
             if(not(FlagPresent)) then
             Mouse(654,129,2,2,True);
             HumanFlag(0);
             Mouse(674,123,2,2,True);
             repeat if(FlagPresent) then Wait(Random(2000)+600);
             until(not(FlagPresent));
             if(not(FlagPresent)) then
             PerfectNorth; MakeCompass('N');
             repeat if FindDeformedBitmapToleranceIn(MineTree,RX,RY,554,12,746,165,50,1,False,acc2) then begin
                    Result6:=True;
                    MoveMouse(RX,RY-11);
                    Wait(300);
                    GetMousePos(EX,EY);
                    ClickMouse(EX,EY,True);
                    HumanFlag(0);
                    repeat
                    MineSymbol:=GetSymbolColor(x,y,'mining spot');
                    Writeln('Mining Symbol Color: '+IntToStr(MineSymbol));
                    Wait(1000+Random(1000));
                    until(MineSymbol > 0);
                    ClickMMColorTol(MineSymbol,10);
                    HumanFlag(0);
               end else SendArrowSilentWait((Random(2)*2)+1, 20 + Random(10));
               Wait(600);
             until(Result6 = True);
         end else SendArrowSilentWait((Random(2)*2)+1, 20 + Random(10));
         Wait(600);
      until(Result5 = True);
    end;
     
    //----------------------------------------------------------------------------// //  AutoColor; By: Wizzup? //----------------------------------------------------------------------------//
     
    Function AutoSetColor:Boolean;
     
    Var Ax,Ay,TempColor:Integer;
     
    Begin
     
    Wait(4000);
     
    WriteLn('AutoColor is now gathering the colors, please wait.');
    Begin If FindObj(Ax,Ay,'ine',OreColor1,9) Then Begin
          TempColor := OreColor1;
          OreColor1 := GetColor(Ax,Ay);
          If Not SimilarColors(TempColor,OreColor1,14) Then Begin
            OreColor1 := TempColor;
            OreTol := 9;
          End Else If Players[0].String1 = Players[0].String2 Then Result := True;
          WriteLn('AutoColor OreColor1 = '+IntToStr(OreColor1));
        End;
     
      If Players[0].String1 <> Players[0].String2 Then
     
      Begin If FindObj(Ax,Ay,'ine',OreColor2,9) Then Begin
          TempColor := OreColor2;
          OreColor2 := GetColor(Ax,Ay);
          If Not SimilarColors(TempColor,OreColor2,14) Then Begin
            OreColor2 := TempColor;
            OreTol := 9;
          End Else If (Players[0].String1 <> Players[0].String3) Or (Players[0].String2 = Players[0].String3) Then Result := True;
          WriteLn('AutoColor OreColor2 = '+IntToStr(OreColor2));
        End; End;
     
      If (Players[0].String1 <> Players[0].String3) Or (Players[0].String2 <> Players[0].String3) Then
     
         Begin If FindObj(Ax,Ay,'ine',OreColor3,9) Then Begin
             TempColor := OreColor3;
             OreColor3 := GetColor(Ax,Ay);
             If Not SimilarColors(TempColor,OreColor3,14) Then Begin
               OreColor3 := TempColor;
               OreTol := 9;
             End Else Result := True;
             WriteLn('AutoColor OreColor3 = '+IntToStr(OreColor3));
           End; End; End End;
     
    //----------------------------------------------------------------------------// //  More Auto Color By: Wizzup? //----------------------------------------------------------------------------//
     
    Procedure TheAutoColor;
     
    Begin If AutoColor Then Begin Repeat
          Wait(50);
          J := J+1;
        Until(AutoSetColor Or (J >4));
        J := 0;
      End; End;
     
    //----------------------------------------------------------------------------// // FindOre; By: Wizzup? //----------------------------------------------------------------------------//
     
    Function FindOre(MaxTol:Integer):Boolean;
     
    Var Tol,Ex,Ey:Integer;
     
    Begin
    H:=H+1;
      For G := 1 to H do Begin Case G Of 1: OreColor:= OreColor1;
          2: OreColor:= OreColor2;
          3: OreColor:= OreColor3;
        End; End; While (Not (FindColorTolerance(Ex, Ey, OreColor, MSX1, MSY1, MSX2, MSY2, Tol)) And Not (Tol > MaxTol)) Do Begin
          Tol:=Tol+1;
        End; If ((FindColorTolerance(Ex, Ey, OreColor, MSX1,MSY1 ,MSX2, MSY2, Tol)) And Not (Tol > MaxTol)) Then Result:=True;
      Tol:=1;
      Wait(10);
    End;
     
    //----------------------------------------------------------------------------// //  TheMinCount; By: Wizzup? //----------------------------------------------------------------------------//
     
    Function TheMinCount(TheNewRocks:Boolean):Integer;
     
    Begin If Not NewOres Then Result := 6 Else Result := 3;
    End;
     
    //----------------------------------------------------------------------------// //  ChangeGas; By: WT Fakawi and Wizzup? //----------------------------------------------------------------------------//
     
    Procedure ChangeGasPixels(Var Gasx,GasY:Integer);
     
    Var
       TempX, TempY: Integer;
     
    Begin If FlagPresent Then Begin If FindColorSpiralTolerance(x,y,OreColor,MSX1,MSY1,MSX2,MSY2,4) Then Begin
            x := TempX;
            y := TempY;
            If CheckOre(x,y,OreColor,4) > 2 Then Begin If Distance(MSCX,MSCY,TempX,Tempy) < 40 Then Begin
                    GasX := x;
                    GasY := y;
                  End; End; End; End; End;
     
    //----------------------------------------------------------------------------// //  Provided by: Wizzup? //----------------------------------------------------------------------------//
     
    Procedure BitMaps;
     
    Begin
     
           Clay := BitmapFromString(4, 4, '86714C89734D8B7650907A52978' +
           '1569781569A8357957E55A1895CA38B5D9F875B9C8559AC9262A8' +
           '8F60A58D5FA1895C');
     
           PickaxeMask := BitmapFromString(18, 12, 'z78DA3330400037' +
           '3030C001F0CB1203DC3000EDEC22D555F4B48B9E3652622FE5AE2' +
           '5DE04EA86097E7B89497B948418252AA99B472889714CBDF42C1F' +
           '7099498BBC836C26005E85072C');
     
           OreMask := BitmapFromString(11, 11, 'z78DA73730301033070436' +
           '2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
           'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
           'B599CC1');
     
    End;
     
    //----------------------------------------------------------------------------// // Randoms; By: Wizzup? //----------------------------------------------------------------------------//
     
    Function FindRandoms(DoFindPick:Boolean):Boolean;
     
    Begin //If HandleTrade Then Result := True; If FindNormalRandoms Then Result := True;
      If FindFight Then Begin Result := True; RunTo(RunDir,True); End; If DoFindPick Then Begin Result := True; FindPick; End; If NoGameTab Then Begin Players[CurrentPlayer].Loc := 'InGameTab'; Logout; Result := True; Exit; End; End;
     
    //----------------------------------------------------------------------------// //  MultiPick; By: Wizzup? //----------------------------------------------------------------------------//
     
    Function IsMultiPick(Equipped:Boolean):Boolean;
     
    Begin If Equipped Then Begin
      GameTab(4);
      If CountItemBmpMaskTol(PickaxeMask,20,25) = 0 Then Begin
        GameTab(5);
        If Not FindBitMapMaskTolerance(PickaxeMask,x,y,MIX1,MIY1,MIX2,MIY2,20,25) Then Result := False
        Else Result := True;
        End Else Result := True;
      End
     
    Else Begin If CountItemBmpMaskTol(PickaxeMask,20,25) = 0 Then Result := True
      Else Result := False;
      End; End;
     
    //----------------------------------------------------------------------------// //  MineIt; By: Ranger135xp, Credit to Wizzup? //----------------------------------------------------------------------------//
     
    Function MineIt:Boolean;
     
    Var
       Dx,Dy,Ex,Ey,GX,GY   :  Integer;
       TempCount                 :  Integer;
    Begin If FindOre(OreTol) Then Begin
        TempCount := InventoryCount;
        Result := True;
        If FindObjOre(Dx, Dy, 'Mine', OreColor, OreTol, TheMinCount(NewOres)) Then Begin
          H:=0;
          If Not GasCheck(Dx, Dy) Then
     
          Begin If Random (9) < 7 Then Begin
              Mouse(Dx, Dy, 0, 0, True);
              ChangeGasPixels(Dx,Dy);
            End; Begin
                Mouse(Dx, Dy, 0, 0, False);
                ChooseOption(Ex, Ey, 'ine');
              End;
                ChangeGasPixels(Dx,Dy);
            If (FlagPresent) Then Begin
                Flag;
                Wait(500+Random(500));
              End;
            MarkTime(Mark);
            While Not ((TimeFromMark(Mark) > (1000 * SecondsToWait)) Or (TempCount <> InventoryCount)) Do Begin If GasCheck(Dx, Dy) Then Begin Mouse(MMCX, MMCY, 2, 2, True); Wait(5001+Random(5001)); End;
                Wait(50);
                FindRandoms(True) End End Else Wait(7000+Random(5000));   // If Gas found..... Then wait. End; End Else If H>2 Then H:=0; if FindMMColor(GX,GY,MineSymbol) then Mouse(GX-9,GY+5,2,2,true);
      if FlagPresent then Wait(3000+Random(1000));
    End;
     
    //----------------------------------------------------------------------------// //  SetOre; By: Wizzup? //----------------------------------------------------------------------------//
     
    Procedure SetOreColor;
     
    Begin Case LowerCase(Players[CurrentPlayer].String1) Of 'copper'  :  OreColor1:=CopperColor;
       'tin'     :  OreColor1:=TinColor;
       'clay'    :  OreColor1:=ClayColor;
       'iron'    :  OreColor1:=IronColor;
       'silver'  :  OreColor1:=SilverColor;
       'coal'    :  OreColor1:=CoalColor;
       'gold'    :  OreColor1:=GoldColor;
       'mithril' :  OreColor1:=MithrilColor;
       'adamant' :  OreColor1:=AdamantColor;
       'runite'  :  OreColor1:=RuniteColor;
     End; Case Lowercase(Players[CurrentPlayer].String2) Of 'copper'  :  OreColor2:=CopperColor;
       'tin'     :  OreColor2:=TinColor;
       'clay'    :  OreColor2:=ClayColor;
       'iron'    :  OreColor2:=IronColor;
       'silver'  :  OreColor2:=SilverColor;
       'coal'    :  OreColor2:=CoalColor;
       'gold'    :  OreColor2:=GoldColor;
       'mithril' :  OreColor2:=MithrilColor;
       'adamant' :  OreColor2:=AdamantColor;
       'runite'  :  OreColor2:=RuniteColor;
      End; Case LowerCase(Players[CurrentPlayer].String3) Of 'copper'  :  OreColor3:=CopperColor;
       'tin'     :  OreColor3:=TinColor;
       'clay'    :  OreColor3:=ClayColor;
       'iron'    :  OreColor3:=IronColor;
       'silver'  :  OreColor3:=SilverColor;
       'coal'    :  OreColor3:=CoalColor;
       'gold'    :  OreColor3:=GoldColor;
       'mithril' :  OreColor3:=MithrilColor;
       'adamant' :  OreColor3:=AdamantColor;
       'runite'  :  OreColor3:=RuniteColor;
      End;
    WriteLn('Standard OreColor1 = '+IntToStr(OreColor1)+'; and Standard OreColor2 = '+
    IntToStr(OreColor2)+'; and Standard OreColor3 = '+IntToStr(OreColor3)+';');
    End;
     
    //----------------------------------------------------------------------------// //  StartScript; //----------------------------------------------------------------------------//
     
    Procedure StartScript;
     
    Begin
      ClearDebug;
      SetVars;
      BitMaps;
     
      DeclarePlayers;
      CurrentPlayer := StartPlayer;
      If not(LoggedIn)then LoginPlayer;
      If LoggedIn then wait(1000);
      
      EquipPick2 := Players[CurrentPlayer].Boolean1;
      FindPickHeadColor;
     
      Players[CurrentPlayer].Level[15] :=GetSkillLevel('mining');
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;
     
    //----------------------------------------------------------------------------// //----------------------------------------------------------------------------//
     
    Procedure DoChat;
     
    Begin
      SetChat('On', 1);
      SetChat('On', 1);
      SetChat('Off', 2);
      SetChat('Off', 2);
      SetChat('On', 3);
      SetChat('On', 3);
    End;
     
    //----------------------------------------------------------------------------// //----------------------------------------------------------------------------// Begin
     acc2:= 0.85;
     SetupSRL;
     SetupSRLMining;
     SetMouseMode(False);
     StartScript;
     DoChat;
     MakeCompass('N');
     AntiBan;
     FindWestVarrockColors;
     repeat
     MakeCompass('N');
     WalkToMines;
     SetOreColor;
     TheAutoColor;
     Wait(2000);
     SetRun(True);
       repeat
        MineIt;
       Until(InvFull);
     SetRun(False);
     MinetoBank;
     Almost1;
     Almost2;
     Bank;
     ProgressReport;
     until(False);
    End.
    in the lind OreTol,J,H,G,SecondsToWait,Clay,PickaxeMask,

    there used to be

    Code:
     ,OreTol,J,H,G,SecondsToWait,Clay,PickaxeMask,
    simply delete the "," from the begining of OreTol and that'll fix that error.
    There was another error after that which I didnt bother to fix cause my friend
    said to make my own basically so yeah.

  19. #44
    Join Date
    Nov 2006
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Man, this looks like a really good script, but I keep getting a bunch of different errors...

    first I had this:
    Failed when compiling
    Line 18: [Error] (18:1): colon (':') expected in script F:\Programs\SCAR 2.03\Scripts\WESTvarrockMINER.scar

    and I saw "OreTol" was at the start of the line.... so... I backspaced so it was on the previous line: var BLadder,BLadder2,MineTree,MineSymbol,StartPlayerOr eTol,
    J,H,G,SecondsToWait,Clay,PickaxeMask,

    As you can see the "StartPlayer" and "OreTol" are 1 function...

    and I get this error :: Failed when compiling
    Line 24: [Error] (24:1): Unknown identifier 'OreTol' in script F:\Programs\SCAR 2.03\Scripts\WESTvarrockMINER.scar

    I thought they were 2, so I put a comma between them like so: var BLadder,BLadder2,MineTree,MineSymbol,StartPlayer,O reTol,
    J,H,G,SecondsToWait,Clay,PickaxeMask...

    Then that is all sorted out... then I come to THIS error:: Failed when compiling
    Line 26: [Error] (26:1): Unknown identifier 'MouseSpeed' in script F:\Programs\SCAR 2.03\Scripts\WESTvarrockMINER.scar


    This script seems really awesome... I don't know if any of the stuff I did was right... But I don't know what to do now.... Any help?

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

    Default

    interesting, i had no errors whatsoever, but the character gets stuck while returning to the bank, it just circles the camera in an endless loop after getting halfway to the bank

    otherwise, ty for including a banking part w/ a powerminer

  21. #46
    Join Date
    Nov 2006
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i thought that a lot of effort was put into this script and i like it
    i am just a first time scripter
    If someone was to call me one word that sums up my personality it would be "PWNAGE" or "1337"

  22. #47
    Join Date
    Nov 2006
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hi looks like a really good script.

    But it aint working. Can someone help me please.
    I get this error message:

    Failed when compiling
    Line 17: [Error] (17:1): 'BEGIN' expected in script C:\Documents and Settings\...\Desktop\Ranger135xp's West Varrock.scar

  23. #48
    Join Date
    Aug 2006
    Posts
    114
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    guys, don't worry, the script will be fixed. i noticed it gets stuck on the way back for me as well, i think it's from the new SRL. I'll have to update my script to fit the newer versions.
    All future scripts CANCELED!
    Eh, I'm done scripting.

  24. #49
    Join Date
    Dec 2006
    Location
    The Underground
    Posts
    134
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea, its getting stuck when he returns back to the bank

  25. #50
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    deos this script actuall works good?

Page 2 of 4 FirstFirst 1234 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Lumbridge West Coal Miner & Banker
    By Rubenos in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 04-24-2008, 06:23 PM
  2. [SRL 4] Varrock West Miner by The Claw
    By The Claw in forum RS3 Outdated / Broken Scripts
    Replies: 218
    Last Post: 11-17-2007, 12:19 AM
  3. First Varrock West Miner&Banker
    By yanix in forum RS3 Outdated / Broken Scripts
    Replies: 11
    Last Post: 08-19-2007, 06:55 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
  •