PDA

View Full Version : Skys Shadows Edgeville Yew Cutter



Skys Shadow
12-16-2006, 12:54 AM
All instructions are in the script. Thanks for reading!


{
~~~~~~~~~~Skys~~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~
~~~~~~~~~Shadow~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~
~~~~~~~~Presents~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~

~ The Skys Shadow Edgeville Yew Cutter!
~ Made by me, Skys Shadow.
~ Credits to all the SRL team for the wonderful SRL include.
~ SETUP LINES 71 AND 72!


Instructions:
Setup Account
Stand in Edgeville bank in the southmost booth
Watch it once to make sure that all is well
Enjoy!

Update Info:
Alpha: Just cut and bank
Beta: Added Login
V 1.0: Added Antirandoms, Antiban, and fixed bugs
V 1.1: Took away WelcomeScreen include
V 1.2: Added Progress Report, changed some procedures
V 1.3: Fixed Login bug
V 1.4: Added Multiple players
v 1.5: Added a form. Added Mouseflag procedures
}

program Skys_Shadow_Edgeville_Yew_Cutter;

{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
{.include SRL\SRL\extended\xAntiBan.scar}

var
Trips:integer;
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label15 : TLabel;
Label16 : TLabel;
Button1 : TButton;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Edit5 : TEdit;
Edit6 : TEdit;
Edit7 : TEdit;
Edit8 : TEdit;
Edit9 : TEdit;


///////Set Wieldaxe! Don't Touch Version #//////
const //
WieldAxe = 2; //1 for wielding, 2 for no //
Tripstodo = 0; // # of trips for each player //
VersionNumber = ' 1.5'; //Don't Touch! //
/////////////////////////////
Procedure DeclarePlayers; //
begin //
HowManyPlayers :=3; // Set Number of Players here. //
NumberOfPlayers(HowManyPlayers); // Leave alone //
CurrentPlayer:=0; // The blue # of the player wanted //
//
Players[0].Name :=Edit1.Text; //
Players[0].Pass :=Edit2.Text; //
Players[0].Nick :=Edit3.Text; //
//
Players[0].Loc :='Loc1'; //Not needed //
Players[0].Skill:=''; //Not needed //
Players[0].Active:=True; //Leave at true //
//
Players[1].Name :=Edit4.Text; //
Players[1].Pass :=Edit5.Text; //
Players[1].Nick :=Edit6.Text; //
Players[1].Loc :='Loc1'; //
Players[1].Skill:=''; //
Players[1].Active:=True; //
//
Players[2].Name :=Edit7.Text; //
Players[2].Pass :=Edit8.Text; //
Players[2].Nick :=Edit9.Text; //
Players[2].Loc :='Loc1'; //
Players[2].Skill:=''; //
Players[2].Active:=True; //
//
//
writeln(inttostr(HowManyPlayers)+' Players'); //
///////////////////////////////////////////////////////////////////////////
end;

procedure ButtonClick(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
end;

Procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 544;
frmDesign.Height := 480;
frmDesign.Caption := 'Skys Shadow Edgeville Yew Cutter';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 40;
Label1.Top := 15;
Label1.Width := 48;
Label1.Height := 13;
Label1.Caption := 'Username';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 40;
Label2.Top := 40;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 40;
Label3.Top := 61;
Label3.Width := 22;
Label3.Height := 13;
Label3.Caption := 'Nick';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 118;
Label4.Top := 3;
Label4.Width := 38;
Label4.Height := 13;
Label4.Caption := 'Player 1';
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 211;
Label5.Top := 64;
Label5.Width := 320;
Label5.Height := 13;
Label5.Caption :=
'The first 3 lowercase letters of your name. e.g. For Zezima, put' +
' in ezi';
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 40;
Label6.Top := 108;
Label6.Width := 48;
Label6.Height := 13;
Label6.Caption := 'Username';
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 40;
Label7.Top := 131;
Label7.Width := 46;
Label7.Height := 13;
Label7.Caption := 'Password';
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 40;
Label8.Top := 152;
Label8.Width := 22;
Label8.Height := 13;
Label8.Caption := 'Nick';
Label9 := TLabel.Create(frmDesign);
Label9.Parent := frmDesign;
Label9.Left := 69;
Label9.Top := 119;
Label9.Width := 3;
Label9.Height := 13;
Label10 := TLabel.Create(frmDesign);
Label10.Parent := frmDesign;
Label10.Left := 118;
Label10.Top := 93;
Label10.Width := 38;
Label10.Height := 13;
Label10.Caption := 'Player 2';
Label11 := TLabel.Create(frmDesign);
Label11.Parent := frmDesign;
Label11.Left := 40;
Label11.Top := 219;
Label11.Width := 48;
Label11.Height := 13;
Label11.Caption := 'Username';
Label12 := TLabel.Create(frmDesign);
Label12.Parent := frmDesign;
Label12.Left := 40;
Label12.Top := 242;
Label12.Width := 46;
Label12.Height := 13;
Label12.Caption := 'Password';
Label13 := TLabel.Create(frmDesign);
Label13.Parent := frmDesign;
Label13.Left := 40;
Label13.Top := 266;
Label13.Width := 22;
Label13.Height := 13;
Label13.Caption := 'Nick';
Label14 := TLabel.Create(frmDesign);
Label14.Parent := frmDesign;
Label14.Left := 120;
Label14.Top := 205;
Label14.Width := 38;
Label14.Height := 13;
Label14.Caption := 'Player 3';
Label15 := TLabel.Create(frmDesign);
Label15.Parent := frmDesign;
Label15.Left := 213;
Label15.Top := 18;
Label15.Width := 66;
Label15.Height := 13;
Label15.Caption := 'RS Username';
Label16 := TLabel.Create(frmDesign);
Label16.Parent := frmDesign;
Label16.Left := 212;
Label16.Top := 42;
Label16.Width := 64;
Label16.Height := 13;
Label16.Caption := 'RS Password';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 80;
Button1.Top := 401;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := '&Start';
Button1.ModalResult := 1;
Button1.TabOrder := 8;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 90;
Edit1.Top := 16;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 9;
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 90;
Edit2.Top := 39;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.PasswordChar := #1;
Edit2.TabOrder := 10;
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 90;
Edit3.Top := 63;
Edit3.Width := 121;
Edit3.Height := 21;
Edit3.TabOrder := 11;
Edit4 := TEdit.Create(frmDesign);
Edit4.Parent := frmDesign;
Edit4.Left := 90;
Edit4.Top := 108;
Edit4.Width := 121;
Edit4.Height := 21;
Edit4.TabOrder := 12;
Edit5 := TEdit.Create(frmDesign);
Edit5.Parent := frmDesign;
Edit5.Left := 90;
Edit5.Top := 130;
Edit5.Width := 121;
Edit5.Height := 21;
Edit5.PasswordChar := #1;
Edit5.TabOrder := 13;
Edit6 := TEdit.Create(frmDesign);
Edit6.Parent := frmDesign;
Edit6.Left := 90;
Edit6.Top := 153;
Edit6.Width := 121;
Edit6.Height := 21;
Edit6.TabOrder := 14;
Edit7 := TEdit.Create(frmDesign);
Edit7.Parent := frmDesign;
Edit7.Left := 90;
Edit7.Top := 219;
Edit7.Width := 121;
Edit7.Height := 21;
Edit7.TabOrder := 15;
Edit8 := TEdit.Create(frmDesign);
Edit8.Parent := frmDesign;
Edit8.Left := 90;
Edit8.Top := 242;
Edit8.Width := 121;
Edit8.Height := 21;
Edit8.TabOrder := 16;
Edit9 := TEdit.Create(frmDesign);
Edit9.Parent := frmDesign;
Edit9.Left := 90;
Edit9.Top := 266;
Edit9.Width := 121;
Edit9.Height := 21;
Edit9.TabOrder := 17;
end;

procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;

function IsWelcomeScreen: Boolean;
begin
if(GetColor(271, 292) = 8356779)and
(GetColor(499, 292) = 8356779)and
(GetColor(271, 381) = 8356779)then
Result := True;
end;

procedure WelcomeScreen;
begin
if(not(IsWelcomeScreen))then Exit;
MouseBox(275, 296, 495, 377, 1);
end;
//-----------------------------------------------//

Procedure Setup;
begin
SetupSRL;
ActivateClient;
ChatsOff;
Trips:= 0;
If (LoggedIn) then
begin
HighestAngle;
MakeCompass('n');
end;
If (not(LoggedIn)) then
LoginPlayer;
WelcomeScreen;
HighestAngle;
MakeCompass('n');
end;
//-----------------------------------------------//

Procedure ProgReport;
begin
ClearReport;
Writeln('===============================')
Writeln('= You Are Using =');
Writeln('= =');
Writeln('= The Skys Shadow Edgeville =');
Writeln('= =');
Writeln('= YEW CUTTER! =');
Writeln('= =');
WriteLn('= Version ' + VersionNumber + ' =');
Writeln('= =');
Writeln('= ' + inttostr(Trips) + ' Trips done =');
Writeln('= =');
Writeln('= Happy Cutting =');
Writeln('===============================');
end;
//-----------------------------------------------//

Procedure WalktoTrees;
begin
If (FindSymbol(x,y, 'rare trees')) then
begin
SetRun(true)
Mouse(x,y,1,1,true)
If (FlagPresent) then
repeat
wait(2000)
until (not(FlagPresent))
end
If (not(FindSymbol(x,y, 'rare trees')))then
begin
SetRun(true)
Mouse(747,280,1,1,true)
If (FlagPresent) then
repeat
wait(2000)
until (not(FlagPresent))
If (FindSymbol(x,y, 'rare trees')) then
begin
Mouse(x,y,1,1,true)
If (FlagPresent) then
repeat
wait(2000)
until (not(FlagPresent))
end
end
end;

//-----------------------------------------------//

Procedure ChoptheTrees;
begin
repeat
if (FindMSColor(x,y,3438704))or
(FindMSColor(x,y,3887184))or
(FindMSColor(x,y,1925200))then
MMouse(x,y,1,1)
If IsUpText('Chop') then
Mouse(x,y,1,1,true)
wait(5000+Random(5000)+Random(5000)+Random(5000))
until (invfull = true)
if (invfull = true) then
Trips := Trips + 1;
end;
//-----------------------------------------------//

Procedure WalktoBank;
begin
If (FindSymbol(x,y,'bank'))then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
If (FlagPresent) then
repeat
wait(2000)
until (not(FlagPresent))
end
If (not(FindSymbol(x,y,'bank')))then
begin
Mouse(789,173,1,1,true)
If (FlagPresent) then
repeat
wait(2000)
until (not(FlagPresent))
If (FindSymbol(x,y,'bank'))then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
If (FlagPresent) then
repeat
wait(2000)
until (not(FlagPresent))
end
end
end;
//-----------------------------------------------//

Procedure BanktheLogs;
begin
OpenBank;
If WieldAxe = 1 then
begin
DepositAll;
end
If WieldAxe = 2 then
begin
Deposit(2,28,2);
end
Trips:= Trips + 1;
end;
//-----------------------------------------------//

Procedure AntiRandomsandAntiBan;
begin
SRLRandomsReport;
FindNormalRandoms;
FindAxeHeadColor;
AttachHead;
DontBanMe(2);
If (FindEnt (3438704)) then
begin
Logout;
Wait(30000)
LoginPlayer;
end
end;
//-----------------------------------------------//

begin
SafeInitForm;
SafeShowFormModal;
DeclarePlayers;
Setup;
repeat
repeat
ProgReport;
WalktoTrees;
ChoptheTrees;
WalktoBank;
BanktheLogs;
AntiRandomsandAntiBan;
until (trips = Tripstodo);
If (trips = Tripstodo) then
Logout;
Nextplayer(true);
until (false);
end.

Dadeer
12-16-2006, 01:59 AM
im gonna test this ill tell you how it goes

Skys Shadow
12-16-2006, 02:04 AM
sweet thanks!

Dadeer
12-16-2006, 02:13 AM
It doesnt work very well did you test it?

Skys Shadow
12-16-2006, 02:17 AM
no cuz i don't have a 60 wc

if you could tell me what doesnt work that would be great

durkaman13
12-16-2006, 02:33 AM
i need the welcomescreen.scar could u send it to my email
soccaplyr013@sbcglobal.net

Skys Shadow
12-16-2006, 03:12 AM
download the SRL.exe from the downloads section it comes with it

Mjordan
12-16-2006, 03:50 AM
well i havent tested it, but it seems awfully short for a yew cutter.

Wyn
12-16-2006, 04:56 AM
what is the point of this?



Procedure AntiRandomsandAntiBan;
begin
SRLRandomsReport;
If (FindNormalRandoms) then
begin
TerminateScript;
end


If you have that it would stop the script when you get a random and thats not very good

durkadurka
12-16-2006, 01:18 PM
what is this? includes\SRL\SRL\misc\WelcomeScreen.scar does not exist. and i did download srl but i still cant find that.

durkaman13
12-16-2006, 03:20 PM
ok ty

the scar noob
12-16-2006, 03:30 PM
i also havent got that: includes\SRL\SRL\misc\WelcomeScreen.scarcan you guys also send me plz:
bulls52_3@hotmail.com
Thx :)

Skys Shadow
12-16-2006, 04:15 PM
what is the point of this?



Procedure AntiRandomsandAntiBan;
begin
SRLRandomsReport;
If (FindNormalRandoms) then
begin
TerminateScript;
end


If you have that it would stop the script when you get a random and thats not very good

ya this is just the first version and i'm changing that around for then next one which should come out soon

i'm also just going to put the welcomescreen functions and procedures in the script so it won't matter if you don't have welcomescreen.scar or not

the scar noob
12-16-2006, 10:00 PM
but in the meantime to test the script if it works, and use it, etc can you give me, send me or whatever the include welcomscreen.scar plz? :p:) hehe lol

