Cazax
2009-01-22 11:13:44
I recently got evil bob random(the island) and I tried the SRL solver.
First bug:
It was supposed to walk to this cat:

and it walked to this cat:

Second bug:
after fishing, it walked to the center, but it walked over the evil cat, so after uncooking the fish it didn't find him.
I made a walk to center:
First bug:
It was supposed to walk to this cat:

and it walked to this cat:

Second bug:
after fishing, it walked to the center, but it walked over the evil cat, so after uncooking the fish it didn't find him.
I made a walk to center:
Function WalkToCenter: Boolean;
Var
TPA : TPointArray;
ATPA : T2DPointArray;
X, Y, Z, ZA : Integer;
TP : TPoint;
Begin
FindColorsTolerance(TPA, 195836, MMX1, MMY1, MMX2, MMY2, 5);
Result := Length(TPA) > 0;
If Result Then
Begin
ATPA := TPAtoATPA(TPA, 5);
Result := Length(ATPA) = 2;
If Result Then
Begin
MiddleTPAex(ATPA[0], X, Y);
MiddleTPAex(ATPA[1], Z, ZA);
TP.X := (X + Z) Shr 1;
TP.Y := (Y + ZA) Shr 1;
Mouse(TP.X, TP.Y, 1, 1, True);
End;
End;
End;