Just before i go into my next problem, i've only just scripting started if you haven't realized that already ;]
I've gotten pretty much everything working properly apart from the actual cutting of the trees..
I've gotten it to look for the colours and then click, but when there's
nothing there it just keeps clicking where the last one was and basically walks away from the trees..
here's the script so far:
SCAR Code:
{
Oak Cutter/Fire Lighter
by i3each
v1.0a
}
program oakCutter_fireLighter;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Firemaking.scar}
//.notes: Make sure inventory ONLY contains a tinderbox
//and an axe equipped, unless you don't care about the
//progress report. ;]
//
//
// Start off logged OUT ;]
const
playerName = 'i3each'; //username
passWord = 'omg@password'; //password
oakColour = 5408686; //oak's colour
oakColour2 = 3493968; //another part of the oak(backup)
method = 'powerCut'; //lightLogs(cut then light) or powerCut(power cutter)
//Don't Change Past Here ;]
oakXp = '37.5';
lightXp = '';
var
Loads: Integer;
loadsDone: Integer;
oakLogs: Integer;
procedure progressReport;
begin
WriteLn('progress goes report here')
end;
begin
Loads:= 50; //Change to amount of loads you want done.
loadsDone:= 0; //Don't change
if((Findcolor(x, y, oakColour, 1, 1, 518, 340)) or (Findcolor(x, y, oakColour2, 1, 1, 518, 340))) then
begin
if(method = 'lightLogs') then
{begin
WriteLn('Light Logs'); //lighting of logs, start after power is all good.
end}
else if(method = 'powerCut') then
begin
WriteLn('Power Cutting');
repeat
if(not(InvFull)) then
begin
Wait(1000+random(1000));
Wait(random(3000)+random(3000)+random(3000));
MMouse(x, y, 0, 0);
Mouse(x, y, 0, 0, True);
end
else if(InvFull) then
begin
loadsDone := loadsDone + 1;
GameTab(4);
oakLogs := DTMFromString('78DA63AC666460286740017509960CFF81345' +
'086E13F1030B663AA81C8C248205D0B64D51050934F849A2A202B' +
'8B809A26202B13BF1A0034E80BCD');
if(FindDtm(oakLogs, x, y, 1, 1, 730, 455)) then
begin
repeat
Wait(200+random(2000));
Mouse(x, y, 2, 2, False);
ChooseOption(x, y, 'rop');
WriteLn('Dropping Logs');
until(not(FindDtm(oakLogs, x, y, 1, 1, 730, 455)));
end
else
begin
WriteLn('DTM not found :(');
end
progressReport;
end
else
WriteLn('Error.');
until(loadsDone > Loads);
end
else
begin
WriteLn('Error: No method selected');
end
end
else
begin
WriteLn('Error: Cannot find colours, please select new ones ;[');
end
end.