Hey all,
Do you have an account what is middle of Beekeeper Random, would i go log in it and i could try work with Bee Random ?
~Home
Hey all,
Do you have an account what is middle of Beekeeper Random, would i go log in it and i could try work with Bee Random ?
~Home
Lol, I wouldn't try to solve it with SCAR...
The jealous temper of mankind, ever more disposed to censure than
to praise the work of others, has constantly made the pursuit of new
methods and systems no less perilous than the search after unknown
lands and seas.
But i try :P
Wha..? I thought this was already solved in your flax picker.. :S
Send SMS messages using Simba
Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!
Hasn't it been solved by a few people already?
Interested in C# and Electrical Engineering? This might interest you.
SCAR Code:program New;
{.include SRL\SRL.scar}
var
x, y: Integer;
Bee: Array[0..3] of Integer;
BoxArray: TBoxArray;
procedure DeclareDTMs;
begin
Bee[3] := DTMFromString('78DA63DCC6C0C0709D0105AC5DB890811F483' +
'302F17F20603C0F64BC4555B36CF62CB81A10609C0324DEA1AA59' +
'3C633AAA9A2940E226AA9A6DAB57A1AAB90C246EA1AA99DCD989A' +
'20600DCDF158B');
Bee[2] := DTMFromString('78DA63FCC2C0C0F09E0105880A0A32F003694' +
'620FE0F048C37808C87A86AF66CDE0C5703028CD780C4275435BB' +
'366C80C8C1D4F00359F751D5AC9E3F1FD51C6120EB0BAA9A39132' +
'7A2AAF90C241EA0AAD9B67A158A1A0037F817A7');
Bee[1] := DTMFromString('78DA6364656460B8C48002766FDCC8C00FA48' +
'1320CFF8180F12590710C55CDA15D3BE16A4080F10990B883AAE6' +
'E89E3DA86A9480ACE3A86A56CD9B8BAA460DC8BA8BAA66D6847E5' +
'435FF31EDDAB96E2DAA1A5E4CBBB6AC5A89A2060093191BA1');
Bee[0] := DTMFromString('78DA639CCDC0C0708701055CBF7491811F483' +
'302F17F2060AC05329EA3AA7970FB365C0D0830760289CBA86A9E' +
'3F7982AA662690388DAAE6C2C993A86AD600896BA86AF66DD982A' +
'A662BA67B56CF9F8FAA660E90788DAA66D7860D286A0066D81EFE' +
'');
end;
procedure MovePiece(Num: Integer);
begin
case Num of
1: MouseBox(138, 279, 159, 299, True);
2: MouseBox(191, 258, 209, 284, True);
3: MouseBox(308, 270, 336, 288, True);
4: MouseBox(350, 268, 378, 288, True);
end;
end;
procedure MoveToSpot(Num: Integer);
var
Move, i: Integer;
begin
FindDTM(Bee[Num - 1], x, y, MSX1, 180, MSX2 - 150, MSY2);
if (x > 335) then Move := 3 else
if (x < 200) then Move := 4;
repeat
MovePiece(Move);
for i := 0 to 5 do
begin
Wait(100 + Random(400));
if (FindDTM(Bee[Num - 1], x, y, 210, 185, 335, 250)) then Exit;
end;
until (FindDTM(Bee[Num - 1], x, y, 210, 185, 335, 250));
case Num of
1: repeat
MovePiece(1);
for i := 0 to 5 do
begin
Wait(100 + Random(400));
if (FindDTM(Bee[Num - 1], x, y, 210, 25, 335, 75)) then Exit;
end;
until (FindDTM(Bee[Num - 1], x, y, 210, 25, 335, 75));
2: repeat
MovePiece(1);
for i := 0 to 5 do
begin
Wait(100 + Random(400));
if (FindDTM(Bee[Num - 1], x, y, 210, 80, 335, 125)) then Exit;
end;
until (FindDTM(Bee[Num - 1], x, y, 210, 80, 335, 125));
3: repeat
MovePiece(1);
for i := 0 to 5 do
begin
Wait(100 + Random(400));
if (FindDTM(Bee[Num - 1], x, y, 210, 140, 335, 175)) then Exit;
end;
until (FindDTM(Bee[Num - 1], x, y, 210, 140, 335, 175));
4: while not FindDTM(Bee[Num - 1], x, y, 210, 185, 335, 230) do
begin
MovePiece(1);
for i := 0 to 5 do
begin
Wait(100 + Random(400));
if (FindDTM(Bee[Num - 1], x, y, 210, 185, 335, 230)) then Exit;
end;
end;
end;
end;
function FindFirstPiece: TPoint;
var
Points: TPointArray;
ax, ay: Integer;
begin
if (FindColorSkipBoxArrayTolerance(x, y, 9605789, 88, 75, 276, 172, 15, BoxArray)) then
begin
FindColorsSpiralTolerance(ax, ay, Points, GetColor(x, y), x - 50, y - 50, x + 50, y + 50, 30);
if (GetArrayLength(Points) > 2000) and (GetArrayLength(Points) < 4000) then
begin
Result.x := x;
Result.y := y;
Exit;
end else
begin
SetArrayLength(BoxArray, GetArrayLength(BoxArray) + 1);
BoxArray[GetArrayLength(BoxArray) - 1].x1 := x - 35;
BoxArray[GetArrayLength(BoxArray) - 1].x2 := x + 35;
BoxArray[GetArrayLength(BoxArray) - 1].y1 := y - 35;
BoxArray[GetArrayLength(BoxArray) - 1].y2 := y + 35;
Result.x := -1;
end;
end else Result.y := -1;
end;
function MoveFirstPiece: Integer;
var
Coord: TPoint;
i: Integer;
begin
repeat
Coord := FindFirstPiece;
if (Coord.x > 0) and (Coord.y > 0) then MMouse(Coord.x, Coord.y, 2, 2);
Wait(100 + Random(1900));
until (FindColorTolerance(x, y, 2565929, 4, 4, 100, 25, 25));
Mouse(Coord.x, Coord.y, 2, 2, true);
repeat
MovePiece(2)
for i := 0 to 3 do
if (FindDTM(Bee[i], x, y, MSX1, 195, MSX2 - 150, MSY2)) then
begin
Result := i + 1;
MMouse(x, y, 2, 2);
Exit;
end;
Wait(100 + Random(400));
until (not (LoggedIn));
end;
begin
SetupSRL;
ActivateClient;
DeclareDTMs;
Wait(1000 + Random(1000));
MoveToSpot(MoveFirstPiece);
end.
That's the one I started on, but I stopped autoing for a little bit. It should get the first one fine, it should be hard at all to finish. Just add the spot that the DTM was moved to into the box array and do the same thing over and over again.
There are currently 1 users browsing this thread. (0 members and 1 guests)