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.
{
~~~~~~~~~~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.