Some people have it so there bot record how many logs, drops, pockets, xp etc. the bot got u. I wanted to know how to do that too. How?
Some people have it so there bot record how many logs, drops, pockets, xp etc. the bot got u. I wanted to know how to do that too. How?
SCAR Code:Procedure ChopLog;
Begin
Repeat
//stuff to chop the log
Until(LogChopped);
Inc(TotalLogs); //logs + 1
End;
They just create a variable that holds the total and add to that![]()
Ce ne sont que des gueux
Umm, bit confused (plus i alrdy have untill invfull)how would i put it in debug box?
Heres my code in case
Code://///////////\\\\\\\\\\\\\ ////////////SCAR\\\\\\\\\\\\ ///////////////\\\\\\\\\\\\\\\ //////////////SCAR\\\\\\\\\\\\\\ /////////////////\\\\\\\\\\\\\\\\\ ////////////////SCAR\\\\\\\\\\\\\\\\ ///////////////////\\\\\\\\\\\\\\\\\\\ //////////////////SCAR\\\\\\\\\\\\\\\\\\ /////////////////////\\\\\\\\\\\\\\\\\\\\\ ////////////////////SCAR\\\\\\\\\\\\\\\\\\\\ ///////////////////////\\\\\\\\\\\\\\\\\\\\\\\ //////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\ /////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\ ////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\ ///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\ //////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\ /////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ////////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ///////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ //////////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ /////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ //////////////////////Edgville WoodCutter.scar\\\\\\\\\\\\\\\\\\\\\\ /////////////////////////////Version 0.0.2\\\\\\\\\\\\\\\\\\\\\\\\\\\\ //////////////////////////By: Zerghunter3000\\\\\\\\\\\\\\\\\\\\\\\\\\\\ /////////////////////////Thanks To: Mario97000\\\\\\\\\\\\\\\\\\\\\\\\\\\\ /////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Program WoodCutter; {.Include SRL/SRL.Scar} Var I: Integer; //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// Procedure DeclarePlayers; Begin Writeln('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|') Writeln('| Edgville Willow Cutter Ver. 0.0.3A |') Writeln('|By ECHO Productions made by Zerghunter3000|') Writeln('| Thanks to http://www.Villavu.com/ |') Writeln('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|') HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Writeln('{{Logging in...}}'); Players[0].Name := ''; // Put your Username here. Players[0].Pass := ''; // Put your Password here. Players[0].Nick := ''; // Put 3 letters of your username here. (No Caps) Players[0].Active := True; Writeln('{{Logged in.}}') End; //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// {You can Edit the phrase in between the '' if you would like.} Procedure BoringTalk; Begin If Not LoggedIn Then Exit; FindNormalRandoms; Case Random(120) Of 0: Begin Writeln('{{Boring Talk...}}') // <-- Do not Edit This. // TypeSend('WoodCutting is so boring...') End; 1: Begin Writeln('{{Boring Talk...}}') // <-- Do not Edit This. // TypeSend('I just CANT WAIT! Untill 99 woodcutiing!') End; 2: Begin Writeln('{{Boring Talk...}}') // <-- Do not Edit This. // TypeSend('This is gonna take forever...') End; 3: Begin Writeln('{{Boring Talk...}}') // <-- Do not Edit This. // TypeSend('Why did Jagex have to make this so dang hard!') End; 4: Begin Writeln('{{Boring Talk...}}') // <-- Do not Edit This. // TypeSend('I just wanna kill all the trees in RuneScape!') End; End; End; //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// Procedure DropPocket; Begin If Not LoggedIn Then Exit; FindNormalRandoms; Case Random(3) Of 0: Begin Writeln('{{Inventory Full.}}'); Wait(1274 + Random(631)); Writeln('{{Emptying Inventory...}}'); For I := 2 to 28 Do DropItem(I); End; 1: Begin Writeln('{{Inventory Full.}}'); Wait(1412 + Random(242)); Writeln('{{Emptying Inventory...}}'); For I := 20 to 28 Do DropItem(I); For I := 2 to 19 Do DropItem(I); End; 2: Begin Writeln('{{Inventory Full.}}'); Wait(937 + Random(619)); Writeln('{{Emptying Inventory...}}'); For I := 17 to 24 Do DropItem(I); For I := 2 to 16 Do DropItem(I); For I := 25 to 28 Do DropItem(I); End; End; End; Procedure AntiBan; Begin If Not LoggedIn Then Exit; FindNormalRandoms; Case Random(50) Of 0: Begin Writeln('{{Commencing WoodCutting Skill Check...}}'); HoverSkill('woodcutting',false); Wait(2453 + Random(432)); End; 1: Begin Writeln ('{{Commencing Mouse Pick up...}}'); PickUpMouse; End; 2: Begin Writeln('{{Commencing Turns : N, S ,N}}') MakeCompass('N'); Wait(341 + Random(124)); Makecompass('S'); Wait(124 + Random(131)); MakeCompass('N'); FindNormalRandoms; End; 3: Begin Writeln('{{Commencing Turns : E, W ,S}}') MakeCompass('E'); Wait(100 + Random(133)); Makecompass('W'); Wait(50 + Random(133)); MakeCompass('S'); FindNormalRandoms; End; 4: Begin Writeln('{{Commencing Turns : S, E ,N}}') MakeCompass('S'); Wait(854 + Random(244)); Makecompass('E'); Wait(674 + Random(367)); MakeCompass('N'); FindNormalRandoms; End; End; End; //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// Procedure ChopTree; Var X, Y: Integer; Begin If Not LoggedIn Then Exit; Writeln('Exiting Script... You Were not Logged In.') Repeat MakeCompass('N'); BoringTalk; FindNormalRandoms; If FindObj(X, Y, 'hop', 2575932, 35) Then Begin Writeln('{{Found Tree...}}'); Mouse(x, y, 0, 0, False); Writeln('{{Cutting Down Tree...}}'); ChooseOption('hop'); BoringTalk; End; Repeat Wait(1252 + Random(221)); AntiBan; Until Not IsUpText('illow') or InvFull; Until(InvFull); If InvFull Then DropPocket; ChopTree; End; Begin SetUpSRL; ActivateClient; DeclarePlayers; Repeat ChopTree; Until(AllPlayersInactive); End.
Last edited by Zerghunter3000; 10-25-2009 at 03:49 PM.
SCAR Code://///////////\\\\\\\\\\\\\
////////////SCAR\\\\\\\\\\\\
///////////////\\\\\\\\\\\\\\\
//////////////SCAR\\\\\\\\\\\\\\
/////////////////\\\\\\\\\\\\\\\\\
////////////////SCAR\\\\\\\\\\\\\\\\
///////////////////\\\\\\\\\\\\\\\\\\\
//////////////////SCAR\\\\\\\\\\\\\\\\\\
/////////////////////\\\\\\\\\\\\\\\\\\\\\
////////////////////SCAR\\\\\\\\\\\\\\\\\\\\
///////////////////////\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////Edgville WoodCutter.scar\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////Version 0.0.2\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////By: Zerghunter3000\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////Thanks To: Mario97000\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Program WoodCutter;
{.Include SRL/SRL.Scar}
Var I, TotalChopped: Integer;
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
Procedure DeclarePlayers;
Begin
Writeln('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|')
Writeln('| Edgville Willow Cutter Ver. 0.0.3A |')
Writeln('|By ECHO Productions made by Zerghunter3000|')
Writeln('| Thanks to [url]http://www.Villavu.com/[/url] |')
Writeln('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|')
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Writeln('{{Logging in...}}');
Players[0].Name := ''; // Put your Username here.
Players[0].Pass := ''; // Put your Password here.
Players[0].Nick := ''; // Put 3 letters of your username here. (No Caps)
Players[0].Active := True;
Players[0].Booleans[0] := True; // Is axe equipped?
Writeln('{{Logged in.}}')
End;
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
{You can Edit the phrase in between the '' if you would like.}
Procedure BoringTalk;
Begin
If Not LoggedIn Then Exit;
FindNormalRandoms;
Case Random(120) Of
0: Begin
Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
TypeSend('WoodCutting is so boring...')
End;
1: Begin
Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
TypeSend('I just CANT WAIT! Untill 99 woodcutiing!')
End;
2: Begin
Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
TypeSend('This is gonna take forever...')
End;
3: Begin
Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
TypeSend('Why did Jagex have to make this so dang hard!')
End;
4: Begin
Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
TypeSend('I just wanna kill all the trees in RuneScape!')
End;
End;
End;
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
Procedure DropPocket;
Begin
If Not LoggedIn Then Exit;
If Players[CurrentPlayer].Booleans[0] = True Then //
IncEx(TotalChopped, 28) //adds 28 if axe is equipped
Else //or 27 if its in inv
IncEx(TotalChopped, 27); //
FindNormalRandoms;
Case Random(3) Of
0: Begin
Writeln('{{Inventory Full.}}');
Wait(1274 + Random(631));
Writeln('{{Emptying Inventory...}}');
For I := 2 to 28 Do
DropItem(I);
End;
1: Begin
Writeln('{{Inventory Full.}}');
Wait(1412 + Random(242));
Writeln('{{Emptying Inventory...}}');
For I := 20 to 28 Do
DropItem(I);
For I := 2 to 19 Do
DropItem(I);
End;
2: Begin
Writeln('{{Inventory Full.}}');
Wait(937 + Random(619));
Writeln('{{Emptying Inventory...}}');
For I := 17 to 24 Do
DropItem(I);
For I := 2 to 16 Do
DropItem(I);
For I := 25 to 28 Do
DropItem(I);
End;
End;
WriteLn('');
WriteLn('Chopped '+ IntToStr(TotalChopped) +' logs.');
End;
Procedure AntiBan;
Begin
If Not LoggedIn Then Exit;
FindNormalRandoms;
Case Random(50) Of
0: Begin
Writeln('{{Commencing WoodCutting Skill Check...}}');
HoverSkill('woodcutting',false);
Wait(2453 + Random(432));
End;
1: Begin
Writeln ('{{Commencing Mouse Pick up...}}');
PickUpMouse;
End;
2: Begin
Writeln('{{Commencing Turns : N, S ,N}}')
MakeCompass('N');
Wait(341 + Random(124));
Makecompass('S');
Wait(124 + Random(131));
MakeCompass('N');
FindNormalRandoms;
End;
3: Begin
Writeln('{{Commencing Turns : E, W ,S}}')
MakeCompass('E');
Wait(100 + Random(133));
Makecompass('W');
Wait(50 + Random(133));
MakeCompass('S');
FindNormalRandoms;
End;
4: Begin
Writeln('{{Commencing Turns : S, E ,N}}')
MakeCompass('S');
Wait(854 + Random(244));
Makecompass('E');
Wait(674 + Random(367));
MakeCompass('N');
FindNormalRandoms;
End;
End;
End;
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
Procedure ChopTree;
Var
X, Y: Integer;
Begin
If Not LoggedIn Then Exit; Writeln('Exiting Script... You Were not Logged In.')
Repeat
MakeCompass('N');
BoringTalk;
FindNormalRandoms;
If FindObj(X, Y, 'hop', 2575932, 35) Then
Begin
Writeln('{{Found Tree...}}');
Mouse(x, y, 0, 0, False);
Writeln('{{Cutting Down Tree...}}');
ChooseOption('hop');
BoringTalk;
End;
Repeat
Wait(1252 + Random(221));
AntiBan;
Until Not IsUpText('illow') or InvFull;
Until(InvFull);
If InvFull Then
DropPocket;
ChopTree;
End;
Begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
Repeat
ChopTree;
Until(AllPlayersInactive);
End.
That should do it. Though I advise you to go over your script carefully and correctly insert begin and end; everywhere. This:
SCAR Code:if something = true then
dothat;
thendothat;
Has to be:
SCAR Code:if something = true then
begin
dothat;
thendothat;
end;
BUT! This would be correct:
SCAR Code:if something = true then
dothisonly;
And use correct indention! It will help loads with members app.! (2 spaces):
SCAR Code:If Something = True Then
Begin
While Something = True Do
Begin
IWantToDoThis;
If Failed Then
Break;
End;
End;
Ce ne sont que des gueux
Well, the edited script u gave me, does it only tell u how many logs were chopped? and plus how do i edit it so it records loads, xp, etc. and one more querstion: where do i find the records. and how do i make them display themselves?
Edgville WoodCutter Version 0.0.3 is out! Get it Now! Version 0.0.3!
Get it here:
http://www.villavu.com/forum/showthr...110#post648110
Yesterday is history. - Tommorrow is a Mistery. - But today is a Gift.
(Only if it was that simple)
You're making it too difficult for yourself
Btw, I've already made it say the amount of logs chopped after it has dropped one inv.
If you want it to count loads, you just make a new variable "TotalLoads" (or whatever you want to call it):
SCAR Code:Var I, TotalChopped, TotalLoads: Integer;
And where you want TotalLoads to go up by one, put this:
SCAR Code:Inc(TotalLoads);
I suggest you also read a few tutorials on variables available in the tut section.
Ce ne sont que des gueux
Yes! I got it. Now all I need to know is how to make it display all of this when the script ends.
Last edited by Zerghunter3000; 10-25-2009 at 04:14 PM.
Edgville WoodCutter Version 0.0.3 is out! Get it Now! Version 0.0.3!
Get it here:
http://www.villavu.com/forum/showthr...110#post648110
Yesterday is history. - Tommorrow is a Mistery. - But today is a Gift.
(Only if it was that simple)
That's odd.. Are you sure you have this:
SCAR Code:Var I, TotalChopped : Integer;
Ce ne sont que des gueux
Yes, I have:
and i have them all inserted in script. just need to know how to make it show up the way i want it to at the end of the script.Code:Var I, TotalChopped, TotalLoads, TotalXP: Integer;
i went to: Show Report but its blank so idk how.
(oh, and how do u do the code thing where the colors are like the ones in the script? i just do:
[code])
Edgville WoodCutter Version 0.0.3 is out! Get it Now! Version 0.0.3!
Get it here:
http://www.villavu.com/forum/showthr...110#post648110
Yesterday is history. - Tommorrow is a Mistery. - But today is a Gift.
(Only if it was that simple)
[scar] tags
To show these things you just have to WriteLn them:
SCAR Code:WriteLn('Total chopped: '+ IntToStr(TotalChopped) +'.'); //IntToStr (Integer to String) will make TotalChopped a string
Ce ne sont que des gueux
thx man, ur a real big help
(just seeing )
SCAR Code://///////////\\\\\\\\\\\\\
////////////SCAR\\\\\\\\\\\\
///////////////\\\\\\\\\\\\\\\
//////////////SCAR\\\\\\\\\\\\\\
/////////////////\\\\\\\\\\\\\\\\\
////////////////SCAR\\\\\\\\\\\\\\\\
///////////////////\\\\\\\\\\\\\\\\\\\
//////////////////SCAR\\\\\\\\\\\\\\\\\\
/////////////////////\\\\\\\\\\\\\\\\\\\\\
////////////////////SCAR\\\\\\\\\\\\\\\\\\\\
///////////////////////\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////Edgville WoodCutter.scar\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////Version 0.0.2\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////By: Zerghunter3000\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////Thanks To: Mario97000\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Program WoodCutter;
{.Include SRL/SRL.Scar}
Var I, TotalChopped, TotalLoads, TotalXP: Integer;
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
Procedure DeclarePlayers;
Begin
Writeln('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|')
Writeln('| Edgville Willow Cutter Ver. 0.0.3A |')
Writeln('|By ECHO Productions made by Zerghunter3000|')
Writeln('| Thanks to [url]http://www.Villavu.com/[/url] |')
Writeln('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|')
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Writeln('{{Logging in...}}');
Players[0].Name := ''; // Put your Username here.
Players[0].Pass := ''; // Put your Password here.
Players[0].Nick := ''; // Put 3 letters of your username here. (No Caps)
Players[0].Active := True;
Players[0].Booleans[0] := True; // Is axe equipped?
Writeln('{{Logged in.}}')
End;
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
{You can Edit the phrase in between the '' if you would like.}
Procedure BoringTalk;
Begin
If Not LoggedIn Then Exit;
FindNormalRandoms;
Case Random(120) Of
0: Begin
Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
TypeSend('WoodCutting is so boring...')
End;
1: Begin
Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
TypeSend('I just CANT WAIT! Untill 99 woodcutiing!')
End;
2: Begin
Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
TypeSend('This is gonna take forever...')
End;
3: Begin
Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
TypeSend('Why did Jagex have to make this so dang hard!')
End;
4: Begin
Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
TypeSend('I just wanna kill all the trees in RuneScape!')
End;
End;
End;
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
Procedure DropPocket;
Begin
Inc(TotalLoads);
If Not LoggedIn Then Exit;
If Players[CurrentPlayer].Booleans[0] = True Then //
IncEx(TotalChopped, 28) //adds 28 if axe is equipped
Else //or 27 if its in inv
IncEx(TotalChopped, 27); //
FindNormalRandoms;
Case Random(3) Of
0: Begin
Writeln('{{Inventory Full.}}');
Wait(1274 + Random(631));
Writeln('{{Emptying Inventory...}}');
For I := 2 to 28 Do
DropItem(I);
End;
1: Begin
Writeln('{{Inventory Full.}}');
Wait(1412 + Random(242));
Writeln('{{Emptying Inventory...}}');
For I := 20 to 28 Do
DropItem(I);
For I := 2 to 19 Do
DropItem(I);
End;
2: Begin
Writeln('{{Inventory Full.}}');
Wait(937 + Random(619));
Writeln('{{Emptying Inventory...}}');
For I := 17 to 24 Do
DropItem(I);
For I := 2 to 16 Do
DropItem(I);
For I := 25 to 28 Do
DropItem(I);
End;
End;
WriteLn('');
WriteLn('Chopped '+ IntToStr(TotalChopped) +' logs.');
End;
Procedure AntiBan;
Begin
If Not LoggedIn Then Exit;
FindNormalRandoms;
Case Random(50) Of
0: Begin
Writeln('{{Commencing WoodCutting Skill Check...}}');
HoverSkill('woodcutting',false);
Wait(2453 + Random(432));
End;
1: Begin
Writeln ('{{Commencing Mouse Pick up...}}');
PickUpMouse;
End;
2: Begin
Writeln('{{Commencing Turns : N, S ,N}}')
MakeCompass('N');
Wait(341 + Random(124));
Makecompass('S');
Wait(124 + Random(131));
MakeCompass('N');
FindNormalRandoms;
End;
3: Begin
Writeln('{{Commencing Turns : E, W ,S}}')
MakeCompass('E');
Wait(100 + Random(133));
Makecompass('W');
Wait(50 + Random(133));
MakeCompass('S');
FindNormalRandoms;
End;
4: Begin
Writeln('{{Commencing Turns : S, E ,N}}')
MakeCompass('S');
Wait(854 + Random(244));
Makecompass('E');
Wait(674 + Random(367));
MakeCompass('N');
FindNormalRandoms;
End;
End;
End;
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
Procedure ChopTree;
Var
X, Y: Integer;
Begin
If Not LoggedIn Then Exit; Writeln('Exiting Script... You Were not Logged In.')
Repeat
MakeCompass('N');
BoringTalk;
FindNormalRandoms;
If FindObj(X, Y, 'hop', 2575932, 35) Then
Begin
Writeln('{{Found Tree...}}');
Mouse(x, y, 0, 0, False);
Writeln('{{Cutting Down Tree...}}');
ChooseOption('hop');
BoringTalk;
End;
Repeat
Wait(1252 + Random(221));
AntiBan;
Until Not IsUpText('illow') or InvFull;
Until(InvFull);
If InvFull Then
DropPocket;
Inc(TotalXP);
If Players[CurrentPlayer].Booleans[0] = True Then
IncEx(TotalXP, 1890)
Else
IncEx(TotalXP, 1822);
WriteLn('~~~~~~~~~~~~~~~~~~');
WriteLn('|Total Chopped: '+ IntToStr(TotalChopped) +'.|');
WriteLn('|Total Loads: '+ IntToStr(TotalLoads) +'.|');
WriteLn('|Total Experience: '+ IntToStr(TotalXP) +'.|');
WriteLn('~~~~~~~~~~~~~~~~~~');
ChopTree;
End;
Begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
Repeat
ChopTree;
Until(AllPlayersInactive);
End.
Edgville WoodCutter Version 0.0.3 is out! Get it Now! Version 0.0.3!
Get it here:
http://www.villavu.com/forum/showthr...110#post648110
Yesterday is history. - Tommorrow is a Mistery. - But today is a Gift.
(Only if it was that simple)
There are currently 1 users browsing this thread. (0 members and 1 guests)