You can just do this:
{.Include SRL/SRL/Skill/Woodcutting.scar}
Then call the functions without having to copy and paste them.
9: Disguise('C:/Program/wireless/internet/broswer');
Spelled browser wrong. Personally, I don't think it's worth the time to disguise it. Your call though.
In your mainloop you can remove Drop;, move Drop; above MouseOverTree;, and do this instead:
procedure MouseOverTree;
begin
if (not (InvFull)) then
begin
if (IsUpText('illow')) then
begin
repeat
antiban;
until (not (IsUpText('illow')));
end;
end else
Drop;
end;
I see you know how to use the Forward; function, but I don't understand why you used it. Can't you just save a line and move it up to the top?
In your case, I don't think it will ever use this:
0: Disguise('Windows Live Messenger v.8.0');
Because it starts at 1 for the random number. I think. It seems I was wrong - ignore this.
Try this instead:
case Random(13)-1 Of
Not bad though. I standardized it to the best of my ability:
program TheSaw;
{.Include SRL\SRL.Scar}
{.Include SRL/SRL/Skill/Woodcutting.scar}
{.Include SRL\SRL\Misc\Users.Scar}
{
|---------------------------|
| "The Saw" By: Oakley123 |
| |
| Latest Version: 1.0 |
| |
| |
| *IN TESTING* |
| |
| |
| |
|---------------------------|
} //@@@@@@@@@@@@@@@@@@@@@@@@@@@\\
// FILL OUT BELOW \\
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\\
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :=''; // Add player name - runescape username
Players[0].Pass :=''; // Add player password - runescape pass
Players[0].Nick :=''; // Add username nick - 3-4 consevutive numbers from username
Players[0].Active:=True;
end;
Procedure AntiBan; Forward;
{DONT TOUCH ANYTHING BELOW}
const
TreeColour1= 1648941;
TreeColour2= 2508859;
TreeColour3= 5264459;
TreeColour4= 1980978;
TreeColour5= 2573880;
TreeColour6= 2902589;
TreeColour7= 1847597;
Var
x, y : integer;
Procedure RandomDisguise;
begin
case Random(12) Of
0: Disguise('Windows Live Messenger v.8.0');
1: Disguise('Bigfix - Computer Protection Wizard');
2: Disguise('RuneScape - the massive online adventure game by Jagex Ltd - Mozilla Firefox');
3: Disguise('Tip.it Free RS quest help');
4: Disguise('PhotoShop professional v12.9');
5: Disguise('Google Toolbar');
6: Disguise('Norton Internet Security');
7: Disguise('Tip.it Runescape Help!');
8: Disguise('Trust software and hardware development');
9: Disguise('C:/Program/wireless/internet/browser');
10: Disguise('Microsoft Office Professional');
11: Disguise('Desktop files');
12: Disguise('SwiftSwitch i.explorer client');
end;
end;
procedure randoms;
begin
findnormalrandoms;
if findfight=true then
begin
runaway('E',true,1,5000+random(1000));
end;
end;
procedure drop;
begin
if not LoggedIn then Exit;
if (InvFull) then
DropAll;
end;
procedure MouseOverTree;
begin
if (not (InvFull)) then
begin
if (IsUpText('illow')) then
begin
repeat
antiban;
until (not (IsUpText('illow')));
end;
end else
Drop;
end;
procedure antiban;
begin
if (IsUpText('illow')) or (InvFull) then
begin
end;
Wait(500 + Random(5000));
case Random(8) of
1: Wait(500 + Random(5000));
2: Wait(500 + Random(5000));
3: Wait(500 + Random(5000));
4: MakeCompass('S');
5: MakeCompass('N');
6: MakeCompass('E');
7: MakeCompass('W');
end;
end;
Procedure RandomCut;
begin
if (not (IsUpText('illow'))) then
begin
Case (Random(4)) Of
1: FindObjCustom(X, Y, ['cho', 'hop', 'chop'], [TreeColour1, TreeColour2, TreeColour3], 3);
2: FindObjCustom(X, Y, ['cho', 'hop', 'chop'], [TreeColour2, TreeColour5, TreeColour3], 3);
3: FindObjCustom(X, Y, ['ch', 'hop', 'chop'], [TreeColour6, TreeColour4, TreeColour3], 3);
4: FindObjCustom(X, Y, ['cho', 'hop', 'chop'], [TreeColour7, TreeColour6, TreeColour3], 3);
end;
end;
end;
Procedure RandomC;
begin
case (Random(6)) of
1: Mouse (x, y, 1, 1, true);
2: Mouse (x, y, 2, 2, true);
3: Mouse (x, y, 11, 3, true);
4: Mouse (x, y, 4, 4, true);
5: Mouse (x, y, 13, 3, true);
6: Mouse (x, y, 22, 1, true);
end;
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
RandomDisguise;
repeat
FindBirdsNest;
randoms;
RandomCut;
RandomC;
MouseOverTree;
until(false)
end.