Code:
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
var
x, y, mines: Integer;
const
whichore=varrock_iron;
function FindVarrockRoadColor2: Integer;//ty masterkill
var
GC, a, l, TestColor, Red, Green, Blue : integer;
var
P:array of Tpoint;
begin
disguise('finding road')
GC := 7304312;
Flag;
FindColorsSpiralTolerance(x, y, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
l:=GetArrayLength(P);
for a:= 0 to l-1 do
begin
TestColor := GetColor(P[a].x, P[a].y);
red := (TestColor mod 256);
green := ((TestColor / 256) mod 256);
blue := ((TestColor / 256) / 256);
if Red - Blue <= 12 then if Red - Blue >= 8 then
if Red - Green <= 6 then if Red - Green >= -1 then
if Green - Blue <= 10 then if Green - Blue >= 4 then
if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
if GetColor(P[a].x, P[a].y + 5) = TestColor then
if GetColor(P[a].x + 5, P[a].y) = TestColor then
if GetColor(P[a].x, P[a].y + 3) = TestColor then
if GetColor(P[a].x + 3, P[a].y) = TestColor then
if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
begin
Result := TestColor;
Exit;
end;
end;
disguise('coudlnt find road color')
WriteLn('Could not find Varrock Road Color!');
Result := 0;
if(FindVarrockRoadColor2 = 0)then
TerminateScript;
end;
procedure ToBank;//ty master kill for some of it
var
x, y,ladderDTM: Integer;
begin
ladderDTM := DTMFromString('78DA636C636260F062400151861C0CC2409A1' +
'188FF0301633776350C5035601AA4C687809A3622D5F811611731' +
'6AFC89501340847B88511348845D04D400005E7C13C6');
disguise('to the bank')
If Not LoggedIn Then Exit;
RadialRoadWalk(FindVarrockRoadColor2, 5, 50, 70, 1, 1);
FFlag(10);
RadialRoadWalk(FindVarrockRoadColor2, 337, 385, 65, 1, 1);
repeat
If Not LoggedIn then
begin
WriteLn('Player logged out while walking to the bank.');
Players[CurrentPlayer].Loc := 'Logged Out To Bank';
Exit;
end;
until (FindSymbol(x, y, 'bank'));
end;
procedure setup;
begin
setupsrl;
setupmining;
end;
procedure getinbank;
var Bankers,x,y: Integer;
begin
disguise('get in bank')
Bankers := DTMFromString('78DA636C666660B065640001560608D8B0A69' +
'76119508811CA67AC06AA7187F098A1627FFE3031483220A96901CAB' +
'81150D3039471C1AF060092960C0C');
if DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
Mouse(X-2, Y, 0, 0, True);
Flag;
if not DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
radialRoadWalk(FindVarrockRoadColor2, 170, 360, 65, 1, 1);
end;
procedure free;
var Bankers: Integer;
begin
FreeDTM(Bankers);
end;
procedure DontBanMeBro;
begin
If(not LoggedIn)then Exit;
Case Random(12) of
0: MMouse(Random(MSX2),Random(MSY2),0,0);
1: HoverSkill('random',false);
2: PickupMouse;
3: GameTab(1+Random(12));
4: SleepAndMoveMouse(400+Random(1500));
5: if Random(2) = 1 then MMouse(1, 338, 515, 165);
6: if Random(2) = 1 then MMouse(515, 1, 250, 503);
7: RandomMovement;
8..11:
begin
case Random(3) of
0: begin
KeyDown(VK_RIGHT);
Wait(500+Random(2000));
KeyUp(VK_RIGHT);
end;
1: begin
KeyDown(VK_Left);
Wait(500+Random(2000));
KeyUp(VK_Left);
end;
2: begin
case Random(2) of
0: begin
KeyDown(VK_RIGHT);
Wait(500+Random(1400));
KeyUp(VK_RIGHT);
end;
1: begin
KeyDown(VK_Left);
Wait(500+Random(1400));
KeyUp(VK_Left);
end;
end;
end;
end;
end;
end;
end;
procedure Minethestuff;
begin
repeat
if FindObjRock(x, y, WhichOre)then
begin
Disguise('Found primary rock... mining');
Case (Random(3)) of
0,2 : begin
Mouse(x, y, 2, 2, False);
Wait(Random(100));
ChooseOption('Mine');//otherwise it may Examine
end;
1 : Mouse(x, y, 2, 2, True);
end;
wait(5000 + random(300));
Inc(mines);
AntiBanz;
until(invfull)or(mines = 30)<--------- right ehre is the error spot
end;
begin
setup;
minethestuff;
FindVarrockRoadColor2;
makecompass('n');
tobank;
getinbank;
free;
end.
ok so i get htis error