Hmmm nice script bro, except for the pickup feathers! :P
Simba Code:
Function FeatherFinder(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean;
Var
T,i,X,Y,b: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
Begin
MarkTime(T);
Repeat
SetArrayLength(ATPA, Length(Colors));
for i := 1 to High(Colors) do
FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 5);
TPA := MergeATPA(ATPA);
ATPA := TPAtoATPAEx(TPA, 2, 2);
SortATPAFrom(ATPA, Point(MSCX, MSCY));
if (Length(ATPA) = 0) then
Exit;
MiddleTPAEx(ATPA[0], x, y);
if (TimeFromMark(T) > 5000) then
Exit;
MMouse(x, y, 10, 10);
Wait(randomrange(100,150));
If(IsUpTextMultiCustom(TheUpText)) then
begin
ClickMouse2(False);
WaitOption('eather', 500);
if DidRedClick then
begin
Inc(Feathers);
Result := True;
Break;
end;
end;
Until(Result)
end;
Function PickupFeathers:Boolean;
Var
X, Y: Integer;
begin
FindNormalRandoms;
If FeatherFinder([10198179, 11053488], ['Take', 'feather'], MSCX, MSCY) then
Begin
writeln('You have found the some Feathers!');
While IsMoving do
Wait(50);
FindNormalRandoms;
Wait(RandomRange(500,750));
End;
end;
And then heres mine from my scripts! :P
Simba Code:
Function CharmFinder(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean;
Var
T,i,X,Y,b: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
Begin
MarkTime(T);
Repeat
SetArrayLength(ATPA, Length(Colors));
for i := 1 to High(Colors) do
FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 5);
TPA := MergeATPA(ATPA);
ATPA := TPAtoATPAEx(TPA, 2, 2);
SortATPAFrom(ATPA, Point(MSCX, MSCY));
if (Length(ATPA) = 0) then
Exit;
MiddleTPAEx(ATPA[0], x, y);
if (TimeFromMark(T) > 5000) then
Exit;
MMouse(x, y, 10, 10);
Wait(randomrange(100,150));
If(IsUpTextMultiCustom(TheUpText)) then
begin
ClickMouse2(False);
WaitOption('harm', 500);
if DidRedClick then
begin
Inc(Charms);
Result := True;
Break;
end;
end;
Until(Result)
end;
Function PickupCharms:Boolean;
Var
X, Y: Integer;
begin
FindNormalRandoms;
If CharmFinder([6133669], ['Take', 'charm'], MSCX, MSCY) then
Begin
writeln('You have found the some Charms!');
While IsMoving do
Wait(50);
FindNormalRandoms;
Wait(RandomRange(500,750));
End;
end;
I find that funny how similar they look! :P good work on the attacking method though.