Rambozin
2007-05-10 10:57:43
<!– BEGIN TEMPLATE: formanswers –>
Rambozin - SRL Member Application Form
Rambozin
What is the meaning to life?
Hmm.. Well, SRL means everything to me ^^
Where you Referred to SRL? If yes, by whom?
No
Programming Knowledge
I know the basics of HTML and I have done some Private Server Scripting (Java)
Other Communitys
Moparisthebest, Moparscape, Sythe
How Long have You Played Runescape
4 - 5 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
It all started some time ago.
RuneScape was getting a boring to me, and I started googling sites about RuneScape. First it were sites like http://www.tip.it, but later I came up at cheating sites, like http://www.sythe.org. Ofcourse you guys know it..
If I Remember good, then there was a topic about RuneScape Private Servers.
So I started googling about private servers… I tryed a few things and again, some time later, I found the site, which you all know, "http://www.moparisthebest.com" & "http://www.moparscape.org"
And yea, you know the story.. Trying private servers, blabla =P , and after that.. The Great Discovery.. WWW.SRL-FORUMS.COM ^^
It first started with testing scripts .. (Not leeching, really testing and posting progress reports! :p )
After testing for some time, I thought "Hey, I can do that too!" So I started with writing some script :) I readed many tuts, asked ALOT of questions (Thanks Nielsie95 :D And ofcourse all other people who helped me!)
The previous time wasn't worth applying .. But now I thought a long time about it, and I think I am ready to try it again :)
YoHoYo also told me this: "You can definitely apply for membership with this."
I present you my script: Rambozin's FishCookBanker!
P.S. : I don't know if I need to post my scrip in SCAR-Tags also .. Because its big .. I will do it now, because it says: "No Scar Code->Auto Decline No Exceptions." but if its too big, please tell me, then I remove it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Rambozin - SRL Member Application Form
Rambozin
What is the meaning to life?
Hmm.. Well, SRL means everything to me ^^
Where you Referred to SRL? If yes, by whom?
No
Programming Knowledge
I know the basics of HTML and I have done some Private Server Scripting (Java)
Other Communitys
Moparisthebest, Moparscape, Sythe
How Long have You Played Runescape
4 - 5 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
It all started some time ago.
RuneScape was getting a boring to me, and I started googling sites about RuneScape. First it were sites like http://www.tip.it, but later I came up at cheating sites, like http://www.sythe.org. Ofcourse you guys know it..
If I Remember good, then there was a topic about RuneScape Private Servers.
So I started googling about private servers… I tryed a few things and again, some time later, I found the site, which you all know, "http://www.moparisthebest.com" & "http://www.moparscape.org"
And yea, you know the story.. Trying private servers, blabla =P , and after that.. The Great Discovery.. WWW.SRL-FORUMS.COM ^^
It first started with testing scripts .. (Not leeching, really testing and posting progress reports! :p )
After testing for some time, I thought "Hey, I can do that too!" So I started with writing some script :) I readed many tuts, asked ALOT of questions (Thanks Nielsie95 :D And ofcourse all other people who helped me!)
The previous time wasn't worth applying .. But now I thought a long time about it, and I think I am ready to try it again :)
YoHoYo also told me this: "You can definitely apply for membership with this."
I present you my script: Rambozin's FishCookBanker!
P.S. : I don't know if I need to post my scrip in SCAR-Tags also .. Because its big .. I will do it now, because it says: "No Scar Code->Auto Decline No Exceptions." but if its too big, please tell me, then I remove it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{.Script Info:
# ScriptName = Fish-Cook-Banker (FCB)
# Author = Rambozin
# Description = Will fish, cook and bank schrimps & anchovies at Al-Kharid!
# Version = 1.0
# Date = 9 May 2007
# Comments = Happy autoing!
/Script Info}
program RambozinFCB;
{.include SRL/SRL.scar}
{.include SRL/SRL/Extended/xBank.scar}
{.include SRL/SRL/Extended/xSymbol.scar}
{.include SRL/SRL/Extended/xText.scar}
{.include SRL/SRL/Misc/Trade.scar}
{.include SRL/SRL/Skill/Fishing.scar}
{+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +}
{+ ____________________________ +}
{+ | | | | +}
{+ | ______| ____| | +}
{+ | ____| | | ______| +}
{+ | | | | | | +}
{+ | | | |____| | +}
{+ | | | | | +}
{+ |____| |_________|_________| +}
{+ +}
{+ Rambozin's Fish-Cook-Banker! (FCB) +}
{+ - - - +}
{+ +}
{+ With Forms! (Saves details for later use!) +}
{+ +}
{+ Press F4 to stop the script! +}
{+ +}
{+ Start in the bank of Al Kharid! +}
{+ +}
{+ Put extra small fishing nets in your first bankslot! +}
{+ +}
{+ Play in Low Detail, Unsigned Applet, V-Bright +}
{+ +}
{+ With SRL Stats & RC! (Fill in below) +}
{+ +}
{+ With all Anti-Ban and Anti-Randoms you could wish! +}
{+ +}
{+ Set the color on the lines below for better results +}
{+ +}
{+ If you want to use more then 5 players, then add some +}
{+ to the DeclarePlayers procedure manually +}
{+ +}
{+ A big thanks to Nielsie95, for answering all my questions!+}
{+ And ofcourse also to everyone else that helped me :) +}
{+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +}
const
SRLStatsID = ''; //Your SRL Stats ID
SRLStatsPass = ''; //Your SRL Stats Password
RemoteMaster = ''; //Fill in the Nickname of the RC master.
RemoteLocation = ''; //Fill in the Location of the RC slaves.
FishSpotColor1 = 15315080; {+ Change this for better results. Default = 15315080 +}
FishSpotColor2 = 15780016; {+ Change this for better results. Default = 15780016 +}
RedFromCookingRangeColor = 1320377; {+ Change this for better results. Default = 1320377 +}
Doorcolor = 1791341; {+ Change this for better results. Default = 1791341 +}
MMDeadTree = 1454409; {+ Change this for better results. Default = 1454409 +}
MMGreenTree = 3566656; {+ Change this for better results. Default = 3566656 +}
var
frmDesign : TForm;
Image : TImage;
Canvas : TCanvas;
Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8, Label9,
label10, Label11, Label12, Label13, Label14 : TLabel;
Edit1, Edit2, Edit3, Edit4, Edit5, Edit6, Edit7, Edit8, Edit9, Edit10, Edit11,
Edit12, Edit13, Edit14, Edit15, Edit16, Edit17, Edit18, Edit19, Edit20,
Edit21 : TEdit;
ComboBox1, ComboBox2, ComboBox3, ComboBox4, ComboBox5, ComboBox6, ComboBox7,
ComboBox8, ComboBox9, ComboBox10, ComboBox11, ComboBox12, ComboBox13,
ComboBox14, ComboBox15 : TComboBox;
CheckBox1, CheckBox2, CheckBox3, CheckBox4, CheckBox5, CheckBox6 : TCheckBox;
Button1, Button2 : TButton;
Memo1 : TMemo;
UsernameOfPlayer1, UsernameOfPlayer2, UsernameOfPlayer3, UsernameOfPlayer4,
UsernameOfPlayer5 : string;
PasswordOfPlayer1, PasswordOfPlayer2, PasswordOfPlayer3, PasswordOfPlayer4,
PasswordOfPlayer5 : string;
NickNameOfPlayer1, NickNameOfPlayer2, NickNameOfPlayer3, NickNameOfPlayer4,
NickNameOfPlayer5 : string;
PinNumberOfPlayer1, PinNumberOfPlayer2, PinNumberOfPlayer3,
PinNumberOfPlayer4, PinNumberOfPlayer5 : string;
LampSkillOfPlayer1, LampSkillOfPlayer2, LampSkillOfPlayer3,
LampSkillOfPlayer4, LampSkillOfPlayer5 : string;
WantToFishOfPlayer1, WantToFishOfPlayer2, WantToFishOfPlayer3,
WantToFishOfPlayer4, WantToFishOfPlayer5 : Boolean;
WantToCookOfPlayer1, WantToCookOfPlayer2, WantToCookOfPlayer3,
WantToCookOfPlayer4, WantToCookOfPlayer5 : Boolean;
BankFishOfPlayer1, BankFishOfPlayer2, BankFishOfPlayer3, BankFishOfPlayer4,
BankFishOfPlayer5 : Boolean;
ActivityOfPlayer1, ActivityOfPlayer2, ActivityOfPlayer3, ActivityOfPlayer4,
ActivityOfPlayer5 : Boolean;
RandomHappened, RaisedLevel, FoundFishFight, FoundCookFight, FoundBankFight,
FoundFishNet, WithdrawFood, StartTheScript : Boolean;
ImageInteger, MyRandom, Fished, Cooked, Banked, ExtraNetsNeeded, RangeX,
RangeY, FishX, FishY : Integer;
Count, CookDoor, MMRock, MMKebabShop, MMKebabShop2, XT, YT, Times, Tol,
Color1, Color2, Shrimps, Anchovies, NeedFishNet : Integer;
FishesToDo, WhatToSay : string;
Acc, Ref: Extended;
ShrimpMarker, AnchoviesMarker : LongInt;
procedure SetForm;
begin
UsernameOfPlayer1 := Edit1.Text;
PasswordOfPlayer1 := Edit2.Text;
NickNameOfPlayer1 := Edit3.Text;
PinNumberOfPlayer1 := Edit4.Text;
LampSkillOfPlayer1 := ComboBox1.Text;
ActivityOfPlayer1 := Checkbox1.Checked;
case ComboBox2.Text of
'Yes, With Banking' : WantToFishOfPlayer1 := True;
'Yes, With Banking' : BankFishOfPlayer1 := True;
'Yes, PowerFishing' : WantToFishOfPlayer1 := True;
'Yes, PowerFishing' : BankFishOfPlayer1 := False;
'No' : WantToFishOfPlayer1 := False;
'No' : BankFishOfPlayer1 := False;
end;
case ComboBox3.Text of
'Yes' : WantToCookOfPlayer1 := True;
'No' : WantToCookOfPlayer1 := False;
end;
UsernameOfPlayer2 := Edit5.Text;
PasswordOfPlayer2 := Edit6.Text;
NickNameOfPlayer2 := Edit7.Text;
PinNumberOfPlayer2 := Edit8.Text;
LampSkillOfPlayer2 := ComboBox4.Text;
ActivityOfPlayer2 := Checkbox2.Checked;
case ComboBox5.Text of
'Yes, With Banking' : WantToFishOfPlayer2 := True;
'Yes, With Banking' : BankFishOfPlayer2 := True;
'Yes, PowerFishing' : WantToFishOfPlayer2 := True;
'Yes, PowerFishing' : BankFishOfPlayer2 := False;
'No' : WantToFishOfPlayer2 := False;
'No' : BankFishOfPlayer2 := False;
end;
case ComboBox6.Text of
'Yes' : WantToCookOfPlayer2 := True;
'No' : WantToCookOfPlayer2 := False;
end;
UsernameOfPlayer3 := Edit9.Text;
PasswordOfPlayer3 := Edit10.Text;
NickNameOfPlayer3 := Edit11.Text;
PinNumberOfPlayer3 := Edit12.Text;
LampSkillOfPlayer3 := ComboBox7.Text;
ActivityOfPlayer3 := Checkbox3.Checked;
case ComboBox8.Text of
'Yes, With Banking' : WantToFishOfPlayer3 := True;
'Yes, With Banking' : BankFishOfPlayer3 := True;
'Yes, PowerFishing' : WantToFishOfPlayer3 := True;
'Yes, PowerFishing' : BankFishOfPlayer3 := False;
'No' : WantToFishOfPlayer3 := False;
'No' : BankFishOfPlayer3 := False;
end;
case ComboBox9.Text of
'Yes' : WantToCookOfPlayer3 := True;
'No' : WantToCookOfPlayer3 := False;
end;
UsernameOfPlayer4 := Edit13.Text;
PasswordOfPlayer4 := Edit14.Text;
NickNameOfPlayer4 := Edit15.Text;
PinNumberOfPlayer4 := Edit16.Text;
LampSkillOfPlayer4 := ComboBox10.Text;
ActivityOfPlayer4 := Checkbox4.Checked;
case ComboBox11.Text of
'Yes, With Banking' : WantToFishOfPlayer4 := True;
'Yes, With Banking' : BankFishOfPlayer4 := True;
'Yes, PowerFishing' : WantToFishOfPlayer4 := True;
'Yes, PowerFishing' : BankFishOfPlayer4 := False;
'No' : WantToFishOfPlayer4 := False;
'No' : BankFishOfPlayer4 := False;
end;
case ComboBox12.Text of
'Yes' : WantToCookOfPlayer4 := True;
'No' : WantToCookOfPlayer4 := False;
end;
UsernameOfPlayer5 := Edit17.Text;
PasswordOfPlayer5 := Edit18.Text;
NickNameOfPlayer5 := Edit19.Text;
PinNumberOfPlayer5 := Edit20.Text;
LampSkillOfPlayer5 := ComboBox13.Text;
ActivityOfPlayer5 := Checkbox5.Checked;
case ComboBox14.Text of
'Yes, With Banking' : WantToFishOfPlayer5 := True;
'Yes, With Banking' : BankFishOfPlayer5 := True;
'Yes, PowerFishing' : WantToFishOfPlayer5 := True;
'Yes, PowerFishing' : BankFishOfPlayer5 := False;
'No' : WantToFishOfPlayer5 := False;
'No' : BankFishOfPlayer5 := False;
end;
case ComboBox15.Text of
'Yes' : WantToCookOfPlayer5 := True;
'No' : WantToCookOfPlayer5 := False;
end;
FishesToDo := Edit21.Text;
end;
procedure DeclarePlayers;
begin
HowManyPlayers := 5;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := UsernameOfPlayer1;
Players[0].Pass := PasswordOfPlayer1;
Players[0].Nick := NickNameOfPlayer1;
Players[0].Skill := LampSkillOfPlayer1;
Players[0].Active := ActivityOfPlayer1;
Players[0].String1 := PinNumberOfPlayer1;
Players[0].Boolean1 := WantToFishOfPlayer1;
Players[0].Boolean2 := WantToCookOfPlayer1;
Players[0].Boolean3 := BankFishOfPlayer1;
Players[1].Name := UsernameOfPlayer2;
Players[1].Pass := PasswordOfPlayer2;
Players[1].Nick := NickNameOfPlayer2;
Players[1].Skill := LampSkillOfPlayer2;
Players[1].Active := ActivityOfPlayer2;
Players[1].String1 := PinNumberOfPlayer2;
Players[1].Boolean1 := WantToFishOfPlayer2;
Players[1].Boolean2 := WantToCookOfPlayer2;
Players[1].Boolean3 := BankFishOfPlayer2;
Players[2].Name := UsernameOfPlayer3;
Players[2].Pass := PasswordOfPlayer3;
Players[2].Nick := NickNameOfPlayer3;
Players[2].Skill := LampSkillOfPlayer3;
Players[2].Active := ActivityOfPlayer3;
Players[2].String1 := PinNumberOfPlayer3;
Players[2].Boolean1 := WantToFishOfPlayer3;
Players[2].Boolean2 := WantToCookOfPlayer3;
Players[2].Boolean3 := BankFishOfPlayer3;
Players[3].Name := UsernameOfPlayer4;
Players[3].Pass := PasswordOfPlayer4;
Players[3].Nick := NickNameOfPlayer4;
Players[3].Skill := LampSkillOfPlayer4;
Players[3].Active := ActivityOfPlayer4;
Players[3].String1 := PinNumberOfPlayer4;
Players[3].Boolean1 := WantToFishOfPlayer4;
Players[3].Boolean2 := WantToCookOfPlayer4;
Players[3].Boolean3 := BankFishOfPlayer4;
Players[4].Name := UsernameOfPlayer5;
Players[4].Pass := PasswordOfPlayer5;
Players[4].Nick := NickNameOfPlayer5;
Players[4].Skill := LampSkillOfPlayer5;
Players[4].Active := ActivityOfPlayer5;
Players[4].String1 := PinNumberOfPlayer5;
Players[4].Boolean1 := WantToFishOfPlayer5;
Players[4].Boolean2 := WantToCookOfPlayer5;
Players[4].Boolean3 := BankFishOfPlayer5;
end;
procedure SaveDetails;
begin
SaveSetting('FCBChars', 'UsernameOfPlayer1', Edit1.Text);
SaveSetting('FCBChars', 'PasswordOfPlayer1', Edit2.Text);
SaveSetting('FCBChars', 'NickNameOfPlayer1', Edit3.Text);
SaveSetting('FCBChars', 'PinNumberOfPlayer1', Edit4.Text);
SaveSetting('FCBChars', 'ActivityOfPlayer1', BoolToStr(CheckBox1.Checked));
SaveSetting('FCBChars', 'LampSkillOfPlayer1', ComboBox1.Text);
SaveSetting('FCBChars', 'WantToFishOfPlayer1', ComboBox2.Text);
SaveSetting('FCBChars', 'WantToCookOfPlayer1', ComboBox3.Text);
SaveSetting('FCBChars', 'UsernameOfPlayer2', Edit5.Text);
SaveSetting('FCBChars', 'PasswordOfPlayer2', Edit6.Text);
SaveSetting('FCBChars', 'NickNameOfPlayer2', Edit7.Text);
SaveSetting('FCBChars', 'PinNumberOfPlayer2', Edit8.Text);
SaveSetting('FCBChars', 'ActivityOfPlayer2', BoolToStr(CheckBox2.Checked));
SaveSetting('FCBChars', 'LampSkillOfPlayer2', ComboBox4.Text);
SaveSetting('FCBChars', 'WantToFishOfPlayer2', ComboBox5.Text);
SaveSetting('FCBChars', 'WantToCookOfPlayer2', ComboBox6.Text);
SaveSetting('FCBChars', 'UsernameOfPlayer3', Edit9.Text);
SaveSetting('FCBChars', 'PasswordOfPlayer3', Edit10.Text);
SaveSetting('FCBChars', 'NickNameOfPlayer3', Edit11.Text);
SaveSetting('FCBChars', 'PinNumberOfPlayer3', Edit12.Text);
SaveSetting('FCBChars', 'ActivityOfPlayer3', BoolToStr(CheckBox3.Checked));
SaveSetting('FCBChars', 'LampSkillOfPlayer3', ComboBox7.Text);
SaveSetting('FCBChars', 'WantToFishOfPlayer3', ComboBox8.Text);
SaveSetting('FCBChars', 'WantToCookOfPlayer3', ComboBox9.Text);
SaveSetting('FCBChars', 'UsernameOfPlayer4', Edit13.Text);
SaveSetting('FCBChars', 'PasswordOfPlayer4', Edit14.Text);
SaveSetting('FCBChars', 'NickNameOfPlayer4', Edit15.Text);
SaveSetting('FCBChars', 'PinNumberOfPlayer4', Edit16.Text);
SaveSetting('FCBChars', 'ActivityOfPlayer4', BoolToStr(CheckBox4.Checked));
SaveSetting('FCBChars', 'LampSkillOfPlayer4', ComboBox10.Text);
SaveSetting('FCBChars', 'WantToFishOfPlayer4', ComboBox11.Text);
SaveSetting('FCBChars', 'WantToCookOfPlayer4', ComboBox12.Text);
SaveSetting('FCBChars', 'UsernameOfPlayer5', Edit17.Text);
SaveSetting('FCBChars', 'PasswordOfPlayer5', Edit18.Text);
SaveSetting('FCBChars', 'NickNameOfPlayer5', Edit19.Text);
SaveSetting('FCBChars', 'PinNumberOfPlayer5', Edit20.Text);
SaveSetting('FCBChars', 'ActivityOfPlayer5', BoolToStr(CheckBox5.Checked));
SaveSetting('FCBChars', 'LampSkillOfPlayer5', ComboBox13.Text);
SaveSetting('FCBChars', 'WantToFishOfPlayer5', ComboBox14.Text);
SaveSetting('FCBChars', 'WantToCookOfPlayer5', ComboBox15.Text);
SaveSetting('FCBChars', 'UseAutoResponder', BoolToStr(CheckBox6.Checked));
SaveSetting('FCBChars', 'HowManyFishesToDo', Edit21.Text);
end;
procedure ClickedAtStart(Sender : TObject);
var
v : TVariantArray;
begin
SetArrayLength(V, 0);
frmDesign.ModalResult := 1;
SaveDetails;
StartTheScript := True;
end;
procedure ClickedAtCancel(Sender : TObject);
var
v : TVariantArray;
begin
SetArrayLength(V, 0);
frmDesign.ModalResult := 2;
SaveDetails;
StartTheScript := False;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 0;
frmDesign.Top := 0;
frmDesign.Width := 840;
frmDesign.Height := 430;
frmDesign.BorderIcons := [];
frmDesign.Caption := 'FCB Setup';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -13;
frmDesign.Font.Name := 'Comic Sans MS';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
ImageInteger := BitMapFromString(830, 395, 'z78DAEDDD496' +
'E25391245D12DA96F866AF7BFA402641AD887890C7A0433CA33ED' +
'BC332928251610C30B77E7FBF3FBCC1300000000500C7ADAC77CE' +
'F000000004031D8A7999999999999999999FD13FB58F00E000000' +
'006DAC14B37967AB67BE01000000407B2B2D2ED7B651677B4D5E0' +
'0000000A08D5CC6569A5BAD6DB9D7D5C2F60C000000006DD4F256' +
'9F76FBBDDA16E73F01000000401BB9B9A96D00000000F0376B5BB' +
'D1F61D4D9D436000000007AD6B6DADCEA97DC8ED6B638FF110000' +
'0000DA183DE1A6B601000000C0196A5BEE6C0F00000000D0C6BCB' +
'98D6ADBFA536DFE850100000050DBFEA4B6E5CE760F000000006D' +
'8C9A9BDA06000000006A1B00000000FC7B6BDBE88B6D71FE1D000' +
'00000B4919BDBE8EB6D6A1B00000000A86D00000000F06FAF6DF9' +
'8B6DB700000000D0466E6EF5EB6D51D2EAD7DBE27FE7FB11F2536' +
'D51DBE264FFC200000000A86D7F52DBF23BA43700000000D0466E' +
'6E2BF793AA6D00000000F0776A5BFD62DB3500000000B4919B5BB' +
'E312137B77C6342D4B67A3FC2E88B6DFE850100000050DB7EAFB6' +
'D57748AF00000000A08DDCDCF28D09B9B9E51B13D43600000000D' +
'855DBF217DBE2E7F98B6DE51DD28F4F00000000E8E2A2B9E51B13' +
'7273CB3726A86D00000000B0ABB6E57748E3E7F91DD23821BD43F' +
'A616666666666666666D667B9B9E51B137273CB3726A86D666666' +
'666666666666A31DAD6DF91DD2F8797E87344EC8EF90BE0300000' +
'0401BB9B9E51B137273CB3726A86D00000000B0ABB6E57748E3E7' +
'F91DD23821BF43FA06000000006DA4E6767163426E6EF9C604B50' +
'D00000000D43600000000385B6DCB5F6C8B9FE72FB64567CB5F6C' +
'7B0500000080367273CBF793E6E696EF2755DB00000000406D030' +
'0000000B50D00000000FE8DB5EDFBF36D5FCDAD7EBD2DAA5ABE1F' +
'217E92EE47F8EE6CF97E841700000000682337B75CDBF2136E6A1' +
'B000000001CAD6D2BF793E67748E327F91DD2587E87F419000000' +
'00DA1835B7D137DCD43600000000D855DBF23BA4F193FC0E69FC6' +
'D7E87F40900000000DA1835B7D137DCD43600000000D855DBF23B' +
'A4F193FC0E69FC6D7E87F41100000000DA1835B77463C2457353D' +
'B00000000406D0300000080B3D5B6FCC5B6E86CF98B6DF1B7F98B' +
'6D0F00000000D0C6A8B9E5FB49737353DB00000000406D0300000' +
'080B3D5B6F4C5B6EFCE96BFD8167F9BBFD8760F000000006D8C9A' +
'5B3CA5569ADBF0A9B65CDBE21CB50D00000000B56D5EDB464FB5D' +
'57B48E3E43B000000006863D4DCF2FDA4A9B9A96D00000000B0AD' +
'B6C53BA4B1F9CD0871F22D00000000B4316A6EF9C684D4DCD4360' +
'0000000D855DB863723D47B48E3E41B000000006863D4DCF28D09' +
'B9B9A96D00000000B0ABB68D6E46C8EF90C66971F23500000000B' +
'4316A6EF9C684DCDCD43600000000D855DB463723E47748E3B438' +
'F90A00000000DA1835B77C63426E6E6A1B00000000A86D0000000' +
'070B6DA36BA87347FB12D4EFB3AF9FD1300000000BA1836B77C3F' +
'696E6E6A1B00000000A86D0000000070B6DA165F6C8BCE163F89D' +
'FC95F6C8BD3BE4E7EFF00000000803646CD2D9E52ABCD6D743342' +
'7EAA2D3A5BF43C3333333333333333B33E1B35B77C63426E6E6A9' +
'B9999999999999999D968476BDBE85B6DE91DD2EFCE1627BF0100' +
'0000401BA3E696BFE1969B9BDA06000000006A1B000000009CADB' +
'68DEE21CD5F6C8BD362AF00000000D0C6A8B9E5FB49737353DB00' +
'000000406D0300000080B3D5B6F8625B74B6F849FC4EFE625B2C4' +
'E7E01000000803606CDEDFBEB6DB5B9A96D00000000B0ABB60DEE' +
'21BD7887344E8B939F01000000A08D5173CBF793E6E6A6B601000' +
'000C0AEDA36BA1921BF431AA7C5C94F00000000D0C6A8B9E51B13' +
'727353DB0000000060576D1BDD8C90DF218DD3E2E447000000006' +
'863D4DCD28D0917CD4D6D03000000805DB56DFE0EA9DA06000000' +
'80DA76B4B6D57B48F317DBE2B438F90100000000DA1835B77C3F6' +
'96E6EF37748D53600000000D436B50D00000000FE7E6D9BBF431A' +
'7F1BA7C5C9F700000000D0C6A8B9453D2BCDEDC0CD0871F21D000' +
'00000B4316A6EF9C684DCDCD6DF1E8D936F01000000A08D5173AB' +
'B794465B53DB00000000406D0300000080FF576DABF72644555BB' +
'F19214EBE01000000803646CD4D6D03000000805DB56DF4849BDA' +
'0600000000BB6A5B2CBED8163F89FF1ABF1F7F1BA7C5C9D700000' +
'000D0C6D1E6A6B601000000C0AEDAB67E0F699C7C05000000006D' +
'1C6D6E6A1B00000000ECAA6DEB37237C9DFCF609000000005D1C6' +
'E6E6A1B00000000A86D0000000070B6DAB67E0FE9D7C96F1F0000' +
'0000D0C6D1E6A6B601000000C0AEDAB67C0FE9F7D373EF0000000' +
'0D0C6D1E6A6B601000000C0AEDAB67E33429C6C66666666666666' +
'66D667479B9BDA666666666666666666369ADA666666666666666' +
'666B66B476BDBFA3DA471F22B00000000B471B4B9A96D00000000' +
'A0B601000000C0D96A5B74B6F8625BFC24FE6B74B6F8625B9C167' +
'B0100000080368E3637B50D0000000076D5B6F57B48E3E4670000' +
'000068E3687353DB0000000060576D5BBF19214E7E02000000803' +
'68E3637B50D0000000076D5B6F59B11E2E4470000000068E36873' +
'53DB0000000060576D5BBF19214E7E0000000080360E3637B50D0' +
'0000000B6D5B6F59B11E2E47B0000000068E3607353DB00000000' +
'605B6D5BBF19214EBE0300000080368E36B7D1B7DAEA536D6A1B0' +
'00000006ADBEFD5B67A33429C7C0B000000006D1C6D6EA36FB5D5' +
'7748D53600000000D436B50D00000000FE4E6D1BDD8C50DF218D9' +
'36F00000000A08DA3CD4D6D0300000000B50D00000000CE56DB46' +
'F790C6EFE7CE16275F03000000401B479B9BDA06000000006A1B0' +
'00000009CADB645678BB74A73678BDFCF9D2D4EBE020000008036' +
'8E3637B50D0000000076D5B67C0F69EE6CF1FBB9B37D9DFCFA090' +
'00000005D1C6E6E6A1B00000000ECAA6DF96684DCD9E2F753678B' +
'935F3F00000000A08DA3CD4D6D0300000080A3B56DD4DCF2CD08B' +
'9B3C56FE6CE164FCFBD03000000401B479F7053DB00000000E068' +
'6D1B35B77C3342EE6CF19BB9B3C5C96F00000000D0C6A8B98D9E7' +
'353DB00000000406D0300000080B3D5B67C0F69EE6C5FBF79D1D9' +
'E2643333333333333333B33E1B34B7E1BD096A9B9999999999999' +
'999D9686A9B9999999999999999D9AE1DAD6DD1D9E28B6DA9B37D' +
'7FB12D77B638F90500000000DA1835B7FA25B7A86A6A1B0000000' +
'0ECAA6DF91ED2DCD9E269B8DCD962CF00000000D0C6A8B98DEE2A' +
'55DB0000000060576DCB3723E4CE16BF993B5B9CFC04000000006' +
'D8C9ADBE0F604B50D00000000B6D5B67433C245678BDFCC9D2D4E' +
'7E04000000803646CD6D707B82DA06000000006A1B000000009CA' +
'EB6E57B4873678BDFCC9D2D4E7E00000000803646CD6D7057A9DA' +
'06000000006A1B000000009CAEB645678B2FB6E5CE16CB9D2D4EB' +
'E07000000803646CDAD7EC92DAADACACD08F9A936FFC200000000' +
'A86D2BB52D3FD516BF999F6A8B93EF00000000A08D51731BDD55B' +
'AF2ADB6FC0EA97F6100000000D436B50D00000000FEE9DAB67233' +
'427E87F41600000000DA1835B7D15DA56A1B00000000ECAA6D2B3' +
'723C46971FE0D00000000B4316A6EA3BB4AD53600000000D855DB' +
'72678B9FD4CE16A7C5F9D700000000D0C6A8B98D6E4F50DB00000' +
'00060576DCB9D2D7E523B5B9C16E75F01000000401BA3E636BA3D' +
'416D03000000805DB52D77B6F849ED6C71DAD7F92F9F00000000D' +
'0C5B0B98D6E4F50DB0000000060576DCB9D2D7E523BDBD769DFFF' +
'0F1F00000000D0C6A8B98D6E4F50DB00000000406D0300000080B' +
'3D5B6DCD9E227A5B37D7FB12DCE7F07000000803646CD6D7457A9' +
'DA06000000006A1B000000009CADB6E5CE163FA99D2DBED816E7B' +
'F01000000401BA3E656BFE416CD2D77B6F849ED6C715A9CFF0A00' +
'0000006DCC9BDBE809B7FCF668ED6C715A9C6F666666666666666' +
'6D667479B9BDA666666666666666666369ADA6666666666666666' +
'66B66BA3DA366A6EE506D21F3A5B9C167B060000008036E6CD4D6' +
'D03000000803FAF6DA3E6A6B601000000C0AEDA963ADBF717DB6A' +
'678BD3E2FC27000000006863D4DC466F95AA6D0000000030AF6DC' +
'BCFB95D74B67887B476B6589CFF08000000006D8C9E701BDC9BA0' +
'B601000000C02F6ADBF25BA5179D2DDE21AD9D2DCE89F31F00000' +
'000A08D83CFB9A96D00000000B0ABB65D74B67887B476B63827CE' +
'BF0700000080366A79ABCD2D9737B50D00000000D436000000003' +
'85B6DCB9D6DE58B6DFE850100000050DBD66B5B7DAA2DCE89F3EF' +
'00000000A08D5ADE6A73CBE56DFE545B7D87D4BF30000000006A9' +
'BDA0600000000FF746D9B77B6FA0EE92D00000000B451CB5B6D6E' +
'B9BCA96D00000000B0ABB6CD3B5BFC6DEE6C3700000000D0462D6' +
'FB5B9E5F2A6B601000000C0AEDA36EF6CF1B7B9B35D0300000040' +
'1BB5BCD5E696CB9BDA0600000000BB6ADBBCB3C5DFE6CE7605000' +
'000006DD4F2569B5B2E6F6A1B00000000A86D0000000070B6DA36' +
'EF6CF1B7A9B33D7F0200000040173F94B7DADC727953DB0000000' +
'0406D0300000080B3D5B679678BBFCD9DED0300000000DAA8E5AD' +
'36B75CDED43600000000D855DBE69DEDEB6F2F3ADB3B00000000B' +
'451CADB0FCD2D9737B50D0000000076D5B66967FB7E873477B637' +
'0000000068A396B7DADC727953DB0000000060576D9B77B678873' +
'477B6570000000068A396B7DADC727953DB0000000060576D9B77' +
'B6F8DBDCD95E00000000A08D5ADE4A73BB286F6A1B00000000ECA' +
'A6DF3CE167F9B3B9B9999999999999999599FD5F2569B5B7EB754' +
'6D3333333333333333331B4D6D333333333333333333DBB5A3B56' +
'DDED9E26F73677B0200000080366A79ABCD2D9537B50D00000000' +
'D43600000000385D6D9B77B6FAC536FFC200000000A86D7F52DB7' +
'2677B0400000080366A79ABCD2D97B7A34FB5F91706000000406D' +
'1BD5B6A39DED0100000000DAA8E5AD36B75CDED43600000000D85' +
'5DB8E76B67B0000000068A396B7DADC727953DB0000000060576D' +
'3BDAD9EE00000000A08D5ADE6A73CBE54D6D03000000805DB5ED6' +
'867BB0500000080366A79ABCD2D9737B50D0000000076D5B6A39D' +
'ED0600000000DAA8E5AD36B75CDED43600000000D855DB8E76B66' +
'B0000000068A396B7DADC727953DB0000000060576D3BDAD9AE00' +
'000000A08D5ADE6A73CBE54D6D0300000000B50D00000000FE5FB' +
'56DD4DC0E76B6A74F00000000E8E287F2569F70CBCD4D6D030000' +
'0080A3B56DD4DCD43600000000D855DB8E76B60F0000000068A39' +
'6B7F997DCD43600000000D855DB8E76B6770000000068A394B75F' +
'BC5BAAB601000000C0AEDA76B4B3BD01000000401BB5BCCDDF2D5' +
'5DB0000000060576D3BDAD95E01000000A08D5ADEE6EF96AA6D00' +
'000000A0B60100000080DA0600000000FFD5DA76B4B3BD0000000' +
'0401BB5BCCDEF4D50DB00000000406D0300000080B3D5B6A39DED' +
'1900000000DAA8E56DFA2537B50D00000000B6D5B6A39DCDCCCCC' +
'CCCCCCCCCCCACCF6A799BBF5B9ADE2A55DBCCCCCCCCCCCCCCCCCC' +
'2EF67BB56DBDB33D02000000401BB5BCCDDF2D4D6F95AA6D00000' +
'000F047B52D3FE7B6D2D91E00000000A08D5ADEE6EF96AA6D0000' +
'0000B0ABB6E5E7DC563ADB3D00000000B451CBDBFCDD52B50D000' +
'0000076D5B6FC9CDB4A67BB0300000080366A799BBF5BAAB60100' +
'000080DA060000000067AB6DF9ADD295CE760B000000006DD4F23' +
'6FF929BDA06000000006A1B000000009CADB6E5B74A573ADB0D00' +
'000000B451CBDBCA97DCD63BDB3500000000B451CBDBFC6937B50' +
'D0000000076D5B6FC9CDB4A67BB0200000080366A799BBF5BAAB6' +
'01000000C0AEDA969F735BE86C8F9F00000000D0C50FE56DFE6EA' +
'9DA06000000006A1B000000009CADB6E5B74A573ADB0700000000' +
'B451CBDBFC4B6E6A1B00000000ECAA6DF939B795CEF60E0000000' +
'06D94F2F68B774BD5360000000050DB00000000E06CB52DBF55BA' +
'D2D9DE00000000A08D5ADEE65F7253DB0000000060576DCBCFB9A' +
'D74B6570000000068A396B7F9BBA56A1B00000000A86D00000000' +
'F0379BDBF4F684EFF296DF2A5DE96C2F00000000D0C64A7353DB0' +
'0000000E068739BDF9EF025BF55BAD4D99E01000000A099D1736E' +
'A5BCA96D00000000B0ABB6E5B74A973ADB130000000034939BDBB' +
'CBCE5DB13563A9B999999999999999959B7E5E6362F6F6A9B9999' +
'999999999999D97CEBB52DBF553AFF4A9BDA66666666666666666' +
'63DB7B7B6E5CEF60000000000CDE4E6362F6FF91B6EF33B11D436' +
'00000000D436B50D00000000FE4E6DCB6F95CEEF448893EF01000' +
'000A099DCDCE6E54D6D03000000805DB52D3FE736BF13214EBE03' +
'000000806672739B9737B50D0000000076D5B6FC9C5BED6CF979B' +
'938F916000000009AC9CD6D5EDED43600000000D855DBF2736EB5' +
'B3E5E7E5E2E41B00000000682637B7797953DB0000000060576DC' +
'BAB9D2D3F2F17275F030000004033B9B9CDCB9BDA0600000000BB' +
'6A5B7ECEAD76B6FCBC5C9C7C0500000000CDE4E6362F6F6A1B000' +
'00000A86D0000000070B6DA96DF2AAD9D2DBF9DFA75F2C3270000' +
'0000F472D1DCE6E54D6D0300000000B50D00000000D4360000000' +
'0F8AFD6B6FC0DB7DAD9D2B7E0BECFFE00000000806672739B9737' +
'B50D0000000076D5B6FC9C5BE96C174FCCC5C9EF00000000D04C6' +
'A6EBF286F6A1B00000000ECAA6DF939B7DAD9F2F37271F21B0000' +
'000034939BDBBCBCA96D00000000B0ABB6E5E7DC6A67CBCFCBC5C' +
'9AF00000000D04C6E6EF3F2A6B601000000C0AEDA969E73FBA1B3' +
'E5E7E5E2E41700000000682637B7697953DB0000000060576DCBC' +
'FB9FDD0D9F2F37271F2330000000034939BDBBCBCA96D00000000' +
'B0ABB6E5E7DC6A67CBCFCBC5C94F00000000D04C6E6EF3F2A6B60' +
'1000000C0AEDA969F73AB9D2D3F2F17273F020000004033B9B9CD' +
'CB9BDA06000000007B6BDBFADBA3FE6D0100000050DB56DE2AAD4' +
'FB5D5CE666666666666666666D66DB9B9CDCBDBD1B747CDCCCCCC' +
'CCCCCCCCCCBA4D6D333333333333333333DBB5F5DA76F4EDD17B0' +
'0000000682637B7797953DB0000000060A5B6AD34B7DAD9EA7BA3' +
'F9E43B000000006866BDB9A96D00000000B052DB569A5BED6CF5B' +
'DD17CF22D0000000034B35EDED43600000000D855DB6A67ABEF8D' +
'E6936F00000000A099F5F2A6B60100000080DA060000000067AB6' +
'DB5B3D5AFB4E593AF01000000A099F5F2A6B60100000080DA0600' +
'0000006A1B00000000FC576B5BED6CF54E847CF2150000000034B' +
'35EDED43600000000D855DB6A67ABEF8DA693EF3F01000000A097' +
'03E54D6D03000000805DB5AD76B6F2DEE8C5D91F00000000D0CC7' +
'A7953DB0000000060576DAB9DADBE379A4F7E070000008066D6CB' +
'9BDA0600000000BB6A5BE96C3FBC379A4F7E030000008066D6CB9' +
'BDA0600000000BB6A5BED6CF5BDD17CF22B0000000034B35CDED4' +
'360000000050DB00000000E074B5AD76B6FA95B67CF20B0000000' +
'034B35CDED4360000000050DB00000000E06CB5ED87CE56BFD296' +
'4F7E060000008066D6CB5BED6CF549B67CF2130000000034B35ED' +
'E6A67AB4FB2E5931F01000000A099F5F2A6B601000000C0AEDAB6' +
'F27D36B50D00000000B5EDF76A5BED6CF9E407000000006866BDB' +
'CADDC86A0B601000000A0B6A96D00000000F0376BDBCA6D08F964' +
'3333333333333333B36E5B2F6F6A9B9999999999999999D97C479' +
'F735B2F6C7700000000D0CC7A7953DB0000000060576DF326A999' +
'99999999999999D97CBEDB666666666666666666B66B6A9B99999' +
'99999999999D9AEADD7B6D72FB9B9AD973700000000E860E51ED2' +
'AFC2F63FFB6B4956');
Image := TImage.Create(frmDesign);
Image.Parent := frmDesign;
Image.Left := 0;
Image.Top := 0;
Image.Width := 830;
Image.Height := 395;
Canvas := GetBitmapCanvas(ImageInteger);
CopyCanvas(Canvas, Image.Canvas, 0, 0, 830, 395, 0, 0, 830, 395);
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 114;
Label1.Top := 10;
Label1.Width := 69;
Label1.Height := 26;
Label1.Caption := 'Player 1';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -19;
Label1.Font.Name := 'Comic Sans MS';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 298;
Label2.Top := 10;
Label2.Width := 69;
Label2.Height := 26;
Label2.Caption := 'Player 2';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -19;
Label2.Font.Name := 'Comic Sans MS';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 402;
Label3.Top := 10;
Label3.Width := 69;
Label3.Height := 26;
Label3.Caption := 'Player 3';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -19;
Label3.Font.Name := 'Comic Sans MS';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 546;
Label4.Top := 10;
Label4.Width := 69;
Label4.Height := 26;
Label4.Caption := 'Player 4';
Label4.Font.Color := clWindowText;
Label4.Font.Height := -19;
Label4.Font.Name := 'Comic Sans MS';
Label4.Font.Style := [];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 690;
Label5.Top := 10;
Label5.Width := 69;
Label5.Height := 26;
Label5.Caption := 'Player 5';
Label5.Font.Color := clWindowText;
Label5.Font.Height := -19;
Label5.Font.Name := 'Comic Sans MS';
Label5.Font.Style := [];
Label5.ParentFont := False;
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 10;
Label6.Top := 40;
Label6.Width := 69;
Label6.Height := 26;
Label6.Caption := 'Username';
Label6.Font.Color := clWindowText;
Label6.Font.Height := -13;
Label6.Font.Name := 'Comic Sans MS';
Label6.Font.Style := [];
Label6.ParentFont := False;
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 10;
Label7.Top := 70;
Label7.Width := 69;
Label7.Height := 26;
Label7.Caption := 'Password';
Label7.Font.Color := clWindowText;
Label7.Font.Height := -13;
Label7.Font.Name := 'Comic Sans MS';
Label7.Font.Style := [];
Label7.ParentFont := False;
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 10;
Label8.Top := 100;
Label8.Width := 69;
Label8.Height := 26;
Label8.Caption := 'NickName';
Label8.Font.Color := clWindowText;
Label8.Font.Height := -13;
Label8.Font.Name := 'Comic Sans MS';
Label8.Font.Style := [];
Label8.ParentFont := False;
Label9 := TLabel.Create(frmDesign);
Label9.Parent := frmDesign;
Label9.Left := 10;
Label9.Top := 130;
Label9.Width := 69;
Label9.Height := 26;
Label9.Caption := 'PinNumber';
Label9.Font.Color := clWindowText;
Label9.Font.Height := -13;
Label9.Font.Name := 'Comic Sans MS';
Label9.Font.Style := [];
Label9.ParentFont := False;
Label10 := TLabel.Create(frmDesign);
Label10.Parent := frmDesign;
Label10.Left := 10;
Label10.Top := 160;
Label10.Width := 69;
Label10.Height := 26;
Label10.Caption := 'LampSkill';
Label10.Font.Color := clWindowText;
Label10.Font.Height := -13;
Label10.Font.Name := 'Comic Sans MS';
Label10.Font.Style := [];
Label10.ParentFont := False;
Label11 := TLabel.Create(frmDesign);
Label11.Parent := frmDesign;
Label11.Left := 10;
Label11.Top := 190;
Label11.Width := 69;
Label11.Height := 26;
Label11.Caption := 'Want To Fish?';
Label11.Font.Color := clWindowText;
Label11.Font.Height := -13;
Label11.Font.Name := 'Comic Sans MS';
Label11.Font.Style := [];
Label11.ParentFont := False;
Label12 := TLabel.Create(frmDesign);
Label12.Parent := frmDesign;
Label12.Left := 10;
Label12.Top := 220;
Label12.Width := 69;
Label12.Height := 26;
Label12.Caption := 'Want To Cook?';
Label12.Font.Color := clWindowText;
Label12.Font.Height := -13;
Label12.Font.Name := 'Comic Sans MS';
Label12.Font.Style := [];
Label12.ParentFont := False;
Label13 := TLabel.Create(frmDesign);
Label13.Parent := frmDesign;
Label13.Left := 10;
Label13.Top := 305;
Label13.Width := 260;
Label13.Height := 26;
Label13.Caption := 'How many fishes do you';
Label13.Font.Color := clWindowText;
Label13.Font.Height := -13;
Label13.Font.Name := 'Comic Sans MS';
Label13.Font.Style := [];
Label13.ParentFont := False;
Label14 := TLabel.Create(frmDesign);
Label14.Parent := frmDesign;
Label14.Left := 10;
Label14.Top := 320;
Label14.Width := 60;
Label14.Height := 26;
Label14.Caption := 'want to Fish/Cook?';
Label14.Font.Color := clWindowText;
Label14.Font.Height := -13;
Label14.Font.Name := 'Comic Sans MS';
Label14.Font.Style := [];
Label14.ParentFont := False;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 114;
Edit1.Top := 40;
Edit1.Width := 115;
Edit1.Height := 26;
Edit1.TabOrder := 0;
Edit1.Text := LoadSetting('FCBChars', 'UsernameOfPlayer1');
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 114;
Edit2.PasswordChar := '*';
Edit2.Top := 70;
Edit2.Width := 115;
Edit2.Height := 26;
Edit2.TabOrder := 1;
Edit2.Text := LoadSetting('FCBChars', 'PasswordOfPlayer1');
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 114;
Edit3.Top := 100;
Edit3.Width := 115;
Edit3.Height := 26;
Edit3.TabOrder := 2;
Edit3.Text := LoadSetting('FCBChars', 'NickNameOfPlayer1');
Edit4 := TEdit.Create(frmDesign);
Edit4.Parent := frmDesign;
Edit4.Left := 114;
Edit4.Top := 130;
Edit4.Width := 115;
Edit4.Height := 26;
Edit4.TabOrder := 3;
Edit4.Text := LoadSetting('FCBChars', 'PinNumberOfPlayer1');
Edit5 := TEdit.Create(frmDesign);
Edit5.Parent := frmDesign;
Edit5.Left := 258;
Edit5.Top := 40;
Edit5.Width := 115;
Edit5.Height := 26;
Edit5.TabOrder := 0;
Edit5.Text := LoadSetting('FCBChars', 'UsernameOfPlayer2');
Edit6 := TEdit.Create(frmDesign);
Edit6.Parent := frmDesign;
Edit6.Left := 258;
Edit6.PasswordChar := '*';
Edit6.Top := 70;
Edit6.Width := 115;
Edit6.Height := 26;
Edit6.TabOrder := 1;
Edit6.Text := LoadSetting('FCBChars', 'PasswordOfPlayer2');
Edit7 := TEdit.Create(frmDesign);
Edit7.Parent := frmDesign;
Edit7.Left := 258;
Edit7.Top := 100;
Edit7.Width := 115;
Edit7.Height := 26;
Edit7.TabOrder := 2;
Edit7.Text := LoadSetting('FCBChars', 'NickNameOfPlayer2');
Edit8 := TEdit.Create(frmDesign);
Edit8.Parent := frmDesign;
Edit8.Left := 258;
Edit8.Top := 130;
Edit8.Width := 115;
Edit8.Height := 26;
Edit8.TabOrder := 3;
Edit8.Text := LoadSetting('FCBChars', 'PinNumberOfPlayer2');
Edit9 := TEdit.Create(frmDesign);
Edit9.Parent := frmDesign;
Edit9.Left := 402;
Edit9.Top := 40;
Edit9.Width := 115;
Edit9.Height := 26;
Edit9.TabOrder := 0;
Edit9.Text := LoadSetting('FCBChars', 'UsernameOfPlayer3');
Edit10 := TEdit.Create(frmDesign);
Edit10.Parent := frmDesign;
Edit10.Left := 402;
Edit10.PasswordChar := '*';
Edit10.Top := 70;
Edit10.Width := 115;
Edit10.Height := 26;
Edit10.TabOrder := 1;
Edit10.Text := LoadSetting('FCBChars', 'PasswordOfPlayer3');
Edit11 := TEdit.Create(frmDesign);
Edit11.Parent := frmDesign;
Edit11.Left := 402;
Edit11.Top := 100;
Edit11.Width := 115;
Edit11.Height := 26;
Edit11.TabOrder := 2;
Edit11.Text := LoadSetting('FCBChars', 'NickNameOfPlayer3');
Edit12 := TEdit.Create(frmDesign);
Edit12.Parent := frmDesign;
Edit12.Left := 402;
Edit12.Top := 130;
Edit12.Width := 115;
Edit12.Height := 26;
Edit12.TabOrder := 3;
Edit12.Text := LoadSetting('FCBChars', 'PinNumberOfPlayer3');
Edit13 := TEdit.Create(frmDesign);
Edit13.Parent := frmDesign;
Edit13.Left := 546;
Edit13.Top := 40;
Edit13.Width := 115;
Edit13.Height := 26;
Edit13.TabOrder := 0;
Edit13.Text := LoadSetting('FCBChars', 'UsernameOfPlayer4');
Edit14 := TEdit.Create(frmDesign);
Edit14.Parent := frmDesign;
Edit14.Left := 546;
Edit14.PasswordChar := '*';
Edit14.Top := 70;
Edit14.Width := 115;
Edit14.Height := 26;
Edit14.TabOrder := 1;
Edit14.Text := LoadSetting('FCBChars', 'PasswordOfPlayer4');
Edit15 := TEdit.Create(frmDesign);
Edit15.Parent := frmDesign;
Edit15.Left := 546;
Edit15.Top := 100;
Edit15.Width := 115;
Edit15.Height := 26;
Edit15.TabOrder := 2;
Edit15.Text := LoadSetting('FCBChars', 'NickNameOfPlayer4');
Edit16 := TEdit.Create(frmDesign);
Edit16.Parent := frmDesign;
Edit16.Left := 546;
Edit16.Top := 130;
Edit16.Width := 115;
Edit16.Height := 26;
Edit16.TabOrder := 3;
Edit16.Text := LoadSetting('FCBChars', 'PinNumberOfPlayer4');
Edit17 := TEdit.Create(frmDesign);
Edit17.Parent := frmDesign;
Edit17.Left := 690;
Edit17.Top := 40;
Edit17.Width := 115;
Edit17.Height := 26;
Edit17.TabOrder := 0;
Edit17.Text := LoadSetting('FCBChars', 'UsernameOfPlayer5');
Edit18 := TEdit.Create(frmDesign);
Edit18.Parent := frmDesign;
Edit18.Left := 690;
Edit18.PasswordChar := '*';
Edit18.Top := 70;
Edit18.Width := 115;
Edit18.Height := 26;
Edit18.TabOrder := 1;
Edit18.Text := LoadSetting('FCBChars', 'PasswordOfPlayer5');
Edit19 := TEdit.Create(frmDesign);
Edit19.Parent := frmDesign;
Edit19.Left := 690;
Edit19.Top := 100;
Edit19.Width := 115;
Edit19.Height := 26;
Edit19.TabOrder := 2;
Edit19.Text := LoadSetting('FCBChars', 'NickNameOfPlayer5');
Edit20 := TEdit.Create(frmDesign);
Edit20.Parent := frmDesign;
Edit20.Left := 690;
Edit20.Top := 130;
Edit20.Width := 115;
Edit20.Height := 26;
Edit20.TabOrder := 3;
Edit20.Text := LoadSetting('FCBChars', 'PinNumberOfPlayer5');
Edit21 := TEdit.Create(frmDesign);
Edit21.Parent := frmDesign;
Edit21.Left := 170;
Edit21.Top := 305;
Edit21.Width := 67;
Edit21.Height := 67;
Edit21.TabOrder := 22;
Edit21.Text := LoadSetting('FCBChars', 'HowManyFishesToDo');
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 114;
ComboBox1.Top := 160;
ComboBox1.Width := 134;
ComboBox1.Height := 26;
ComboBox1.DropDownCount := 23;
ComboBox1.ItemHeight := 18;
ComboBox1.TabOrder := 4;
ComboBox1.Text := LoadSetting('FCBChars', 'LampSkillOfPlayer1');
ComboBox1.Items.Add('Attack');
ComboBox1.Items.Add('Strength');
ComboBox1.Items.Add('Defence');
ComboBox1.Items.Add('Ranged');
ComboBox1.Items.Add('Prayer');
ComboBox1.Items.Add('Magic');
ComboBox1.Items.Add('Runecrafting');
ComboBox1.Items.Add('Construction');
ComboBox1.Items.Add('Hitpoints');
ComboBox1.Items.Add('Agility');
ComboBox1.Items.Add('Herblore');
ComboBox1.Items.Add('Thieving');
ComboBox1.Items.Add('Crafting');
ComboBox1.Items.Add('Fletching');
ComboBox1.Items.Add('Slayer');
ComboBox1.Items.Add('Hunting');
ComboBox1.Items.Add('Mining');
ComboBox1.Items.Add('Smithing');
ComboBox1.Items.Add('Fishing');
ComboBox1.Items.Add('Cooking');
ComboBox1.Items.Add('Firemaking');
ComboBox1.Items.Add('Woodcutting');
ComboBox1.Items.Add('Farming');
ComboBox2 := TComboBox.Create(frmDesign);
ComboBox2.Parent := frmDesign;
ComboBox2.Left := 114;
ComboBox2.Top := 190;
ComboBox2.Width := 134;
ComboBox2.Height := 26;
ComboBox2.DropDownCount := 3;
ComboBox2.ItemHeight := 18;
ComboBox2.TabOrder := 5;
ComboBox2.Text := LoadSetting('FCBChars', 'WantToFishOfPlayer1');
ComboBox2.Items.Add('Yes, With Banking');
ComboBox2.Items.Add('Yes, PowerFishing');
ComboBox2.Items.Add('No');
ComboBox3 := TComboBox.Create(frmDesign);
ComboBox3.Parent := frmDesign;
ComboBox3.Left := 114;
ComboBox3.Top := 220;
ComboBox3.Width := 134;
ComboBox3.Height := 26;
ComboBox3.DropDownCount := 2;
ComboBox3.ItemHeight := 18;
ComboBox3.TabOrder := 6;
ComboBox3.Text := LoadSetting('FCBChars', 'WantToCookOfPlayer1');
ComboBox3.Items.Add('Yes');
ComboBox3.Items.Add('No');
ComboBox4 := TComboBox.Create(frmDesign);
ComboBox4.Parent := frmDesign;
ComboBox4.Left := 258;
ComboBox4.Top := 160;
ComboBox4.Width := 134;
ComboBox4.Height := 26;
ComboBox4.DropDownCount := 23;
ComboBox4.ItemHeight := 18;
ComboBox4.TabOrder := 4;
ComboBox4.Text := LoadSetting('FCBChars', 'LampSkillOfPlayer2');
ComboBox4.Items.Add('Attack');
ComboBox4.Items.Add('Strength');
ComboBox4.Items.Add('Defence');
ComboBox4.Items.Add('Ranged');
ComboBox4.Items.Add('Prayer');
ComboBox4.Items.Add('Magic');
ComboBox4.Items.Add('Runecrafting');
ComboBox4.Items.Add('Construction');
ComboBox4.Items.Add('Hitpoints');
ComboBox4.Items.Add('Agility');
ComboBox4.Items.Add('Herblore');
ComboBox4.Items.Add('Thieving');
ComboBox4.Items.Add('Crafting');
ComboBox4.Items.Add('Fletching');
ComboBox4.Items.Add('Slayer');
ComboBox4.Items.Add('Hunting');
ComboBox4.Items.Add('Mining');
ComboBox4.Items.Add('Smithing');
ComboBox4.Items.Add('Fishing');
ComboBox4.Items.Add('Cooking');
ComboBox4.Items.Add('Firemaking');
ComboBox4.Items.Add('Woodcutting');
ComboBox4.Items.Add('Farming');
ComboBox5 := TComboBox.Create(frmDesign);
ComboBox5.Parent := frmDesign;
ComboBox5.Left := 258;
ComboBox5.Top := 190;
ComboBox5.Width := 134;
ComboBox5.Height := 26;
ComboBox5.DropDownCount := 3;
ComboBox5.ItemHeight := 18;
ComboBox5.TabOrder := 5;
ComboBox5.Text := LoadSetting('FCBChars', 'WantToFishOfPlayer2');
ComboBox5.Items.Add('Yes, With Banking');
ComboBox5.Items.Add('Yes, PowerFishing');
ComboBox5.Items.Add('No');
ComboBox6 := TComboBox.Create(frmDesign);
ComboBox6.Parent := frmDesign;
ComboBox6.Left := 258;
ComboBox6.Top := 220;
ComboBox6.Width := 134;
ComboBox6.Height := 26;
ComboBox6.DropDownCount := 2;
ComboBox6.ItemHeight := 18;
ComboBox6.TabOrder := 6;
ComboBox6.Text := LoadSetting('FCBChars', 'WantToCookOfPlayer2');
ComboBox6.Items.Add('Yes');
ComboBox6.Items.Add('No');
ComboBox7 := TComboBox.Create(frmDesign);
ComboBox7.Parent := frmDesign;
ComboBox7.Left := 402;
ComboBox7.Top := 160;
ComboBox7.Width := 134;
ComboBox7.Height := 26;
ComboBox7.DropDownCount := 23;
ComboBox7.ItemHeight := 18;
ComboBox7.TabOrder := 4;
ComboBox7.Text := LoadSetting('FCBChars', 'LampSkillOfPlayer3');
ComboBox7.Items.Add('Attack');
ComboBox7.Items.Add('Strength');
ComboBox7.Items.Add('Defence');
ComboBox7.Items.Add('Ranged');
ComboBox7.Items.Add('Prayer');
ComboBox7.Items.Add('Magic');
ComboBox7.Items.Add('Runecrafting');
ComboBox7.Items.Add('Construction');
ComboBox7.Items.Add('Hitpoints');
ComboBox7.Items.Add('Agility');
ComboBox7.Items.Add('Herblore');
ComboBox7.Items.Add('Thieving');
ComboBox7.Items.Add('Crafting');
ComboBox7.Items.Add('Fletching');
ComboBox7.Items.Add('Slayer');
ComboBox7.Items.Add('Hunting');
ComboBox7.Items.Add('Mining');
ComboBox7.Items.Add('Smithing');
ComboBox7.Items.Add('Fishing');
ComboBox7.Items.Add('Cooking');
ComboBox7.Items.Add('Firemaking');
ComboBox7.Items.Add('Woodcutting');
ComboBox7.Items.Add('Farming');
ComboBox8 := TComboBox.Create(frmDesign);
ComboBox8.Parent := frmDesign;
ComboBox8.Left := 402;
ComboBox8.Top := 190;
ComboBox8.Width := 134;
ComboBox8.Height := 26;
ComboBox8.DropDownCount := 3;
ComboBox8.ItemHeight := 18;
ComboBox8.TabOrder := 5;
ComboBox8.Text := LoadSetting('FCBChars', 'WantToFishOfPlayer3');
ComboBox8.Items.Add('Yes, With Banking');
ComboBox8.Items.Add('Yes, PowerFishing');
ComboBox8.Items.Add('No');
ComboBox9 := TComboBox.Create(frmDesign);
ComboBox9.Parent := frmDesign;
ComboBox9.Left := 402;
ComboBox9.Top := 220;
ComboBox9.Width := 134;
ComboBox9.Height := 26;
ComboBox9.DropDownCount := 2;
ComboBox9.ItemHeight := 18;
ComboBox9.TabOrder := 6;
ComboBox9.Text := LoadSetting('FCBChars', 'WantToCookOfPlayer3');
ComboBox9.Items.Add('Yes');
ComboBox9.Items.Add('No');
ComboBox10 := TComboBox.Create(frmDesign);
ComboBox10.Parent := frmDesign;
ComboBox10.Left := 546;
ComboBox10.Top := 160;
ComboBox10.Width := 134;
ComboBox10.Height := 26;
ComboBox10.DropDownCount := 23;
ComboBox10.ItemHeight := 18;
ComboBox10.TabOrder := 4;
ComboBox10.Text := LoadSetting('FCBChars', 'LampSkillOfPlayer4');
ComboBox10.Items.Add('Attack');
ComboBox10.Items.Add('Strength');
ComboBox10.Items.Add('Defence');
ComboBox10.Items.Add('Ranged');
ComboBox10.Items.Add('Prayer');
ComboBox10.Items.Add('Magic');
ComboBox10.Items.Add('Runecrafting');
ComboBox10.Items.Add('Construction');
ComboBox10.Items.Add('Hitpoints');
ComboBox10.Items.Add('Agility');
ComboBox10.Items.Add('Herblore');
ComboBox10.Items.Add('Thieving');
ComboBox10.Items.Add('Crafting');
ComboBox10.Items.Add('Fletching');
ComboBox10.Items.Add('Slayer');
ComboBox10.Items.Add('Hunting');
ComboBox10.Items.Add('Mining');
ComboBox10.Items.Add('Smithing');
ComboBox10.Items.Add('Fishing');
ComboBox10.Items.Add('Cooking');
ComboBox10.Items.Add('Firemaking');
ComboBox10.Items.Add('Woodcutting');
ComboBox10.Items.Add('Farming');
ComboBox11 := TComboBox.Create(frmDesign);
ComboBox11.Parent := frmDesign;
ComboBox11.Left := 546;
ComboBox11.Top := 190;
ComboBox11.Width := 134;
ComboBox11.Height := 26;
ComboBox11.DropDownCount := 3;
ComboBox11.ItemHeight := 18;
ComboBox11.TabOrder := 5;
ComboBox11.Text := LoadSetting('FCBChars', 'WantToFishOfPlayer4');
ComboBox11.Items.Add('Yes, With Banking');
ComboBox11.Items.Add('Yes, PowerFishing');
ComboBox11.Items.Add('No');
ComboBox12 := TComboBox.Create(frmDesign);
ComboBox12.Parent := frmDesign;
ComboBox12.Left := 546;
ComboBox12.Top := 220;
ComboBox12.Width := 134;
ComboBox12.Height := 26;
ComboBox12.DropDownCount := 2;
ComboBox12.ItemHeight := 18;
ComboBox12.TabOrder := 6;
ComboBox12.Text := LoadSetting('FCBChars', 'WantToCookOfPlayer4');
ComboBox12.Items.Add('Yes');
ComboBox12.Items.Add('No');
ComboBox13 := TComboBox.Create(frmDesign);
ComboBox13.Parent := frmDesign;
ComboBox13.Left := 690;
ComboBox13.Top := 160;
ComboBox13.Width := 134;
ComboBox13.Height := 26;
ComboBox13.DropDownCount := 23;
ComboBox13.ItemHeight := 18;
ComboBox13.TabOrder := 4;
ComboBox13.Text := LoadSetting('FCBChars', 'LampSkillOfPlayer5');
ComboBox13.Items.Add('Attack');
ComboBox13.Items.Add('Strength');
ComboBox13.Items.Add('Defence');
ComboBox13.Items.Add('Ranged');
ComboBox13.Items.Add('Prayer');
ComboBox13.Items.Add('Magic');
ComboBox13.Items.Add('Runecrafting');
ComboBox13.Items.Add('Construction');
ComboBox13.Items.Add('Hitpoints');
ComboBox13.Items.Add('Agility');
ComboBox13.Items.Add('Herblore');
ComboBox13.Items.Add('Thieving');
ComboBox13.Items.Add('Crafting');
ComboBox13.Items.Add('Fletching');
ComboBox13.Items.Add('Slayer');
ComboBox13.Items.Add('Hunting');
ComboBox13.Items.Add('Mining');
ComboBox13.Items.Add('Smithing');
ComboBox13.Items.Add('Fishing');
ComboBox13.Items.Add('Cooking');
ComboBox13.Items.Add('Firemaking');
ComboBox13.Items.Add('Woodcutting');
ComboBox13.Items.Add('Farming');
ComboBox14 := TComboBox.Create(frmDesign);
ComboBox14.Parent := frmDesign;
ComboBox14.Left := 690;
ComboBox14.Top := 190;
ComboBox14.Width := 134;
ComboBox14.Height := 26;
ComboBox14.DropDownCount := 3;
ComboBox14.ItemHeight := 18;
ComboBox14.TabOrder := 5;
ComboBox14.Text := LoadSetting('FCBChars', 'WantToFishOfPlayer5');
ComboBox14.Items.Add('Yes, With Banking');
ComboBox14.Items.Add('Yes, PowerFishing');
ComboBox14.Items.Add('No');
ComboBox15 := TComboBox.Create(frmDesign);
ComboBox15.Parent := frmDesign;
ComboBox15.Left := 690;
ComboBox15.Top := 220;
ComboBox15.Width := 134;
ComboBox15.Height := 26;
ComboBox15.DropDownCount := 2;
ComboBox15.ItemHeight := 18;
ComboBox15.TabOrder := 6;
ComboBox15.Text := LoadSetting('FCBChars', 'WantToCookOfPlayer5');
ComboBox15.Items.Add('Yes');
ComboBox15.Items.Add('No');
CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 114;
CheckBox1.Top := 260;
CheckBox1.Width := 97;
CheckBox1.Height := 17;
CheckBox1.Caption := 'Active?';
CheckBox1.State := StrToBool(LoadSetting('FCBChars', 'ActivityOfPlayer1'));
CheckBox1.TabOrder := 7;
CheckBox2 := TCheckBox.Create(frmDesign);
CheckBox2.Parent := frmDesign;
CheckBox2.Left := 258;
CheckBox2.Top := 260;
CheckBox2.Width := 97;
CheckBox2.Height := 17;
CheckBox2.Caption := 'Active?';
CheckBox2.State := StrToBool(LoadSetting('FCBChars', 'ActivityOfPlayer2'));
CheckBox2.TabOrder := 7;
CheckBox3 := TCheckBox.Create(frmDesign);
CheckBox3.Parent := frmDesign;
CheckBox3.Left := 402;
CheckBox3.Top := 260;
CheckBox3.Width := 97;
CheckBox3.Height := 17;
CheckBox3.Caption := 'Active?';
CheckBox3.State := StrToBool(LoadSetting('FCBChars', 'ActivityOfPlayer3'));
CheckBox3.TabOrder := 7;
CheckBox4 := TCheckBox.Create(frmDesign);
CheckBox4.Parent := frmDesign;
CheckBox4.Left := 546;
CheckBox4.Top := 260;
CheckBox4.Width := 97;
CheckBox4.Height := 17;
CheckBox4.Caption := 'Active?';
CheckBox4.State := StrToBool(LoadSetting('FCBChars', 'ActivityOfPlayer4'));
CheckBox4.TabOrder := 7;
CheckBox5 := TCheckBox.Create(frmDesign);
CheckBox5.Parent := frmDesign;
CheckBox5.Left := 690;
CheckBox5.Top := 260;
CheckBox5.Width := 97;
CheckBox5.Height := 17;
CheckBox5.Caption := 'Active?';
CheckBox5.State := StrToBool(LoadSetting('FCBChars', 'ActivityOfPlayer5'));
CheckBox5.TabOrder := 7;
CheckBox6 := TCheckBox.Create(frmDesign);
CheckBox6.Parent := frmDesign;
CheckBox6.Left := 290;
CheckBox6.Top := 305;
CheckBox6.Width := 150;
CheckBox6.Height := 17;
CheckBox6.Caption := 'Use AutoResponder?';
CheckBox6.State := StrToBool(LoadSetting('FCBChars', 'UseAutoResponder'));
CheckBox6.TabOrder := 7;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 10;
Button1.Top := 350;
Button1.Width := 190;
Button1.Height := 40;
Button1.Caption := 'Start the script!';
Button1.Font.Color := clWindowText;
Button1.Font.Height := -24;
Button1.Font.Name := 'Comic Sans MS';
Button1.Font.Style := [];
Button1.ModalResult := 1;
Button1.ParentFont := False;
Button1.TabOrder := 8;
Button1.OnClick := @ClickedAtStart;
Button2 := TButton.Create(frmDesign);
Button2.Parent := frmDesign;
Button2.Left := 215;
Button2.Top := 350;
Button2.Width := 215;
Button2.Height := 40;
Button2.Caption := 'Cancel the script...';
Button2.Font.Color := clWindowText;
Button2.Font.Height := -24;
Button2.Font.Name := 'Comic Sans MS';
Button2.Font.Style := [];
Button2.ModalResult := 2;
Button2.ParentFont := False;
Button2.TabOrder := 9;
Button2.OnClick := @ClickedAtCancel;
Memo1 := TMemo.Create(frmDesign);
Memo1.Parent := frmDesign;
Memo1.Left := 554;
Memo1.Top := 290;
Memo1.Width := 270;
Memo1.Height := 99;
Memo1.Lines.Add('If you don'#39't have a PinNumber, then you ');
Memo1.Lines.Add('can typ whatever you want in the ');
Memo1.Lines.Add('PinNumber-Box.');
Memo1.Lines.Add('');
Memo1.Lines.Add('Happy Autoing!');
Memo1.ReadOnly := True;
Memo1.TabOrder := 23;
end;
procedure SafeInitForm;
var
v : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure SetupForm;
begin
SafeInitForm;
SafeShowFormModal;
end;
procedure ScriptActive;
begin
if (StartTheScript = False) then
begin
Writeln('Script cancelled...')
TerminateScript;
end;
end;
procedure DeclareBMPS;
begin
CookDoor := BitmapFromString(7, 5, 'z78DAB330317736B5B40093' +
'6E660640808B84A8713573337575713672743673C545D24225440' +
'D312A01DFA2315C');
MMRock := BitmapFromString(8, 9, 'z78DA8D8FC10A002008437FC9' +
'4A8BAE69FFFF4B1D3C248CC21D868C3754A2ABA1325B99AD1BABC' +
'FEE041263AB0B79CF918CFCBF8564E4DD333CB6E2AECC96F83B0F' +
'96B2B1FBFFFD75E18BC416E6074D5D5BFD');
MMKebabShop := BitmapFromString(5, 3, '669F32669F32FA3629' +
'840E04620E0416A005FA3629FA3629840E04840E04620E04620E0' +
'4976F3E6C4A1A976F3E');
MMKebabShop2 := BitmapFromString(5, 3, '669F3216A00516A00' +
'5FA3629FA3629620E046C4A1A620E04620E04976F3EAB935F976F' +
'3EAB935F976F3EAB935F');
NeedFishNet := BitmapFromString(98, 3, 'z78DA333000013' +
'71CC00003E057E3861710A3925435C40362DC46828DE62048BCDB' +
'280F5BCA7D8A294BADF84596C5548FCB16F25452640E38D688379' +
'F9870265596809B212E740441627C47AD90A4AE4F29772779AE25' +
'266D93E7C7C116C294873375F317FD7D4ABC2E00EABC7C3E');
end;
procedure DeclareDTMS;
begin
Shrimps := DTMFromString('78DA63B467626078CA8002E677D533C801694' +
'620FE0F048C364035F718D000231209A46D816ADE1050E30F54F3' +
'9A801A3FA09ADBF8D50000BF070BA5');
Anchovies := DTMFromString('78DA632C64626078CA800232329A194480342' +
'394CF580E547317554D71F10454354540356F51D5F4F46E425593' +
'0154F398805D5540358F18D000238A1A00484D0D11');
end;
function FindDeformedMM(var TX, TY: Integer; BMP: integer): Boolean; //By Nielsie95
begin
Ref := 0.9;
Tol := 20;
for Times := 1 to 50 do
begin
FindDeformedBitmapToleranceIn(BMP, XT, YT, MMX1, MMY1, MMX2, MMCY, Tol, 10, True, Acc);
if (Acc >= Ref) then
begin
TX := XT;
TY := YT;
Result := True;
Exit;
end;
if Times mod 5 = 0 then
begin
Ref := Ref - 0.05;
Tol := Tol + 5;
end;
Wait(20 + Random(20));
end;
end;
procedure FCBAutoResponder;
begin
if (Checkbox6.Checked) then
begin
if (InChat(Players[CurrentPlayer].Name)) or
(InChat(Players[CurrentPlayer].Nick)) then
begin
case (Random(12) + 1) of
0 : WhatToSay := ('Yea?');
1 : WhatToSay := ('Sup?');
2 : WhatToSay := ('Wazzaaa?');
3 : WhatToSay := ('Ya?');
4 : WhatToSay := ('Thats me!');
5 : WhatToSay := ('Thats my name :)');
6 : WhatToSay := ('Yup?');
7 : WhatToSay := ('Me? Yea?');
8 : WhatToSay := ('Ye?');
9 : WhatToSay := ('?..');
10 : WhatToSay := ('..?');
11 : WhatToSay := ('Yeh?');
12 : WhatToSay := ('Yes?');
13 : WhatToSay := ('What?');
end;
HumanType(WhatToSay);
end;
if (InChat('lol')) or
(InChat('haha')) or
(InChat('hihi')) or
(InChat('rofl')) or
(InChat('lmao')) or
(InChat('l0l')) then
begin
case (Random(19) + 1) of
0 : WhatToSay := ('Rofl');
1 : WhatToSay := ('Loool');
2 : WhatToSay := ('Haahaa');
3 : WhatToSay := ('Hehe');
4 : WhatToSay := ('Hiihii');
5 : WhatToSay := ('^^');
6 : WhatToSay := ('Lool!');
7 : WhatToSay := ('Lma0 ^^');
8 : WhatToSay := ('Haha!');
9 : WhatToSay := ('Lma0..');
10 : WhatToSay := ('Lool man');
11 : WhatToSay := ('Lool man ^^');
12 : WhatToSay := ('Hillarious ^^');
13 : WhatToSay := ('*Laughs*');
14 : WhatToSay := ('L0lzor');
15 : WhatToSay := ('Gahhaa');
16 : WhatToSay := ('Thats funny ^^');
17 : WhatToSay := ('...');
18 : WhatToSay := ('x[)');
19 : WhatToSay := ('=P');
20 : WhatToSay := ('Roflma0 ^^');
end;
HumanType(WhatToSay);
end;
if (InChat('macroing')) or
(InChat('macro')) or
(InChat('autoing')) or
(InChat('bots')) then
begin
case (Random(3) + 1) of
0 : WhatToSay := ('Macro is soo stupid!');
1 : WhatToSay := ('Autobots ruine RuneScape ..');
2 : WhatToSay := ('Autoin is for n00bs');
3 : WhatToSay := ('Macro is stupid -_-');
4 : WhatToSay := ('Autobots need to dissapear!');
end;
HumanType(WhatToSay);
end;
if (InChat('do you')) or
(InChat('do u')) or
(InChat('can i')) or
(InChat('do')) or
(InChat('can'))
and
(InChat('buy')) or
(InChat('sell')) or
(InChat('see')) or
(InChat('like')) then
begin
case (Random(9) + 1) of
0 : WhatToSay := ('Nop');
1 : WhatToSay := ('me? Nope');
2 : WhatToSay := ('Not Really..');
3 : WhatToSay := ('Nopz');
4 : WhatToSay := ('Nah');
5 : WhatToSay := ('Nope');
6 : WhatToSay := ('Naw');
7 : WhatToSay := ('Naah');
8 : WhatToSay := ('Yup .. Nah actually not ^^');
9 : WhatToSay := ('Noo');
10 : WhatToSay := ('No Man');
end;
HumanType(WhatToSay);
end;
if (InChat('wut')) or
(InChat('wat')) or
(InChat('what')) or
(InChat('wot')) or
(InChat('whaat'))
and
(InChat('doing')) or
(InChat('do')) or
(InChat('doin')) then
begin
case (random(12) + 1) of
0 : WhatToSay := ('Nothing');
1 : WhatToSay := ('Nothing Special..');
2 : WhatToSay := ('Nothin');
3 : WhatToSay := ('Not much ..');
4 : WhatToSay := ('Bored');
5 : WhatToSay := ('This Fishin and Cookin is soo booring -_-');
6 : WhatToSay := ('This Fishing and Cooking is soo booring -_-');
7 : WhatToSay := ('Chilling');
8 : WhatToSay := ('Chilling, you?');
9 : WhatToSay := ('Chillin');
10 : WhatToSay := ('Playing RuneScape ^^');
11 : WhatToSay := ('Bored, You?');
12 : WhatToSay := ('Talkin to you =P');
13 : WhatToSay := ('Talking to you =P');
end;
HumanType(WhatToSay);
end;
if (InChat('hey')) or
(InChat('yo')) or
(InChat('hello')) or
(InChat('sup')) or
(InChat('wassup')) or
(InChat('wazzaa')) or
(InChat('wazaa')) or
(InChat('whats up')) or
(InChat('hi')) or
(InChat('ey')) then
begin
case (random(14) + 1) of
0 : WhatToSay := ('Heyz');
1 : WhatToSay := ('Y0');
2 : WhatToSay := ('Hellow');
3 : WhatToSay := ('Hay');
4 : WhatToSay := ('Supp?');
5 : WhatToSay := ('Wasssup?');
6 : WhatToSay := ('Waazzaa!');
7 : WhatToSay := ('Waazaaa!');
8 : WhatToSay := ('Whats upp?');
9 : WhatToSay := ('How ya doin?');
10 : WhatToSay := ('Aye!');
11 : WhatToSay := ('Y0 man');
12 : WhatToSay := ('Y0 there');
13 : WhatToSay := ('Heya!');
14 : WhatToSay := ('Wihhaa');
15 : WhatToSay := ('Wazoaa!');
end;
HumanType(WhatToSay);
end;
if (InChat('Wna b freinds?') or
InChat('Wna be freinds?') or
InChat('Wana b freinds?') or
InChat('Wana be freinds?') or
InChat('Want 2 b freinds?') or
InChat('Want 2 be freinds?') or
InChat('Want to b freinds?') or
InChat('Want to be freinds?')) then
begin
case (Random(2) + 1) of
0 : WhatToSay := ('Nty..');
1 : WhatToSay := ('Nop');
2 : WhatToSay := ('Not really ..');
3 : WhatToSay := ('No ty');
end;
HumanType(WhatToSay);
end;
end;
end;
procedure SRLStatsAndRC;
begin
SRLID := SRLStatsID;
SRLPassword := SRLStatsPass;
RCMaster := RemoteMaster;
RCLoc := RemoteLocation;
end;
procedure Setup;
begin
if (Players[CurrentPlayer].Boolean1 = False) and
(Players[CurrentPlayer].Boolean2 = False) then
begin
Writeln('You have to do something! Please set WantToFish and/or WantToCook to "Yes".. Terminating..');
TerminateScript;
end;
if (Players[CurrentPlayer].Boolean2 = True) and
(Players[CurrentPlayer].Boolean3 = True) then
begin
Writeln('You cant PowerFish and Cook .. Set your form correctly! Terminating..');
TerminateScript;
end;
if (not (LoggedIn)) then
begin
Writeln('We are not logged in for some reason .. Logging in..')
LoginPlayer;
end;
FindFishingEquipmentColor;
SetRun(True);
if (CheckBox6.Checked) then
begin
SetChat('On', 1);
end else
begin
SetChat('Hide', 1);
end;
SetChat('Off', 2);
SetChat('Off', 3);
HighestAngle;
MakeCompass('N');
end;
procedure GoToBankFromFish;
begin
if (not (LoggedIn)) then
Exit;
if (Players[CurrentPlayer].Boolean3 = True) then
Exit;
if (Players[CurrentPlayer].Boolean1 = True) then
begin
MakeCompass('N');
HighestAngle;
repeat
Count := Count + 1;
if (FindSymbol(x, y, 'Quest')) then
begin
Mouse(x, y, 3, 3, True);
Wait(5000 + Random(1000));
end else
begin
if (FindSymbol(x, y, 'Fishing Spot')) then
begin
Wait(300 + Random(32));
Mouse(x, y, 3, 3, True);
Flag;
Wait(1000 + Random(1000));
end;
end;
until(Count > 5)or(FindSymbol(x, y, 'Quest'));
if (Count > 5) then
begin
Writeln('Could not find Quest and Fish Symbol. NextPlayer');
RandomNextPlayer(False);
Exit;
end;
Wait(5000 + Random(500));
Count := 0;
if (FindSymbol(x, y, 'Bank')) then
begin
Mouse(x, y, 1, 1, True);
Wait(5000 + Random (500));
end else
begin
Writeln('Could not find bank symbol. Try a less popular world .. Nextplayer.');
RandomNextPlayer(False);
Exit;
end;
end;
end;
procedure FCBRandomMM;
begin
MMouse(Random(MSX2), Random(MSY2), 1, 1);
Wait(1);
MMouse(Random(MSX2), Random(MSY2), 1, 1);
Wait(1);
MMouse(Random(MSX2), Random(MSY2), 1, 1);
Wait(1);
MMouse(Random(MSX2), Random(MSY2), 1, 1);
Wait(1);
MMouse(Random(MSX2), Random(MSY2), 1, 1);
Wait(1);
end;
procedure FCBHandleWhirlPool;
begin
Case (Random(5)) of
0 : begin
GameTab(4);
MMouseItem(1);
if (not (FindBitmapIn(NeedFishNet, x, y, MCX1, MCY1, MCX2, MCY2)) or
(ExistsItem(1))) then
begin
FoundFishNet := True;
FCBRandomMM;
end else
begin
Writeln('We lost our fishing net ..');
Writeln('Getting a new one from the bank!');
GoToBankFromFish;
MakeCompass('W');
HighestAngle;
OpenBankGlass('akb', True, True);
if (PinScreen) then
begin
InPin(Players[CurrentPlayer].String1);
end;
QuickFixBank;
MMouse(92, 77, 3, 3);
if (not (IsUpText('Small fishing net'))) then
begin
Writeln('Have a Small Fishing Net in your first bankslot or in your first inventory slot!');
Writeln('Hopefully your next player has..');
CloseBank;
RandomNextPlayer(False);
Exit;
end;
BankMouse(1, True);
CloseBank;
MakeCompass('N');
ExtraNetsNeeded := ExtraNetsNeeded + 1;
FoundFishNet := False;
end;
end;
end;
end;
procedure AntiRandoms;
begin
for MyRandom := 1 to 16 do
begin
case (MyRandom) of
1: if(FindNormalRandoms)then
RandomHappened := True
2: if(WeAreDead)then
begin
Writeln('Oh dear .. You are dead .. NextPlayer!')
NextPlayer(False);
end;
3: if(FindMod)then
RandomHappened := True;
4: if(FindScapeRune)then
begin
LogOut;
RandomNextPlayer(False);
end;
5: if(FindMime)then
RandomHappened := True;
6: if(FindMaze)then
RandomHappened := True;
7: if(FindNewBox)then
begin
SolveBox;
RandomHappened := True;
end;
8: if(FindQuiz)then
RandomHappened := True;
9: if(FindDemon)then
RandomHappened := True;
10: if(NoGameTab)then
begin
Logout;
Exit;
end;
11: if(RC)then
RandomHappened := True;
12: if(FindLamp(LampSkill))then
RandomHappened := True;
13: if(SolvePinball)then
RandomHappened := True;
14: if(FindTalk)then
RandomHappened := True;
15: if(InBlack)then
begin
LogOut;
RandomNextPlayer(False);
end;
16: if(HandleTrade)then
RandomHappened := True;
end;
end;
end;
procedure AntiBans;
begin
case (Random(40)) of
0 : PickUpMouse;
1 : RandomRClickEvery(2 + Random(8));
2 : AntiBan;
3 : RotateEvery(20 + Random(10));
4 : LeaveScreenEvery(6 + Random(14));
5 : BoredEvery(9 + Random(24));
6 : begin
GameTab(1 + Random(12));
Wait(1500 + Random(500));
GameTab(4);
end;
7 : SleepAndMoveMouse(1000 + Random(1000));
8 : MMouse(Random(MIX2), Random(MIY2), 1, 1);
9 : begin
AlmostLogout;
Wait(1500 + Random(500));
GameTab(4);
end;
10 : FCBRandomMM;
end;
FCBAutoResponder;
end;
procedure FishAntiBans;
begin
begin
case (Random(40)) of
0 : PickUpMouse;
1 : RandomRClickEvery(2 + Random(8));
2 : LeaveScreenEvery(5 + Random(5));
3 : if (IsUpText('opti')) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
ChooseOption(x, y, 'Examine');
end;
4 : LeaveScreenEvery(6 + Random(14));
5 : begin
GameTab(1 + Random(12));
Wait(1500 + Random(500));
GameTab(4);
end;
6 : SleepAndMoveMouse(1000 + Random(1000));
7 : MMouse(Random(MIX2), Random(MIY2), 1, 1);
8 : begin
AlmostLogout;
Wait(1500 + Random(500));
GameTab(4);
end;
9 : FCBRandomMM;
end;
end;
end;
procedure RaiseLevel;
begin
ClickToContinue;
ClickTocontinue;
if (ClickToContinue) then
begin
Writeln('We raised a level!');
ClickToContinue;
RaisedLevel := True;
end else
Raisedlevel := False;
end;
function IsDoorOpen : Boolean;
begin
Result := False;
MakeCompass('N');
if (FindBitmapToleranceIn(CookDoor, x, y, MMX1, MMY1, MMX2, MMY2, 5)) then
begin
Mouse(x, y, 1, 1, True);
Flag;
MakeCompass('W');
HighestAngle;
if (FindMSColorTol(x, y, DoorColor, 10)) then
if (ClickText('Open', 171, 109, 328, 213)) then
begin
Result := True;
end;
FreeBitMap(CookDoor);
end;
end;
procedure FishFight;
begin
if (not (LoggedIn)) then
Exit;
if (FindFight) then
begin
Writeln('FishFight Found!');
RunAwayDirection('E');
Wait(9000 + Random(3000));
RunBack;
FoundFishFight := True;
Writeln('FishFight Handled :)')
end;
end;
procedure CookFight;
begin
if (FindFight) then
begin
MakeCompass('E');
HighestAngle;
IsDoorOpen;
RunAwayDirection('S');
Wait(9000 + Random(3000));
RunBack;
MakeCompass('W');
HighestAngle;
IsDoorOpen;
FoundCookFight := True;
end;
end;
procedure BankFight;
begin
if (FindFight) then
begin
RunAwayDirection('W');
Wait(9000 + Random(3000));
RunBack;
FoundBankFight := True;
end;
end;
procedure GoToFishSpot;
begin
if (not (LoggedIn)) then
Exit;
MakeCompass('N');
HighestAngle;
if (not (Players[CurrentPlayer].Boolean1 = True)) then
Exit;
Writeln('Going to fishing spot.');
GameTab(4);
if (not (ExistsItem(1))) then
begin
Writeln('First getting fishing net from first bank slot.');
MakeCompass('W');
HighestAngle;
OpenBankGlass('akb', True, True);
if (PinScreen) then
begin
InPin(Players[CurrentPlayer].String1);
end;
QuickFixBank;
BankMouse(1, True);
Wait(100 + Random(100));
CloseBank;
MakeCompass('N');
ExtraNetsNeeded := ExtraNetsNeeded + 1;
end;
RadialWalkEx(x, y, MMCX, MMCY, MMDeadTree, 9, 140, 160, 60);
Wait(1500 + Random(500));
RadialWalkEx(x, y, MMCX, MMCY, MMGreenTree, 9, 180, 188, 48);
Wait(500 + Random(200));
FindSymbol(x, y, 'Quest');
Mouse(x, y, 3, 3, True);
Wait(4000 + Random(1000));
FindSymbol(x, y, 'Fishing Spot');
Mouse(x, y, 3, 3, True);
Flag;
end;
function FCBCheckInv : Boolean;
begin
if (InventoryFull) then
begin
Result := True;
Writeln('Inventory is full.')
Fished := Fished + 27;
Exit;
end else
Result := False;
end;
procedure FishAgain;
begin
x := MMCX
y := MMCY
InventoryFull;
RadialWalk(GetSymbolColor(x, y, 'Fishing Spot'), 0, 360, 70, 1, 1);
Flag;
Wait(2000 + Random(500));
end;
procedure FishAgainNeeded;
begin
if (not (IsUpText('Net Fishing spot'))) then
begin
FishAgain;
end;
end;
function CheckFishSpot : Boolean;
begin
InventoryFull;
FishAntiBans;
MMouse(FishX, FishY, 1, 1);
Wait(2000 + Random(2000));
if (not (IsUpText('Net Fishing spot')) or
(ClickOption('Net', 1))) then
begin
Result := False
end else
begin
Result := True;
end;
end;
procedure Fishing;
begin
if (not (LoggedIn)) then
Exit;
if (not (Players[CurrentPlayer].Boolean1 = True)) then
Exit;
repeat
x := MSCX;
y := MSCY;
MakeCompass('W');
HighestAngle;
GameTab(4);
if (FindMainColor(x, y, FishSpotColor1, 19, True)) or
(FindMainColor(x, y, FishSpotColor2, 19, True)) then
begin
Mouse(x, y, 3, 3, False);
ClickOption('Net', 1);
Wait(5000 + Random(1000));
if (FindMainColor(FishX, FishY, FishSpotColor1, 19, True)) or
(FindMainColor(x, y, FishSpotColor2, 19, True)) then
repeat
MMouse(FishX, FishY, 1, 1);
CheckFishSpot;
if (not (CheckFishSpot)) then
begin
FishAgain;
Fishing;
end;
FishFight;
if (FoundFishFight) then
begin
FoundFishFight := False;
Wait(10000 + Random(5000));
Fishing;
end;
RaiseLevel;
if (RaisedLevel) then
begin
RaisedLevel := False;
Wait(10000 + Random(5000));
Fishing;
end;
AntiRandoms;
if (RandomHappened) then
begin
RandomHappened := False;
Wait(10000 + Random(5000));
Fishing;
end;
FCBHandleWhirlPool;
if (not (FoundFishNet)) then
begin
Wait(10000 + Random(5000));
FoundFishNet := True;
GoToFishSpot;
Fishing;
end;
MMouse(FishX, FishY, 1, 1);
until (not (IsUpText('Net Fishing spot')) or (InventoryFull));
MMouse(FishX, FishY, 1, 1);
FishAgainNeeded;
end else
begin
FishAgain;
end;
until(FCBCheckInv);
if (Players[CurrentPlayer].Boolean3 = True) then
begin
DropTo(2,28);
Writeln('All fishes dropped');
end;
end;
procedure GoToCookPlace;
begin
if (not (Players[CurrentPlayer].Boolean2 = True)) then
Exit;
if (not (Inventoryfull)) then
begin
Writeln('Getting fishes from second bank slot');
MakeCompass('W');
HighestAngle;
OpenBankGlass('akb', True, True);
if (PinScreen) then
begin
InPin(Players[CurrentPlayer].String1);
end;
QuickFixBank;
Withdraw(1, 1, 28 + Random(72));
CloseBank;
MakeCompass('N');
end;
Writeln('Going to cooking house.');
GameTab(4);
MakeCompass('N');
HighestAngle;
if (not (ClickSymbol(MMKebabShop)) or
(ClickSymbol(MMKebabShop2))) then
begin
if (FindSymbol(x, y, 'Cook')) then
begin
Mouse(x, y, 2, 2, True);
Wait(5000 + Random(2000));
end else
try
begin
if (FindMMSymbol(MMKebabShop)) or
(FindMMSymbol(MMKebabShop2)) then
Exit;
if (FindDeformedMM(XT, YT, MMRock)) then
begin
Mouse(XT, YT, 2, 2, True);
Wait(3000 + Random(2000));
if (not (ClickSymbol(MMKebabShop)) or
(ClickSymbol(MMKebabShop2))) then
begin
if (FindSymbol(x, y, 'Cook')) then
begin
Mouse(x, y, 2, 2, True);
Wait(5000 + Random(2000));
end else
begin
if (FindSymbol(x, y, 'Furnace')) then
begin
Mouse(x, y, 3, 3, True);
Wait(5000 + Random(2000));
MakeCompass('W');
Highestangle;
Wait(1000 + Random(1000));
Mouse(627 + Random(3), 75 + Random(3), 3, 3, True);
Wait(3000 + Random(1000));
end else
begin
Mouse(644 + Random(3), 57 + Random(3), 5, 5, True);
Wait(3000 + Random(2000));
MakeCompass('W');
HighestAngle;
if (not (FindColorSpiralTolerance(RangeX, RangeY, RedFromCookingRangeColor, MSX1, MSY1, MSX2, MSY2, 15))) then
begin
Writeln('Could not find cooking house.. NextPlayer.')
RandomNextPlayer(False);
Exit;
end;
end;
end;
end;
end;
end;
except
begin
Writeln('Could not find the MMRock.. Nextplayer');
RandomNextPlayer(False);
Exit;
end;
end;
end;
Wait(8000 + Random(4000));
end;
procedure Cooking;
begin
if (not (LoggedIn)) then
Exit;
if (not (Players[CurrentPlayer].Boolean2 = True)) then
Exit;
MakeCompass('W');
HighestAngle;
if (FindColorSpiralTolerance(RangeX, RangeY, RedFromCookingRangeColor, MSX1, MSY1, MSX2, MSY2, 15)) then
begin
Writeln('Cooking.');
GameTab(4);
Color1 := GetColor(709, 455);
repeat
if (FindInvDTM(x, y, Shrimps)) then
begin
Mouse(x, y, 2, 2, True);
Wait(50 + Random(32));
Mouse(RangeX, RangeY, 2, 2, False);
if (not (ClickOption('Range', 1))) then
try
begin
if (FindDeformedMM(XT, YT, MMRock)) then
begin
Mouse(XT, YT, 2, 2, True);
Wait(3000 + Random(2000));
Mouse(644 + Random(3), 57 + Random(3), 5, 5, True);
Wait(3000 + Random(2000));
Cooking;
end;
end;
except
begin
Writeln('Could not find the MMRock.. Nextplayer');
RandomNextPlayer(False);
Exit;
end;
end;
AntiRandoms;
if (RandomHappened) then
begin
RandomHappened := False;
Cooking;
end;
Wait(8000 + Random(500));
AntiRandoms;
if (RandomHappened) then
begin
RandomHappened := False;
Cooking;
end;
if (not (ClickOption('Cook All', 3))) then
begin
Wait(3000 + Random(1000));
Mouse(255 + Random(5), 400 + Random(5), 5, 5, False);
ClickOption('Cook All', 3);
end else
repeat
MarkTime(ShrimpMarker);
RaiseLevel;
TimeFromMark(ShrimpMarker)
CookFight;
TimeFromMark(ShrimpMarker)
AntiRandoms;
TimeFromMark(ShrimpMarker)
if (RandomHappened) or
(FoundCookFight) or
(RaisedLevel) then
begin
Wait(10000 + Random(5000));
RandomHappened := False;
FoundCookFight := False;
RaisedLevel := False;
Cooking;
end;
AntiBans;
until(TimeFromMark(ShrimpMarker) > 60000)
end;
if (FindInvDTM(x, y, Anchovies)) then
begin
MakeCompass('W');
HighestAngle;
Mouse(x, y, 2, 2, True);
Wait(50 + Random(32));
Mouse(RangeX, RangeY, 2, 2, False);
if (not (ClickOption('Range', 1))) then
try
begin
if (FindDeformedMM(XT, YT, MMRock)) then
begin
Mouse(XT, YT, 2, 2, True);
Wait(3000 + Random(2000));
Mouse(644 + Random(5), 57 + Random(5), 5, 5, True);
Wait(3000 + Random(2000));
Cooking;
end;
end;
except
begin
Writeln('Could not find the MMRock.. Nextplayer');
RandomNextPlayer(False);
Exit;
end;
end;
AntiRandoms;
if (RandomHappened) then
begin
RandomHappened := False;
Cooking;
end;
Wait(8000 + Random(500));
AntiRandoms;
if (RandomHappened) then
begin
RandomHappened := False;
Cooking;
end;
Mouse(255 + Random(5), 400 + Random(5), 5, 5, False);
if (not (ClickOption('Cook All', 3))) then
begin
Wait(4000 + Random(1000));
Mouse(255 + Random(5), 400 + Random(5), 5, 5, False);
ClickOption('Cook All', 3);
end else
repeat
MarkTime(AnchoviesMarker);
RaiseLevel;
CookFight;
AntiRandoms;
if (RandomHappened) or
(FoundCookFight) or
(RaisedLevel) then
begin
Wait(10000 + Random(5000));
RandomHappened := False;
FoundCookFight := False;
RaisedLevel := False;
Cooking;
end;
AntiBans;
until(TimeFromMark(AnchoviesMarker) > 60000)
end;
Color2 := GetColor(709, 455);
until(Color1 < Color2) or (Color1 > Color2);
if (Players[CurrentPlayer].Boolean1 = True) then
begin
Cooked := Cooked + 27;
end else
begin
Cooked := Cooked + 28;
end;
end else
begin
IsDoorOpen;
if (IsDoorOpen) then
begin
Cooking;
end else
begin
Writeln('Could not find cooking range.. NextPlayer');
RandomNextPlayer(False);
Exit;
end;
end;
end;
procedure GoToBank;
begin
if (not (LoggedIn)) then
Exit;
if (Players[CurrentPlayer].Boolean2 = True) then
begin
Writeln('Going to bank.');
if (FindSymbol(x, y, 'Bank')) then
begin
Mouse(x, y, 3, 3, True);
Wait(5000 + Random(2000));
end else
begin
MakeCompass('N');
HighestAngle;
RunAwayDirection('S');
Wait(5000 + Random(2000));
GoToBank;
end;
end else
Exit;
end;
procedure Banking;
begin
Writeln('Banking.')
MakeCompass('W');
HighestAngle;
GetHp;
if (OpenBankGlass('akb', True, True)) then
begin
if (PinScreen) then
begin
InPin(Players[CurrentPlayer].String1);
end;
if (Players[CurrentPlayer].Boolean1 = True) then
begin
Deposit(2, 28, 2);
end else
begin
DepositAll;
end;
if (GetHP < 5) then
begin
BankMouse(4, True);
WithdrawFood := True;
end;
if (Players[CurrentPlayer].Boolean1 = True) then
begin
Banked := Banked + 27;
end else
begin
Banked := Banked + 28;
end;
end else
begin
if (FindSymbol(x, y, 'Bank')) then
begin
Mouse(x, y, 3, 3, True);
Wait(5000 + Random(2000));
Banking;
end else
begin
Writeln('Could not find the bank. NextPlayer.');
NextPlayer(False);
end;
end;
CloseBank;
if (WithdrawFood = True) then
begin
MouseItem(1, False);
if (not (ClickOption('Eat', 2))) then
begin
MouseItem(2, False);
if (not (ClickOption('Eat', 2))) then
begin
Writeln('Something is wrong with our food .. NextPlayer (We dont want to die!)');
RandomNextPlayer(False);
Exit;
end;
end;
WithdrawFood := False;
end;
AntiRandoms;
Bankfight;
if (RandomHappened) or (FoundBankFight) then
begin
RandomHappened := False;
FoundBankFight := False;
Wait(50000 + Random(5000));
end;
AntiBans;
end;
procedure Intro;
begin
ClearDebug;
Writeln('{+ + + + + + + + + + + + + + + + + + + + + + + + + + +}');
Wait(200);
Writeln('{+ ____________________________ +}');
Wait(200);
Writeln('{+ | | | | +}');
Wait(200);
Writeln('{+ | ______| ____| | +}');
Wait(200);
Writeln('{+ | ____| | | ______| +}');
Wait(200);
Writeln('{+ | | | | | | +}');
Wait(200);
Writeln('{+ | | | |____| | +}');
Wait(200);
Writeln('{+ | | | | | +}');
Wait(200);
Writeln('{+ |____| |_________|_________| +}');
Wait(100);
Writeln('{+ +}');
Wait(100);
Writeln('{+ By Rambozin +}');
Wait(200);
Writeln('{+ + + + + + + + + + + + + + + + + + + + + + + + + + +}');
Wait(1500);
end;
procedure ProgressReport;
begin
ClearDebug;
SRLRandomsReport;
Writeln('{+ + + + + + + + + + + + + + + + + + + + + + + + + + + + +}');
Writeln('{+ ____________________________ +}');
Writeln('{+ | | | | +}');
Writeln('{+ | ______| ____| | +}');
Writeln('{+ | ____| | | ______| +}');
Writeln('{+ | | | | | | +}');
Writeln('{+ | | | |____| | +}');
Writeln('{+ | | | | | +}');
Writeln('{+ |____| |_________|_________| +}');
Writeln('{+ +}');
Writeln('{+ + + + + + + + + + + + + + + + + + + + + + + + + + + + +}');
Writeln('{+ This script is running for ' + ScriptTime2(2) + ' ! +}');
if (Players[CurrentPlayer].Boolean1 = True) then
begin
Writeln('{+ We fished ' + IntToStr(Fished) + 'fishes! +}');
end;
if (Players[CurrentPlayer].Boolean2 = True) then
begin
Writeln('{+ We cooked & burned ' + IntToStr(Cooked) + ' fishes! +}');
end;
Writeln('{+ We banked ' + IntToStr(Banked) + ' times! +}');
if (Players[CurrentPlayer].Boolean1 = True) then
begin
Writeln('{+ We needed ' + IntToStr(ExtraNetsNeeded) + ' extra nets! +}');
end;
Writeln('{+ + + + + + + + + + + + + + + + + + + + + + + + + + + + +}');
if (Banked >= StrToInt(FishesToDo)) or (IsFKeyDown(4)) then
begin
Writeln('{+ + + + + + + + We are finally done! + + + + + + + + + +}');
Writeln('{+ + + + + + + + + + + + + + + + + + + + + + + + + + + + +}');
TerminateScript;
end;
end;
begin
NewLine := '';
SetupSRL;
SRLStatsAndRC;
BenMouse := True;
SetupForm;
ScriptActive;
SetForm;
DeclarePlayers;
DeclareBMPS;
DeclareDTMS;
DisguiseScar('Windows Live Messenger');
Intro;
ActivateClient;
LoginPlayer;
repeat
Setup;
GoToFishSpot;
Fishing;
GoToBankFromFish;
GoToCookPlace;
Cooking;
GoToBank;
Banking;
ProgressReport;
until (IsFKeyDown(4)) or (Banked >= StrToInt(FishesToDo));
ProgressReport;
end.——————————————————
<!– END TEMPLATE: formanswers –>