Have you tried removing the FindFastRandoms function as that is no longer needed in scripts.
DR
EDIT: you also don't have a main loop, try compiling it with these edits
SCAR Code:
{///.-Shady-Shadows Power Miner-. //
By-
ShadowRecon
Edited By-
Matlott, Rasta Magician
Credits-
Thanks To Malott For Help
TuT Iland
What it does
* power mines any ore you set to mine
What it needs work on
* Anti-Ban isnt the greatest, but its better than none.
* Anti-Random isnt the greatest either, but better than none.
My First Script!
INSTRUCTIONS:
Use the eye droper to pick color of rock, then if pick is weilded change
line 127 to (1 to 28) or the autoer will drop pick-axe. HAVE FUN!
}
program ShadowPwrMnr;
{.include SRL/SRL.scar}
var
i,k,x,y,m: Integer;
const
RockColor = 000000;//Change to the Color of the Rock
//////////////////////////////DONT NOT EDIT BELOW!/////////////////////////////
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(6) of
0: begin
HoverSkill('Mining', false);
wait(2000+random(1000));
GameTab(4);
end;
1: begin
HoverSkill('Cooking', false);
wait(2000+random(1000));
GameTab(4);
end;
2: PickUpMouse;
3: begin
GameTab(1 + Random(12));
wait(1000+random(1000));
GameTab(4);
end;
4: begin
case random(4) of
0: TypeSend('mining lvls?');
1: TypeSend('combat levels');
2: TypeSend('Cooking lvls');
3: TypeSend('range levels');
end;
end;
5: MouseBox(MSX1,MMY1,MMX2,MMY2,3);
end;
end;
///////////////////////////////////////////////////////////////////////////
procedure FindRandoms;
begin
FindNormalRandoms;
end;
///////////////////////////////////////////////////////////////////////////
procedure AutoMining;
begin
if (not(LoggedIn)) then Exit;
setupsrl;
k:= 0;
repeat
if invfull then
begin
for m := 2 to 28 do //if axe is weilded
DropItem(m); //change to (1 to 28)
end;
if (FindColor(x,y,RockColor,4,4,514,337)) then
begin
mmouse(x,y,1,1)
Wait(100);
if IsUpTextMulti('ine rock', 'Mine', 'rock') then
mouse(x,y,1,1,true);
wait(3000+random(500))
end else
wait(2000);
until(k=28);
end;
begin
if (not(LoggedIn)) then
Exit;
repeat
AutoMining;
Antiban;
FindRandoms;
end.