Ranger's West Varrock Miner and Banker

[Ranger135xp]

This is my West Varrock Miner and Banker. It's still a little bit buggy, but works for the most part.


Version 2.5
Released
1/1/07!


------------------------------------------------------------

That's right, I got the fix completed. New Tolerance finder, and new RangerFunctions include. MUST BE DOWNLOADED


------------------------------------------------------------

Instructions


Download both files
Install RangerFunction.scar to your SRL directory (includes/SRL)
Tamper with the settings of the script if u wish
Set your player name etc. in DeclarePlayers;


Be sure to do ALL of those in order to get it working.

Known Bugs:

Walking back
Possible bank finding
Finding the right iron rocks
Not finding the 1 tree (can be a prob, hopefully not)
May go off track (still unknown)


Plz test it and tell me your results!


Prog:
1/1/07 - Fixed the script! (For the most part)
Works for me, let me know of any problems.
NOTE: A total re-vamp was not done! Maybe some other time...

12/10/06 - Fixed the Memory leak from not freeing the bitmaps. Fixed clicking on the mining symbol almost constantly. Fixing the gas finding procedures(will be close to 100%)

[Browning1981]

Anybody want to go first and make sure they are clean? BTW, where do the attachments go to?


*Edit*

They're clean. Im going to give it a shot.


Edit #2

Roadcolor not found:(

[Ranger135xp]

Store VarrockWestColorFinder in Scar's path\includes\SRL\SRL\misc
Store the AntiBan in Scar's path\includes\SRL\SRL\core
That is where you store them. Try again, it'll find the road color if your in the sout-most bank slot.

[Browning1981]

Well it worked once. I changed to a mith pick, and tried it again. IT gets the colors and everything, but doesnt leave the bank.

Edit*

Stuck at the bank ftl

http://www.hostmypiconline.com/images/stuckbank.JPG

[Browning1981]

I figured the closebank problem out. For those of you who are getting stuck when its time to close bank. In the script where it has Closebank; simply and another Closebank; on the following line:biggrin:

[Cheesehunk]

I figured the closebank problem out. For those of you who are getting stuck when its time to close bank. In the script where it has Closebank; simply and another Closebank; on the following line:biggrin:
This is better:
while BankScreen do
begin
CloseBank;
wait(100+random(100));
end;
You could add a time marker, but it doesn't matter. The loop will Exit itself if the script lags, and logs out, because there is no BankScreen.

[Browning1981]

Cool, Ill try that. Could you look at my last post on the guild raper thread? I really want to figure that out

[Ranger135xp]

Cool, Ill try that. Could you look at my last post on the guild raper thread? I really want to figure that out

Actually, I don't remember how i fixed it... :confused:

[zimban1]

Line 193: [Error] (15354:30): Unknown identifier 'BoothColor' in script

and i am in the south most bank spot

[Ranger135xp]

Line 193: [Error] (15354:30): Unknown identifier 'BoothColor' in script

and i am in the south most bank spot

because yoou did not download the files I attached. can't you ppl read?

[Sumilion]

Nope, they can't :f:

[WhiteShadow]

because yoou did not download the files I attached. can't you ppl read?


Why don't you just implement those procedures inside your script? It's much smarter.... :duh:

[axel2]

its a great script for me up until it has to bank. It runs about half way to the bank and then just stops. Help pl0x. I downloaded everything you said

[Pyro]

Ahhh reading through script. This is really wizzys minus the walking. No credit given when most of the script is his?

[Ranger135xp]

there is credit within the script, is that not enough? i'll gladly give more credit

[axel2]

........please.....i would really like to get this script working....its the only banking script ive found.....sorry for being a noob....and maybe double posting..i dont know..GAH

[zeicca]

Looks like a bit complicated :) (All those 1. 2. 3. ores etc) But i think im going to try it. Im planning to make a varrock east miner and banker for my first big project in pascal :P

[lizhang]

