Code:
procedure dropFish();
var
I, rand: Integer;
mouse: TPoint;
cross, horizontal, randPat:TIntegerArray;
begin
writeln('dropping fish');
case random(0,10) of
0..8:randPat := [5,9,13,17,21,25,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,24,28];
9:randPat := [5,6,9,10,13,14,17,18,21,22,25,26,3,4,7,8,11,12,15,16,19,20,23,24,27,28];
10:randPat := [3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28];
end
for I:= 0 to Length(randPat)-1 do
begin
mouse := MiddleBox(invBox(randPat[I]));
customMouse(point(mouse.X + random(-5,5),mouse.Y + random(-5,5)));
sleep(random(20,100));
begin
KeyDown(VK_SHIFT);
Wait(Random(15,175));
fastClick(Mouse_Left);
Wait(Random(15,175));
KeyUp(VK_SHIFT);
//Ore.ToDrop.Reset;
end;
end;
sleep(random(500,1000));
findSpot();
end