SCAR Code:
/////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
////////////////////Test///////////////////////////////////////////////
////////////////////and///////////////////////////////////////////////
////////////////////help/////////////////////(What a bad intro)//////
////////////////////me//////////////////////////////////////////////
////////////////////out////////////////////////////////////////////
////////////////////!!!///////////////////////////////////////////
/////////////////////////////////////////////////////////////////
program New;
{.include SRL\SRL.scar}
Procedure WalkToVarrok1;
begin
MakeCompass('n');
SetRun(true);
RadialRoadWalk(FindRoadColor, 70, 40, 70, -1, 0);
repeat
Wait(50+random(100))
until(FindSymbol(x, y, 'guide'))
Mouse(x, y, 5, 5, true)
Flag;
end;
Procedure WalkToVarrok2;
begin
repeat
Wait(50+random(100))
until(FindSymbol(x, y, 'transportation'))
Mouse(x, y, 5, 5, true)
Flag;
end;
Procedure WalkToVarrok3;
begin
RadialRoadWalk(FindRoadColor, 24, 42, 74, -1, -1);
end;
Procedure WalkToVarrok4;
begin
RadialRoadWalk(FindRoadColor,325,460,70, 2, 2)
end;
Procedure WalkToVarrok5;
begin
RadialRoadWalk(FindRoadColor, 310, 410, 70, 2, 2);
end;
Procedure WalkToVarrok6;
begin
RadialRoadWalk(FindRoadColor, 410, 310, 70, 2, 2);
end;
Procedure WalkToVarrok7;
begin
RadialRoadWalk(FindRoadColor, 90, 0, 70, 2, 2);
end;
Procedure WalkToVarrok8;
begin
RadialRoadWalk(FindRoadColor, 90, 0, 70, 2, 2);
end;
Procedure WalkToVarrok9;
begin
RadialRoadWalk(FindRoadColor, 90, 0, 70, 2, 2);
end;
Procedure WalkToVarrok10;
begin
RadialRoadWalk(FindRoadColor, 62, 92, 70, 2, 2);
end;
Procedure WalkToVarrok11;
begin
RadialRoadWalk(FindRoadColor, 320, 400, 65, 0, 0);
end;
Procedure WalkToVarrok12;
begin
RadialRoadWalk(FindRoadColor, 359, 328, 60, 2, 2);
end;
Procedure WalkToVarrok13;
begin
repeat
Wait(50+random(100))
until(FindSymbol(x, y, 'mining spot'))
Mouse(x, y, 5, 5, true)
Flag;
end;
Procedure WalkToVarrok14;
begin
RadialRoadWalk(FindRoadColor, 22, 52, 65, 0, 0);
end;
Procedure WalkToVarrok15;
begin
RadialRoadWalk(FindRoadColor, 359, 325, 65, 0, 0);
end;
Procedure WalkToVarrok16;
begin
repeat
Wait(50+random(100))
until(FindSymbol(x, y, 'quest'))
Mouse(x, y, 5, 5, true)
Flag;
end;
Procedure WalkToVarrok17;
begin
RadialRoadWalk(FindRoadColor, 0, 46, 65, 0, 0);
end;
Procedure WalkToVarrok18;
begin
RadialRoadWalk(FindRoadColor, 277, 304, 65, 0, 0);
end;
Procedure WalkToVarrok19;
begin
RadialRoadWalk(FindRoadColor, 257, 285, 50, 0, 0);
end;
Procedure WalkToVarrok20;
var
Start: Integer;
begin
MarkTime(Start);
repeat
Wait(50+random(100))
until((FindSymbol(x, y, 'bank')) or (TimeFromMark(Start)>=15000))
if(TimeFromMark(Start)>=15000) then
else
begin
Mouse(x, y, 5, 5, true)
Flag;
end
end;
begin
SetUpSRL;
ActivateClient;
Wait(5000);
WalkToVarrok1;
Wait(5000);
WalkToVarrok2;
Wait(5000);
WalkToVarrok3;
Wait(5000);
WalkToVarrok4;
Wait(5000);
WalkToVarrok5;
Wait(5000);
WalkToVarrok6;
Wait(5000);
WalkToVarrok7;
Wait(5000);
WalkToVarrok8;
Wait(5000);
WalkToVarrok9;
Wait(5000);
WalkToVarrok10;
Wait(5000);
WalkToVarrok11;
Wait(5000);
WalkToVarrok12;
Wait(5000);
WalkToVarrok13;
Wait(5000);
WalkToVarrok14;
Wait(5000);
WalkToVarrok15;
Wait(5000);
WalkToVarrok16;
Wait(5000);
WalkToVarrok17;
Wait(5000);
WalkToVarrok18;
Wait(5000);
WalkToVarrok19;
Wait(5000);
WalkToVarrok20;
Wait(5000);
end.