Failed when compiling
Line 193: [Error] (15006:30): Unknown identifier 'BoothColor' in script C:\Program Files\SCAR 2.03\Scripts\miner.scar

done everything said however i got that error

[Sumilion]

It's in big cow letters on the top page :(

[thunderwolf]

It works pretty good for me. It does like to go back to the middle of the mining area after each ore mined, then go back to the ore. If you could just get it to go from ore to ore without going back to the middle it would be much more life like. It also ran away from the mugger nicely and anther random that I had. I found my way back and started mining again. Banks nicely.

Nice work, Thanks. I'm looking forward to the next release of this script.

[nomember]

Nice piece of work. when i get enough time, i would write some scripts too :D

[lizhang]

oops, well i did pm him but he is busy at the moment

[Yeoldenite]

Ahh... I must thank you even before testing it. I have been able to successfully compile it and with that only I am happy. Anyways I will edit this post after trying it out and if it works then you are my hero. <3<3<3

EDIT:// Below

[Yeoldenite]

Here's an update. Works well. Started at Varrock East Bank, used script. It took me to the mine properly. Started mining, got attacked by muggers a few times. Got away, but it was a bit slow. Got a random and a mysterious man came up to me. The script did nothing and he teled me to wizard tower. A little work needed there.

Are there even any random event protection in this script? Anyways, hope this gets fixed. Thank you.

[I Pick Axes]

If I overwrite my existing files, will they still work with other scripts that may need them?

[jeesus]

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.

[Sumilion]

jeesus just wait :p, 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

[Dogss]

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...

[zion]

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

[Hirosaki]

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

[h4xm4s4x]

nice script dude ima try it out:spot:

[bkblood]

cant seem to download

[runescapepro]

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

[wtf i sp4nk]

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?

[Brandon1793]

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

[I Pick Axes]

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.

[Ranger135xp]

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.

[mohua]

I still get the booth color error...

[Kronos]

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).

[k4supur3]

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)

[WileyCoyot]

yeah im getting same error!

[koolest guy]

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

[WileyCoyot]

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




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,1 2,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' +
'9A3A1B391B1843483713572737030869E668626164862C0B2 1891' +
'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' +
'E6E6E266E8696A616C64626A6CE46CE06C61012591CA21253 7CB0' +
'A9070065413016');
begin repeat if FlagPresent then Wait(2000);
until(not(FlagPresent));
MakeCompass('N');
if FindDeformedBitmapToleranceIn(BLadder2,CX,CY,554,1 2,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' +
'3703380005367236703630869814316C286C81A200164BD00 649B' +
'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' +
'3703380005367236703630869814316C286C81A200164BD00 649B' +
'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' +
'E6E6E266E8696A616C64626A6CE46CE06C61012591CA21253 7CB0' +
'A9070065413016');
MineTree := BitmapFromString(3, 3, '938D5322290D533815B2A6A7' +
'22290D533815B2A6A7B2A6A7B2A6A7');
if FindDeformedBitmapToleranceIn(BLadder2,CX,CY,554,8 0,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,1 2,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,MS X2,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' +
'1569781569A8357957E55A1895CA38B5D9F875B9C8559AC92 62A8' +
'8F60A58D5FA1895C');

PickaxeMask := BitmapFromString(18, 12, 'z78DA3330400037' +
'3030C001F0CB1203DC3000EDEC22D555F4B48B9E3652622FE 5AE2' +
'5DE04EA86097E7B89497B948418252AA99B472889714CBDF4 2C1F' +
'7099498BBC836C26005E85072C');

OreMask := BitmapFromString(11, 11, 'z78DA73730301033070436' +
'2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC 5022' +
'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0 600F' +
'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


,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.

[mankeyboy99]

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?:confused:

[fireflash38]

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

[thekubis]

i thought that a lot of effort was put into this script and i like it
i am just a first time scripter

[Lolanator]

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

[Ranger135xp]

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.

[Wool]

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

[the scar noob]

deos this script actuall works good?

[syberium]

ya te link is gone guys he fixing script... so just hang tight =] i cant wait for this ive wanted a varrock miner and banker so bad! (i tryed making my own.. lol u dont even wanna know how it turned out.. rofl) =p

