Dumpin
2007-10-28 07:53:59
<!– BEGIN TEMPLATE: formanswers –>
Dumpin - SRL Member Application Form
Dumpin
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
A forum for WoW cheats had a small RS cheat section, there was a link to a script on this forum somewhere, here my Leeching started :P but that time is over.
Programming Knowledge
HTML and Little PHP, xHTML.
Other Communitys
Ehm, For RS cheating this is probaly the only one.
How Long have You Played Runescape
3-4 years I think
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Real name: Derk
From: Netherlands ( Just like WT-Fakawi ) :P
Age : 14
Male
________________________________________________________
when I first entered SRL I was a BIG leecher ( yes that are my words )..
anyway, about 3 months after that I decided I was going to be a programmer when I was grown-up, so I started learning scar :)
In the first I did allot of tutorials, but It didn't help to much, After that Masterkill Helped me with my errors and even made a script with me ( Chickenkiller)
After the making of that script I Learned ALOT more, so I updated my WillowPwnz0r… and now I am here, with all my scripting experience and a member apply.
________________________________________________________
About this Arena:
I Love it here… As you probably can see my Activity is Near the maximum.
I mainly love this Place because of all trust able people, the small amount of scammers ( didn't even see one lol ) and The Challenge of Scar, I am sure I will learn and make scripts, Until I have no time anymore, or I officially quit runescape.
I think this is all, PM me if you want more to know? :)
________________________________________________________
About my Infraction… this was a mistake by Rudoken ( Hobbit PMed me) Hobbit Couldn't remove my infraction, and said most of your guys knew it when I was going to apply, if you guys DON'T know it , then take a look here: http://www.villavu.com/forum/showthread.php?t=7117?p=243075#post243075
as you can see I warned them for gravediging, AND DID NOT GRAVE DIG!!!
_________________________________________
Sorry for My bad English, if this is hard to read, I am dutch ;)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Chicken killer by me and MASTERKILL
( masterkill said he would tell you what I did / he did)
WillowPwnz0r By Myself:
( this is the GOOD version of the one I released, I will update that one soon )
——————————————————
<!– END TEMPLATE: formanswers –>
Dumpin - SRL Member Application Form
Dumpin
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
A forum for WoW cheats had a small RS cheat section, there was a link to a script on this forum somewhere, here my Leeching started :P but that time is over.
Programming Knowledge
HTML and Little PHP, xHTML.
Other Communitys
Ehm, For RS cheating this is probaly the only one.
How Long have You Played Runescape
3-4 years I think
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Real name: Derk
From: Netherlands ( Just like WT-Fakawi ) :P
Age : 14
Male
________________________________________________________
when I first entered SRL I was a BIG leecher ( yes that are my words )..
anyway, about 3 months after that I decided I was going to be a programmer when I was grown-up, so I started learning scar :)
In the first I did allot of tutorials, but It didn't help to much, After that Masterkill Helped me with my errors and even made a script with me ( Chickenkiller)
After the making of that script I Learned ALOT more, so I updated my WillowPwnz0r… and now I am here, with all my scripting experience and a member apply.
________________________________________________________
About this Arena:
I Love it here… As you probably can see my Activity is Near the maximum.
I mainly love this Place because of all trust able people, the small amount of scammers ( didn't even see one lol ) and The Challenge of Scar, I am sure I will learn and make scripts, Until I have no time anymore, or I officially quit runescape.
I think this is all, PM me if you want more to know? :)
________________________________________________________
About my Infraction… this was a mistake by Rudoken ( Hobbit PMed me) Hobbit Couldn't remove my infraction, and said most of your guys knew it when I was going to apply, if you guys DON'T know it , then take a look here: http://www.villavu.com/forum/showthread.php?t=7117?p=243075#post243075
as you can see I warned them for gravediging, AND DID NOT GRAVE DIG!!!
_________________________________________
Sorry for My bad English, if this is hard to read, I am dutch ;)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Chicken killer by me and MASTERKILL
( masterkill said he would tell you what I did / he did)
{.include srl/srl.scar}
{///////////////////////////////////////////////////////////////////////////////
THIS SCRIPT IS CREATED BY 'MasterKill' AND 'Dumpin' ON SRL FORUMS (C)
<------------------------------------------------------------------------------>
CHICKEN KILLER WOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOT
<------------------------------------------------------------------------------>
END MORE GREAT STUFF! GL!
<------------------------------------------------------------------------------>
do NOT fill anything in in the script. just press play and fill in the for
(only once it's saving)
ALLWAYS ALLOW the pop ups!
<------------------------------------------------------------------------------>
HOW TO USE THE SCRIPT:
First fill in your_srl_id & your_srl_pass in line 41!
well, first move all your players to the chickens near lumberige. remember
thier names and passes, then you play the script, a form lovely form will pop
up, fill in your player names and passes(only once*), and hit start! the script
will look for the runescape screen and starts the first player! happy botting!
* the script got an saving function wich will save your player stuff, so you
only have to fill evrything in once! place of passwords store:
C:\Program Files\Scar 3.12\MasterKillDumpin\PlayerArray.txt
WARNING:
YOU NEED SRL STATUS TO RUN THIS SCRIPT
DON'T HAVE THAT? GO TO [url]WWW.STATS.SRL-FORUMS.COM[/url] }
const Your_SRL_ID = ''; Your_SRL_Pass = '';
{ place your id and Password above this line bitween the ''
<------------------------------------------------------------------------------>
some extra credits:
- Kevin_wolf: helping with the save'ing of the form
///////////////////////////////////////////////////////////////////////////////}
{------------------------------------------------------------------------------>
SCRIPT STUFF DO NOT TUTCH
<------------------------------------------------------------------------------}
var
responds, x, y, i, Fights1, featherspicked, NoFound: integer;
MaxAttackTime, KillTime, TimeKilling, Arrow1: Integer;
frmDesign : TForm;
HeadLabel1 : TLabel;
HeadLabel2 : TLabel;
UsernameLabel1 : TLabel;
PasswordLabel1 : TLabel;
NickLabel1 : TLabel;
FeatherLabel : TLabel;
Label1 : TLabel;
ActiveLabel1 : TLabel;
UsernameLabel3 : TLabel;
PasswordLabel3 : TLabel;
NickLabel3 : TLabel;
ActiveLabel3 : TLabel;
ActiveLabel2 : TLabel;
NickLabel2 : TLabel;
PasswordLabel2 : TLabel;
UsernameLabel2 : TLabel;
UsernameLabel4 : TLabel;
PasswordLabel4 : TLabel;
NickLabel4 : TLabel;
ActiveLabel4 : TLabel;
usernamelabel5 : TLabel;
PasswordLabel5 : TLabel;
NickLabel5 : TLabel;
ActiveLabel5 : TLabel;
UsernameLabel6 : TLabel;
Passwordlabel6 : TLabel;
NickLabel6 : TLabel;
FightstyleLabel4 : TLabel;
Label2 : TLabel;
FightstyleLabel1 : TLabel;
FightStylelabel5 : TLabel;
Activelabel6 : TLabel;
FightStyleLabel6 : TLabel;
UsernameLabel7 : TLabel;
Passwordlabel7 : TLabel;
NickLabel7 : TLabel;
ActiveLabel7 : TLabel;
FightStyleLabel7 : TLabel;
UsernameLabel8 : TLabel;
PasswordLabel8 : TLabel;
Nicklabel8 : TLabel;
ActiveLabel8 : TLabel;
FightstyleLabel8 : TLabel;
UsernameLabel9 : TLabel;
Passwordlabel9 : TLabel;
NickLabel9 : TLabel;
ActiveLabel9 : TLabel;
FightstyleLabel9 : TLabel;
UsernameLabel10 : TLabel;
Passwordlabel10 : TLabel;
Label3 : TLabel;
ActiveLabel10 : TLabel;
Fightstylelabel10 : TLabel;
srlidLabel1 : TLabel;
SRLpassLabel1 : TLabel;
Player10 : TGroupBox;
Player9 : TGroupBox;
Player8 : TGroupBox;
Player5 : TGroupBox;
Player7 : TGroupBox;
Player3 : TGroupBox;
FightstyleLabel3 : TLabel;
Player4 : TGroupBox;
FeatherBox : TCheckBox;
ExitButton : TButton;
StartButton : TButton;
SiteButton : TButton;
KillEdit : TEdit;
Player1 : TGroupBox;
UserNameEdits : array [0..9] of TEdit;
PassWordEdits : array [0..9] of TEdit;
NickEdits : array [0..9] of TEdit;
Activebox : array [0..9] of TComboBox;
FightStyleBox : array [0..9] of TComboBox;
Player2 : TGroupBox;
Player6 : TGroupBox;
SRL_IDEdit1 : TEdit;
Edit1 : TEdit;
Procedure PlayerReport;
begin
WriteLn('Chicken Killer by MasterKill and Dumpin');
WriteLn('<------------------------------------------------------------->');
WriteLn('Chickens Attacked : ' + intToStr(fights1));
WriteLn('Times Feathers Picked : ' + IntToStr(featherspicked));
WriteLn('Time Running : ' + TimeRunning);
WriteLn('<------------------------------------------------------------->');
WriteLn('C: Combat, A: Attack, S: Strengt, D: Defense, R: Range, H: HP');
for i:=0 to getarraylength(players)-1 do
begin
If Not (players[i].Name = '') then
WriteLn(Players[i].Name+' = '+Players[i].Loc+'. C: '+IntToStr(Players[i].Integers[0])+', A: '+IntToStr(Players[i].Integers[1])+', S: '+IntToStr(Players[i].Integers[2])+', D: '+IntToStr(Players[i].Integers[3])+', R: '+IntToStr(Players[i].Integers[4])+', H: '+IntToStr(Players[i].Integers[5])+', Active: ' + BoolToStr(Players[i].Active));
end;
end;
Procedure DeclarePlayers;
Begin;
NumberOfPlayers(10);
CurrentPlayer := 0;
Players[0].Name := UsernameEdits[0].text;
Players[0].Pass := PasswordEdits[0].text;
Players[0].Nick := NickEdits[0].text;
Players[0].active := (StrToBool(Activebox[0].text));
Players[0].Skill := Fightstylebox[0].text;
Players[1].Name := UsernameEdits[1].text;
Players[1].Pass := PasswordEdits[1].text;
Players[1].Nick := NickEdits[1].text;
Players[1].Active := (StrToBool(Activebox[1].text));
Players[1].Skill := Fightstylebox[1].text;
Players[2].Name := UsernameEdits[2].text;
Players[2].Pass := PasswordEdits[2].text;
Players[2].Nick := NickEdits[2].text;
Players[2].Active := (StrToBool(Activebox[2].text));
Players[2].Skill := Fightstylebox[2].text;
Players[3].Name := UsernameEdits[3].text;
Players[3].Pass := PasswordEdits[3].text;
Players[3].Nick := NickEdits[3].text;
Players[3].Active := (StrToBool(Activebox[3].text));
Players[3].Skill := Fightstylebox[3].text;
Players[4].Name := UsernameEdits[4].text;
Players[4].Pass := PasswordEdits[4].text;
Players[4].Nick := NickEdits[4].text;
Players[4].Active := (StrToBool(Activebox[4].text));
Players[4].Skill := Fightstylebox[4].text;
Players[5].Name := UsernameEdits[5].text;
Players[5].Pass := PasswordEdits[5].text;
Players[5].Nick := NickEdits[5].text;
Players[5].Active := (StrToBool(Activebox[5].text));
Players[5].Skill := Fightstylebox[5].text;
Players[6].Name := UsernameEdits[6].text;
Players[6].Pass := PasswordEdits[6].text;
Players[6].Nick := NickEdits[6].text;
Players[6].Active := (StrToBool(Activebox[6].text));
Players[6].Skill := Fightstylebox[6].text;
Players[7].Name := UsernameEdits[7].text;
Players[7].Pass := PasswordEdits[7].text;
Players[7].Nick := NickEdits[7].text;
Players[7].Active := (StrToBool(Activebox[7].text));
Players[7].Skill := Fightstylebox[7].text;
Players[8].Name := UsernameEdits[8].text;
Players[8].Pass := PasswordEdits[8].text;
Players[8].Nick := NickEdits[8].text;
Players[8].Active := (StrToBool(Activebox[8].text));
Players[8].Skill := Fightstylebox[8].text;
Players[9].Name := UsernameEdits[9].text;
Players[9].Pass := PasswordEdits[9].text;
Players[9].Nick := NickEdits[9].text;
Players[9].Active := (StrToBool(Activebox[9].text));
Players[9].Skill := Fightstylebox[9].text;
Killtime := StrToInt(KillEdit.Text);
//const
//Your_SRL_ID = '0SRL_IDEdit1.text'; // don't have this? go to:
//Your_SRL_Pass = 'Edit1'; // [url]http://www.stats.srl-forums.com/[/url]
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
Arrow1 := DTMFromString('78DA639CC6C4C010C3C8800CC24C38C1344C9' +
'4713E504D14AA1A982C5C4D1F504D24013553806A3208A8990054' +
'134640CD2CA09A14FC6A003E4F0669');
end;
procedure SafeInitForm; // Default Code
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal; // Default Code
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal; // Default Code
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure SiteClick(sender: TObject);
begin
ClearDeBug;
WriteLn('- Loading website...');
OpenWebPage('http://www.villavu.com/forum/showthread.php?t=19598?p=248053');
Wait(5000);
frmDesign.ModalResult:= mrOk;
WriteLn('');
WriteLn('- Site loaded, comments are always welcome!');
Wait(5000);
WriteLn('');
WriteLn('- Exit.');
WriteLn('');
TerminateScript;
end;
procedure ExitClick(sender: TObject);
begin
ClearDeBug;
frmDesign.ModalResult:= mrOk;
WriteLn('I hope you have a good reason to click exit =D bye!');
WriteLn('');
TerminateScript;
end;
procedure ClickButton(sender: TObject); // Adding Buttons and Interactivity
begin
//frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
DeclarePlayers;
end;
Procedure InitForm;
var
I: Integer;
begin
frmDesign := CreateForm;
frmDesign.Left := 332;
frmDesign.Top := 22;
frmDesign.Width := 789;
frmDesign.Height := 932;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBlack;
frmDesign.Font.Color := 16744448;
frmDesign.Font.Height := -16;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
HeadLabel1 := TLabel.Create(frmDesign);
HeadLabel1.Parent := frmDesign;
HeadLabel1.Left := 40;
HeadLabel1.Top := 32;
HeadLabel1.Width := 361;
HeadLabel1.Height := 65;
HeadLabel1.Caption := 'ChickenP0wnz0r';
HeadLabel1.Font.Color := clWhite;
HeadLabel1.Font.Height := -53;
HeadLabel1.Font.Name := 'Impact';
HeadLabel1.Font.Style := [];
HeadLabel1.ParentFont := False;
HeadLabel2 := TLabel.Create(frmDesign);
HeadLabel2.Parent := frmDesign;
HeadLabel2.Left := 192;
HeadLabel2.Top := 96;
HeadLabel2.Width := 332;
HeadLabel2.Height := 35;
HeadLabel2.Caption := 'By Masterkill and Dumpin';
HeadLabel2.Font.Color := clWhite;
HeadLabel2.Font.Height := -29;
HeadLabel2.Font.Name := 'Maiandra GD';
HeadLabel2.Font.Style := [];
HeadLabel2.ParentFont := False;
UsernameLabel1 := TLabel.Create(frmDesign);
UsernameLabel1.Parent := frmDesign;
UsernameLabel1.Left := 24;
UsernameLabel1.Top := 208;
UsernameLabel1.Width := 78;
UsernameLabel1.Height := 20;
UsernameLabel1.Caption := 'Username:';
UsernameLabel1.Font.Color := 16744448;
UsernameLabel1.Font.Height := -16;
UsernameLabel1.Font.Name := 'MS Sans Serif';
UsernameLabel1.Font.Style := [];
UsernameLabel1.ParentFont := False;
PasswordLabel1 := TLabel.Create(frmDesign);
PasswordLabel1.Parent := frmDesign;
PasswordLabel1.Left := 24;
PasswordLabel1.Top := 232;
PasswordLabel1.Width := 73;
PasswordLabel1.Height := 20;
PasswordLabel1.Caption := 'Password:';
PasswordLabel1.Font.Color := 16744448;
PasswordLabel1.Font.Height := -16;
PasswordLabel1.Font.Name := 'MS Sans Serif';
PasswordLabel1.Font.Style := [];
PasswordLabel1.ParentFont := False;
NickLabel1 := TLabel.Create(frmDesign);
NickLabel1.Parent := frmDesign;
NickLabel1.Left := 24;
NickLabel1.Top := 256;
NickLabel1.Width := 34;
NickLabel1.Height := 20;
NickLabel1.Caption := 'Nick:';
NickLabel1.Font.Color := 16744448;
NickLabel1.Font.Height := -16;
NickLabel1.Font.Name := 'MS Sans Serif';
NickLabel1.Font.Style := [];
NickLabel1.ParentFont := False;
FeatherLabel := TLabel.Create(frmDesign);
FeatherLabel.Parent := frmDesign;
FeatherLabel.Left := 512;
FeatherLabel.Top := 536;
FeatherLabel.Width := 101;
FeatherLabel.Height := 20;
FeatherLabel.Caption := 'Pick Feathers:';
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 512;
Label1.Top := 560;
Label1.Width := 53;
Label1.Height := 20;
Label1.Caption := 'Killtime:';
ActiveLabel1 := TLabel.Create(frmDesign);
ActiveLabel1.Parent := frmDesign;
ActiveLabel1.Left := 24;
ActiveLabel1.Top := 280;
ActiveLabel1.Width := 47;
ActiveLabel1.Height := 20;
ActiveLabel1.Caption := 'Active:';
UsernameLabel3 := TLabel.Create(frmDesign);
UsernameLabel3.Parent := frmDesign;
UsernameLabel3.Left := 24;
UsernameLabel3.Top := 536;
UsernameLabel3.Width := 78;
UsernameLabel3.Height := 20;
UsernameLabel3.Caption := 'Username:';
PasswordLabel3 := TLabel.Create(frmDesign);
PasswordLabel3.Parent := frmDesign;
PasswordLabel3.Left := 24;
PasswordLabel3.Top := 560;
PasswordLabel3.Width := 73;
PasswordLabel3.Height := 20;
PasswordLabel3.Caption := 'Password:';
NickLabel3 := TLabel.Create(frmDesign);
NickLabel3.Parent := frmDesign;
NickLabel3.Left := 24;
NickLabel3.Top := 584;
NickLabel3.Width := 34;
NickLabel3.Height := 20;
NickLabel3.Caption := 'Nick:';
ActiveLabel3 := TLabel.Create(frmDesign);
ActiveLabel3.Parent := frmDesign;
ActiveLabel3.Left := 24;
ActiveLabel3.Top := 608;
ActiveLabel3.Width := 47;
ActiveLabel3.Height := 20;
ActiveLabel3.Caption := 'Active:';
ActiveLabel2 := TLabel.Create(frmDesign);
ActiveLabel2.Parent := frmDesign;
ActiveLabel2.Left := 24;
ActiveLabel2.Top := 440;
ActiveLabel2.Width := 43;
ActiveLabel2.Height := 20;
ActiveLabel2.Caption := 'Active';
NickLabel2 := TLabel.Create(frmDesign);
NickLabel2.Parent := frmDesign;
NickLabel2.Left := 24;
NickLabel2.Top := 416;
NickLabel2.Width := 34;
NickLabel2.Height := 20;
NickLabel2.Caption := 'Nick:';
PasswordLabel2 := TLabel.Create(frmDesign);
PasswordLabel2.Parent := frmDesign;
PasswordLabel2.Left := 24;
PasswordLabel2.Top := 392;
PasswordLabel2.Width := 73;
PasswordLabel2.Height := 20;
PasswordLabel2.Caption := 'Password:';
UsernameLabel2 := TLabel.Create(frmDesign);
UsernameLabel2.Parent := frmDesign;
UsernameLabel2.Left := 24;
UsernameLabel2.Top := 368;
UsernameLabel2.Width := 78;
UsernameLabel2.Height := 20;
UsernameLabel2.Caption := 'Username:';
UsernameLabel4 := TLabel.Create(frmDesign);
UsernameLabel4.Parent := frmDesign;
UsernameLabel4.Left := 24;
UsernameLabel4.Top := 704;
UsernameLabel4.Width := 78;
UsernameLabel4.Height := 20;
UsernameLabel4.Caption := 'Username:';
PasswordLabel4 := TLabel.Create(frmDesign);
PasswordLabel4.Parent := frmDesign;
PasswordLabel4.Left := 24;
PasswordLabel4.Top := 728;
PasswordLabel4.Width := 73;
PasswordLabel4.Height := 20;
PasswordLabel4.Caption := 'Password:';
NickLabel4 := TLabel.Create(frmDesign);
NickLabel4.Parent := frmDesign;
NickLabel4.Left := 24;
NickLabel4.Top := 752;
NickLabel4.Width := 34;
NickLabel4.Height := 20;
NickLabel4.Caption := 'Nick:';
ActiveLabel4 := TLabel.Create(frmDesign);
ActiveLabel4.Parent := frmDesign;
ActiveLabel4.Left := 24;
ActiveLabel4.Top := 776;
ActiveLabel4.Width := 47;
ActiveLabel4.Height := 20;
ActiveLabel4.Caption := 'Active:';
usernamelabel5 := TLabel.Create(frmDesign);
usernamelabel5.Parent := frmDesign;
usernamelabel5.Left := 272;
usernamelabel5.Top := 208;
usernamelabel5.Width := 78;
usernamelabel5.Height := 20;
usernamelabel5.Caption := 'Username:';
PasswordLabel5 := TLabel.Create(frmDesign);
PasswordLabel5.Parent := frmDesign;
PasswordLabel5.Left := 272;
PasswordLabel5.Top := 232;
PasswordLabel5.Width := 73;
PasswordLabel5.Height := 20;
PasswordLabel5.Caption := 'Password:';
NickLabel5 := TLabel.Create(frmDesign);
NickLabel5.Parent := frmDesign;
NickLabel5.Left := 272;
NickLabel5.Top := 256;
NickLabel5.Width := 34;
NickLabel5.Height := 20;
NickLabel5.Caption := 'Nick:';
ActiveLabel5 := TLabel.Create(frmDesign);
ActiveLabel5.Parent := frmDesign;
ActiveLabel5.Left := 272;
ActiveLabel5.Top := 280;
ActiveLabel5.Width := 47;
ActiveLabel5.Height := 20;
ActiveLabel5.Caption := 'Active:';
UsernameLabel6 := TLabel.Create(frmDesign);
UsernameLabel6.Parent := frmDesign;
UsernameLabel6.Left := 272;
UsernameLabel6.Top := 368;
UsernameLabel6.Width := 78;
UsernameLabel6.Height := 20;
UsernameLabel6.Caption := 'Username:';
Passwordlabel6 := TLabel.Create(frmDesign);
Passwordlabel6.Parent := frmDesign;
Passwordlabel6.Left := 272;
Passwordlabel6.Top := 392;
Passwordlabel6.Width := 73;
Passwordlabel6.Height := 20;
Passwordlabel6.Caption := 'Password:';
NickLabel6 := TLabel.Create(frmDesign);
NickLabel6.Parent := frmDesign;
NickLabel6.Left := 272;
NickLabel6.Top := 416;
NickLabel6.Width := 34;
NickLabel6.Height := 20;
NickLabel6.Caption := 'Nick:';
FightstyleLabel4 := TLabel.Create(frmDesign);
FightstyleLabel4.Parent := frmDesign;
FightstyleLabel4.Left := 24;
FightstyleLabel4.Top := 800;
FightstyleLabel4.Width := 75;
FightstyleLabel4.Height := 20;
FightstyleLabel4.Caption := 'FightStyle:';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 24;
Label2.Top := 464;
Label2.Width := 75;
Label2.Height := 20;
Label2.Caption := 'FightStyle:';
FightstyleLabel1 := TLabel.Create(frmDesign);
FightstyleLabel1.Parent := frmDesign;
FightstyleLabel1.Left := 24;
FightstyleLabel1.Top := 304;
FightstyleLabel1.Width := 75;
FightstyleLabel1.Height := 20;
FightstyleLabel1.Caption := 'FightStyle:';
FightStylelabel5 := TLabel.Create(frmDesign);
FightStylelabel5.Parent := frmDesign;
FightStylelabel5.Left := 272;
FightStylelabel5.Top := 304;
FightStylelabel5.Width := 75;
FightStylelabel5.Height := 20;
FightStylelabel5.Caption := 'FightStyle:';
Activelabel6 := TLabel.Create(frmDesign);
Activelabel6.Parent := frmDesign;
Activelabel6.Left := 272;
Activelabel6.Top := 440;
Activelabel6.Width := 47;
Activelabel6.Height := 20;
Activelabel6.Caption := 'Active:';
FightStyleLabel6 := TLabel.Create(frmDesign);
FightStyleLabel6.Parent := frmDesign;
FightStyleLabel6.Left := 272;
FightStyleLabel6.Top := 464;
FightStyleLabel6.Width := 75;
FightStyleLabel6.Height := 20;
FightStyleLabel6.Caption := 'FightStyle:';
UsernameLabel7 := TLabel.Create(frmDesign);
UsernameLabel7.Parent := frmDesign;
UsernameLabel7.Left := 272;
UsernameLabel7.Top := 536;
UsernameLabel7.Width := 78;
UsernameLabel7.Height := 20;
UsernameLabel7.Caption := 'Username:';
Passwordlabel7 := TLabel.Create(frmDesign);
Passwordlabel7.Parent := frmDesign;
Passwordlabel7.Left := 272;
Passwordlabel7.Top := 560;
Passwordlabel7.Width := 73;
Passwordlabel7.Height := 20;
Passwordlabel7.Caption := 'Password:';
NickLabel7 := TLabel.Create(frmDesign);
NickLabel7.Parent := frmDesign;
NickLabel7.Left := 272;
NickLabel7.Top := 584;
NickLabel7.Width := 34;
NickLabel7.Height := 20;
NickLabel7.Caption := 'Nick:';
ActiveLabel7 := TLabel.Create(frmDesign);
ActiveLabel7.Parent := frmDesign;
ActiveLabel7.Left := 272;
ActiveLabel7.Top := 608;
ActiveLabel7.Width := 47;
ActiveLabel7.Height := 20;
ActiveLabel7.Caption := 'Active:';
FightStyleLabel7 := TLabel.Create(frmDesign);
FightStyleLabel7.Parent := frmDesign;
FightStyleLabel7.Left := 272;
FightStyleLabel7.Top := 632;
FightStyleLabel7.Width := 71;
FightStyleLabel7.Height := 20;
FightStyleLabel7.Caption := 'FightStyle';
UsernameLabel8 := TLabel.Create(frmDesign);
UsernameLabel8.Parent := frmDesign;
UsernameLabel8.Left := 272;
UsernameLabel8.Top := 704;
UsernameLabel8.Width := 78;
UsernameLabel8.Height := 20;
UsernameLabel8.Caption := 'Username:';
PasswordLabel8 := TLabel.Create(frmDesign);
PasswordLabel8.Parent := frmDesign;
PasswordLabel8.Left := 272;
PasswordLabel8.Top := 728;
PasswordLabel8.Width := 73;
PasswordLabel8.Height := 20;
PasswordLabel8.Caption := 'Password:';
Nicklabel8 := TLabel.Create(frmDesign);
Nicklabel8.Parent := frmDesign;
Nicklabel8.Left := 272;
Nicklabel8.Top := 752;
Nicklabel8.Width := 34;
Nicklabel8.Height := 20;
Nicklabel8.Caption := 'Nick:';
ActiveLabel8 := TLabel.Create(frmDesign);
ActiveLabel8.Parent := frmDesign;
ActiveLabel8.Left := 272;
ActiveLabel8.Top := 776;
ActiveLabel8.Width := 47;
ActiveLabel8.Height := 20;
ActiveLabel8.Caption := 'Active:';
FightstyleLabel8 := TLabel.Create(frmDesign);
FightstyleLabel8.Parent := frmDesign;
FightstyleLabel8.Left := 272;
FightstyleLabel8.Top := 800;
FightstyleLabel8.Width := 75;
FightstyleLabel8.Height := 20;
FightstyleLabel8.Caption := 'FightStyle:';
UsernameLabel9 := TLabel.Create(frmDesign);
UsernameLabel9.Parent := frmDesign;
UsernameLabel9.Left := 528;
UsernameLabel9.Top := 208;
UsernameLabel9.Width := 78;
UsernameLabel9.Height := 20;
UsernameLabel9.Caption := 'Username:';
Passwordlabel9 := TLabel.Create(frmDesign);
Passwordlabel9.Parent := frmDesign;
Passwordlabel9.Left := 528;
Passwordlabel9.Top := 232;
Passwordlabel9.Width := 73;
Passwordlabel9.Height := 20;
Passwordlabel9.Caption := 'Password:';
NickLabel9 := TLabel.Create(frmDesign);
NickLabel9.Parent := frmDesign;
NickLabel9.Left := 528;
NickLabel9.Top := 256;
NickLabel9.Width := 34;
NickLabel9.Height := 20;
NickLabel9.Caption := 'Nick:';
ActiveLabel9 := TLabel.Create(frmDesign);
ActiveLabel9.Parent := frmDesign;
ActiveLabel9.Left := 528;
ActiveLabel9.Top := 280;
ActiveLabel9.Width := 47;
ActiveLabel9.Height := 20;
ActiveLabel9.Caption := 'Active:';
FightstyleLabel9 := TLabel.Create(frmDesign);
FightstyleLabel9.Parent := frmDesign;
FightstyleLabel9.Left := 528;
FightstyleLabel9.Top := 304;
FightstyleLabel9.Width := 72;
FightstyleLabel9.Height := 20;
FightstyleLabel9.Caption := 'Fightstyle:';
UsernameLabel10 := TLabel.Create(frmDesign);
UsernameLabel10.Parent := frmDesign;
UsernameLabel10.Left := 528;
UsernameLabel10.Top := 368;
UsernameLabel10.Width := 78;
UsernameLabel10.Height := 20;
UsernameLabel10.Caption := 'Username:';
Passwordlabel10 := TLabel.Create(frmDesign);
Passwordlabel10.Parent := frmDesign;
Passwordlabel10.Left := 528;
Passwordlabel10.Top := 392;
Passwordlabel10.Width := 73;
Passwordlabel10.Height := 20;
Passwordlabel10.Caption := 'Password:';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 528;
Label3.Top := 416;
Label3.Width := 34;
Label3.Height := 20;
Label3.Caption := 'Nick:';
ActiveLabel10 := TLabel.Create(frmDesign);
ActiveLabel10.Parent := frmDesign;
ActiveLabel10.Left := 528;
ActiveLabel10.Top := 440;
ActiveLabel10.Width := 47;
ActiveLabel10.Height := 20;
ActiveLabel10.Caption := 'Active:';
Fightstylelabel10 := TLabel.Create(frmDesign);
Fightstylelabel10.Parent := frmDesign;
Fightstylelabel10.Left := 528;
Fightstylelabel10.Top := 464;
Fightstylelabel10.Width := 72;
Fightstylelabel10.Height := 20;
Fightstylelabel10.Caption := 'Fightstyle:';
srlidLabel1 := TLabel.Create(frmDesign);
srlidLabel1.Parent := frmDesign;
srlidLabel1.Left := 512;
srlidLabel1.Top := 584;
srlidLabel1.Width := 57;
srlidLabel1.Height := 20;
srlidLabel1.Caption := 'SRL ID:';
SRLpassLabel1 := TLabel.Create(frmDesign);
SRLpassLabel1.Parent := frmDesign;
SRLpassLabel1.Left := 512;
SRLpassLabel1.Top := 608;
SRLpassLabel1.Width := 74;
SRLpassLabel1.Height := 20;
SRLpassLabel1.Caption := 'SRL pass:';
Player10 := TGroupBox.Create(frmDesign);
Player10.Parent := frmDesign;
Player10.Left := 512;
Player10.Top := 344;
Player10.Width := 233;
Player10.Height := 153;
Player10.Caption := 'Player10';
Player10.TabOrder := 71;
Player9 := TGroupBox.Create(frmDesign);
Player9.Parent := frmDesign;
Player9.Left := 512;
Player9.Top := 184;
Player9.Width := 233;
Player9.Height := 153;
Player9.Caption := 'Player9';
Player9.TabOrder := 65;
Player8 := TGroupBox.Create(frmDesign);
Player8.Parent := frmDesign;
Player8.Left := 256;
Player8.Top := 680;
Player8.Width := 233;
Player8.Height := 153;
Player8.Caption := 'Player8';
Player8.TabOrder := 59;
Player7 := TGroupBox.Create(frmDesign);
Player7.Parent := frmDesign;
Player7.Left := 256;
Player7.Top := 512;
Player7.Width := 233;
Player7.Height := 153;
Player7.Caption := 'Player7';
Player7.TabOrder := 53;
Player3 := TGroupBox.Create(frmDesign);
Player3.Parent := frmDesign;
Player3.Left := 9;
Player3.Top := 512;
Player3.Width := 232;
Player3.Height := 153;
Player3.Caption := 'Player3';
Player3.TabOrder := 19;
FightstyleLabel3 := TLabel.Create(Player3);
FightstyleLabel3.Parent := Player3;
FightstyleLabel3.Left := 16;
FightstyleLabel3.Top := 120;
FightstyleLabel3.Width := 75;
FightstyleLabel3.Height := 20;
FightstyleLabel3.Caption := 'FightStyle:';
FightstyleBox[2] := TComboBox.Create(Player3);
FightstyleBox[2].Parent := Player3;
FightstyleBox[2].Left := 104;
FightstyleBox[2].Top := 120;
FightstyleBox[2].Width := 121;
FightstyleBox[2].Height := 21;
FightstyleBox[2].Font.Color := clBlack;
FightstyleBox[2].Font.Height := -11;
FightstyleBox[2].Font.Name := 'MS Sans Serif';
FightstyleBox[2].Font.Style := [];
FightstyleBox[2].ItemHeight := 13;
FightstyleBox[2].ParentFont := False;
FightstyleBox[2].TabOrder := 0;
FightstyleBox[2].Items.Add('Attack');
FightstyleBox[2].Items.Add('Strenght');
FightstyleBox[2].Items.Add('Defence');
FightstyleBox[2].Items.Add('Lowest Skill');
FightstyleBox[2].Items.Add('range');
FightstyleBox[2].Text := Players[2].Skill;
Player4 := TGroupBox.Create(frmDesign);
Player4.Parent := frmDesign;
Player4.Left := 9;
Player4.Top := 680;
Player4.Width := 232;
Player4.Height := 153;
Player4.Caption := 'Player4';
Player4.TabOrder := 24;
FeatherBox := TCheckBox.Create(frmDesign);
FeatherBox.Parent := frmDesign;
FeatherBox.Left := 616;
FeatherBox.Top := 536;
FeatherBox.Width := 97;
FeatherBox.Height := 17;
FeatherBox.Hint := 'pick Feathers yes or no';
FeatherBox.Caption := 'PickFeathers';
FeatherBox.Checked := True;
FeatherBox.Font.Color := 16744448;
FeatherBox.Font.Height := -16;
FeatherBox.Font.Name := 'MS Sans Serif';
FeatherBox.Font.Style := [];
FeatherBox.ParentFont := False;
FeatherBox.ParentShowHint := False;
FeatherBox.ShowHint := True;
FeatherBox.State := cbChecked;
FeatherBox.TabOrder := 3;
ExitButton := TButton.Create(frmDesign);
ExitButton.Parent := frmDesign;
ExitButton.Left := 56;
ExitButton.Top := 856;
ExitButton.Width := 97;
ExitButton.Height := 33;
ExitButton.Hint := 'Exit the Script.';
ExitButton.Caption := 'Exit';
ExitButton.ParentShowHint := False;
ExitButton.ShowHint := True;
ExitButton.TabOrder := 4;
ExitButton.OnClick := @ExitClick;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.Left := 168;
StartButton.Top := 856;
StartButton.Width := 97;
StartButton.Height := 33;
StartButton.Hint := 'Start the Script!';
StartButton.Caption := 'Start!';
StartButton.ParentShowHint := False;
StartButton.ShowHint := True;
StartButton.TabOrder := 5;
StartButton.Onclick := @ClickButton;
SiteButton := TButton.Create(frmDesign);
SiteButton.Parent := frmDesign;
SiteButton.Left := 280;
SiteButton.Top := 856;
SiteButton.Width := 97;
SiteButton.Height := 33;
SiteButton.Hint := 'Links to the Topic!';
SiteButton.Caption := 'Site Topic';
SiteButton.ParentShowHint := False;
SiteButton.ShowHint := True;
SiteButton.TabOrder := 6;
SiteButton.Onclick := @SiteClick;
KillEdit := TEdit.Create(frmDesign);
KillEdit.Parent := frmDesign;
KillEdit.Left := 616;
KillEdit.Top := 560;
KillEdit.Width := 33;
KillEdit.Height := 21;
KillEdit.Font.Color := clBlack;
KillEdit.Font.Height := -11;
KillEdit.Font.Name := 'MS Sans Serif';
KillEdit.Font.Style := [];
KillEdit.ParentFont := False;
KillEdit.TabOrder := 7;
KillEdit.Text := '15';
Player1 := TGroupBox.Create(frmDesign);
Player1.Parent := frmDesign;
Player1.Left := 8;
Player1.Top := 184;
Player1.Width := 233;
Player1.Height := 153;
Player1.Caption := 'Player1';
Player1.Font.Color := clWhite;
Player1.Font.Height := -16;
Player1.Font.Name := 'MS Sans Serif';
Player1.Font.Style := [];
Player1.ParentFont := False;
Player1.TabOrder := 17;
PasswordEdits[0] := TEdit.Create(frmDesign);
PasswordEdits[0].Parent := frmDesign;
PasswordEdits[0].Left := 112;
PasswordEdits[0].Top := 232;
PasswordEdits[0].Width := 121;
PasswordEdits[0].Height := 21;
PasswordEdits[0].Font.Color := 16744448;
PasswordEdits[0].Font.Height := -11;
PasswordEdits[0].Font.Name := 'MS Sans Serif';
PasswordEdits[0].Font.Style := [];
PasswordEdits[0].ParentFont := False;
PasswordEdits[0].TabOrder := 1;
PasswordEdits[0].Text := Players[0].Pass;
PasswordEdits[0].PasswordChar := '*';
UsernameEdits[0] := TEdit.Create(frmDesign);
UsernameEdits[0].Parent := frmDesign;
UsernameEdits[0].Left := 112;
UsernameEdits[0].Top := 208;
UsernameEdits[0].Width := 121;
UsernameEdits[0].Height := 21;
UsernameEdits[0].Hint := 'Enter your Username';
UsernameEdits[0].Font.Color := 16744448;
UsernameEdits[0].Font.Height := -11;
UsernameEdits[0].Font.Name := 'MS Sans Serif';
UsernameEdits[0].Font.Style := [];
UsernameEdits[0].ParentFont := False;
UsernameEdits[0].ParentShowHint := False;
UsernameEdits[0].ShowHint := True;
UsernameEdits[0].TabOrder := 0;
UsernameEdits[0].text := Players[0].Name;
NickEdits[0] := TEdit.Create(frmDesign);
NickEdits[0].Parent := frmDesign;
NickEdits[0].Left := 112;
NickEdits[0].Top := 256;
NickEdits[0].Width := 121;
NickEdits[0].Height := 21;
NickEdits[0].Font.Color := 16744448;
NickEdits[0].Font.Height := -11;
NickEdits[0].Font.Name := 'MS Sans Serif';
NickEdits[0].Font.Style := [];
NickEdits[0].MaxLength := 4;
NickEdits[0].ParentFont := False;
NickEdits[0].TabOrder := 2;
NickEdits[0].Text := Players[0].Nick
Activebox[0] := TComboBox.Create(frmDesign);
Activebox[0].Parent := frmDesign;
Activebox[0].Left := 112;
Activebox[0].Top := 280;
Activebox[0].Width := 121;
Activebox[0].Height := 21;
Activebox[0].Font.Color := clBlack;
Activebox[0].Font.Height := -11;
Activebox[0].Font.Name := 'MS Sans Serif';
Activebox[0].Font.Style := [];
Activebox[0].ItemHeight := 13;
Activebox[0].ParentFont := False;
Activebox[0].TabOrder := 12;
Activebox[0].Items.Add('True');
Activebox[0].Items.Add('False');
Activebox[0].text := BoolToStr(Players[0].Active);
Player2 := TGroupBox.Create(frmDesign);
Player2.Parent := frmDesign;
Player2.Left := 9;
Player2.Top := 344;
Player2.Width := 232;
Player2.Height := 153;
Player2.Caption := 'Player2';
Player2.Font.Color := clWhite;
Player2.Font.Height := -16;
Player2.Font.Name := 'MS Sans Serif';
Player2.Font.Style := [];
Player2.ParentFont := False;
Player2.TabOrder := 18;
UsernameEdits[1] := TEdit.Create(frmDesign);
UsernameEdits[1].Parent := frmDesign;
UsernameEdits[1].Left := 112;
UsernameEdits[1].Top := 368;
UsernameEdits[1].Width := 121;
UsernameEdits[1].Height := 21;
UsernameEdits[1].Font.Color := clBlack;
UsernameEdits[1].Font.Height := -11;
UsernameEdits[1].Font.Name := 'MS Sans Serif';
UsernameEdits[1].Font.Style := [];
UsernameEdits[1].ParentFont := False;
UsernameEdits[1].TabOrder := 8;
UsernameEdits[1].text := Players[1].Name;
PasswordEdits[1] := TEdit.Create(frmDesign);
PasswordEdits[1].Parent := frmDesign;
PasswordEdits[1].Left := 112;
PasswordEdits[1].Top := 392;
PasswordEdits[1].Width := 121;
PasswordEdits[1].Height := 21;
PasswordEdits[1].Font.Color := clBlack;
PasswordEdits[1].Font.Height := -11;
PasswordEdits[1].Font.Name := 'MS Sans Serif';
PasswordEdits[1].Font.Style := [];
PasswordEdits[1].ParentFont := False;
PasswordEdits[1].TabOrder := 9;
PasswordEdits[1].text := Players[1].Pass;
nickedits[1] := TEdit.Create(frmDesign);
nickedits[1].Parent := frmDesign;
nickedits[1].Left := 112;
nickedits[1].Top := 416;
nickedits[1].Width := 121;
nickedits[1].Height := 21;
nickedits[1].Font.Color := clBlack;
nickedits[1].Font.Height := -11;
nickedits[1].Font.Name := 'MS Sans Serif';
nickedits[1].Font.Style := [];
nickedits[1].MaxLength := 4;
nickedits[1].ParentFont := False;
nickedits[1].TabOrder := 10;
NickEdits[1].text := Players[1].Nick;
Activebox[1] := TComboBox.Create(frmDesign);
Activebox[1].Parent := frmDesign;
Activebox[1].Left := 112;
Activebox[1].Top := 440;
Activebox[1].Width := 121;
Activebox[1].Height := 21;
Activebox[1].DropDownCount := 2;
Activebox[1].Font.Color := clBlack;
Activebox[1].Font.Height := -11;
Activebox[1].Font.Name := 'MS Sans Serif';
Activebox[1].Font.Style := [];
Activebox[1].ItemHeight := 13;
Activebox[1].ParentFont := False;
Activebox[1].TabOrder := 11;
Activebox[1].Items.Add('True');
Activebox[1].Items.Add('False');
Activebox[1].text := BoolToStr(Players[1].Active);
UsernameEdits[2] := TEdit.Create(frmDesign);
UsernameEdits[2].Parent := frmDesign;
UsernameEdits[2].Left := 112;
UsernameEdits[2].Top := 536;
UsernameEdits[2].Width := 121;
UsernameEdits[2].Height := 21;
UsernameEdits[2].Font.Color := clBlack;
UsernameEdits[2].Font.Height := -11;
UsernameEdits[2].Font.Name := 'MS Sans Serif';
UsernameEdits[2].Font.Style := [];
UsernameEdits[2].ParentFont := False;
UsernameEdits[2].TabOrder := 13;
UsernameEdits[2].text := Players[2].Name;
PasswordEdits[2] := TEdit.Create(frmDesign);
PasswordEdits[2].Parent := frmDesign;
PasswordEdits[2].Left := 112;
PasswordEdits[2].Top := 560;
PasswordEdits[2].Width := 121;
PasswordEdits[2].Height := 21;
PasswordEdits[2].Font.Color := clBlack;
PasswordEdits[2].Font.Height := -11;
PasswordEdits[2].Font.Name := 'MS Sans Serif';
PasswordEdits[2].Font.Style := [];
PasswordEdits[2].ParentFont := False;
PasswordEdits[2].TabOrder := 14;
PasswordEdits[2].Text := Players[2].Pass;
NickEdits[2] := TEdit.Create(frmDesign);
NickEdits[2].Parent := frmDesign;
NickEdits[2].Left := 112;
NickEdits[2].Top := 584;
NickEdits[2].Width := 121;
NickEdits[2].Height := 21;
NickEdits[2].Font.Color := clBlack;
NickEdits[2].Font.Height := -11;
NickEdits[2].Font.Name := 'MS Sans Serif';
NickEdits[2].Font.Style := [];
NickEdits[2].MaxLength := 4;
NickEdits[2].ParentFont := False;
NickEdits[2].TabOrder := 15;
NickEdits[2].text := Players[2].Nick;
Activebox[2] := TComboBox.Create(frmDesign);
Activebox[2].Parent := frmDesign;
Activebox[2].Left := 112;
Activebox[2].Top := 608;
Activebox[2].Width := 121;
Activebox[2].Height := 21;
Activebox[2].Font.Color := clBlack;
Activebox[2].Font.Height := -11;
Activebox[2].Font.Name := 'MS Sans Serif';
Activebox[2].Font.Style := [];
Activebox[2].ItemHeight := 13;
Activebox[2].ParentFont := False;
Activebox[2].TabOrder := 16;
Activebox[2].Items.Add('True');
Activebox[2].Items.Add('False');
Activebox[2].text := BoolToStr(Players[2].Active);
UsernameEdits[3] := TEdit.Create(frmDesign);
UsernameEdits[3].Parent := frmDesign;
UsernameEdits[3].Left := 112;
UsernameEdits[3].Top := 704;
UsernameEdits[3].Width := 121;
UsernameEdits[3].Height := 21;
UsernameEdits[3].Font.Color := clBlack;
UsernameEdits[3].Font.Height := -11;
UsernameEdits[3].Font.Name := 'MS Sans Serif';
UsernameEdits[3].Font.Style := [];
UsernameEdits[3].ParentFont := False;
UsernameEdits[3].TabOrder := 20;
PasswordEdits[3] := TEdit.Create(frmDesign);
PasswordEdits[3].Parent := frmDesign;
PasswordEdits[3].Left := 112;
PasswordEdits[3].Top := 728;
PasswordEdits[3].Width := 121;
PasswordEdits[3].Height := 21;
PasswordEdits[3].Font.Color := clBlack;
PasswordEdits[3].Font.Height := -11;
PasswordEdits[3].Font.Name := 'MS Sans Serif';
PasswordEdits[3].Font.Style := [];
PasswordEdits[3].ParentFont := False;
PasswordEdits[3].TabOrder := 21;
PasswordEdits[3].Text := Players[3].Pass;
NickEdits[3] := TEdit.Create(frmDesign);
NickEdits[3].Parent := frmDesign;
NickEdits[3].Left := 112;
NickEdits[3].Top := 752;
NickEdits[3].Width := 121;
NickEdits[3].Height := 21;
NickEdits[3].Font.Color := clBlack;
NickEdits[3].Font.Height := -11;
NickEdits[3].Font.Name := 'MS Sans Serif';
NickEdits[3].Font.Style := [];
NickEdits[3].MaxLength := 4;
NickEdits[3].ParentFont := False;
NickEdits[3].TabOrder := 22;
NickEdits[3].text := Players[3].Nick;
ActiveBox[3] := TComboBox.Create(frmDesign);
ActiveBox[3].Parent := frmDesign;
ActiveBox[3].Left := 112;
ActiveBox[3].Top := 776;
ActiveBox[3].Width := 121;
ActiveBox[3].Height := 21;
ActiveBox[3].Font.Color := clBlack;
ActiveBox[3].Font.Height := -11;
ActiveBox[3].Font.Name := 'MS Sans Serif';
ActiveBox[3].Font.Style := [];
ActiveBox[3].ItemHeight := 13;
ActiveBox[3].ParentFont := False;
ActiveBox[3].TabOrder := 23;
ActiveBox[3].Items.Add('True');
ActiveBox[3].Items.Add('False');
Activebox[3].text := BoolToStr(Players[3].Active);
Player5 := TGroupBox.Create(frmDesign);
Player5.Parent := frmDesign;
Player5.Left := 256;
Player5.Top := 184;
Player5.Width := 233;
Player5.Height := 153;
Player5.Caption := 'Player5';
Player5.TabOrder := 29;
UsernameEdits[4] := TEdit.Create(frmDesign);
UsernameEdits[4].Parent := frmDesign;
UsernameEdits[4].Left := 360;
UsernameEdits[4].Top := 208;
UsernameEdits[4].Width := 121;
UsernameEdits[4].Height := 21;
UsernameEdits[4].Font.Color := clBlack;
UsernameEdits[4].Font.Height := -11;
UsernameEdits[4].Font.Name := 'MS Sans Serif';
UsernameEdits[4].Font.Style := [];
UsernameEdits[4].ParentFont := False;
UsernameEdits[4].TabOrder := 25;
PasswordEdits[4] := TEdit.Create(frmDesign);
PasswordEdits[4].Parent := frmDesign;
PasswordEdits[4].Left := 360;
PasswordEdits[4].Top := 232;
PasswordEdits[4].Width := 121;
PasswordEdits[4].Height := 21;
PasswordEdits[4].Font.Color := clBlack;
PasswordEdits[4].Font.Height := -11;
PasswordEdits[4].Font.Name := 'MS Sans Serif';
PasswordEdits[4].Font.Style := [];
PasswordEdits[4].ParentFont := False;
PasswordEdits[4].TabOrder := 26;
PasswordEdits[4].Text := Players[4].Pass;
NickEdits[4] := TEdit.Create(frmDesign);
NickEdits[4].Parent := frmDesign;
NickEdits[4].Left := 360;
NickEdits[4].Top := 256;
NickEdits[4].Width := 121;
NickEdits[4].Height := 21;
NickEdits[4].Font.Color := clBlack;
NickEdits[4].Font.Height := -11;
NickEdits[4].Font.Name := 'MS Sans Serif';
NickEdits[4].Font.Style := [];
NickEdits[4].MaxLength := 4;
NickEdits[4].ParentFont := False;
NickEdits[4].TabOrder := 27;
NickEdits[4].text := Players[4].Nick;
Activebox[4] := TComboBox.Create(frmDesign);
Activebox[4].Parent := frmDesign;
Activebox[4].Left := 360;
Activebox[4].Top := 280;
Activebox[4].Width := 121;
Activebox[4].Height := 21;
Activebox[4].Font.Color := clBlack;
Activebox[4].Font.Height := -12;
Activebox[4].Font.Name := 'MS Sans Serif';
Activebox[4].Font.Style := [];
Activebox[4].ItemHeight := 13;
Activebox[4].ParentFont := False;
Activebox[4].TabOrder := 28;
Activebox[4].Items.Add('True');
Activebox[4].Items.Add('False');
Activebox[4].text := BoolToStr(Players[4].Active);
Fightstylebox[3] := TComboBox.Create(frmDesign);
Fightstylebox[3].Parent := frmDesign;
Fightstylebox[3].Left := 112;
Fightstylebox[3].Top := 800;
Fightstylebox[3].Width := 121;
Fightstylebox[3].Height := 21;
Fightstylebox[3].Font.Color := clBlack;
Fightstylebox[3].Font.Height := -11;
Fightstylebox[3].Font.Name := 'MS Sans Serif';
Fightstylebox[3].Font.Style := [];
Fightstylebox[3].ItemHeight := 13;
Fightstylebox[3].ParentFont := False;
Fightstylebox[3].TabOrder := 30;
Fightstylebox[3].Items.Add('Attack');
Fightstylebox[3].Items.Add('Strenght');
Fightstylebox[3].Items.Add('Defence');
Fightstylebox[3].Items.Add('LowestSkill');
Fightstylebox[3].Items.Add('range');
Fightstylebox[3].Text := Players[3].Skill;
Fightstylebox[1] := TComboBox.Create(frmDesign);
Fightstylebox[1].Parent := frmDesign;
Fightstylebox[1].Left := 112;
Fightstylebox[1].Top := 464;
Fightstylebox[1].Width := 121;
Fightstylebox[1].Height := 21;
Fightstylebox[1].Font.Color := clBlack;
Fightstylebox[1].Font.Height := -11;
Fightstylebox[1].Font.Name := 'MS Sans Serif';
Fightstylebox[1].Font.Style := [];
Fightstylebox[1].ItemHeight := 13;
Fightstylebox[1].ParentFont := False;
Fightstylebox[1].TabOrder := 31;
Fightstylebox[1].Items.Add('Attack');
Fightstylebox[1].Items.Add('Strenght');
Fightstylebox[1].Items.Add('Defence');
Fightstylebox[1].Items.Add('Lowest Skill');
Fightstylebox[1].Items.Add('range');
FightstyleBox[1].Text := Players[1].Skill;
FightstyleBox[0] := TComboBox.Create(frmDesign);
FightstyleBox[0].Parent := frmDesign;
FightstyleBox[0].Left := 112;
FightstyleBox[0].Top := 304;
FightstyleBox[0].Width := 121;
FightstyleBox[0].Height := 21;
FightstyleBox[0].Font.Color := clBlack;
FightstyleBox[0].Font.Height := -11;
FightstyleBox[0].Font.Name := 'MS Sans Serif';
FightstyleBox[0].Font.Style := [];
FightstyleBox[0].ItemHeight := 13;
FightstyleBox[0].ParentFont := False;
FightstyleBox[0].TabOrder := 32;
FightstyleBox[0].Items.Add('Attack');
FightstyleBox[0].Items.Add('Strenght');
FightstyleBox[0].Items.Add('Defence');
FightstyleBox[0].Items.Add('Lowest Skill');
FightstyleBox[0].Items.Add('range');
FightstyleBox[0].Text := Players[0].Skill;
FightStyleBox[4] := TComboBox.Create(frmDesign);
FightStyleBox[4].Parent := frmDesign;
FightStyleBox[4].Left := 360;
FightStyleBox[4].Top := 304;
FightStyleBox[4].Width := 121;
FightStyleBox[4].Height := 21;
FightStyleBox[4].Font.Color := clBlack;
FightStyleBox[4].Font.Height := -11;
FightStyleBox[4].Font.Name := 'MS Sans Serif';
FightStyleBox[4].Font.Style := [];
FightStyleBox[4].ItemHeight := 13;
FightStyleBox[4].ParentFont := False;
FightStyleBox[4].TabOrder := 41;
FightStyleBox[4].Items.Add('Attack');
FightStyleBox[4].Items.Add('Strenght');
FightStyleBox[4].Items.Add('Defence');
FightStyleBox[4].Items.Add('Lowest Skill');
FightStyleBox[4].Items.Add('range');
FightstyleBox[4].Text := Players[4].Skill;
Player6 := TGroupBox.Create(frmDesign);
Player6.Parent := frmDesign;
Player6.Left := 256;
Player6.Top := 344;
Player6.Width := 233;
Player6.Height := 153;
Player6.Caption := 'Player6';
Player6.TabOrder := 47;
UsernameEdits[5] := TEdit.Create(frmDesign);
UsernameEdits[5].Parent := frmDesign;
UsernameEdits[5].Left := 360;
UsernameEdits[5].Top := 368;
UsernameEdits[5].Width := 121;
UsernameEdits[5].Height := 21;
UsernameEdits[5].Font.Color := clBlack;
UsernameEdits[5].Font.Height := -11;
UsernameEdits[5].Font.Name := 'MS Sans Serif';
UsernameEdits[5].Font.Style := [];
UsernameEdits[5].ParentFont := False;
UsernameEdits[5].TabOrder := 42;
PasswordEdits[5] := TEdit.Create(frmDesign);
PasswordEdits[5].Parent := frmDesign;
PasswordEdits[5].Left := 360;
PasswordEdits[5].Top := 392;
PasswordEdits[5].Width := 121;
PasswordEdits[5].Height := 21;
PasswordEdits[5].Font.Color := clBlack;
PasswordEdits[5].Font.Height := -11;
PasswordEdits[5].Font.Name := 'MS Sans Serif';
PasswordEdits[5].Font.Style := [];
PasswordEdits[5].ParentFont := False;
PasswordEdits[5].TabOrder := 43;
PasswordEdits[5].Text := Players[5].Pass;
NickEdits[5] := TEdit.Create(frmDesign);
NickEdits[5].Parent := frmDesign;
NickEdits[5].Left := 360;
NickEdits[5].Top := 416;
NickEdits[5].Width := 121;
NickEdits[5].Height := 21;
NickEdits[5].Font.Color := clBlack;
NickEdits[5].Font.Height := -11;
NickEdits[5].Font.Name := 'MS Sans Serif';
NickEdits[5].Font.Style := [];
NickEdits[5].MaxLength := 4;
NickEdits[5].ParentFont := False;
NickEdits[5].TabOrder := 44;
NickEdits[5].text := Players[5].Nick;
Activebox[5] := TComboBox.Create(frmDesign);
Activebox[5].Parent := frmDesign;
Activebox[5].Left := 360;
Activebox[5].Top := 440;
Activebox[5].Width := 121;
Activebox[5].Height := 21;
Activebox[5].Font.Color := clBlack;
Activebox[5].Font.Height := -11;
Activebox[5].Font.Name := 'MS Sans Serif';
Activebox[5].Font.Style := [];
Activebox[5].ItemHeight := 13;
Activebox[5].ParentFont := False;
Activebox[5].TabOrder := 45;
Activebox[5].Items.Add('True');
Activebox[5].Items.Add('False');
Activebox[5].text := BoolToStr(Players[5].Active);
FightStyleBox[5] := TComboBox.Create(frmDesign);
FightStyleBox[5].Parent := frmDesign;
FightStyleBox[5].Left := 360;
FightStyleBox[5].Top := 464;
FightStyleBox[5].Width := 121;
FightStyleBox[5].Height := 21;
FightStyleBox[5].Font.Color := clBlack;
FightStyleBox[5].Font.Height := -11;
FightStyleBox[5].Font.Name := 'MS Sans Serif';
FightStyleBox[5].Font.Style := [];
FightStyleBox[5].ItemHeight := 13;
FightStyleBox[5].ParentFont := False;
FightStyleBox[5].TabOrder := 46;
FightStyleBox[5].Items.Add('Attack');
FightStyleBox[5].Items.Add('Strenght');
FightStyleBox[5].Items.Add('Defence');
FightStyleBox[5].Items.Add('Lowest Skill');
FightStyleBox[5].Items.Add('range');
FightstyleBox[5].Text := Players[5].Skill;
UsernameEdits[6] := TEdit.Create(frmDesign);
UsernameEdits[6].Parent := frmDesign;
UsernameEdits[6].Left := 360;
UsernameEdits[6].Top := 536;
UsernameEdits[6].Width := 121;
UsernameEdits[6].Height := 21;
UsernameEdits[6].Font.Color := clBlack;
UsernameEdits[6].Font.Height := -11;
UsernameEdits[6].Font.Name := 'MS Sans Serif';
UsernameEdits[6].Font.Style := [];
UsernameEdits[6].ParentFont := False;
UsernameEdits[6].TabOrder := 48;
PasswordEdits[6] := TEdit.Create(frmDesign);
PasswordEdits[6].Parent := frmDesign;
PasswordEdits[6].Left := 360;
PasswordEdits[6].Top := 560;
PasswordEdits[6].Width := 121;
PasswordEdits[6].Height := 21;
PasswordEdits[6].Font.Color := clBlack;
PasswordEdits[6].Font.Height := -11;
PasswordEdits[6].Font.Name := 'MS Sans Serif';
PasswordEdits[6].Font.Style := [];
PasswordEdits[6].ParentFont := False;
PasswordEdits[6].TabOrder := 49;
PasswordEdits[6].text := Players[6].Pass;
NickEdits[6] := TEdit.Create(frmDesign);
NickEdits[6].Parent := frmDesign;
NickEdits[6].Left := 360;
NickEdits[6].Top := 584;
NickEdits[6].Width := 121;
NickEdits[6].Height := 21;
NickEdits[6].Font.Color := clBlack;
NickEdits[6].Font.Height := -11;
NickEdits[6].Font.Name := 'MS Sans Serif';
NickEdits[6].Font.Style := [];
NickEdits[6].MaxLength := 4;
NickEdits[6].ParentFont := False;
NickEdits[6].TabOrder := 50;
NickEdits[6].text := Players[6].Nick;
ActiveBox[6] := TComboBox.Create(frmDesign);
ActiveBox[6].Parent := frmDesign;
ActiveBox[6].Left := 360;
ActiveBox[6].Top := 608;
ActiveBox[6].Width := 121;
ActiveBox[6].Height := 21;
ActiveBox[6].Font.Color := clBlack;
ActiveBox[6].Font.Height := -11;
ActiveBox[6].Font.Name := 'MS Sans Serif';
ActiveBox[6].Font.Style := [];
ActiveBox[6].ItemHeight := 13;
ActiveBox[6].ParentFont := False;
ActiveBox[6].TabOrder := 51;
ActiveBox[6].Items.Add('True');
ActiveBox[6].Items.Add('False');
Activebox[6].text := BoolToStr(Players[6].Active);
Fightstylebox[6] := TComboBox.Create(frmDesign);
Fightstylebox[6].Parent := frmDesign;
Fightstylebox[6].Left := 360;
Fightstylebox[6].Top := 632;
Fightstylebox[6].Width := 121;
Fightstylebox[6].Height := 21;
Fightstylebox[6].Font.Color := clBlack;
Fightstylebox[6].Font.Height := -11;
Fightstylebox[6].Font.Name := 'MS Sans Serif';
Fightstylebox[6].Font.Style := [];
Fightstylebox[6].ItemHeight := 13;
Fightstylebox[6].ParentFont := False;
Fightstylebox[6].TabOrder := 52;
Fightstylebox[6].Items.Add('Attack');
Fightstylebox[6].Items.Add('Strenght');
Fightstylebox[6].Items.Add('Defence');
Fightstylebox[6].Items.Add('Lowest Skill');
Fightstylebox[6].Items.Add('range');
FightstyleBox[6].Text := Players[6].Skill;
UsernameEdits[7] := TEdit.Create(frmDesign);
UsernameEdits[7].Parent := frmDesign;
UsernameEdits[7].Left := 360;
UsernameEdits[7].Top := 704;
UsernameEdits[7].Width := 121;
UsernameEdits[7].Height := 21;
UsernameEdits[7].Font.Color := clBlack;
UsernameEdits[7].Font.Height := -11;
UsernameEdits[7].Font.Name := 'MS Sans Serif';
UsernameEdits[7].Font.Style := [];
UsernameEdits[7].ParentFont := False;
UsernameEdits[7].TabOrder := 54;
PasswordEdits[7] := TEdit.Create(frmDesign);
PasswordEdits[7].Parent := frmDesign;
PasswordEdits[7].Left := 360;
PasswordEdits[7].Top := 728;
PasswordEdits[7].Width := 121;
PasswordEdits[7].Height := 21;
PasswordEdits[7].Font.Color := clBlack;
PasswordEdits[7].Font.Height := -11;
PasswordEdits[7].Font.Name := 'MS Sans Serif';
PasswordEdits[7].Font.Style := [];
PasswordEdits[7].ParentFont := False;
PasswordEdits[7].TabOrder := 55;
PasswordEdits[7].Text := Players[7].Pass;
NickEdits[7] := TEdit.Create(frmDesign);
NickEdits[7].Parent := frmDesign;
NickEdits[7].Left := 360;
NickEdits[7].Top := 752;
NickEdits[7].Width := 121;
NickEdits[7].Height := 21;
NickEdits[7].Font.Color := clBlack;
NickEdits[7].Font.Height := -11;
NickEdits[7].Font.Name := 'MS Sans Serif';
NickEdits[7].Font.Style := [];
NickEdits[7].MaxLength := 4;
NickEdits[7].ParentFont := False;
NickEdits[7].TabOrder := 56;
NickEdits[7].text := Players[7].Nick;
Activebox[7] := TComboBox.Create(frmDesign);
Activebox[7].Parent := frmDesign;
Activebox[7].Left := 360;
Activebox[7].Top := 776;
Activebox[7].Width := 121;
Activebox[7].Height := 21;
Activebox[7].Font.Color := clBlack;
Activebox[7].Font.Height := -11;
Activebox[7].Font.Name := 'MS Sans Serif';
Activebox[7].Font.Style := [];
Activebox[7].ItemHeight := 13;
Activebox[7].ParentFont := False;
Activebox[7].TabOrder := 57;
Activebox[7].Items.Add('True');
Activebox[7].Items.Add('False');
Activebox[7].text := BoolToStr(Players[7].Active);
Fightstylebox[7] := TComboBox.Create(frmDesign);
Fightstylebox[7].Parent := frmDesign;
Fightstylebox[7].Left := 360;
Fightstylebox[7].Top := 800;
Fightstylebox[7].Width := 121;
Fightstylebox[7].Height := 21;
Fightstylebox[7].Font.Color := clBlack;
Fightstylebox[7].Font.Height := -11;
Fightstylebox[7].Font.Name := 'MS Sans Serif';
Fightstylebox[7].Font.Style := [];
Fightstylebox[7].ItemHeight := 13;
Fightstylebox[7].ParentFont := False;
Fightstylebox[7].TabOrder := 58;
Fightstylebox[7].Items.Add('Attack');
Fightstylebox[7].Items.Add('Strenght');
Fightstylebox[7].Items.Add('Defence');
Fightstylebox[7].Items.Add('Lowest Skill');
Fightstylebox[7].Items.Add('range');
FightstyleBox[7].Text := Players[7].Skill;
UsernameEdits[8] := TEdit.Create(frmDesign);
UsernameEdits[8].Parent := frmDesign;
UsernameEdits[8].Left := 616;
UsernameEdits[8].Top := 208;
UsernameEdits[8].Width := 121;
UsernameEdits[8].Height := 21;
UsernameEdits[8].Font.Color := clBlack;
UsernameEdits[8].Font.Height := -11;
UsernameEdits[8].Font.Name := 'MS Sans Serif';
UsernameEdits[8].Font.Style := [];
UsernameEdits[8].ParentFont := False;
UsernameEdits[8].TabOrder := 60;
PasswordEdits[8] := TEdit.Create(frmDesign);
PasswordEdits[8].Parent := frmDesign;
PasswordEdits[8].Left := 616;
PasswordEdits[8].Top := 232;
PasswordEdits[8].Width := 121;
PasswordEdits[8].Height := 21;
PasswordEdits[8].Font.Color := clBlack;
PasswordEdits[8].Font.Height := -11;
PasswordEdits[8].Font.Name := 'MS Sans Serif';
PasswordEdits[8].Font.Style := [];
PasswordEdits[8].ParentFont := False;
PasswordEdits[8].TabOrder := 61;
PasswordEdits[8].text := Players[8].Pass;
NickEdits[8] := TEdit.Create(frmDesign);
NickEdits[8].Parent := frmDesign;
NickEdits[8].Left := 616;
NickEdits[8].Top := 256;
NickEdits[8].Width := 121;
NickEdits[8].Height := 21;
NickEdits[8].Font.Color := clBlack;
NickEdits[8].Font.Height := -11;
NickEdits[8].Font.Name := 'MS Sans Serif';
NickEdits[8].Font.Style := [];
NickEdits[8].MaxLength := 4;
NickEdits[8].ParentFont := False;
NickEdits[8].TabOrder := 62;
NickEdits[8].text := Players[8].Nick;
ActiveBox[8] := TComboBox.Create(frmDesign);
ActiveBox[8].Parent := frmDesign;
ActiveBox[8].Left := 616;
ActiveBox[8].Top := 280;
ActiveBox[8].Width := 121;
ActiveBox[8].Height := 21;
ActiveBox[8].Font.Color := clBlack;
ActiveBox[8].Font.Height := -11;
ActiveBox[8].Font.Name := 'MS Sans Serif';
ActiveBox[8].Font.Style := [];
ActiveBox[8].ItemHeight := 13;
ActiveBox[8].ParentFont := False;
ActiveBox[8].TabOrder := 63;
ActiveBox[8].Items.Add('True');
ActiveBox[8].Items.Add('False');
Activebox[8].text := BoolToStr(Players[8].Active);
FightStyleBox[8] := TComboBox.Create(frmDesign);
FightStyleBox[8].Parent := frmDesign;
FightStyleBox[8].Left := 616;
FightStyleBox[8].Top := 304;
FightStyleBox[8].Width := 121;
FightStyleBox[8].Height := 21;
FightStyleBox[8].Font.Color := clBlack;
FightStyleBox[8].Font.Height := -11;
FightStyleBox[8].Font.Name := 'MS Sans Serif';
FightStyleBox[8].Font.Style := [];
FightStyleBox[8].ItemHeight := 13;
FightStyleBox[8].ParentFont := False;
FightStyleBox[8].TabOrder := 64;
FightStyleBox[8].Items.Add('Attack');
FightStyleBox[8].Items.Add('Strenght');
FightStyleBox[8].Items.Add('Defence');
FightStyleBox[8].Items.Add('Lowest Skill');
FightStyleBox[8].Items.Add('range');
FightstyleBox[8].Text := Players[8].Skill;
UsernameEdits[9] := TEdit.Create(frmDesign);
UsernameEdits[9].Parent := frmDesign;
UsernameEdits[9].Left := 616;
UsernameEdits[9].Top := 368;
UsernameEdits[9].Width := 121;
UsernameEdits[9].Height := 21;
UsernameEdits[9].Font.Color := clBlack;
UsernameEdits[9].Font.Height := -11;
UsernameEdits[9].Font.Name := 'MS Sans Serif';
UsernameEdits[9].Font.Style := [];
UsernameEdits[9].ParentFont := False;
UsernameEdits[9].TabOrder := 66;
PasswordEdits[9] := TEdit.Create(frmDesign);
PasswordEdits[9].Parent := frmDesign;
PasswordEdits[9].Left := 616;
PasswordEdits[9].Top := 392;
PasswordEdits[9].Width := 121;
PasswordEdits[9].Height := 21;
PasswordEdits[9].Font.Color := clBlack;
PasswordEdits[9].Font.Height := -11;
PasswordEdits[9].Font.Name := 'MS Sans Serif';
PasswordEdits[9].Font.Style := [];
PasswordEdits[9].ParentFont := False;
PasswordEdits[9].TabOrder := 67;
PasswordEdits[9].text := Players[9].Pass;
NickEdits[9] := TEdit.Create(frmDesign);
NickEdits[9].Parent := frmDesign;
NickEdits[9].Left := 616;
NickEdits[9].Top := 416;
NickEdits[9].Width := 121;
NickEdits[9].Height := 21;
NickEdits[9].Font.Color := clBlack;
NickEdits[9].Font.Height := -11;
NickEdits[9].Font.Name := 'MS Sans Serif';
NickEdits[9].Font.Style := [];
NickEdits[9].MaxLength := 4;
NickEdits[9].ParentFont := False;
NickEdits[9].TabOrder := 68;
NickEdits[9].Text := Players[9].Nick;
ActiveBox[9] := TComboBox.Create(frmDesign);
ActiveBox[9].Parent := frmDesign;
ActiveBox[9].Left := 616;
ActiveBox[9].Top := 440;
ActiveBox[9].Width := 121;
ActiveBox[9].Height := 21;
ActiveBox[9].Font.Color := clBlack;
ActiveBox[9].Font.Height := -11;
ActiveBox[9].Font.Name := 'MS Sans Serif';
ActiveBox[9].Font.Style := [];
ActiveBox[9].ItemHeight := 13;
ActiveBox[9].ParentFont := False;
ActiveBox[9].TabOrder := 69;
ActiveBox[9].Items.Add('True');
ActiveBox[9].Items.Add('False');
Activebox[9].text := BoolToStr(Players[9].Active);
FightStylebox[9] := TComboBox.Create(frmDesign);
FightStylebox[9].Parent := frmDesign;
FightStylebox[9].Left := 616;
FightStylebox[9].Top := 464;
FightStylebox[9].Width := 121;
FightStylebox[9].Height := 21;
FightStylebox[9].Font.Color := clBlack;
FightStylebox[9].Font.Height := -11;
FightStylebox[9].Font.Name := 'MS Sans Serif';
FightStylebox[9].Font.Style := [];
FightStylebox[9].ItemHeight := 13;
FightStylebox[9].ParentFont := False;
FightStylebox[9].TabOrder := 70;
FightStylebox[9].Items.Add('Attack');
FightStylebox[9].Items.Add('Strenght');
FightStylebox[9].Items.Add('Defence');
FightStylebox[9].Items.Add('Lowest Skill');
FightStylebox[9].Items.Add('range');
FightstyleBox[9].Text := Players[9].Skill;
SRL_IDEdit1 := TEdit.Create(frmDesign);
SRL_IDEdit1.Parent := frmDesign;
SRL_IDEdit1.Left := 616;
SRL_IDEdit1.Top := 584;
SRL_IDEdit1.Width := 121;
SRL_IDEdit1.Height := 21;
SRL_IDEdit1.Font.Color := clBlack;
SRL_IDEdit1.Font.Height := -11;
SRL_IDEdit1.Font.Name := 'MS Sans Serif';
SRL_IDEdit1.Font.Style := [];
SRL_IDEdit1.ParentFont := False;
SRL_IDEdit1.TabOrder := 78;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 616;
Edit1.Top := 608;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.Font.Color := clBlack;
Edit1.Font.Height := -11;
Edit1.Font.Name := 'MS Sans Serif';
Edit1.Font.Style := [];
Edit1.ParentFont := False;
Edit1.TabOrder := 79;
for I := 0 to 9 do
begin
UsernameEdits[I].Text := Players[I].Name;
PasswordEdits[I].PasswordChar := '*';
end;
end;
//Saves the player array to a file
procedure SavePlayerArray;
var
SaveBuffer: TStringList;
I: Integer;
begin
SaveBuffer := TStringList.Create;
try
SaveBuffer.Add(IntToStr(GetArrayLength(Players)));
for I := 0 to GetArrayLength(Players) - 1 do
begin
SaveBuffer.Add(Players[I].Name);
SaveBuffer.Add(Players[I].Pass);
SaveBuffer.Add(Players[I].Nick);
SaveBuffer.Add(BoolToStr(Players[I].Active));
SaveBuffer.Add(Players[I].Skill);
end;
SaveToFile(SaveBuffer, AppPath + 'MasterKillDumpin\PlayerArray.txt');
Writeln('Saved player array to ' + AppPath + 'MasterKillDumpin\PlayerArray.txt');
finally
SaveBuffer.Free;
end;
end;
//Loads the player array from a file
procedure NLoadPlayerArray;
var
LoadBuffer: TStringList;
I, Z: Integer;
begin
LoadBuffer := TStringList.Create;
try
if LoadFromFile(LoadBuffer, AppPath + 'MasterKillDumpin\PlayerArray.txt') then
for I := 0 to StrToInt(LoadBuffer.Strings[0]) - 1 do
begin
SetArrayLength(Players, I + 1);
Z := I * 5;
Players[I].Name := LoadBuffer.Strings[Z + 1];
Players[I].Pass := LoadBuffer.Strings[Z + 2];
Players[I].Nick := LoadBuffer.Strings[Z + 3];
Players[I].Active := StrToBool(LoadBuffer.Strings[Z + 4]);
Players[I].Skill := LoadBuffer.Strings[Z + 5];
end;
finally
HowManyPlayers := GetArrayLength(Players);
LoadBuffer.Free;
end;
end;
procedure FindATrade;
var
TradeTimeTicking: Integer;
begin
repeat
begin
if (not (FindColorTolerance (x, y, 8388736, 23, 437, 294, 459, 5))) then
begin
exit;
end;
if (FindColorTolerance (x, y, 8388736, 23, 437, 294, 459, 5)) then
begin
MoveMouseSmooth(x, y);
Wait(1000);
if IsUpTextMulti('ccept', 'rade', 'Accept') then
Mouse(x, y, 0, 0, True);
begin
TradeTimeTicking := 0
SleepAndMoveMouse(2000);
end;
end;
end;
if (not (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5))) then
begin
WriteLn(' Trading: ~ Error');
NOTrades := NOTrades + 1
exit;
end;
if (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5)) then
begin
ReportVars[2] := ReportVars[2] + 1;
WriteLn(' Trading! ~ now wait for an accept. max wait 25s');
repeat
if (FindColorTolerance (x, y, 16777215, 180, 296, 341, 317, 5)) then
begin
WriteLn(' ~ other player accepted! now we`ll accept to!');
Mouse(260, 192, 5, 5, True);
Wait(2000);
if (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5)) then
begin
WriteLn(' ~ we made it to the seccond window!');
WriteLn(' ~ now wait for an second accept. max wait 20s');
Wait(1500);
TradeTimeTicking := 0
repeat
if (FindColorTolerance (x, y, 16776960, 301, 38, 303, 42, 5)) then
begin
WriteLn(' ~ accepted! all we need to do now is...:');
Mouse(226, 311, 2, 2, True);
Case random (5) of
0: TypeSend('ty');
1: TypeSend('tnx');
2: TypeSend('yay');
3: TypeSend('hehehe');
4: TypeSend('woot');
end;
WriteLn(' ~ perfect sloved!');
Wait(1000);
exit;
end;
if (not (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5))) then
begin
WriteLn(' ~ the noob is not give`ing anything grr');
case random (5) of
0: TypeSend('grr');
1: TypeSend('pff');
2: TypeSend('=[');
3: TypeSend('why u trade me then... get a life');
4: TypeSend('gtfo');
end;
Trades := Trades + 1;
exit;
end;
if (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5)) then
begin
Wait(1000);
TradeTimeTicking := TradeTimeTicking + 1
end;
if ( TradeTimeTicking = 20 ) then
begin
WriteLn(' ~ took to long... now decine');
Mouse(295, 312, 2, 2, True);
case random (5) of
0: TypeSend('i dont have time for you');
1: TypeSend('if its not free then get lost');
2: TypeSend('naah');
3: TypeSend('get a live');
4: TypeSend('get lost');
end;
Trades := Trades + 1;
exit;
end;
until(false);
end;
end;
TradeTimeTicking := TradeTimeTicking + 1
Wait(1000);
if (not (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5))) then
begin
WriteLn(' ~ the noob is not give`ing anything grr');
case random (5) of
0: TypeSend('leave me alone then...');
1: TypeSend('pfff');
2: TypeSend('=[');
3: TypeSend('why u trade me then... get a life');
4: TypeSend('gtfo');
end;
Trades := Trades + 1;
exit;
end;
if ( TradeTimeTicking = 25 ) then
begin
WriteLn(' ~ took to long... now decine');
Mouse(259, 266, 5, 5, True);
case random (5) of
0: TypeSend('i dont have time for you');
1: TypeSend('if its not free then get lost');
2: TypeSend('naah');
3: TypeSend('get a live');
4: TypeSend('get lost');
end;
Trades := Trades + 1;
exit;
end;
until (false);
end;
until (false);
end;
Function AutoRespondZor(FindText, SayRandomText1, SayRandomText2, SayRandomText3: string; LookInLastIntegerLines: integer):Boolean;
var
textx, texty, Ymod: Integer;
TextSayd, TextFound : String;
begin
If (LookInLastIntegerLines > 8) then
begin
WriteLn(' auto respond [ERROR] Wrong >LookInLastIntegerLines< not setted up correct:');
WriteLn(' error in Respond: ' + FindText);
exit;
end;
case LookInLastIntegerLines of
1: Ymod := 441;
2: Ymod := 428;
3: Ymod := 414;
4: Ymod := 400;
5: Ymod := 386;
6: Ymod := 372;
7: Ymod := 358;
8: Ymod := 344;
end;
if (not (IsTextInAreaEx(8, Ymod, 291, 461, textx, texty, FindText, 12, smallchars, False, True, 0, 1, 16711680))) then
begin
exit;
end else
begin
if (SayRandomText1 = FindText) or
(SayRandomText2 = FindText) or
(SayRandomText3 = FindText) then
begin
WriteLn(' auto respond [ERROR] you CANT have the same >Saytext< as >FindText<');
WriteLn(' error in Respond: ' + FindText);
Exit;
end;
Result := True;
Case Random (3) of
0: begin
Typesend(SayRandomText1);
TextSayd := SayRandomText1
end;
1: begin
Typesend(SayRandomText2);
TextSayd := SayRandomText2
end;
2: begin
Typesend(SayRandomText3);
TextSayd := SayRandomText3
end;
end;
TextFound := FindText
ReportVars[3] := ReportVars[3] + 1;
responds := responds + 1
WriteLn(' -Auto Respond');
WriteLn(' unknown: ' + TextFound);
WriteLn(' ' + Players[CurrentPlayer].Name + ': '+ TextSayd);
WriteLn(' -Auto Respond');
end;
end;
Procedure HyRespond;
begin
AutoRespondZor('att',IntToStr(Players[CurrentPlayer].Integers[1]),'im '+ IntToStr(Players[CurrentPlayer].Integers[1]),IntToStr(Players[CurrentPlayer].Integers[1]), 1);
AutoRespondZor('Hello','hi','yow','hi hi', 1);
AutoRespondZor('str',IntToStr(Players[CurrentPlayer].Integers[2]),'im '+ IntToStr(Players[CurrentPlayer].Integers[2]),IntToStr(Players[CurrentPlayer].Integers[2]), 1);
AutoRespondZor('def',IntToStr(Players[CurrentPlayer].Integers[3]),'im '+ IntToStr(Players[CurrentPlayer].Integers[3]),IntToStr(Players[CurrentPlayer].Integers[3]), 1);
AutoRespondZor(Players[CurrentPlayer].Nick,'not now','no','im bussy', 1);
AutoRespondZor('Lol','=]','rofl','not funny', 1);
end;
Procedure FindAllRandoms; // By MasterKill
var
R: Integer;
begin
For R := 1 To 11 Do
begin
If Not LoggedIn Then Exit;
GameTab(4);
Case R Of
1: If FindMod then
begin
LogOut;
WriteLn('* Wait 15 + random 5 min. before come-back');
Wait(900000 + Random(300000));
WriteLn('* Time to come back! log in:');
LoginPlayer;
end;
2: FindTalk;
3: If SolveChatRandom then
begin
Players[CurrentPlayer].Loc := Players[CurrentPlayer].Rand
WriteLn(Players[CurrentPlayer].Name + ' = ' + Players[CurrentPlayer].Loc);
end;
4: if FindBox then SolveBox;
5: If FindDemon then
begin
Players[CurrentPlayer].Loc := 'Cammo random';
SolveDemon;
end;
6: If FindQuiz then
begin
Players[CurrentPlayer].Loc := 'Quiz random';
SolveQuiz;
end;
7: If FindDead then
begin
Players[CurrentPlayer].Loc := 'O dear your dead';
WriteLn('O dear you are dead');
LogOut;
end;
8: If FindMime then
begin
WriteLn('mime random found, can not slove...');
Players[CurrentPlayer].Loc := 'Mime random';
end;
9: If FindMaze then
begin
WriteLn('Maze random found, can not slove...');
Players[CurrentPlayer].Loc := 'Maze random'
end;
10: FindTalk;
11: If NoGameTab then
begin
Wait(5000 + random(3000));
if SolveChatRandom then Exit;
Players[CurrentPlayer].Loc := 'no GameTab';
LogOut;
end;
end;
end;
end;
Procedure Autoretiate;
begin
GameTab(1);
If not FindColor(x, y, 1777020, 624, 385, 719, 396) then
begin
Mouse(648, 372, 5, 5, True);
writeln('Auto Retaliate on');
end;
end;
procedure AntiBansz;
begin
case Random(3) of
1 : PickUpMouse;
2 : MMouse(20 + random(300), 20 + random(300), 5, 5);
3,4,5 : begin
MakeCompass('s');
MakeCompass('n');
end;
end;
end;
Procedure GetLevels;
begin
Players[CurrentPlayer].Integers[0] := GetCombatLevel;
Players[CurrentPlayer].Integers[1] := GetSkillLevel('attack');
Players[CurrentPlayer].Integers[2] := GetSkillLevel('strength');
Players[CurrentPlayer].Integers[3] := GetSkillLevel('defence');
Players[CurrentPlayer].Integers[4] := GetSkillLevel('range');
Players[CurrentPlayer].Integers[5] := GetSkillLevel('hitpoints');
end;
Procedure SetThaStyle(thestyle: string);
var
three: Boolean;
begin
GameTab(1);
Autoretiate;
SleepAndMoveMouse(100 + random(100));
If FindColorTolerance (x, y, 2070783, 651, 302, 718, 348, 10) then
Three := False else Three := True;
If Three then
begin
Case thestyle of
'att': SetFightMode(1);
'str': SetFightMode(2);
'def': SetFightMode(3);
End;
End else
begin
Case thestyle of
'att': SetFightMode(1);
'str': SetFightMode(2);
'def': SetFightMode(4);
end;
end;
end;
procedure Noarrows;
begin
If (Players[CurrentPlayer].Skill = 'range') then
begin
if InBlackChat('out of ammo') then
begin
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'NO MORE ARROWS';
Logout;
end;
end;
end;
procedure Walkback;
begin
Status('WE GOT LOST! error code #GL564');
LogOut;
end;
Procedure SetAttackStyle;
begin
Case Players[CurrentPlayer].Skill of
'Attack': SetThaStyle('att');
'Strenght': SetThaStyle('str');
'Defence': SetThaStyle('def');
'Lowest Skill': begin
If (Players[CurrentPlayer].Integers[2] <= Players[CurrentPlayer].Integers[1]) then If (Players[CurrentPlayer].Integers[2] <= Players[CurrentPlayer].Integers[3]) then
begin SetThaStyle('str'); exit; end;
If (Players[CurrentPlayer].Integers[1] <= Players[CurrentPlayer].Integers[3]) then if (Players[CurrentPlayer].Integers[1] <= Players[CurrentPlayer].Integers[2]) then
begin SetThaStyle('att'); exit; end;
If (Players[CurrentPlayer].Integers[3] <= Players[CurrentPlayer].Integers[1]) then if (Players[CurrentPlayer].Integers[3] <= Players[CurrentPlayer].Integers[2]) then
begin SetThaStyle('def'); exit; end;
end;
'range': begin GameTab(1); SetFightMode(2); end;
end;
end;
procedure EquipArrows;
begin
If (Players[CurrentPlayer].Skill = 'range') then
begin
GameTab(4);
if FindDTM(Arrow1, x, y, MMX1, MMY1, MMX2, MMY2) then
Mouse(x, y, 2, 2, true);
end;
end;
Function FindChickOutAttack(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tolerance: Integer): Boolean;
var
a, b, c, i, x1, y1, x2, y2, x3, y3: Integer;
Start: Boolean;
begin
For b := 0 to (GetArrayLength(Color)-1) do
Begin
if (FindColorSpiralTolerance(cx, cy, color[b], MSX1, MSY1, MSX2, MSY2, Tolerance)) then
Begin
Start := True;
Break;
end;
end;
If(Start)then
Begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
If not(LoggedIn)then
break;
a := a + 1;
If (a = 1) then
c := c + 1
else If (a = 3) then
c := c + 1;
For i := 1 to c do
Begin
If (a = 1) then
Begin
x1 := x1 + 30;
x2 := x2 + 30;
end else
If (a = 2) then
Begin
y1 := y1 - 20;
y2 := y2 - 20;
end else
If (a = 3) then
Begin
x1 := x1 - 30;
x2 := x2 - 30;
end else
If (a = 4) then
Begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
If (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
If (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
If (x2 > 515) then
Break;
For b := 0 to (GetArrayLength(Color)-1) do
Begin
If (FindColorTolerance(cx, cy, Color[b], x1, y1, x2, y2, tolerance)) then
Begin
if FindColor(x3, y3, 65280, (cx - 30), (cy - 30), (cx + 30), (cy + 30)) or
FindColor(x3, y3, 255, (cx - 30), (cy - 30), (cx + 30), (cy + 30)) then
begin
Result := False;
end else
begin
If FindColorTolerance(x3, y3, 4765130, (cx - 30), (cy - 30), (cx + 30), (cy + 30), 7) or
FindColorTolerance(x3, y3, 924548, (cx - 30), (cy - 30), (cx + 30), (cy + 30), 7) then
begin
MMouse(cx, cy, 0, 0)
if (IsUpTextMultiCustom(Text)) then
Begin
Result := True;
Exit;
end;
end;
Result := False;
end;
end;
end;
end;
if (a = 4) then a := 0;
until (x2 > 515) or (Result = True);
end;
end;
Function FindFeathersCostum(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tolerance: Integer): Boolean;
var
a, b, c, i, x1, y1, x2, y2, x3, y3: Integer;
Start: Boolean;
begin
For b := 0 to (GetArrayLength(Color)-1) do
Begin
if (FindColorSpiralTolerance(cx, cy, color[b], MSX1, MSY1, MSX2, MSY2, Tolerance)) then
Begin
Start := True;
Break;
end;
end;
If(Start)then
Begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
If not(LoggedIn)then
break;
a := a + 1;
If (a = 1) then
c := c + 1
else If (a = 3) then
c := c + 1;
For i := 1 to c do
Begin
If (a = 1) then
Begin
x1 := x1 + 30;
x2 := x2 + 30;
end else
If (a = 2) then
Begin
y1 := y1 - 20;
y2 := y2 - 20;
end else
If (a = 3) then
Begin
x1 := x1 - 30;
x2 := x2 - 30;
end else
If (a = 4) then
Begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
If (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
If (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
If (x2 > 515) then
Break;
For b := 0 to (GetArrayLength(Color)-1) do
Begin
If (FindColorTolerance(cx, cy, Color[b], x1, y1, x2, y2, tolerance)) then
Begin
if not FindColorTolerance(x3, y3, 9984, (cx - 5), (cy - 5), (cx + 5), (cy + 5), 5) then
begin
Result := False;
end else
begin
MMouse(cx, cy, 0, 0)
if (IsUpTextMultiCustom(Text)) then
Begin
Result := True;
Exit;
end;
end;
end;
end;
end;
if (a = 4) then a := 0;
until (x2 > 515) or (Result = True);
end;
end;
Function OutFight : boolean;
begin
if (FindColorTolerance (x, y, 65280, 175, 106, 338, 209, 5)) then
begin
Result := False;
end else
begin
Result := True;
end;
end;
Procedure PickArrows;
var
arr: boolean;
begin
If Not LoggedIN Then Exit;
If not (Players[CurrentPlayer].Skill = 'range') then exit;
repeat
Status('LookForArrows.');
If FindObjCustom(x, y, ['ake'], [2359, 923247], 5) then
begin
Mouse(x, y, 0, 0, False);
if ChooseOption('rrow') then
begin
Status('PickedAArrow.');
Wait(100);
Flag;
SleepAndMoveMouse(500 + random(500));
Arr := True;
end;
end else
begin
arr := False;
Status('NotFoundMoreArrows.');
exit;
end;
until not arr
end;
procedure PickFeathers;
var
Fea: Boolean;
begin
If Not LoggedIN Then Exit;
if not (Featherbox.Checked) then Exit;
repeat
Status('LookForFeathers.');
If FindFeathersCostum(x, y, ['eath'], [12171971], 5) then
begin
Mouse(x, y, 0, 0, False);
if ChooseOption('eath') then
begin
Status('PickFeathers.');
Wait(100);
Flag;
SleepAndMoveMouse(500 + random(500));
Fea := True;
featherspicked := featherspicked +1
ReportVars[1] := ReportVars[1] + 1;
end;
end else
begin
Fea := False;
Status('NotFoundMoreFeathers.');
exit;
end;
until not Fea
end;
Function FightChicken: boolean;
begin
If Not LoggedIN Then Exit;
repeat
if FindChickOutAttack(x, y, ['ick'], [8233655, 3561844], 3) then
begin
Mouse(x, y, 0, 0, False);
Wait(50 + random(50));
if ChooseOption('ttack') then
begin
Status('Attacking');
NoFound := 0;
MarkTime(MaxAttackTime);
HyRespond;
Result := True;
flag;
Wait(1000);
fights1 := fights1 +1;
ReportVars[0] := ReportVars[0] + 1;
Repeat
FindAllRandoms;
Noarrows;
SleepAndMoveMouse(500 + Random(500));
Until(OutFight) or (TimeFromMark(MaxAttackTime) > 20000)
exit;
end else
begin
Status('chicken missclick. #error code CM997');
end;
end else
begin
NoFound := NoFound + 1;
Status('NotFoundAChicken '+ IntToStr(NoFound) +'/15 #error code CNF3365');
FindAllRandoms;
SleepAndMoveMouse(1000 + Random(1000));
Result := False;
FindAllRandoms;
exit;
end;
Until(False);
end;
procedure StartPlayer;
begin;
If Not LoggedIn then exit;
MakeCompass('N');
HighestAngle;
SetRun(true);
SetChat('On', 1);
SetChat('Friends', 2);
SetChat('On', 3);
end;
Procedure HyperMainLoop;
begin
StartPlayer;
MarkTime(TimeKilling);
GetLevels;
SetAttackStyle;
PlayerReport;
repeat
if FightChicken then
begin
PickArrows;
PickFeathers;
end;
If (NoFound > 14) then WalkBack;
FindATrade;
FindAllRandoms;
EquipArrows;
until (not LoggedIn) or (TimeFromMark(TimeKilling) > (Killtime * 1000 * 60))
end;
procedure StartScript;
begin
ClearDebug;
DeclarePlayers;
for i:=0 to getarraylength(players)-1 do
begin
SetArrayLength(Players[i].integers, 6);
If Players[i].Active then
begin
Players[i].Loc := 'Chickens';
end else
begin
Players[i].Loc := 'not-in-use';
end;
end;
FindWindowBySize(766, 504);
Activateclient;
ClearDeBug;
LoginPlayer;
GameTab(4);
end;
Procedure AfterReport;
begin
ClearDeBug;
WriteLn('<-------- Chicken killer By Dumpin And MasterKill -------->');
WriteLn('');
WriteLn('Worked for : ' + TimeRunning);
WriteLn('Trade[s] made : ' + IntToStr(Trades));
WriteLn('Respond[s] made : ' + IntToStr(responds));
WriteLn('');
WriteLn('<--------------------------------------------------------->');
WriteLn('');
WriteLn('<--------------------------------------------------------->');
for I := 0 To HowManyPlayers - 1 do
begin
WriteLn(Players[i].name + ' = ' + Players[i].loc);
WriteLn('');
WriteLn('Chickens Owned: ' + intToStr(fights1));
writeln('Feathers Picked: ' +IntTostr(featherspicked));
WriteLn('');
WriteLn('<--------------------------------------------------------->');
end;
WriteLn('');
WriteLn('<----- Thanks for using, plz post this in our topic! ----->');
end;
Function NoMoreActive(WriteLin: boolean): Boolean;
var
hhek: integer;
begin
hhek := 0;
for I := 0 To HowManyPlayers - 1 do
begin
if (Players[i].active = True) then hhek := hhek + 1;
end;
If (hhek = 0) then
begin
If WriteLin then WriteLn('No more players active...');
Result := True;
exit;
end;
If WriteLin then
begin
if (hhek = 1) then WriteLn('we only got 1 more player active.');
if (hhek > 1) then WriteLn('we still got ' + IntToStr(hhek) + ' players active.');
end;
Result := False;
end;
Procedure LogInFalseTrue;
begin
If Not LoggedIn then Players[CurrentPlayer].active := False;
If NoMoreActive(False) then exit;
If Not LoggedIn then
begin
WriteLn('Player error, logging in:');
NextPlayer(False);
StartPlayer;
exit;
end;
WriteLn('succesfull switch:');
NextPlayer(True);
StartPlayer;
end;
var
xxxblu: Integer;
begin
SetUpSRL;
ScriptID := '412';
SRLID := Your_SRL_ID;
SRLPassword := Your_SRL_Pass;
if (Your_SRL_ID = '') or (Your_SRL_Pass = '') then
begin
xxxblu := 15;
repeat
ClearDeBug;
WriteLn('WARNING!');
WriteLn('');
WriteLn('- if you like to use this script you need to regiser at srl-forums!');
WriteLn(' a link to rigister yourself will open in '+ IntToStr(xxxblu) + ' seconds.');
Wait(1000);
xxxblu := xxxblu - 1;
If (xxxblu < 1) then
begin
OpenWebPage('http://www.stats.srl-forums.com/');
TerminateScript;
end;
until(False)
end;
SrlRandomsReport;
NumberOfPlayers(10);
NLoadPlayerArray;
SafeInitForm;
SafeShowFormModal;
wait(1000);
SavePlayerArray;
StartScript;
repeat
HyperMainLoop;
SrlRandomsReport;
LogInFalseTrue;
Until(NoMoreActive(True));
AfterReport;
end.WillowPwnz0r By Myself:
( this is the GOOD version of the one I released, I will update that one soon )
////////////////////////////////////////////////////////////////////////////////
// WILLOW PWNZOR BY DUMPIN /////////////////////////////////////////////////////
{
Credits to :
Masterkill: trade / respond function / helping me alot by
learning scar! thanks man.
HyperSecret: Uberent function.
this script Cuts and banks willows in Draynor village.
________________________________________________________________________________
Includes :
*> antiban
*> antirandom
*> new axe picker ( if old broken )
*> ent finding
*> progress report
*> Multiplayer
*> and much more!
_______________________________________________________________________________
*****> INSTRUCTIONS <*****
*> start at draynor bank
*> put axes in your first bank slot!
*> put 1 axe in your first INVENTORY slot
*> start the script logged out for less lag
*> Fill out the form
*> wait it 1 round going and see how it does
*> post a progress report after you are done!
///////////////////////////////////////////////////////////////////////////////}
program Willowpwner;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
var
x, y, responds, str, att, def, wc, axe, Brokeaxe, Loads2, bank, TradeTimeTicking, FailedBank, FailedChopping : integer;
foundbank : Boolean;
const
Loads = 10; // loads before switching players
Disguiseas = 'iTunes'; // Disguise Scar to..
Procedure DeclarePlayers;
Begin
Disguise(Disguiseas);
NumberOfPlayers(4);
CurrentPlayer := 0;
Players[0].Name := ''; // Player Name
Players[0].Pass := ''; // Player Pass
Players[0].Nick := ''; // Player Nick (if your name is 'macroman' then your nick should be 'acro')
Players[0].Active := true; // Is this player active? (True / False)
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := true;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := true;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := true;
Writeln('we are Using '+ IntToStr(HowManyPlayers) +' Players.');
Axe := DTMFromString('78DA6374606260E0666440067571BC601A26C' +
'AE80654C386AA06260B576307542346408D0F500D170135D64035' +
'2204D45800D5C8125003F2172B7E35001D6E033D'); { axe }
Brokeaxe := DTMFromString('78DA63CC666260E0646440066D29BC601A26C' +
'A580654C38BAA06260B57930654234B404D0A508D280135594035' +
'AC04D41402D5B0E157030033A903F4'); { broken axe }
end;
{*******************************************************************************
Procedure FindAllRandoms;
- Procedure by MasterKill
- Slove Randoms by the SRL team!
Description: Solves most randoms found.
*******************************************************************************}
Procedure FindAllRandoms;
var
R: Integer;
begin
For R := 1 To 11 Do
begin
If Not LoggedIn Then Exit;
Case R Of
1: If FindMod then
begin
LogOut;
WriteLn('* Wait 15 + random 5 min. before come-back');
Wait(900000 + Random(300000));
WriteLn('* Time to come back! log in:');
LoginPlayer;
end;
2: FindTalk;
3: If SolveChatRandom then
begin
Players[CurrentPlayer].Loc := Players[CurrentPlayer].Rand
WriteLn(Players[CurrentPlayer].Name + ' = ' + Players[CurrentPlayer].Loc);
end;
4: FindInventoryRandoms;
5: If FindDemon then
begin
Players[CurrentPlayer].Loc := 'Cammo random';
SolveDemon;
end;
6: If FindQuiz then
begin
Players[CurrentPlayer].Loc := 'Quiz random';
SolveQuiz;
end;
7: If FindDead then
begin
Players[CurrentPlayer].Loc := 'O dear your dead';
WriteLn('O dear you are dead');
LogOut;
end;
8: If FindMime then
begin
WriteLn('mime random found, can not slove...');
Players[CurrentPlayer].Loc := 'Mime random';
end;
9: If FindMaze then
begin
WriteLn('Maze random found, can not slove...');
Players[CurrentPlayer].Loc := 'Maze random'
end;
10: FindTalk;
11: If NoGameTab then
begin
Wait(5000 + random(3000));
if SolveChatRandom then Exit;
Players[CurrentPlayer].Loc := 'no GameTab';
LogOut;
end;
end;
end;
end;
procedure getthelevels;
begin
att := GetSkillLevel('attack');
str := GetSkillLevel('strength');
def := GetSkillLevel('defence');
wc := GetSkillLevel('Woodcutting');
end;
procedure antiban;
begin
case Random(3) of
1 : begin
PickUpMouse;
end;
2 : begin
MMouse(20 + random(300), 20 + random(300), 5, 5);
end;
3 : begin
MakeCompass('s');
MakeCompass('n');
end;
4 : begin
MakeCompass('e');
MakeCompass('n');
end;
5 : begin
MakeCompass('w');
MakeCompass('s');
end;
end;
end;
// By masterkill
Function AutoRespondZor(FindText, SayRandomText1, SayRandomText2, SayRandomText3: string; LookInLastIntegerLines: integer):Boolean;
var
textx, texty, Ymod: Integer;
TextSayd, TextFound : String;
begin
If (LookInLastIntegerLines > 8) then
begin
WriteLn(' auto respond [ERROR] Wrong >LookInLastIntegerLines< not setted up correct:');
WriteLn(' error in Respond: ' + FindText);
exit;
end;
case LookInLastIntegerLines of
1: Ymod := 441;
2: Ymod := 428;
3: Ymod := 414;
4: Ymod := 400;
5: Ymod := 386;
6: Ymod := 372;
7: Ymod := 358;
8: Ymod := 344;
end;
if (not (IsTextInAreaEx(8, Ymod, 291, 461, textx, texty, FindText, 12, smallchars, False, True, 0, 1, 16711680))) then
begin
exit;
end else
begin
if (SayRandomText1 = FindText) or
(SayRandomText2 = FindText) or
(SayRandomText3 = FindText) then
begin
WriteLn(' auto respond [ERROR] you CANT have the same >Saytext< as >FindText<');
WriteLn(' error in Respond: ' + FindText);
Exit;
end;
Result := True;
Case Random (3) of
0: begin
Typesend(SayRandomText1);
TextSayd := SayRandomText1
end;
1: begin
Typesend(SayRandomText2);
TextSayd := SayRandomText2
end;
2: begin
Typesend(SayRandomText3);
TextSayd := SayRandomText3
end;
end;
TextFound := FindText
responds := responds + 1
WriteLn(' -Auto Respond');
WriteLn(' unknown: ' + TextFound);
WriteLn(' ' + Players[CurrentPlayer].Name + ': '+ TextSayd);
WriteLn(' -Auto Respond');
end;
end;
// Masterkill
Procedure HyRespond;
begin
AutoRespondZor('Hi','yoo','yo','ewa', 1);
AutoRespondZor('Hello','yoo','yo','ewa', 1);
AutoRespondZor('Noob','stfu','look at yourself','u r', 1);
AutoRespondZor('Haha','=]','rofl','not funny', 1);
AutoRespondZor('Total','look it up','look in hi-scores','not telling', 1);
AutoRespondZor('Trade','offer me','send me a offer','send me an trad offer', 1);
AutoRespondZor('Lol','=]','rofl','not funny', 1);
AutoRespondZor('Str','mi '+IntToStr(Str),IntToStr(Str),'im '+IntToStr(Str), 1);
AutoRespondZor('Att',IntToStr(att),'me '+IntToStr(Str),'im '+IntToStr(Str), 1);
AutoRespondZor('Def',IntToStr(def),'me '+IntToStr(Str),'im '+IntToStr(Str), 1);
AutoRespondZor('wc',IntToStr(wc),'me '+IntToStr(wc),'im '+IntToStr(wc), 1);
end;
// thanks to masterkill? :)
procedure FindATrade;
begin
repeat
begin
if (not (FindColorTolerance (x, y, 8388736, 23, 437, 294, 459, 5))) then
begin
exit;
end;
if (FindColorTolerance (x, y, 8388736, 23, 437, 294, 459, 5)) then
begin
MoveMouseSmooth(x, y);
Wait(1000);
if IsUpTextMulti('ccept', 'rade', 'Accept') then
Mouse(x, y, 0, 0, True);
begin
TradeTimeTicking := 0
Wait(2000);
end;
end;
end;
if (not (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5))) then
begin
WriteLn(' Trading: ~ Error');
NOTrades := NOTrades + 1
exit;
end;
if (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5)) then
begin
WriteLn(' Trading! ~ now wait for an accept. max wait 25s');
repeat
if (FindColorTolerance (x, y, 16777215, 180, 296, 341, 317, 5)) then
begin
WriteLn(' ~ other player accepted! now we`ll accept to!');
Mouse(260, 192, 5, 5, True);
Wait(2000);
if (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5)) then
begin
WriteLn(' ~ we made it to the seccond window!');
WriteLn(' ~ now wait for an second accept. max wait 20s');
Wait(1500);
TradeTimeTicking := 0
repeat
if (FindColorTolerance (x, y, 16776960, 301, 38, 303, 42, 5)) then
begin
WriteLn(' ~ accepted! all we need to do now is...:');
Mouse(226, 311, 2, 2, True);
Case random (5) of
0: TypeSend('ty');
1: TypeSend('tnx');
2: TypeSend('yay');
3: TypeSend('hehehe');
4: TypeSend('woot');
end;
WriteLn(' ~ perfect sloved!');
Wait(1000);
exit;
end;
if (not (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5))) then
begin
WriteLn(' ~ the noob is not give`ing anything grr');
case random (5) of
0: TypeSend('grr');
1: TypeSend('pff');
2: TypeSend('=[');
3: TypeSend('why u trade me then... get a life');
4: TypeSend('gtfo');
end;
Trades := Trades + 1;
exit;
end;
if (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5)) then
begin
Wait(1000);
TradeTimeTicking := TradeTimeTicking + 1
end;
if ( TradeTimeTicking = 20 ) then
begin
WriteLn(' ~ took to long... now decine');
Mouse(295, 312, 2, 2, True);
case random (5) of
0: TypeSend('i dont have time for you');
1: TypeSend('if its not free then get lost');
2: TypeSend('naah');
3: TypeSend('get a live');
4: TypeSend('get lost');
end;
Trades := Trades + 1;
exit;
end;
until(false);
end;
end;
TradeTimeTicking := TradeTimeTicking + 1
Wait(1000);
if (not (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5))) then
begin
WriteLn(' ~ the noob is not give`ing anything grr');
case random (5) of
0: TypeSend('leave me alone then...');
1: TypeSend('pfff');
2: TypeSend('=[');
3: TypeSend('why u trade me then... get a life');
4: TypeSend('gtfo');
end;
Trades := Trades + 1;
exit;
end;
if ( TradeTimeTicking = 25 ) then
begin
WriteLn(' ~ took to long... now decine');
Mouse(259, 266, 5, 5, True);
case random (5) of
0: TypeSend('i dont have time for you');
1: TypeSend('if its not free then get lost');
2: TypeSend('naah');
3: TypeSend('get a live');
4: TypeSend('get lost');
end;
Trades := Trades + 1;
exit;
end;
until (false);
end;
until (false);
end;
procedure Mysigftw;
begin
Cleardebug;
writeln(' Willow pwner by Dumpin ');
writeln(' ____ _ ');
writeln('| \ _ _ _____ ___|_|___ ');
writeln('| | | | | | . | | |');
writeln('|____/|___|_|_|_| _|_|_|_|');
writeln(' |_| ');
wait(500);
writeln('Thanks to:');
writeln('- Masterkill for awsome trade and respond functions -');
writeln('- Hypersecret for his ownage ent finder -');
writeln('Respect to those two. GOOD LUCK!');
end;
function axegood : boolean;
begin
if FindDTM(axe, x, y, MIx1, MIy1, MIx2, MIy2) then
status('axe = ok');
writeln('axe = good, lets wc');
result:= true;
exit;
end;
procedure IbrokeMyAxe;
begin
if FindDTM(brokeaxe, x, y, MIx1, MIy1, MIx2, MIy2) then
begin
writeln(Players[CurrentPlayer].Name +' says: " ooh damn I broke my axe "');
wait(500);
writeln(Players[CurrentPlayer].Name +' says: " Lets try get new one "');
wait(2000 + random(200));
MakeCompass('N');
wait(100 + random(100));
Highestangle;
wait(100 + random(100));
if (FindColorTolerance (x, y, 4642532, 588, 36, 741, 137, 65)) then // thanks masterkill for let me rip it.
mouse(x, y, 4, 4, true);
wait(15000 + random(2000));
FindBank('db');
OpenBankQuiet('db');
Deposit(1,1,1);
wait(1000 + random(150));
Withdraw(1,1,1);
wait(1000 + random(100));
Closebank;
if axegood then
begin
writeln('ooh we got an new axe W0000000t! back to the willows');
end;
end;
end;
function WalkToIt : boolean;
begin
If Not Loggedin then exit;
if (axegood = true) then
begin
FindAllRandoms;
Setrun(true);
Wait(1000 + random(200));
MakeCompass('W');
wait(100 + random(100));
Highestangle;
wait(100 + random(100));
WaterColor := FindWaterColor;
RadialWalk(WaterColor, 225, 351, 64, 2, 2);
wait(100 + random(100));
flag;
wait(1000 + random(2000));
result := true;
exit;
end;
end;
function UberEnt: Boolean; //by Nashi, Edited By HyperSecret
begin
if (FindColorTolerance(x, y, 1649198, 9, 9, 233, 24, 20)) or
(FindColorTolerance(x, y, 2835264, 9, 9, 233, 24, 20)) then
begin
GetMousePos(x, y);
Mouse(x, y, 5, 5, False);
if (FindText(x, y, 'own', upchars, x - 50, y - 50, x + 100, y + 50)) then
begin
if (FindColor(x, y, 65535, x + 70, y, x + 100, y + 10)) then
begin
Mouse(MMCX, MMCY, 5, 5, True);
Writeln('Found ent! Waiting for it to go away');
Result := True;
EntsAvoided := EntsAvoided + 1;
end;
end else
ChooseOption('Cancel');
FindAllRandoms;
end;
end;
function Chopper : boolean;
begin
if not Loggedin then Exit;
begin
repeat
if FindObjCustom(x, y, ['Willow'], [2180927,1649198], 4) and (not(UberEnt)) then
begin
wait(100 + random(200));
Mouse(x, y, 5, 5, false);
Wait(100+ random(200));
if chooseoption('own') then
begin
FindAllRandoms;
IbrokeMyAxe;
Status('Chopping a Willow');
SleepAndMoveMouse(8000+ random(1000));
Result := true;
end else Status('Missclick!');
end else
begin
If Not FindObjCustom(x, y, ['Willow'], [1649198, 2505793, 2835264], 4) or (UberEnt) then
begin
Chopper;
FailedChopping := FailedChopping +1
Writeln(intToStr(FailedChopping)+ '/ 20 times did not find an tree.');
Status('no tree or an Ent found');
end;
end;
Until(InvFull) or (FailedChopping > 20)
if (FailedChopping > 20) then
begin
Logout;
Status('no trees found, Location = Lost, Switching to the next player');
Players[CurrentPlayer].loc := 'Lost';
end;
end;
end;
procedure playerprogress;
begin
writeln(' ');
writeln('----------------------------------------');
writeln(Players[CurrentPlayer].Name + 'currently: ');
writeln('Banked ' +IntToStr(bank)+ ' Willows');
writeln('Running for ' + TimeRunning);
writeln('//////////////// Dumpin ////////////////');
writeln(' ');
end;
procedure Banker;
begin
if not loggedin then exit;
if InvFull then
repeat
FindAllRandoms;
wait(100 + random(100));
MakeCompass('N');
wait(200+ random(100));
if (FindSymbol(x, y, 'bank')) or (FindColorTolerance (x, y, 4642532, 588, 36, 741, 137, 65)) then // Color tolerance By masterkill
begin
Mouse(x, y, 1, 1, true);
Status('Found Bank');
wait(100+ random(100));
Flag;
wait(1000 + random(2000));
SleepAndMoveMouse(500+ random(500));
OpenBankFast('db');
SleepAndMoveMouse(1000+ random(500));
Deposit(2,28,2);
Wait(500 + random(100));
Closebank;
Status('SuccesFull Bank');
FoundBank := true;
writeln('we banked- :)');
FailedBank := 0;
exit;
end else
begin
If not (FindSymbol(x, y, 'bank')) or (FindColorTolerance (x, y, 4642532, 588, 36, 741, 137, 65)) then
begin
Banker;
Failedbank := FailedBank +1
writeln(InttoStr(Failedbank) +'/10');
end;
end;
until(Foundbank = true) or (failedBank > 10);
if (FailedBank > 10) then
begin
logout;
end;
end;
procedure progress;
begin
writeln(' (( DUMPIN WILLOW PWNZOR )) ');
writeln(' Runned for:' + TimeRunning);
writeln(' masterkill trades: ' +inttostr(TradeTimeTicking));
writeln(' masterkill responds: ' +inttostr(Responds));
writeln('willow cut and banked: ' + intToStr(bank));
writeln('//////// Thanks For Using /////////');
end;
procedure setupchar;
begin
SetupSRL;
FindWindowBySize(766, 504);
Activateclient;
Mysigftw;
end;
procedure Antiloop;
begin
FindAllRandoms;
antiban;
HyRespond;
getthelevels;
FindATrade;
end;
procedure Thamainloop;
begin
if not loggedIN then exit;
WalktoIt;
Chopper;
Banker;
end;
begin
Setupchar;
DeclarePlayers;
LoginPlayer;
repeat
repeat
Thamainloop;
Until(Loads2 = Loads);
If Not LoggedIn then
Begin
Nextplayer(false);
end else Nextplayer(true);
until(False)
end.——————————————————
<!– END TEMPLATE: formanswers –>