Code:
program New;
{.include SRL/SRL.scar}
var
a, b, c, d, e, f, g, h, i : integer;
procedure setupvars;
begin
a:= 0;
b:= 0;
c:= 0;
d:= 0;
e:= 0;
f:= 0;
g:= 0;
h:= 0;
i:= 0;
end;
/////
procedure declarebitmaps;
begin
end;
/////
procedure walktoboat;
begin
//
RadialWalk(FindRoadColor, 30, 42, 51, 0, 0);
//
repeat
a:= a + 1;
if(FindSymbol(x,y,'quest')) then
Mouse(x, y, 2, 2, true);
Flag;
until(a = 3);
a:= 0;
//
RadialWalk(2330719, 29, 41, 34, 0, 0);
//
repeat
a:= a + 1;
if(FindSymbol(x,y,'farming spot')) then
Mouse(x, y, 2, 2, true);
Flag;
until(a = 3);
a:= 0;
//
repeat
a:= a + 1;
if(FindSymbol(x,y,'quest')) then
Mouse(x, y, 2, 2, true);
Flag;
until(a = 3);
a:= 0;
//
RadialWalk(2768978, 321, 333, 62, 0, 0);
//
repeat
a:= a + 1;
if(FindSymbol(x,y,'transportation')) then
Mouse(x, y, 2, 2, true);
Flag;
until(a = 3);
a:= 0;
//
If(Findcolor(x, y, 1981013, MSX1, MSY1, MSX2, MSX2)) then
begin
Mouse(x, y, 0, 0, false);
wait(200 + random(50));
ClickOption('ake-boat', 1);
end else
If(Findcolor(x, y, 2707059, MSX1, MSY1, MSX2, MSX2)) then
begin
Mouse(x, y, 0, 0, false);
wait(200 + random(50));
ClickOption('ake-boat', 1);
end else
If(Findcolor(x, y, 2575216, MSX1, MSY1, MSX2, MSX2)) then
begin
Mouse(x, y, 0, 0, false);
wait(200 + random(50));
ClickOption('ake-boat', 1);
end;
end;
begin
//activateclient;
SetupSRL;
setupvars;
declarebitmaps;
walktoboat;
end.
I am a huge noob with radialwalking, that is probably why, I only understand like 80% of my script(Example: I don't understand the flag; I just put it in there cause I saw it in someone else's radialwalking script)... lol