[Ranger135xp]

Ok, v2.5 released. Try it out peeps!

[syberium]

ok it seems like a well written script! nice job ranger =] BUT when it walks back.. it clickes to the right of that house with the guards in it and my person walks all the way around.. =S ending up by the general market.. ne1 else get this problem?

[julle13]

Why this isn't for multiple accounts?

[WhiteCry]

When i get full inventory with ores i'm getting stuck near the bank booth. Nothing happens. The cursor just jumping around. If i open bank booth manualy everything is perfect. Another lap till the bank. You should work on it, or maybe i'm the only one who's getting this?

[Ranger135xp]

ya, i had no time to test the final run, so i threw that 1 click in there to c if that would help, guess it didn't for u. and idk y it's not banking for you. hmm, have to work on that...

[GnoMs]

And you should work on anti-randoms. Maybe just include ready script, because when i was testing i got owned my frogs. That's s*x. Everything else is perfect. The script is realy good. Just you should work on some little things. Well first fix the bug with the boothing. Player clicks on players who is standing near the booth, not on the bank. I suck at basic so i can't help you with this. Good luck, waiting for new release.

[Wool]

Ill give it a try and let you know what happens :D

[Wool]

Question,
The game lags alot while heading back to the bank to store. Anything I can change to speed it up? :D

[WhiteCry]

When you'll fix the bug with opening booth? Can't wait! :)

[WT-Fakawi]

your FindDeformedBitmapToleranceIn calls wont work properly Ranger135xp. FindDeformedBitmapToleranceIn returns an extended match value in acc. You dont do anything with that, thus it will result true at all times (except for 0). Thats wrong :)

Also, it is relatively easy to make this script Multiuser...Why keep it at 1? And put in some if not loggedin then exit; checks, otherwise your script will get stuck...

And, there is a lot of useless waits in your script which WILL cause you script to miss randoms. Replace them with FTWait

Why dont incorporate the include at the top of your script. So much more convienent...(and rangerfunction.scar is not a part of SRL, why put it in there?)

Other then that, better copied good then badly written :)


Keep it up.

[Ranger135xp]

Other then that, better copied good then badly written :)


Keep it up.

excuse me... but... huh?

[Pentti]

Has Wizzup? made about 75% of this script? It looks like almost all of procedure is made by Wizzup?.

[Ranger135xp]

Has Wizzup? made about 75% of this script? It looks like almost all of procedure is made by Wizzup?.

Still, having to put those together is still knowing "how to". I passed their test with this script. plus, i don't just copy and paste, I work the bugs out of some of those procedures and write failsafes and fixes into them.

I obviously know what I'm doing for the most part if I got Fawki and Wizzy's mining guild script to work really nicely and almost flawlessly. By which, I may post in the members section sometime.


It looks like almost all of procedure is made by Wizzup?.

Um, SRL is a whole include of procedures and functions written by other people. so ur saying that all SRL scipts are not the author's work? so what if I happen to like wizzy's mining procedures, they work really good. in fact, I even have his powerminer ad I fixed it to power mine iron down in Rimmington and now I have an army. Want me to post that too? I got proof this all works.

Now i'm making 3 scripts. East Varrock Miner and banker (0%), Draynor - Lumby Miner and banker (30%), and a willow cutter and banker for Draynor based off a DTM (47%). :spot:

[lolpie]

It's pretty good until it finishes mining and goes back up to the bank. Then it just lags my computer and wont find the bank :(. Other than that, I rate it a 7/10 :D

[jgcw]

how can i instal the ranger stuf in srl

im sorry im new but im learning fast

[evokki]

