It isn't suppose to drop anything you can wield knife or tinderbox right? but it is dropping everything including axes![]()
It isn't suppose to drop anything you can wield knife or tinderbox right? but it is dropping everything including axes![]()
Any help?
DropAll does exactly what it says on the tin. Drops all. Try this instead:
SCAR Code:procedure DropAllNonWieldable;
var
Pr: TPoint
I: Integer;
begin
GameTab(4);
for i := 1 to 28 do
begin
if ExistsItem(i) then
begin
Pr := ItemCoords(i);
MMouse(Pr.x,Pr.y,3,3);
if Not IsUpText('Wield') then
begin
Mouse(Pr.x,Pr.y,3,3,False);
wait(50+random(100));
if ChooseOption(x,y,'Drop') then
wait(200 + Random(100));
end;
end;
end;
end;
Tell me if it doesn't compile 'cos I just wrote it there on the spot, but it should do the trick.
I took that directly from WoodCutting.scar its not supposed to drop totally everything I need the knive to.SCAR Code:{*******************************************************************************
procedure DropAllLogs;
By: Starblaster100
Description: Will drop all logs, ignoring anythig you can Wield, Birds Nests,
Knifes and Tinder Boxes
*******************************************************************************}
procedure DropAllLogs;
var
rx, ry, m, n : Integer;
begin
Status('Dropping Logs');
Gametab(4)
begin
for M:=1 to 7 do
begin
for n:=1 to 4 do
begin
rx := 544 + (n * 42)
ry := 192 + (m * 36)
mmouse(rx, ry, 0, 0)
wait(100 + random(100));
if (IsTextAt2(9, 9, 'Wield', 100)) or
(IsTextAt2(9, 9, 'Search Bird', 100)) or
(IsTextAt2(9, 9, 'Use Knife', 100)) or
(IsTextAt2(9, 9, 'Use Tinder', 100)) then
Chopped := Chopped - 1;
if not (IsTextAt2(9, 9, 'Wield', 100)) and
not (IsTextAt2(9, 9, 'Use Knife', 100)) and
not (IsTextAt2(9, 9, 'Search Bird', 100)) and
not (IsTextAt2(9, 9, 'Use Tinder', 100)) then
begin
getmousepos(x, y)
mouse(x, y, 5, 5, false);
wait(100 + random(50));
if(ClickText('Drop', MIX1, MIY1, MIX2, MIY2))then
begin
wait(150 + random(210));
end else
mmouse(233, 123, 50, 50)
end;
end;
end;
end;
end;
I will try your thanks.
Thanks m0u53 I changed the DropAll around to get it to work. The main thing I chaged was the "IsTextAt2" to "IsUpText" thanks for the idea!
There are currently 1 users browsing this thread. (0 members and 1 guests)