SCAR Code:
// Made By OPTiPLEX
// First Script!
program PowerChopper;
{.include SRL\SRL.SCAR}
var x,y: integer;
Const
Tree = 3116158;
begin
SetupSRL;
repeat
if InvFull = true then
begin
writeln('Its full!');
dropAll;
wait(5000);
end else
writeln('Hmm not full yet, lets get Chopping!');
begin
if FindObj(x, y, 'hop', Tree, 30) then
begin
MMouse(x, y, 1, 1);
Mouse(x, y, 1, 1, true);
writeln('Yeah Chop Chop Chop!');
wait(5000);
end else
begin
writeln('Nothing Found :(!');
wait(5000);
end;
end;
until(false);
end.
first off standards...^^ those are correct standards...
SCAR Code:
begin
MMouse(x, y, 1, 1);
Mouse(x, y, 1, 1, true);
writeln('Yeah Chop Chop Chop!');
wait(5000);
end
2nd off you dont need MMouse then Mouse b/c Mouse moves the mouse and clicks...
SCAR Code:
if FindObj(x, y, 'hop', Tree, 30) then
begin
MMouse(x, y, 1, 1);
Mouse(x, y, 1, 1, true);
writeln('Yeah Chop Chop Chop!');
wait(5000);
end
instead of doing that^^... i would use an uptext also just to make sure you wanna chop it...
SCAR Code:
if FindObj(x, y, 'Tree', Tree, 30) then
begin
MMouse(x, y, 1, 1);
if IsUpText('Chop Down') then
Mouse(x, y, 1, 1, true);
writeln('Yeah Chop Chop Chop!');
wait(5000);
end
or something of that sort....
also waits need to be randomized...like so....
or some other random milliseconds...or you could use FTWait....but that it alittle different and if you dont know it then you wouldnt understand it...
there are quite a few more things i would change to make it better, but this is the basic things...add me on msn if you want more suggestions...