I am going to show the errors for both of your scripts, and how to fix it.
Camo Kyle script's error:
InFight wont work right
SCAR Code:
Procedure IfFight;
Begin
If (FindFight) Then
begin
RunAway('E', False, 1, 1000 + Random(500));
Inc(Fight);
end;
End;
AntiRandoms should only be 4 lines long, and there out of order
SCAR Code:
Procedure AntiRandoms;
Begin
LampSkill := 'Woodcutting';
FindNormalRandoms;
EntFind;
IfFight;
End;
WcRandoms is not needed
DropAllExcept wont work, and the standereds aren't right
SCAR Code:
Procedure DropAllExcept(A : Array of Integer);
begin
For I:=1 To 28 Do
if not(InIntArray(a, i)) then
begin
DropItem(i);
Inc(Loads);
end;
end;
Plus tons of your standereds are of in many places
Mr_Bum script's error:
GetLevel can be shortened
SCAR Code:
Procedure GetLevel;
begin
Level := GetSkillLevel('Woodcutting');
end;
Your antirandoms arn't right
SCAR Code:
Procedure AntiRandoms;
Begin
FindNormalRandoms;
FindFightEx;
end;
FindTree can be shortened.
SCAR Code:
Procedure FindTree;
begin
If not(Loggedin)then Exit;
FindFightEx;
WCGained;
LoadColors;
MakeCompass('N');
SetAngle(true);
SetRun(true);
For i:= 0 to (GetArrayLength(TreeColor) - 1) do
begin
WcGained;
X := 234;
Y := 172;
if(FindObjCustom(x,y,['hop', 'own', (TreeType)],[TreeColor[i]],3)) or FindObjCustom(x,y,['hop', 'own', (TreeType2)],[TreeColor[i]],3) or FindObjCustom(x,y,['hop', 'own', (TreeType3)],[TreeColor[i]],3) or FindObjCustom(x,y,['hop', 'own', (TreeType4)],[TreeColor[i]],3) then
begin
Writeln('Serching For Tree');
MMouse(x,y,2,2);
if IsUpTextMultiCustom(['hop', 'own', (TreeType)]) or IsUpTextMultiCustom(['hop', 'own', (TreeType2)]) or IsUpTextMultiCustom(['hop', 'own', (TreeType3)]) or IsUpTextMultiCustom(['hop', 'own', (TreeType4)]) then
begin
Writeln('Found Tree');
FindEnt(x,y,true);
Mouse(x,y,2,2,true);
Writeln('Cutting Tree');
Wait(TreeWait +random(500));
if (InvFull) then
DropLogs;
end;
end;
end;
if(Found = False)then
Exit;
end;
FindTree already drops, so why drop in the main loop?
SCAR Code:
Begin //Camo Kyle Fixed my standards
SetupSRL;
DeclarePlayers;
Sig;
ActivateClient;
LoginPlayer;
If not Loggedin then LoginPlayer;
Disguise('Power Cutter - By Mr_Bum');
GetLevel;
repeat
begin
FindTree;
AntiBan;
AntiRandoms;
if Loads = DesiredLoads then NextPlayer(true);
end;
Proggy;
until false
end.
Over all, I like Camo Kyle's. Also, if you two(or anyone else) wants scripting help add me on msn, mylesmadness@gmail.com