Skys Shadow
12-16-2006, 10:54 PM
but in the meantime to test the script if it works, and use it, etc can you give me, send me or whatever the include welcomscreen.scar plz? :p:) hehe lol

its in the SRL.exe file

http://villu-reborn.com/attachment.php?attachmentid=1097&d=1161820796

Pyro
12-16-2006, 11:03 PM
Got a while to go yet. But its not too bad. Ill give you a few helpful hints. Im not being critical just trying to help.

1) you really need to get a woodcutter to test. Its very hard to perfect a script when you cant even test it

2) when walking you need to use flag; This is instead of the wait. SO it will wait until the flag disappears. Instead of just waiting that amount of time. This helps to improve the efficiency of the script because either 1) you wont be standing there while the timer goes and standing stationary or 2) there wont be enough time and youll end up looking for other thigns while your still moving

3) Maybe fix that antirandoms thing. It will logout if it finds a unsolvable. SO no need for it really.

4) Switch trees :o

5) open the door

Really 4 and 5 dont need to be added for a while yet. With the others it should work ok.

DRAC2GUNZ
12-17-2006, 12:03 AM
Cool, I hope this script goes far. Currently only got a few woodcutters going ( 7 ) but by the time their 60 I hope this script will be unstoppable ;)

Czepa
12-17-2006, 12:55 AM
ive got a woodcutter you can use.. message me over msn and we will talk

