SCAR Code:
program MarnsSeersBSCollector;
{.include SRL/SRL.scar}
{.include SRL\SRL\Extended\xMapWalk.scar}
{.include SRL\SRL\Extended\xBank.scar}
var
TreeOneColor, TreeTwoColor, TreeThreeColor, FlaxColor, LadderSymbol, TripsDone:Integer;
Const StartPlayer = 0;
TripsToDo = 100;
Bowstrings = 28;
Procedure DeclarePlayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := StartPlayer;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='seers';
Players[0].Active:=True;
end;
procedure Login;
begin
if(not(loggedin)) then LoginPlayer;
end;
procedure ToFlaxFeilds;
begin
TreeOneColor:=211999;
TreeTwoColor:=610088;
TreeThreeColor:=2645822;
FlaxColor:=10638171;
HighestAngle;
MakeCompass('S');
RadialWalk(TreeOneColor, 333, 389, 49, 0, 1);
flag;
writeln('Got To Tree One');
RadialWalk(TreeTwoColor, 333, 389, 75, 0, 1);
flag;
writeln('Got To Tree Two');
RadialWalk(TreeThreeColor, 718, 639, 75, 0, 1);
flag;
writeln('Got To Tree Three');
MakeCompass('N');
RadialWalk(FlaxColor, 74, 127, 44, 0, 1);
flag;
writeln('Got To Flax');
repeat
FindObj(x, y, 'Pick', 14999695, 10);
Mouse(x, y , 1, 1, true);
Findnormalrandoms;
wait(1000+random(500));
writeln('Picked A Flax');
until (InvFull);
writeln('Inventory Full');
end;
procedure SpinningRandoms;
begin
Findnormalrandoms;
Mouse(290, 441, 5, 1, true); // To Take Care Of If You Gain A Level
end;
procedure ToSpinThisFlax;
begin
LadderSymbol:=6224;
writeln('We Finished Getting Flax, Now We Go To Spin It');
RadialWalk(FlaxColor, 253, 316, 75, 0, 1);
flag;
RadialWalk(TreeTwoColor, 284, 315, 75, 0, 1);
flag;
RadialWalk(TreeThreeColor, 303, 331, 70, 0, 1);
flag;
RadialWalk(LadderSymbol, 318, 403, 40, 0, 1);
flag;
repeat
if (FindObj(x, y, 'Door', 2519700, 4)) or (FindObj(x, y, 'Door', 2652829, 4)) or (FindObj(x, y, 'Door', 2520471, 4)) or (FindObj(x, y, 'Door', 2652829, 4)) then
begin
if IsUpText('Open') then
begin
Mouse(x, y, 0, 0, False);
Wait(500+Random(500));
ChooseOption(x, y, 'Open');
flag;
end else Break;
end;
Wait(500+Random(500));
until(false);
MakeCompass('S');
repeat
FindObj3(x, y, 'Ladder' ,2642028, 8);
Mouse(x, y, 1, 1, false);
until PopUp('Climb-up');
MakeCompass('N');
repeat
FindObj(x, y, 'Spin', 14013914, 5);
Mouse(x, y, 5, 5, false);
Findnormalrandoms;
until ChooseOption(x,y,'Spin');
flag;
Mouse(271, 119, 5, 5, false);
PopUp('Make X');
wait(500+random(200));
TypeSend('29');
Findnormalrandoms;
repeat
wait(3000);
SpinningRandoms;
until IsChatMessage('out');
end;
procedure ToBank;
begin
MakeCompass('S');
repeat
FindObj3(x, y, 'Ladder',2642028, 8);
Mouse(x, y, 5, 5, false);
until PopUp('Climb-down');
MakeCompass('N');
repeat
if (FindObj(x, y, 'Door', 2519700, 4)) or (FindObj(x, y, 'Door', 2652829, 4)) or (FindObj(x, y, 'Door', 2520471, 4)) or (FindObj(x, y, 'Door', 2652829, 4)) then
begin
if IsUpText('Open') then
begin
Mouse(x, y, 0, 0, False);
Wait(500+Random(500));
ChooseOption(x, y, 'Open');
flag;
end else Break;
RadialWalk(FindRoadColor, 20, 46, 75, 0, 1);
flag;
RadialWalk(LadderSymbol, 12, 66, 45, 0, 1);
flag;
OpenBank3;
DepositAll;
CloseBank;
TripsDone:=TripsDone+1;
end;
begin
UnSafeDisguiseScar('Google...');
SetupSRL;
DeclarePlayers;
Login;
ToFlaxFeilds;
ToSpinThisFlax;
ToBank;
end.