it's starts to walk bank but won't walk to bank :( .... and if i mine iron it will mine sometimes clay.....

[Mjordan]

it's starts to walk bank but won't walk to bank :( .... and if i mine iron it will mine sometimes clay.....

make sure you downloaded both attachments.

[evokki]

OK!... Now its working fine exept it can't find bank booth.... cant wait fix!!! thats realy great!!!

[XxEricxX]

ya mines gets to the bank and cant find the booth lol

[jgcw]

hi where can i find the varrock colour and the antiban ???

do i need to download it or somthing?

[lolpie]

For those with banking problems, look for the banking procedure and take out the stuff after Fixbank; and put in OpenBank or OpenBank3. It worked fine for me after that. Just remember to put Closebank too :)

[GnoMs]

Could you post here your fixed banking procedure? Please?

[lolpie]

Could you post here your fixed banking procedure? Please?

Replace Procedure Bank; with this...


Procedure Bank;
Var LocalOres: integer;
begin
LocalOres:=CountItemBmpTol(Ore,50);
OpenBank3;
DepositAll;
CloseBank;
banksC:=banksC+1;
TotalOres:=TotalOres+LocalOres;
end;

I never scripted anything in my life so it took me forever to figure out, so rep me if it works for you :)

[XxEricxX]

1 problem with that it stores the pickel if u dont have it equiped =(

[julle13]

Then just remove the DepositAll; and put the Deposit(2,28); or something like that for example.

[JokeAss]

Hmm. Mine goes to mine allright, fine fine, but does not allways find the bank. Worked a little better after I changed the color, but...

When it does get to bank, it sometimes jam.

By the way, credz for only working iron banker I found ;)

[lolpie]

When it does get to bank, it sometimes jam.

That has to do with SRL, not the script itself

[Jaanus666]

Does everything allmost perfectly but never found bank and 3 times got killed allmsot in the mining area... but script is nice i must say little bit work and (Y)

[lolpie]

If it doesn't find the bank, try using OpenBank; instead of OpenBank3;. You gotta experiment for it to work good :D

[seifer699]

does anyone have a working modded script of this?

[speed d]

pretty buggy, i hope you can fix
it would be easier to include extra files in script

[criz]

so what does the error:

Line 26: [Error] (34:1): Duplicate identifier 'UpChars' in script C:\Program Files\SCAR 3.03\includes\srl\srl\core\Globals.scar

mean?

did i not install this right?

[miggy]

Can anyone post their whole script, that works, cause im gettinging so many errors

[lolpie]

I don't think is being updated anymore, try Pentti's script instead

[RudeBoiAlex]

ermmm this was released on 1st jan it very outdated and varrok has updated so this will not work

[takemu]

Include file C:\Program Files\SCAR 3.06\includes\SRL\SRL.scar does not exist.
Include file C:\Program Files\SCAR 3.06\includes\SRL\SRL\skill\Mining.scar does not exist.
Include file C:\Program Files\SCAR 3.06\includes\SRL\SRL\misc\VarrockWestColorFinder. scar does not exist.
Include file C:\Program Files\SCAR 3.06\includes\SRL\RangerFunction.scar does not exist.
Failed when compiling

(and yes, i did download both)

[lolpie]

Download SRL..............

[Kakashi101]

When I go to download the file it downloads it to notepad any body know how i can change it to program files or anything to get it to download?:confused:

[lord19931014]

when i compile i get Line 228: [Error] (15872:1): Unknown identifier 'PopUp2' in script, i have SRL 3.81 SCAR Divi 3.11, already downloaded both files, and placed them where them should be... can some1 help me??

[NiCbaZ]

OUTDATED

[Dumpin]

07-25-2007, 02:28 PM

Ffs... People would reconize it themselfs... now y posted here noobs will
spam it..

MOD PLEASE CLOSE THIS

[spoonbeater]

NEEDS TO BE UPDATED MAJOR

i got arandom rightafter starting it

[skilld u]

this is waaaay outdated.

close pl0x.