Skys Shadow
12-17-2006, 02:23 AM
umm ya thats not hijacking....

but anyways pyro thanks for the help. I had a lvl 60 woodcutter when i started the script but he got hax0rd (recovery and pw changed) so now i gotta get my lvl 41 up to 60.

I'll use the flag next time I didn't think about that.

And I'm definitely fixing the antirandoms.

Thanks for reading and replying!

EDIT: Took away the welcomescreen

Skys Shadow
12-18-2006, 12:06 AM
Ok Antirandoms are fixed a little bit. I added Progress report. I'm now putting in the mouse flag in

the scar noob
12-18-2006, 07:17 PM
what about the srl.exe file, what's in it? and is it save...?

Because i don't want any virases, spy-ware, add-ware, or whatever.

Skys Shadow
12-18-2006, 09:39 PM
it doesn't matter i took out the welcomescreen

Now updated! Fixed a login bug--Its actually pretty good now!

Skys Shadow
12-20-2006, 02:28 AM
Updated V 1.5!!! Now has forms and I used Mouseflag procedures! wewt!

whales
12-20-2006, 03:19 AM
For the next version I definitly recommend making it move to and from each tree .. While waiting for one to respawn move to the other chop that and then move back and so on.. Standing at one tree is kind of obvious..

Skys Shadow
12-20-2006, 02:10 PM
thats what i'm working on

