SCAR Code:
program GoodRadialWalk;
{.Include SRL/SRL.scar}
var
OreDTM: integer;
procedure FindDummy;
begin
if findsymbol(x,y,'Training Dummy')then
begin
mouse(x,y,5,5,true);
fflag(0);
if FindSymbol(x, y, 'bank')then
Mouse(x, y, 5, 5, true) //Clicks on symbol
FFlag(0);
Exit;
if (not findsymbol(x,y,'Bank'))then
Logout;
end else;
if (not findsymbol(x,y,'Training Dummy'))then
begin
if not(FindMMColor(x,y,RoadColor)) then RoadColor:=FindRoadColor;
RadialRoadWalk(RoadColor, 405, 336, 20, 0, 0);
end;
if FindSymbol(x, y, 'bank')then
begin
Mouse(x, y, 5, 5, true) //Clicks on symbol
FFlag(0);
Exit;
end else;
if (not findsymbol(x,y,'bank'))then
begin
if findsymbol(x,y,'Training Dummy')then
Mouse(x,y, 5, 5, true)
fflag(0);
if FindSymbol(x, y, 'bank')then
begin
Mouse(x, y, 5, 5, true) //Clicks on symbol
FFlag(0);
Exit;
end else
if (not findsymbol(x,y,'bank'))then
Logout;
end;
end;
procedure BankToMine;
begin
setupSRL;
activateclient;
wait(3000+random(300));
makecompass('N');
HighestAngle;
Setrun(false);
gametab(4);
Roadcolor:=FindRoadColor;
wait(500+random(200));
if not(FindMMColor(x,y,RoadColor)) then RoadColor:=FindRoadColor;
Roadcolor:=FindRoadColor;
if not(FindMMColor(x,y,RoadColor)) then RoadColor:=FindRoadColor;
RadialRoadWalk(RoadColor, 39, 72, 70, 0, 0);
fflag(0);
if not(FindMMColor(x,y,RoadColor)) then RoadColor:=FindRoadColor;
RadialRoadWalk(RoadColor, 78, 100, 66, 0, 0);
fflag(0);
if not(FindMMColor(x,y,RoadColor)) then RoadColor:=FindRoadColor;
RadialRoadWalk(RoadColor, 168, 131, 62, 0, 0);
if not(FindMMColor(x,y,RoadColor)) then RoadColor:=FindRoadColor;
RadialRoadWalk(RoadColor, 195, 145, 58, 0, 0);
if not(FindMMColor(x,y,RoadColor)) then RoadColor:=FindRoadColor;
RadialRoadWalk(RoadColor, 191, 157, 62, 0, 0);
if not(FindMMColor(x,y,RoadColor)) then RoadColor:=FindRoadColor;
RadialRoadWalk(RoadColor, 189, 153, 58, 0, 0);
if not(FindMMColor(x,y,RoadColor)) then RoadColor:=FindRoadColor;
RadialRoadWalk(RoadColor, 188, 139, 60, 0, 0);
if not(FindMMColor(x,y,RoadColor)) then RoadColor:=FindRoadColor;
RadialRoadWalk(RoadColor, 195, 148, 60, 0, 0);
RadialWalk( 6186854 , 288, 195, 42, 0, 0);
end;
procedure MineToBank;
begin
activateclient;
wait(3000+random(300));
makecompass('N');
HighestAngle;
Setrun(false);
gametab(4);
Roadcolor:=FindRoadColor;
wait(500+random(200));
if not(FindMMColor(x,y,RoadColor)) then RoadColor:=FindRoadColor;
RadialRoadWalk(RoadColor, 64, 76, 67, 0, 0);
repeat
RadialRoadWalk(RoadColor, 337, 377, 58, 0, 0);
flag;
until(findsymbol(x,y,'Quest'))
RadialRoadWalk(RoadColor, 332, 370, 51, 0, 0);
RadialRoadWalk(RoadColor, 336, 366, 50, 0, 0);
RadialRoadWalk(RoadColor, 321, 346, 30, 0, 0);
MakeCompass('W')
RadialRoadWalk(RoadColor, 405, 336, 65, 0,0);
RadialRoadWalk(RoadColor, 405, 336, 35, 0,0);
begin
if FindSymbol(x, y, 'bank')then
Mouse(x, y, 5, 5, true) //Clicks on symbol
FFlag(0);
if(not FindSymbol(x, y, 'bank'))then
begin
FindDummy; //Waits for flag to dissapear
end;
end;
end;
Function EasyBank:Boolean;//stolen from wizzup?
Begin
Makecompass('N')
LowestAngle;
OpenBankGlass('veb',False,False);
FFlag(0);
Wait(1000);
If BankScreen Then
Begin
Result := True;
Exit;
End;
If OpenBankQuiet('veb') Then Result := True;
End;
procedure BankOres;
begin
OreDTM := DTMFromString('78DA634C636060706740038C48249006A9F12' +
'3A0261F487813A12688809A1C201141847BA209A84902123104D4' +
'C4028944026AA2893007E4DE28026A828930071436A104D484128' +
'E0B0047CA0967');
if FindDTM(OreDTM, x, y, MIx1, MIY1, MIx2, MIY2) then
begin
repeat
mouse(x,y,0,0,False)
ChooseOption(x, y, 'Store All');
FFlag(5);
wait(500+random(250));
until not (FindDTM(OreDTM, x, y, MIx1, MIY1, MIx2, MIY2));
if (not FindDTM(OreDTM, x, y, MIx1, MIY1, MIx2, MIY2)) then
Freedtm(OreDTM);
end;
end;
begin
repeat;
BankToMine;
MineToBank;
wait(5500 +random(2000));
EasyBank;
Wait(10+random(500))
BankOres;
Wait(10+random(500))
CloseBank;
until(false);
end.