Thank you so much for that! I might even print that out to help me in the future
No, there is no Fletch all unfortunately, other wise that would definately be the one to use lol
EDIT: So I ran what i have and it is all working hunky dory except for the fletching part...
SCAR Code:
procedure FletchLogs;
var
x, y, rx, ry: Integer;
i: Integer;
begin
if Fletch and InvFull then
begin
repeat
if FindBitmapToleranceIn(Knife, x, y, MIX1, MIY1, MIX2, MIY2, 20) then
begin
if IsUpText('nife') then
Mouse(x, y, 3, 3, True);
Wait(100+Random(150));
if FindBitmapToleranceIn(Reglogs, rx, ry, MIX1, MIY1, MIX2, MIY2, 20) then
Mouse(rx, ry, 3, 3, True);
for i := 0 to 1000 do
begin
Wait(50+Random(15));
if FindNPCChatText('hafts', ClickLeft) then Break;
end;
ChooseOption('ake X');//is there a make all option for fletching?
end;
Wait(33 * 1000 + Random(10 * 1000));
until(not FindBitmapToleranceIn(RegLogs, rx, ry, MIX1, MIY1, MIX2, MIY2, 20));
end;
end;
If you had my brain i know helping me would be so much easier!
It doesn't start the fletching procedure after getting a full inventory it will just stop for a while, as if reading the script, then attempt to cut another tree. Then do the same thing.
I changed This:
SCAR Code:
procedure FletchLogs;
var
x, y, rx, ry: Integer;
i: Integer;
begin
if Fletch and InvFull then
To this:
SCAR Code:
procedure FletchLogs;
var
x, y, rx, ry: Integer;
i: Integer;
begin
if (Fletch = True) then
Begin
if (InvFull) then
begin
Because that helped make my dropping procedure work, but it still did the same thing.
When i read through what you have this is what catches my eye:
SCAR Code:
begin
if IsUpText('nife') then
Mouse(x, y, 3, 3, True);
It seems as if the Mouse(x, y, 3, 3, True); should be placed BEFORE the conditional statement because if the mouse isn't over the Knife yet SCAR can't tell if the UpText at the top has the letters "nife" for Knife in them. I think that is why it doesn't continue with the rest of the procedure. I'm going to try and play with it a little and if I get it to work then Horay if not, Im gonna need your help again >.<"
EDIT: So i tried a few things and the most logical thing that i thought of to do is just put a MMouse in before the conditional like this:
SCAR Code:
begin
MMouse(x, y, 3, 3);
if IsUpText('nife') then
Mouse(x, y, 3, 3, True);
Wait(100+Random(150));
Buuuut it didn't work. Maybe you can figure it out.