Can someone help me make a procedure that finds and trades a npc without the cursor jumping around and not finding the npc.
Please
Can someone help me make a procedure that finds and trades a npc without the cursor jumping around and not finding the npc.
Please
Which NPC? That makes all the difference.
aemad and kortan at the south ardougne general store.
I can try to make one if you provide me with a screenshot. I don't have access to Ardougne.
ok =p
Will this work?
![]()
Can you post it via imageshack, or something? Attaching it to your post seems to have shrunk it. Unless it was already that small, that is.
Edit: Ooo, my 666th post.
There is bigger one
Much better. Let's see what I can do.
Edit: One last thing, since the screen didn't help as much as I'd hoped. Go into the game, then use the color picker on either Aemad's or Kortan's hair. Then, reload the game (as in completely refresh the page) and do it again. And then a third time. And then post the colors you get from it.
Color Picked: 8290184 at (-1244384, -5174071)
Color Picked: 6842480 at (-1244421, -5174085)
Color Picked: 7434874 at (-1244420, -5174099)
Alright, lemme know if this works or not:
SCAR Code:{*******************************************************************************
Function AemadFindAdnClick: Boolean;
By: senrath
Description: Attempts to find and click either Aemad or Kortan and trade with them
*******************************************************************************}
function AemadFindAndClick: Boolean;
var
CTS, I, X, Y: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
begin
if not LoggedIn then
Exit;
Disguise('Finding shopkeeper.');
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.38, 0.06);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 7566204, MSX1, MSY1, MSX2, MSY2, 10);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
ATPA := TPAtoATPAEx(TPA, 15, 15);
for I := 0 to High(ATPA) do
begin
MiddleTPAEx(ATPA[i], X, Y);
MMouse(x, y, 3, 2);
Wait(100 + random(50));
if IsUpTextMultiCustom(['emad', 'orta', 'ortan']) then
begin
Result := True;
Mouse(X, Y, 0, 0, False);
Wait(100 + random(50));
ChooseOption('rade');
Wait(100 + random(50);
Break;
end;
end;
if not Result then
begin
MMouse(MSCX, MSCY, 3, 3);
Wait(200 + Random(50));
if IsUpTextMultiCustom(['emad', 'orta', 'ortan']) then
begin
Result := True;
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(100 + random(50));
ChooseOption('rade');
Wait(100 + random(50));
end;
end;
if Result then
Writeln('Found either Aemad or Kortan!')
else
Writeln('Found neither Aemad nor Kortan.');
end;
Omfg I love You
How did you conjure that up so fast?
I already had it made for a script I'm making. I just had to change the color it looked for.
There are currently 1 users browsing this thread. (0 members and 1 guests)