ok this is what it gives me:
SCAR Code:
Color Picked: 4021889 at (340, 371)
Successfully compiled
Line 868: [Hint] (13557:53): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1478: [Hint] (14167:41): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1489: [Hint] (14178:45): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1500: [Hint] (14189:45): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1511: [Hint] (14200:41): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1522: [Hint] (14211:48): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1537: [Hint] (14226:1): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1568: [Hint] (14257:1): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1595: [Hint] (14284:1): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1622: [Hint] (14311:1): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
SRL Compiled in 7141 msec
LevExidus AutoMiner
By Jvwarrior
Enjoy The Script!
Starting
J
JV
JVW
JVWA
JVWAR
JVWARR
JVWARRI
JVWARRIO
JVWARRIOR
OWNZ THIS SCRIPT!
Found Compass
Successfully executed
it says its all going well but once it says Found Compass it doesnt move!
heres the script:
SCAR Code:
{ LevExidus AutoMiner V.2 ]
[ By Jvwarrior ]
[______________________________]
[ Instructions: ]
[1. First find the ore you ]
[ would like to mine. ]
[ Then click on the color ]
[ picker on your top bar. ]
[ Use the color picker to get]
[ your ore color. ]
[ ]
[2. When you have the ore color]
[ copy and paste it into ]
[ orecolor1 using ctrl+alt+c ]
[ to copy. ]
[ ]
[3. Specifie the RS window ]
[ using the Crosshairs on ]
[ your top bar. Drag them to ]
[ the runescape screen. ]
[ ]
[4. Start the script. Watch as ]
[ SCAR automatically mines ]
[ your ore for you. ]
[ HAPPY CHEATING! ]
[______________________________}
program Pwnerminer;
{.Include SRL/SRL.Scar}
{!*================EDIT ORE COLOR!=================*!}
const
orecolor1 = 4021889;
Loads= 1; //number of loads per character
TotalLoads= 2;//All the loads you want to do
{!*=================OK YOUR GOOD===================*!}
{!*==============NOW EDIT YOUR PLAYER==============*!}
procedure DeclarePlayers;
begin
HowManyPlayers := 6;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Usernmae'; //place your username here
Players[0].Pass := 'Password'; //place your password here
Players[0].Nick := ''; //3 - 4 letters of YOUR username, example: sern
Players[0].Active := True;
Players[1].Name := 'Username'; //place your username here
Players[1].Pass := 'Password'; //place your password here
Players[1].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
Players[1].Active := True;
Players[2].Name := 'Username'; //place your username here
Players[2].Pass := 'Password'; //place your password here
Players[2].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
Players[2].Active := True;
Players[3].Name := 'Username'; //place your username here
Players[3].Pass := 'Password'; //place your password here
Players[3].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
Players[3].Active := True;
Players[4].Name := 'Username'; //place your username here
Players[4].Pass := 'Password'; //place your password here
Players[4].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
Players[4].Active := True;
Players[5].Name := 'Username'; //place your username here
Players[5].Pass := 'Password'; //place your password here
Players[5].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
Players[5].Active := True;
end;
{!*================NO TOUCHING!====================*!}
var
ModBMP, x, y, load, TL: Integer;
procedure LoadBMP;
begin
ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
'430307732774215C71481005743574354BDB84C43560911C1540F' +
'51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
'000AB69B141');
end;
procedure Cred;
begin
Writeln('LevExidus AutoMiner')
Writeln('By Jvwarrior')
Writeln('Enjoy The Script!')
end;
procedure StartMe;
begin
Writeln('Starting')
Writeln('J')
Wait(200)
Writeln('JV')
Wait(200)
Writeln('JVW')
Wait(200)
Writeln('JVWA')
Wait(200)
Writeln('JVWAR')
Wait(200)
Writeln('JVWARR')
Wait(200)
Writeln('JVWARRI')
Wait(200)
Writeln('JVWARRIO')
Wait(200)
Writeln('JVWARRIOR')
Wait(200)
Writeln('OWNZ THIS SCRIPT!')
end;
procedure Mining;
begin
repeat
if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
mouse(x, y, 3, 3, true);
Wait(7000);
case Random(100) of
69: typesend('Mining lvls?');
33: typesend('mining takes so long!');
end;
until (InvFull);
if (InvFull) then DropToPosition(2, 28);
Load:= Load +1;
if (InChat('mining lvls')) then typesend('higher than yours');
if (InChat('mining lvl')) then typesend('higher than yours');
if (InChat('mining lvl?')) then typesend('higher then ures');
end;
procedure DisableChats;
begin
if (not (LoggedIn)) then
Exit;
SetChat('on', 1);
SetChat('off', 2);
SetChat('on', 3);
SetChat('off', 4);
end;
procedure Login;
begin
if (Not(LoggedIn)) then
LoginPlayer;
end;
procedure ScanForMod;
begin
if (findbitmap(ModBMP, x, y)) then
begin
writeln('OMG Mod!');
Logout;
Writeln('Mod Found Ettempting to Evade');
Wait(90000 + random(100000));
LoginPlayer;
end;
end;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 10 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
10: Respond;
end;
wait(1);
end;
end;
procedure FindTheRandoms;
begin
FindTalk;
FindFastRandoms;
FindNormalRandoms;
FindLamp('Mining');
SolvePinball;
if (FindFight) then
begin
MakeCompass('N');
RunTo('N', True);
Wait(7000 + Random(3000));
RunBack;
end;
end;
procedure ABan;
begin
if (not (LoggedIn)) then
Exit;
case Random(8) of
0: RandomRClick;
1: HoverSkill('Mining', False);
2: RandomMovement;
3: BoredHuman;
4: PickUpMouse;
5: AlmostLogout;
6: begin
GameTab(1 + Random(12));
wait(2000 + Random(1000));
GameTab(4);
end;
end;
end;
begin
SetupSRL;
ActivateClient;
Cred;
StartMe;
Load:= 0;
LoadBMP;
repeat
DeclarePlayers;
Login;
DisableChats;
repeat
FindFastRandoms;
FindTheRandoms;
ScanForMod;
ABan;
Mining;
until (Load = Loads);
Nextplayer(true)
TL:= Loads;
until(TotalLoads = TL)
end.