SCAR Code:
Function Loc(Where: String): boolean;
Var
symbols: Tstringarray;
begin
case(Where)of
'Bank': begin
if FindSymbol(x, y, 'bank') and FindColor(x, y, FindVarrockRoadColor, MMX1, MMX2, MMY1, MMY2)then
begin
Writeln('Location: Bank');
Result := true;
end;
end;
'Mine': begin
if FindSymbol(x, y, 'mining spot') and FindColor(x, y, FindVarrockRoadColor, MMX1, MMX2, MMY1, MMY2)then
begin
Writeln('Location: Mine');
Result := True;
end;
end;
'Lost': begin
Symbols := ['bank', 'mining spot'];
for i := 0 to 1 do
begin
if(not(FindSymbol(x, y, Symbols[i])) and (not(FindColor(x, y, FindVarrockRoadColor, MMX1, MMX1, MMY1, MMY2)))then
//nextplaya[false]
end else
if TileOnMM(3286, 3365) or FindSymbol(x, y, 'mining spot')then
case Random(1) of
0: WalkToTile(Point(3286, 3365), 2, 0);
1: WalkToTile(Point(3284, 3369), 0, 0);
2: Mouse(x, y, 2, 2, true);
Flag;
end;
if TileOnMM(3254, 3421) or FindSymbol(x, y, 'bank') then
case Random(2) of
0: WalkToTile(Point(3254, 3421), 3, 0);
1: WalkToTile(Point(3251, 3421), 2, 0);
2: Mouse(x, y, 3, 3, true);
Flag;
end;
Writeln('BAK N Track');
Result := False;
Exit;
end;
end;
end;