SCAR Code:
program powerminer;
{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Mining.scar}
const
rockcolor1= 472123;//set the color of the rock
rockcolor2= 567243;//set color of rock (these aren't the real colors)
var x,y,randomm: integer;
Procedure DeclarePlayers; // this procedure is used to logg players in
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :='user';//USERNAME
Players[0].Pass :='pass';//PASS
Players[0].Nick :='ser';//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
Players[0].Active:=True;//PLAYER IN USE OR NOT
end;
Procedure Randoms;
Begin
FindTalk; //finds talkin randoms
FindNormalRandoms; //finds normal randoms
SolveChatRandom; //sloves chat randoms
FindLamp('Woodcutting'); //solves lamp and then choses a skill to update
SolvePinball; //solves pinball random
DwarfItem; //dropes dawalf items
If(FindFight)Then //runs away from fight
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
RunTo('W', True);
End;
End;
procedure antiban;
begin
randomm := Random(4)
case randomm of
0: begin
Wait(3591+(random(287)));
RandomRClick;
Wait(3591+(random(287)));
Randoms;
end;
1: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
2: begin
Wait(3294+(random(873)));
Randoms;
HoverSkill('Woodcutting' ,false);
Wait(3294+(random(873)));
end;
3: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
end;
end;
Procedure minerock;
begin
if not LoggedIn then
Exit;
repeat
if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
begin
MoveMouseSmoothEx(x,y, 20,40,45,25,20);
FTWait(1);
clickmouse(x,y,false);
Wait(500+(random(150)));
ChooseOption('ine')
randoms
antiban;
writeln('found rock');
end else
writeln('couldnt find rock');
randoms;
antiban;
antiban;
antiban;
until( InvFull )
end;
procedure Dropit(slot1,slot2: integer);
var
i,beginslot,endslot: integer;
DropPoint: Array [0..27] of TPoint;
begin
DropPoint[0]:= inttopoint(579,230);
DropPoint[1]:= inttopoint(621,230);
DropPoint[2]:= inttopoint(663,230);
DropPoint[3]:= inttopoint(703,230);
DropPoint[4]:= inttopoint(579,266);
DropPoint[5]:= inttopoint(621,266);
DropPoint[6]:= inttopoint(663,266);
DropPoint[7]:= inttopoint(703,266);
DropPoint[8]:= inttopoint(579,303);
DropPoint[9]:= inttopoint(621,303);
DropPoint[10]:= inttopoint(663,303);
DropPoint[11]:= inttopoint(703,303);
DropPoint[12]:= inttopoint(579,339);
DropPoint[13]:= inttopoint(621,339);
DropPoint[14]:= inttopoint(663, 336);
DropPoint[15]:= inttopoint(705, 337);
DropPoint[16]:= inttopoint(578, 371);
DropPoint[17]:= inttopoint(620, 372);
DropPoint[18]:= inttopoint(663, 372);
DropPoint[19]:= inttopoint(704, 372);
DropPoint[20]:= inttopoint(579, 407);
DropPoint[21]:= inttopoint(621, 406);
DropPoint[22]:= inttopoint(663, 407);
DropPoint[23]:= inttopoint(706, 407);
DropPoint[24]:= inttopoint(579, 444);
DropPoint[25]:= inttopoint(620, 444);
DropPoint[26]:= inttopoint(662, 443);
DropPoint[27]:= inttopoint(705, 442);
beginslot:= slot1 - 1;
endslot:= slot2 - 1;
if FindBox then SolveBox;
for i:= beginslot to endslot do
begin
Mouse(DropPoint[i].X,DropPoint[i].Y,6,6,false);
wait(random(10));
ChooseOption('Drop');
wait(random(150));
end;
wait(500+random(500));
if Players[CurrentPlayer].Booleans[2]then
begin
if not(InvCount = 0)then
begin
for i:= beginslot to endslot do
begin
if ExistsItem(i)then
begin
Mouse(DropPoint[i].X,DropPoint[i].Y,6,6,false);
wait(random(10));
ChooseOption('Drop');
wait(random(150));
end;
if (InvCount = 0) then break;
end;
end;
end else
begin
if not(InvCount = 1)then
begin
for i:= beginslot to endslot do
begin
if ExistsItem(i)then
begin
Mouse(DropPoint[i].X,DropPoint[i].Y,6,6,false);
wait(random(10));
ChooseOption('Drop');
wait(random(150));
end;
if (InvCount = 1)then break;
end;
end;
end;
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
minerock;
dropit;
until(false);