SCAR Code:
program OreEater;
{ Post errors on the thread }
{ Declare players in lines 14-24 }
{ Set ore colour line 27 }
{ Must Set ore color or will get errors}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
Const HowManyLoads = 55;// set how many loads to do
var
color : integer ;
x,y,Q, B : integer ;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; //Rs username
Players[0].Pass :=''; //Rs password
Players[0].Nick :=''; //Nickname ex heyidiot nickname would be yid
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
end;
procedure Signature;
begin
Writeln('OreSmasher');
Writeln('Created By Dangerous Garden Tools');
Writeln('Please Post All Errors On My Thread');
Writeln('So That I Can Improve The Script!');
Writeln('Enjoy');
end;
Procedure OreColors;
begin
color := 6564; //color of the ore goes here
end;
procedure CheckFight;
begin
if(FindFight)then
begin
RunAwayDirection('N');
wait(13000);
RunBack;
end;
end;
Procedure FindGass;
begin
if FindGas(x,y)then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
Procedure MineTheRock;
begin
Orecolors;
if FindColorTolerance(x,y,OreColors,MSX1,MSY1,MSX2,MSY2,15)then
begin
FindNormalRandoms;
mouse(x,y,3,4,true)
FindGas;
CheckFight;
end;
end;
Procedure Drop;
var
B : integer;
begin
FindNormalRandoms;
CheckFight;
B := 1;
repeat
MMouseItem(B);
If IsUpText('re')then
begin
DropItem(B);
end;
B := B + 1;
until(B > 27);
end;
Procedure Mining;
begin
repeat
FindNormalRandoms;
MineTheRock;
FindNormalRandoms;
until((InvFull) or (FindNormalRandoms))
Drop;
end;
begin
SetupSrl;
DeclarePlayers;
Q:= 2
repeat
repeat
SetupSrl;
FindNormalRandoms;
Mining;
CheckFight;
Q:= Q + 3;
until(Q = HowManyLoads);
until(CurrentPlayer = HowManyPlayers - 1);
end.
This is my 2nd script, please guys help me out!
Edit: im going for a while need to take a break, this is making my head hurt lol.