Skys Shadow
2006-12-18 16:55:03
Skys Shadow - SRL Member Application Form
Skys Shadow
What is the meaning to life?
To make more life =P
Where you Referred to SRL? If yes, by whom?
yes
Drewley got me started on SRL with his flax0r 2007 script
Programming Knowledge
Visual Basic, a little Java
Other Communitys
Moparisthebest.com Moparscape.org Ragingcoders.smfforfree2.com Drewley.net
How Long have You Played Runescape
1.5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
My first experience with coding was about a year ago when I got Visual Studio 2005 (vb, c++, c#, j#) for Christmas. About March, I got interested in Runescape macroing. I searched for a few days and found scar. I began using scripts the moment I saw them. Around July, I lost interest in Runescape playing/macroing/coding until November. I finally realized that I knew things that most other people my age didn't know (about computers, scripting, etc) but didn't use them often. I decided that I learn Pascal instead of just using scripts. I picked up really quickly (Pascal is easy and my mom was a Pascal teacher) and have been enjoying SCAR scripting for awhile now. My best script is my Edgeville yew cutter but I also have made a Powercutter and an autotalker. Also sorry about the low post count (I've been doing most my discussion on Moparisthebest.com)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
Skys Shadow
What is the meaning to life?
To make more life =P
Where you Referred to SRL? If yes, by whom?
yes
Drewley got me started on SRL with his flax0r 2007 script
Programming Knowledge
Visual Basic, a little Java
Other Communitys
Moparisthebest.com Moparscape.org Ragingcoders.smfforfree2.com Drewley.net
How Long have You Played Runescape
1.5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
My first experience with coding was about a year ago when I got Visual Studio 2005 (vb, c++, c#, j#) for Christmas. About March, I got interested in Runescape macroing. I searched for a few days and found scar. I began using scripts the moment I saw them. Around July, I lost interest in Runescape playing/macroing/coding until November. I finally realized that I knew things that most other people my age didn't know (about computers, scripting, etc) but didn't use them often. I decided that I learn Pascal instead of just using scripts. I picked up really quickly (Pascal is easy and my mom was a Pascal teacher) and have been enjoying SCAR scripting for awhile now. My best script is my Edgeville yew cutter but I also have made a Powercutter and an autotalker. Also sorry about the low post count (I've been doing most my discussion on Moparisthebest.com)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{
~~~~~~~~~~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. ——————————————————