SCAR Code:
program SwampTarCollector;
{.include SRL/SRL.scar}
{.include SRL/SRL\Skill\Magic.scar} //for lumb home tele
var
i: Integer;
Procedure LumbTele;
begin
end;
Procedure WalkToLumb;
begin
end;
Function SwampCheck: Boolean;//checks if in the swamp
begin
If not (FindMMColorTol(x, y, 7965518, 15)) and not(FindMMColorTol(x, y, 6191915, 20))
Then
Result:= False;
Else
Result:= True;
end;
Procedure PickUpTar;
begin
FindMMColorTol( x, y, 2105598, 10);//find the red color of the item dot
if(not(FindMMColorTol( x, y, 2105598, 10))) Then
begin
SwampCheck;
if (SwampCheck= True) Then
begin
i=0
repeat
wait(1000);//Wait for a swamp tar to respawn
i=i+1;
case Random(25) of//antiban for when waiting
1: RandomRClick;
7: PickUpMouse;
10: PickUpMouse;
17: AlmostLogout;
until(FindMMColorTol( x, y, 2105598, 10) or (i=15);
if(i=15) then //if it waited for 15 seconds without a respawn, reset the place in the swamp
begin
LumbTele;
WalkToSwamp;
end;
end;
Mouse(x, y, 5, 5, True);
Wait(500);
Flag;
FindObjectMulti(x, y, 'ake', 'wamp', 'tar', 3552827, 2434343, 3289655, 10, 20, True, True);
case Random(3) of
0: Mouse(x, y, 10, 10, True);
1: Mouse(x, y, 10, 10, True);
2: begin Mouse(x, y, 10, 10, False);
ChooseOptionEx('ake');
end;
end;
begin
end.