WILLOW CUTTER AND DROPPER.
MY FIRST SCRIPT AND IT COMPILES.
PLEASE TRY AND LEAVE ALL BUGS AND PROGGIES!
program cut;
{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
const
treename='Willow';
var
X,y:Integer;
Procedure HandleRandoms;
Begin
FindNormalRandoms;
end;
procedure DeclarePlayers;
begin
HowManyPlayers:=2;
CurrentPlayer:=0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name:='User'
Players[0].Pass:='pw'
Players[0].Nick:='nick'
Players[0].Active:=True;
Players[1].Name:='User'
Players[1].Pass:='pw'
Players[1].Nick:='nick'
Players[0].active:=True;
end;
procedure chop;
begin
if FindObjCustom(x, y, [Treename], [4945777], 5) then
begin
Mouse(x,y,0,0,false);
wait(100+random(50));
ChooseOption('Chop')
Ftwait(1);
Wait(7000);
end;
end;
procedure drop;
begin
DropToPosition(2,28);
Ftwait(1);
end;
Begin
SetupSRL;
ActivateClient;
DeclarePlayers;
Repeat
repeat
Chop;
Until(Invfull);
Drop;
Until(false);
end.
Dont download the attachment below just copy and paste this!



Reply With Quote








