So I had a little time to kill and I came up with this Semi-reliable walking method:BoxWalk, It is pretty much just a failsafe version of using find color tolerance, but it's not bad!
Simba Code:
Procedure BoxWalkTolerance(Col,xe,ye,w,h,tol,rm: Integer);
Var
X,Y,T:Integer;
Begin //643 83
If FindColorSpiralTolerance(X, Y, col, xe, ye, w, h, tol) then
Begin
MMouse(RandomRange(X - rm, X + rm), RandomRange(y - rm, y + rm), 0, 0);
ClickMouse2(Mouse_Left)
Wait(RandomRange(200, 400));
If P07_FindMMFlag Then
Begin
MarkTime(T)
Repeat
Wait(RandomRange(50, 150));
Until (P07_FindMMFlag=False) Or (TimeFromMark(T) > 6000)
Writeln('Can no longer find the flag')
End;
End;
End;
How to use:
BoxWalkTolerance(COLOR, X1, Y1, X2, Y2, TOL, RANDOMOFFSET)
Example script:
Simba Code:
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
Procedure BoxWalkTolerance(Col,xe,ye,w,h,tol,rm: Integer);
Var
X,Y,T:Integer;
Begin //643 83
If FindColorSpiralTolerance(X, Y, col, xe, ye, w, h, tol) then
Begin
MMouse(RandomRange(X - rm, X + rm), RandomRange(y - rm, y + rm), 0, 0);
ClickMouse2(Mouse_Left)
Wait(RandomRange(200, 400));
If P07_FindMMFlag Then
Begin
MarkTime(T)
Repeat
Wait(RandomRange(50, 150));
Until (P07_FindMMFlag=False) Or (TimeFromMark(T) > 6000)
Writeln('Can no longer find the flag')
End;
End;
End;
Begin
SetupP07Include;
MouseSpeed := 15;
BoxWalkTolerance(3297113, 632, 101, 655, 112, 15, 5)
End.
All I can say it, it works better then rotated DTM's for me, this just got me from flax feilds to bank 5 times in a row(didn't test anymore cba)
Simba Code:
BoxWalkTolerance(2063699, 597, 73, 615, 96, 7, 3)
BoxWalkTolerance(1932142, 612, 28, 665, 56, 7, 3)
BoxWalkTolerance(1932142, 612, 28, 665, 56, 7, 3)
BoxWalkTolerance(1932135, 628, 17, 663, 44, 7, 3)
BoxWalkTolerance(1932149, 658, 32, 687, 64, 7, 3)
BoxWalkTolerance(4771055, 622, 35, 692, 121, 10, 4)