i wrote this script but i keep getting errors and i can't figure out why
{ Justin PowerChopper Version 1.2 }
program Woodcutter;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
const
LoadsPerPlayer = 10;// loads each player before switching accounts
Tree = 4621949;
Oak = 2648413;
Willow = 2577740;
Yew = 1454376;
HowManyPlayersYouHave = 5;
procedure DeclarePlayers;
begin
SetupSRL;
NumberOfPlayers(HowManyPlayersYouHave)
Players[0].Name := '';{fill in players name}
Players[0].Pass := '';{password of player}
Players[0].Nick := ''; { nickname 3 letters of players name}
Players[0].Active := True;{ true if player is to be used false for not}
Players[1].Name := ''; {fill in players name}
Players[1].Pass := ''; {password of player}
Players[1].Nick := ''; { nickname 3 letters of players name}
Players[1].Active := False;
Players[2].Name := ''; {fill in players name}
Players[2].Pass := ''; {password of player}
Players[2].Nick := ''; { nickname 3 letters of players name}
Players[2].Active := False;
Players[3].Name := ''; {fill in players name}
Players[3].Pass := ''; {password of player}
Players[3].Nick := ''; { nickname 3 letters of players name}
Players[3].Active := False;
Players[4].Name := ''; {fill in players name}
Players[4].Pass := ''; {password of player}
Players[4].Nick := ''; { nickname 3 letters of players name}
Players[4].Active := False;
end;
procedure Cut;
var
x,y : integer;
begin
repeat
if FindObj(x,y,'hop',Willow,30) then
begin
Mouse(x,y,0,0,True);
wait(7500+random(3750));
end;
until false
end;
procedure Drop;
var x,y,Logs:integer;
begin
SetupSRL;
Logs := DTMFromString('78DA63CC61626078CA80029C6D24C134239 4C' +
'F980954F381010D30A2AA4900AA794B404D1A50CD1D026AAA 816A' +
'9E1150530E54F386809A62A09A9BF8D50000AF080A04');
repeat
if(FindDTM(Logs,x,y,MIX1,MIY1,MIX2,MIY2))then
begin
end;
until false
begin
SetupSRL;
Mouse(x,y,5,5,False);
if(ClickOption('rop',2))then
begin
Wait(1000+random(500));
end;
end;
begin
SetupSRL;
begin
DeclarePlayers
end;
begin
repeat
Cut
until false
end;
begin
repeat
Drop;
until false
end;


Reply With Quote




