SCAR Code:
program woodcutter;
{.include SRL/SRL.scar}
const
oc1 = 4095859; //Oak Color 1
oc2 = 6327692; //Oak Color 2
loads = 2; //How many loads do you wanna do?
var
x, y, l, Tloads: Integer;
procedure findandcuttree;
begin
ClearDebug;
if (FindObjCustom(x, y, ['hop', 'op ', 'ak'], [oc1, oc2], 5)) then //i changed this too i think this is the prob???
begin
MMouse(x, y, 2, 2);
If (IsUpText('ak'))then //Thats the uptext, srl doesnt liks CAPS
begin
Mouse(x,y,3,3,true);
Flag;//its ok its from the include
end;
end else
begin
WriteLn('Cannot find an Oak tree.. Sleeping..'); // thing is what about if its say in a
Sleep(3000); // then you will be sleeping for ages
end; // read about fail safes, i wont add it otherwise its not ur script eh?? :P
end;
{procedure DropInventory;
Begin
repeat
MouseItem(e,false);
e:=e+1
Wait(265 + random(201));
ChooseOption('Drop');
Until(e = 29);
l:=l+1;
End;}
procedure drop; // if you want to drop everything then use this?
begin // or try something like for i := 0 do 25 to
dropall;
TLoads := Tloads + 1
end;
procedure Settup_Stuff;
begin
SetupSRL;
l:=0;
end;
begin
Settup_Stuff;
repeat
repeat
Wait(4000);
findandcuttree;
until(invfull)
Drop;
until TLoads := (Loads);
ClearDebug;
WriteLN('****************************FINISHED!!*******************************');
WriteLN('#####################################################################');
WriteLN('#########ProphesyOfWolf Thanks You For Using His Woodcutter##########');
WriteLN('#####################################################################');
WriteLN('###I thank XCCD for his help, and almost literal guidance, of this###');
WriteLN('##########################script.####################################');
TypeSend('Whew! That was some hard work! Time to go to bed..');
Wait(2500);
LogOut;
end.
try that, you had the wrong names for the drop and chop, srl doesnt like CAPS
overall read about failsafes, like what happens if
SCAR Code:
if not (FindObjCustom(x, y, ['hop', 'op ', 'ak'], [oc1, oc2], 5)) then
if it cant find the tree then what?? so you could have
SCAR Code:
if not (FindObjCustom(x, y, ['hop', 'op ', 'ak'], [oc1, oc2], 5)) then
writeln(' not finding tree');
CurrentPlayer.loc := 'lost'
NextPlayer(False); // means that the next player will come but this player will be false
ok try something like that 
EDIT forgot to mention that for the nextplayer thing u need multiplayer :P
~Spaz