jstemper
2013-06-30 22:30:47
Alright, so I am very new to this scripting stuff and just started today. I used Griff's guide on how to script my first tree, and this is where I am at right now. The mouse keeps hovering over the yew tree, without actually clicking it. Hopefully I didn't screw this up too bad. NOTE: I am using this on a private server, any help with clicking the tree and banking would be appreciated, cheers
program New;
{$i srl/srl.simba}
procedure ChopDown;
var x, y: integer;
begin
repeat
if FindObj(x, y, 'chop', 2247232, 15) then
Mouse(x, y, 0, 0, false);
ClickMouse(x, y, 1);
repeat
wait(1200+random(250));
Until not IsUpText('ew') or (InvFull);
until(InvFull);
end;
begin
SetUpSRL;
Repeat;
ChopDown;
Until(False);
end.
program New;
{$i srl/srl.simba}
procedure ChopDown;
var x, y: integer;
begin
repeat
if FindObj(x, y, 'chop', 2247232, 15) then
Mouse(x, y, 0, 0, false);
ClickMouse(x, y, 1);
repeat
wait(1200+random(250));
Until not IsUpText('ew') or (InvFull);
until(InvFull);
end;
begin
SetUpSRL;
Repeat;
ChopDown;
Until(False);
end.