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