Skys Shadow
12-14-2006, 02:10 AM
Simple color setup and chops untill you reach the desired level. Please post any bugs that you get. Thanks for reading!
Next Update: I don't know. What should I add?
I posted it for people who are too lazy to download it.
{
~~~~~~~~~~Skys~~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~
~~~~~~~~~Shadow~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~
~~~~~~~~Presents~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~
~ The Skys Shadow Tree Eater!
~ Made by me, Skys Shadow.
~ Credits to all the SRL team for the wonderful SRL include.
~ Setup lines 42-47
Instructions:
Setup Colors and Goal Level
Stand by the Trees you want to cut
Watch it once to make sure that all is well
Enjoy!
Update Info:
Alpha: Cut and Dropped
Beta: Added Goal Level
1.0: Changed Dropping Procedure
1.1: Added AntiRandoms
1.2: Changed Droping Procedure again
1.3: Fixed some bugs
1.4: Changed some antirandoms, Added Custom WaitTime, Added Progress Report
}
program Skys_Shadow_Powercutter;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\skill\WoodCutting.scar}
{.include SRL\SRL\extended\xAntiBan.scar}
var Loads: integer;
const
///////////////Set These Up//////////////////////////////////
TreeColor1 = 0000000; //First Tree Color //
TreeColor2 = 0000000; //Second Tree Color //
GoalLevel = 99; //The level you want the script to stop at //
Wieldaxe = 2; //1 for wielding axe 2 for axe in inventory //
TimetoWait = 2500; //Milliseconds between clicks on tree //
RunDirection = 'E'; //Uppercase direction that you run away//
/////////////////////////////////////////////////////////////
Procedure StartTheSRL;
Begin
SetupSRL;
Loads:= 1;
end;
Procedure ChatandReport;
begin
ActivateClient;
FixChat;
SRLRandomsReport;
End;
Procedure FindandChop;
begin
if(findcolorspiral(x,y,TreeColor1,15,15,615,457)) or
(findcolorspiral(x,y,TreeColor2,15,15,615,457))the n
MMouse(x,y,1,1)
if(isuptext('Chop')) then
clickmouse(x,y,true)
wait(Random(2000)+(TimetoWait))
end;
Procedure Dropping;
Begin
Repeat
FindandChop;
until (invfull)
If (invfull) then
begin
If wieldaxe = 1 then
begin
DropAll;
end
If wieldaxe = 2 then
begin
DropTo(2,28);
end
Loads:= Loads + 1;
end
end;
Procedure AntiRandomsandAntiBan;
begin
If (findfight) then
begin
RunAwayDirection(Rundirection);
wait (4000 + random(1000))
Runback;
end
FindMod;
FindFight;
InConvo;
FindMime;
FindHead;
DontBanMe(3);
Antiban;
end;
Procedure ProgReport;
begin
ClearReport;
Writeln('===============================')
Writeln('|| You Are Using ||');
Writeln('|| ||');
Writeln('|| The Skys Shadow ||');
Writeln('|| ||');
Writeln('|| TREE EATER! ||');
Writeln('|| ||');
Writeln('|| ' + inttostr(Loads) + ' Loads done ||');
Writeln('|| ||');
Writeln('|| Happy Cutting! ||');
Writeln('===============================');
end;
Begin
StartTheSRL;
Repeat
ProgReport;
AntiRandomsandAntiBan;
ChatAndReport
FindandChop;
Dropping;
until(GetSkillLevel('Woodcutting')=GoalLevel);
Logout;
end.
Next Update: I don't know. What should I add?
I posted it for people who are too lazy to download it.
{
~~~~~~~~~~Skys~~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~
~~~~~~~~~Shadow~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~
~~~~~~~~Presents~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~
~ The Skys Shadow Tree Eater!
~ Made by me, Skys Shadow.
~ Credits to all the SRL team for the wonderful SRL include.
~ Setup lines 42-47
Instructions:
Setup Colors and Goal Level
Stand by the Trees you want to cut
Watch it once to make sure that all is well
Enjoy!
Update Info:
Alpha: Cut and Dropped
Beta: Added Goal Level
1.0: Changed Dropping Procedure
1.1: Added AntiRandoms
1.2: Changed Droping Procedure again
1.3: Fixed some bugs
1.4: Changed some antirandoms, Added Custom WaitTime, Added Progress Report
}
program Skys_Shadow_Powercutter;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\skill\WoodCutting.scar}
{.include SRL\SRL\extended\xAntiBan.scar}
var Loads: integer;
const
///////////////Set These Up//////////////////////////////////
TreeColor1 = 0000000; //First Tree Color //
TreeColor2 = 0000000; //Second Tree Color //
GoalLevel = 99; //The level you want the script to stop at //
Wieldaxe = 2; //1 for wielding axe 2 for axe in inventory //
TimetoWait = 2500; //Milliseconds between clicks on tree //
RunDirection = 'E'; //Uppercase direction that you run away//
/////////////////////////////////////////////////////////////
Procedure StartTheSRL;
Begin
SetupSRL;
Loads:= 1;
end;
Procedure ChatandReport;
begin
ActivateClient;
FixChat;
SRLRandomsReport;
End;
Procedure FindandChop;
begin
if(findcolorspiral(x,y,TreeColor1,15,15,615,457)) or
(findcolorspiral(x,y,TreeColor2,15,15,615,457))the n
MMouse(x,y,1,1)
if(isuptext('Chop')) then
clickmouse(x,y,true)
wait(Random(2000)+(TimetoWait))
end;
Procedure Dropping;
Begin
Repeat
FindandChop;
until (invfull)
If (invfull) then
begin
If wieldaxe = 1 then
begin
DropAll;
end
If wieldaxe = 2 then
begin
DropTo(2,28);
end
Loads:= Loads + 1;
end
end;
Procedure AntiRandomsandAntiBan;
begin
If (findfight) then
begin
RunAwayDirection(Rundirection);
wait (4000 + random(1000))
Runback;
end
FindMod;
FindFight;
InConvo;
FindMime;
FindHead;
DontBanMe(3);
Antiban;
end;
Procedure ProgReport;
begin
ClearReport;
Writeln('===============================')
Writeln('|| You Are Using ||');
Writeln('|| ||');
Writeln('|| The Skys Shadow ||');
Writeln('|| ||');
Writeln('|| TREE EATER! ||');
Writeln('|| ||');
Writeln('|| ' + inttostr(Loads) + ' Loads done ||');
Writeln('|| ||');
Writeln('|| Happy Cutting! ||');
Writeln('===============================');
end;
Begin
StartTheSRL;
Repeat
ProgReport;
AntiRandomsandAntiBan;
ChatAndReport
FindandChop;
Dropping;
until(GetSkillLevel('Woodcutting')=GoalLevel);
Logout;
end.