the next version should come out today or tomorrow

Wiz4life2
12-20-2006, 07:13 PM
Gj Still needs improvment.. Im gonna test this illg et right back to u

Skys Shadow
12-20-2006, 08:44 PM
Gj Still needs improvment..

I know but I need feedback to change stuff. Thanks for testing!

kevii
12-22-2006, 01:13 AM
im about to test ^_^ just hit 60 WC

kushal
12-22-2006, 02:48 AM
ill try it now and tell u where there r bugs.

kevii
12-22-2006, 04:55 AM
Well mine never got to the tree :( It kidna messed up. lol

Skys Shadow
12-22-2006, 05:19 PM
what do you mean it kinda messed up? did it not click on the tree? or did it logout? what happened?

kevii
12-22-2006, 09:47 PM
It didnt move to the tree and just stayed there and logged out @.@ . Plus i stopped trying since when i clicked the tree myself i took ~30 hits for one yew log. And there were these two guys there arleady

Skys Shadow
12-23-2006, 06:02 PM
so it was a color finding problem

ya it does that to me sometimes and i'm fixing it

kevii
12-23-2006, 06:56 PM
Rightyo maybe ill just wait tilll ~70-75 WC For yews. Theyre coming in way way way way way too slow

Skys Shadow
12-23-2006, 07:17 PM
yews are always slow lol

straig
12-26-2006, 03:12 AM
well i watched it do 1 invin everything seemed to work but i didnt use a rune axe because i wasnt sure if it would get the head etc but im guna go auto at willows till 75 wc then try this again :)

