So I made this Motherload Mine script in 1 day, and gave it to my friend to try. My friend used the script and got himself to 77 gold nuggets and about 1000 gold ores, 3000 coal before getting banned.
It was like his secondary account so niether of us really care about it being banned.
Anyways, I was suprised to see him get banned so fast. Im now changing my script heavily before I use it again.
First off, the walking:
Code:
path := [Point(259, 155), Point(212, 141), Point(180, 148), Point(175, 172)];
RSW.WalkPath(path);
next is the color finding function I used:
Code:
function position1(var Position : TPoint) : Boolean;
var
color : TColEx;
TPA : TPointArray;
ATPA : T2DPointArray;
I : Integer;
begin
color.create(6776944, 3, 0.70, 0.18);
if color.findAllIn(IntToBox(MSX1, MSY1, MSX2, MSY2), TPA) then
begin
ATPA := ClusterTPA(TPA, 3);
FilterTPAsBetween(ATPA, 0, 0);
Result := (Length(ATPA) > 0);
if Result then
begin
if (Length(ATPA) > 1) then
SortATPASize(ATPA, True);
SortTPAFrom(ATPA[0], MiddleTPA(ATPA[0]));
I := Abs(iGaussRange(-High(ATPA[0]), High(ATPA[0])));
Position := ATPA[0][I];
end;
end;
end;
function click1() : Boolean;
var
find : TPoint;
begin
for 1 to 3 do
if position1(find) and PointInBox(find, IntToBox(MSX1, MSY1, MSX2, MSY2)) then
begin
Mouse(find, 0, 0, Mouse_Move);
if isUpTextMulti(['Bank']) then
begin
fastClick(Mouse_Left);
if DidClick(True, Random(830, 1200)) then
Exit(True);
end;
end else
Wait(Random(1300, 2450));
end;
Basically, these two parts were copied and pasted to create the script.
Im thinking of using bitmaps now, instead of finding colors to click objects. Ill just take multiple pictures of what I need to click from different angles.
for the walking Im making multiple different paths to get to the same place.
I want to keep testing this script and changing things and see if I get banned less and less.
If you want to see the full script Ill send it to you, not sure If I should post it here or not.