MK, Post An Easy Fix For Now, Till You Get It FlawLess!
13 BETA:
SCAR Code:
Procedure ToThaMine;
Var
RicksRoadWalk: Integer;
begin
MakeCompass('N');
If Not LoggedIn Then Exit;
Players[CurrentPlayer].Loc := 'Moving To The Mine';
WriteLn('');
WriteLn('[To The Mine]');
WriteLn('');
WriteLn('Walking to the mine...');
MasterRoadWalk(FindVarrockRoadColor2, 133, 20, 65, 3, 3, True);
RadialRoadWalk(FindVarrockRoadColor2, 133, 60, 65, 3, 3);
Repeat
RicksRoadWalk := RicksRoadWalk + 1;
If Not LoggedIn Then
Begin
WriteLn('player logged out while walking to the bank...');
Players[CurrentPlayer].Loc := 'Logged Out To Mine';
exit;
End;
If Not RadialRoadWalk(FindVarrockRoadColor2, 127, 228, 55, 1, 1) Then Break;
If (RicksRoadWalk > 2) Then
If FindColorTolerance (x, y, FindStoneColor2, MMX1, MMY1, MMX2, MMY2, 1) Then
If GetInMine Then Exit;
If FindSymbol(X, Y, 'mining spot') Then
Begin
If rs_OnMinimap(X + 5, Y + 5) Then
Begin
MouseFlag(X, Y, 5, 5);
Exit;
End;
End;
Until(RicksRoadWalk > 20)
WriteLn('We did not found the mine, logging out player.');
Players[CurrentPlayer].Loc := 'Not Found Mine';
LogOut;
end;