Skys Shadow
12-28-2006, 10:46 PM
thanks for testing =D

beachescool
01-14-2007, 03:57 PM
hey i just tested and it didnt work very well. It ran from the bank to the tree and then found the tree. Then after the tree was cut down it just stood there and didnt move...like the mouse dint move at all and it dint change screens or anything. I suppose it was waiting for another tree to spawn but that takes longer than how long it takes to get logged out for not moving. I suggest when hes just standing there to switch between like ur pack and ur skills or whatever.

crimedevil
01-21-2007, 11:55 AM
Its only cutting the tree of the north side :s

satam
01-22-2007, 12:43 PM
why this script dint work?

Fetheroth
01-23-2007, 12:48 AM
hey if u want ur wcing lvl up get this script "no trees left behind" works very good it does most of the randoms and finds ur axe head :p

shadow22
01-25-2007, 07:25 PM
i will test it tonight i report back here tomoro :)

the scar noob
01-25-2007, 08:15 PM
just clicking with coords = bannage, try RadialWalk, somekinda difficult for me because i always seems to pick the wrong coords :)

shadow22
01-25-2007, 08:58 PM
not working good for me the tree take some time and it logged out at first time
seconed time got killed by tree spirit

ange vashes
01-29-2007, 12:32 AM
Ill definantly use this after i finished wcing use with my script to get 60 wc

drag0n poons
02-03-2007, 04:22 PM
so its working?