SCAR Code:
Function FindnAttHead(ThePick: String; Weilded: Boolean): Boolean;
Var
head: Tpoint;
TPA: TPointArray;
Optionz: TVariantArray;
ATPA: Array of TPointArray;
CTS, I, CurrTab, x, y, heady, stick, pick: Integer;
begin //8286806 //7826257
heady := DTMFromString('78DA637465626078C280022CBD4318FE03694' +
'620FE0F048C164035CF19D000231209A4BD816A6E1150E349A439' +
'0F09A87125AC060093D70CE0');
Stick := DTMFromString('78DA63B465626078CA8002F415D818FE03694' +
'620FE0F048CF64035F718D000231209A46D806ADE1050630154F3' +
'89801A67A09A9B04D4B800D5DCC2AF060022960C39');
Pick := DTMFromString('78DA63B461626078C1800274E55919FE03694' +
'620FE0F048C264035B719D000231209A403806A1E125003B2EB06' +
'0135DE40357708A8B104AAF9845F0D00183E0C34');
CurrTab := GetCurrentTab;
case Lowercase(ThePick) of
'steel': Optionz := ([ 0.25, 0.05, 5855840, 9 ]);
'bronze': Optionz := ([ 0.05, 0.01, 2110788, 9 ]);
'iron': Optionz := ([ 0.12, 0.04, 5263445, 17 ]);
'mith': Optionz := ([ 0.10, 0.02, 5979710, 11 ]);
'rune': Optionz := ([ 0.00, 0.05, 8812891, 13 ]);
'addy': Optionz := ([ 0.10, 0.03, 5136717, 9 ]);
end;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(Optionz[0], Optionz[1]);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, Optionz[2] , MSX1, MSY1, MSX2, MSY2, Optionz[3]);
ColorToleranceSpeed(CTS);
ATPA := TPAToATPAEx(TPA, 2, 2);
For I := 0 to High(ATPA) do
begin
MiddleTPAEx(ATPA[i], head.x, head.y);
MMouse(head.x, head.y, 2, 2);
wait(100+random(100));
If(IsUpTextMultiCustom(['ake', 'ick', 'ead'])) then
begin
GetMousePos(head.x, head.y);
Mouse(head.x, head.y, 0, 0, true);
flag;
wait(200+random(200));
if Weilded then
begin
gametab(5);
wait(100);
mmouse(585, 303, 10, 10);
wait(100);
if isuptext('ick') then
begin
getmousepos(x, y);
mouse(x, y, 0, 0, true);
gametab(4);
end;
end;
gametab(4);
if findDTm(Heady, x, y, MIX1, MIY1, MIX2, MIY2)then
begin
mouse(x, y, 4, 4, true);
wait(100);
if findDTm(stick, x, y, MIX1, MIY1, MIX2, MIY2)then
begin
mouse(x, y, 2 ,2, true);
wait(200);
if findDTm(pick, x, y, MIX1, MIY1, MIX2, MIY2)then
begin
result := true;
FreeDTM(pick);
FreeDTM(heady);
FreeDTM(stick);
exit;
end;
end else
begin
writeln('Couldn''t find stick');
FreeDTM(pick);
FreeDTM(heady);
FreeDTM(stick);
exit;
end;
end else
begin
writeln('Couldtn''t find head of pick');
FreeDTM(pick);
FreeDTM(heady);
FreeDTM(stick);
exit;
end;
end;
end;
Writeln('Couldn''t attatch head of pick and stick together!');
FreeDTM(pick);
FreeDTM(heady);
FreeDTM(stick);
end;
It works FLAWLESSLY for me. Try it?, rate hate?