SCAR Code:
Procedure ToMine;
Var i:integer;
Begin
if not(LoggedIn) then exit;
i:=0
HighestAngle;
FallyColor:=FindFallyRoadColor
FindWaterColor;
Players[CurrentPlayer].Loc := 'ToMine';
RadialRoadWalk(FallyColor, 195, 290, 30, 1, 1);
SetRun(True);
MarkTime(MineMark)
Repeat
i:=i+1
if not(FindMMColor(x,y,FallyColor)) then FallyColor:=FindFallyRoadColor;
RadialRoadWalk(FallyColor,230,170,60,0,-1);
until (FindMMDtm(x,y,BankRoad)) or (i=3)
RadialRoadWalk(FallyColor,170,230,60,0,-1);
wait(1000+random(200));
If TimeFromMark(MineMark) > 20000 then
begin
Players[currentplayer].loc:='lost';
repeat
wait(1000);
until not(LoggedIn);
exit;
end;
Mouse(648, 83 + 63, 2, 6, True);
SafeFlag;
Mouse(648, 83 + 63, 2, 6, True);
SafeFlag;
FindRoadColor;
i:=0
Repeat
i:=i+1;
if not(FindMMColor(x,y,RoadColor)) then RoadColor:=FindRoadColor;
RadialRoadWalk( RoadColor, 270, 180, 55, 2, 2);
Until(i=2)
if FindMMDtm(x,y,MineRoad) then
begin
Mouse(x,y,10,10,true)
Flag;
end else RadialRoadWalk(Roadcolor, 270, 180, 50, -1, 1);
HumanMouseFlag(648, 83 + 50, 2, 6, 5);
HumanMouseFlag(648, 83 + 50, 2, 6, 5);
FindSymbol(x, y, 'Mining site');
Mouse(x, y, 6, 6, true);
Flag;
Players[CurrentPlayer].Loc := 'Mine';
End;
blah is just the variable findroadcolor is using