try this if you're using SRL v4 beta with scar 3.11
SCAR Code:
////////////////Hardmans Willow Muncher v.10//////////// hardmans script
/// This Is A Simple Willow WCER
/// Start Script Near A Willow Tree
/// Setup Colours + Others
/// VERY BASIC SCRIPT AT THE MOMENT SO PLEASE HELP
// version 1 = First Version //
//This is Going to be up dated
program Muncher;
var
z, logdtm{, x, y} : integer;
invX1, invY1, invX2, invY2 : Integer;
{.include SRL/SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
//Set Colour Of Willow Make Sure There Different//
const willow=8450984; //Set the colour of tree's
const willow1=7264139; //Set the colour Of tree's
const loads= 5;
procedure dtms;
begin
logDTM := DTMFromString('78DA63CC636660E861644006716E1C0CFF813' +
'448F43F1030C601D54C425503918591401A64CE2C026A6A806A26' +
'1350530054D34A404D2A504D3B7E350002D50BB3');
end;
procedure Woodcutting;
begin
repeat
if findobj(x, y, 'willow', willow, 6) then
begin
mouse(x,y,0,0,true);
wait(3000+random(4000));
end else
if findobj(x, y, 'willow', willow1, 6) then
begin
mouse(x,y,0,0,true)
wait(3000+random(4000))
end;
until(invfull);
end;
procedure drop;
begin
repeat
if finddtm(logDTM, x, y, invX1, INVY1, INVX2, INVY2) then
begin
mouse(x, y, 2, 2, false);
wait(200+random(100));
chooseoption('Drop');
wait(1000+random(200));
end;
until(not(finddtm(logDTM, x, y, invX1, INVY1, INVX2, INVY2)));
end;
procedure setup;
begin
invX1:= 547;
invY1:= 202;
invX2:= 736;
invY2:= 463;
SetupSRL;
ActivateClient;
wait(2000);
end;
begin
setup;
writeln(' PLEASE COULD YOU POST ANY IDEAS I COULD ADD')
wait(2000)
writeln(' // 3 //')
wait(1000)
writeln(' /// 2 ///')
wait(1000)
writeln(' //// 1 ////')
wait(1000)
writeln(' Off I Go Power Wood Cutting')
wait(2000)
repeat
Woodcutting;
drop;
z:= z + 1;
until (z = loads)
end.
if not, try this :
SCAR Code:
////////////////Hardmans Willow Muncher v.10//////////// hardmans script
/// This Is A Simple Willow WCER
/// Start Script Near A Willow Tree
/// Setup Colours + Others
/// VERY BASIC SCRIPT AT THE MOMENT SO PLEASE HELP
// version 1 = First Version //
//This is Going to be up dated
program Muncher;
var
z, logdtm{, x, y} : integer;
invX1, invY1, invX2, invY2 : Integer;
{.include SRL/SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
//Set Colour Of Willow Make Sure There Different//
const willow=8450984; //Set the colour of tree's
const willow1=7264139; //Set the colour Of tree's
const loads= 5;
procedure dtms;
begin
logDTM := DTMFromString('78DA63CC636660E861644006716E1C0CFF813' +
'448F43F1030C601D54C425503918591401A64CE2C026A6A806A26' +
'1350530054D34A404D2A504D3B7E350002D50BB3');
end;
procedure Woodcutting;
begin
repeat
if findobj(x, y, 'willow', willow, 6) then
begin
mouse(x,y,0,0,true);
wait(3000+random(4000));
end else
if findobj(x, y, 'willow', willow1, 6) then
begin
mouse(x,y,0,0,true)
wait(3000+random(4000))
end;
until(invfull);
end;
procedure drop;
begin
repeat
if finddtm(logDTM, x, y, invX1, INVY1, INVX2, INVY2) then
begin
mouse(x, y, 2, 2, false);
wait(200+random(100));
chooseoption(x, y, 'Drop');
wait(1000+random(200));
end;
until(not(finddtm(logDTM, x, y, invX1, INVY1, INVX2, INVY2)));
end;
procedure setup;
begin
invX1:= 547;
invY1:= 202;
invX2:= 736;
invY2:= 463;
SetupSRL;
ActivateClient;
wait(2000);
end;
begin
setup;
writeln(' PLEASE COULD YOU POST ANY IDEAS I COULD ADD')
wait(2000)
writeln(' // 3 //')
wait(1000)
writeln(' /// 2 ///')
wait(1000)
writeln(' //// 1 ////')
wait(1000)
writeln(' Off I Go Power Wood Cutting')
wait(2000)
repeat
Woodcutting;
drop;
z:= z + 1;
until (z = loads)
end.