SoupyBastrd
2006-11-06 22:48:20
Hi I need help making my Player Array for my forms, i keep getting errors because i dont understand it, if anyone could help it would be GREAT!
[Runtime Error] : Out Of Range in line 897 in script C:\Program Files\SCAR 2.03\Scripts\UltimateFighter2.0Form3.scar
program New;
{.include SRL/SRL.scar}
var
Username,Password,Nickname,Location:array of String;
//vars from script
burybones : array of boolean;
UseAntiban:Boolean;
AutoTalk :Boolean;
AutoRespond:Boolean;
TakeBreaks :Boolean;
AuthorizationCode :String;
// Help Vars
frmDesign : TForm;
HelpTitle : TLabel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13:Tlabel;
//end helpvars
Axe,Bow,Staff:integer;
S : Integer;
AxeImage,BowImage,StaffImage:TImage;
UltimateFighter : TForm;
Title2 : TLabel;
UsernameLabel : Array of TLabel;
PasswordLabel : Array of TLabel;
NicknameLabel : Array of TLabel;
ClassLabel : Array of TLabel;
LocationLabel : Array of TLabel;
SkillLabel : Array of TLabel;
ActivationCodeLabel : TLabel;
FightModeLabel : Array of TLabel;
MagicSkillLabel : Array of TLabel;
PlayerLabel : Array of TLabel;
MaxLoginLabel : TLabel;
RandomTimeLabel : TLabel;
MonsterTimeoutLabel : TLabel;
ArrowTypeLabel : Array of TLabel;
Title : TLabel;
VersionLabel : TLabel;
TopRight : TLabel;
StartScript : TButton;
ChangeColor : TButton;
AddUser : TButton;
AntiBanBox : TCheckBox;
AutoTalkBox : TCheckBox;
AutoRespondBox : TCheckBox;
UsernameEdit : Array of TEdit;
PasswordEdit : Array of TEdit;
NickEdit : Array of TEdit;
ClassEdit : Array of TComboBox;
LocationEdit : Array of TComboBox;
Active : Array of TCheckBox;
LampSkillEdit : Array of TEdit;
Bone : Array of TCheckBox;
Authorization : TEdit;
FightMode : Array of TComboBox;
MagicSkill : Array of TComboBox;
SecsLoginEdit : TEdit;
RandomTimeEdit : TEdit;
MonsterTimeoutEdit : TEdit;
HpStop : array of TEdit;
StartFightingHpEdit :array of TEdit;
ArrowType : array of TComboBox;
Help : TButton;
TakeBreak : TCheckBox;
AxeCanv,BowCanv,StaffCanv:TCanvas;
Procedure SafeInitSetupForm1 ;
Var
v : TVariantArray ;
Begin
setarraylength ( v , 0 ) ;
ThreadSafeCall ( 'InitHelp' , v ) ;
End ;
Procedure ShowFormModalSetup1 ;
Begin
frmdesign.ShowModal ;
End ;
Procedure SafeShowFormModalSetup1;
Var
v : TVariantArray ;
Begin
setarraylength ( v , 0 ) ;
ThreadSafeCall ( 'ShowFormModalSetup1' , v ) ;
End ;
Procedure HelpMe(Sender:tobject);
begin
SafeInitSetupForm1;
SafeShowFormModalSetup1;
end;
Procedure StartTheScript(Sender: tobject);
begin
UltimateFighter.MODALRESULT := MrOk;
AuthorizationCode := Authorization.Text;
end;
Procedure ChangeTheColor(Sender:Tobject);
begin
UltimateFighter.Color := 1 + random(9999999);
end;
Procedure FormBitmaps;
begin
Axe := BitmapFromString(31, 33, 'z78DAC5985972EC200C45B7649' +
'084CDA7DBC3FE97F408D02951B230787849CA3755DD1E8EAE8490' +
'832B224CC81476F076E78AE29CBF5549759F79F8F931499F8A5D5' +
'2F17B920B7FAD3CB3E55B4E8B137DD0E34C2BCE9CFF299FEFBB51' +
'D002110267C6CD010D997CB0E157CB75F2843B23B5EE5B2F33ECB' +
'885436126749E50237F430971868FB60A32C9820B2CEDE44576EA' +
'4F6FF0BFCE7CE276229F7182B9E057C827E3CCB04DDE8DC3C6A3E' +
'04F6C79BA74555E953E919F1F90330D6ED9E095A311836B2ED407' +
'19E7E84B1EAC0CBA386FECB4BBC5589991DEB8B4ECF0DC2555C94' +
'72418B3B2280AE6E8B964CE994AF596A28E1994FCD255195DA1BD' +
'E44CA5DB052757C6CCC9B5D5CDDD969C925F2397B93E703B92A78' +
'80A5AAE55F203571B98A5F3C55E19EF9F347D32AEB497E416EC1A' +
'8E118CFD5694C29C2A8DDFB989B01E113B87D316CC8668D82479F' +
'A96F3DB1566BB16CC1A79B3ABD7B4709B550B6728F83F30862390' +
'02E5BE143575DA03F216572F31BB8DECAFDB915CAB25E93C18F83' +
'922B34ADEAB0D31B6B89DEE90C91373F43C9347E7795F7D809CF3' +
'6B6ECF61BAF2A3A78FEE36EF0FF53D485E7B9F539E93DD8ECC5A9' +
'DC869445BE352DFAB10E770F9BA9DC84F1C6BE85A0FB85A3D3F93' +
'1BF43AF9535DEB625714BDA885F9A09BBD1D45431EF32CB420057' +
'2227F5A21FF53AB1357D8ADED9739797EB253BFED6A2FB9607E85' +
'FC4E9D73E6B033FFBA2DEAE46FEBA1DEB7397947F7D326BDFB135' +
'475EECD6F2E1EC6C16BE44D33678BDEDFD999CF0810F6630CD345' +
'608E13ECADBDE6D94955718CBF35A755D9D4FDF8BBE135F2DEB8A' +
'A79547BC8B5A7B7E7E5FE9A653352C713DBDF132FADD993F753E5' +
'FF1E2754BD2BF1DA9AD55CAAFA73C07FBF63745EFB0FC0411A98');
Bow := BitmapFromString(32, 29, 'z78DAA558DBAEE3200CFCA5260' +
'10C8FB9B4FFFF499B628E34D6D839EC6E23592A216418C6B7ACD7' +
'7AAC499692F2A2367D7F3FB6DD574ED77D35B579CD6BFFF71DEFB' +
'6FF96FCCE9FBC9BBB307F8CF735C7883E05CF8EB7C0DBC7DD9A5B' +
'4E7A1771AE845CE747F8B7F3BE76B5E65DD740ECEF1431EB1E3B9' +
'E814A9FC237EA7CC03C76013C18B6F38DE7C702AB8643DD176256' +
'E61509324C6734EEEA4C3E295CAD8FBCBEBFE5D9E28E42AEE0BDC' +
'8333E65D8030C4657D11E6965C556B3BCCAEE5891B59C6AC72EE0' +
'8C22C522F3BC6BA316D22A2A0195639EEA23885C52D9F22FA7B0B' +
'DD6FB526B74CB4CE2EE70266B0CF4CC27684E0130AB955336D96A' +
'BBB15F8C30B20E93A893C0CB9467F56247697816A41F5D0731A3A' +
'D6FA962188EE2DE783B28D078139D85E3AD14FD1CCE71BCCF8C90' +
'B7450E49F22E4749887FACC0FECE3AC7BB3C072318F923FB0B9E2' +
'CEB04AD8EB7249764F44DD6B6F32EF22656AFC92314879D715833' +
'C28CC887E776E5482B528C7E1C849C1120323B19F651CF110FF3C' +
'8DB59939C37F08F88A39FC0FB987327B6E37E5581909D71473A32' +
'A313C486F8EB21A57C1CFE2943996810EC28F253C7A31FBD12917' +
'3F4D3F13DD5BDAEED254D56394B2B66BEA928985BCE985A47B172' +
'3057422CFA5BE47852EDC62DBB2ABFBECA55BEDEBBE423E49F6BB' +
'340454E05F59877A690835F28DB752B9F5267722B67103C7D8310' +
'EB43AA55E6BD92753290BF6B917734D3C9ADA41C272A627EE7283' +
'41D4F2285B75AEFC8F85C1B980A245005D6ED461BD03B6054FC37' +
'9DE86A23AAF7A8C25969CCC4B8C1151775045C7719E6A7F30EAB8' +
'5ED507880DC619B2AC3284B7297847B9C57F8C0D9F38E562F0333' +
'708E1ECAF9947B1C56B813CF03FB8C5CFD4E23DEC0DC2B16C43C5' +
'5AB33C223AD5B317E4ABDCF2FD51A68E60E3D773EDC97DAEA8815' +
'23BF771F54CC3338230F0DB30FF5F59147475D09C637C5FCFF389' +
'DDC17D53098A1024585B50DE847799EC1696A7BCA2F615F439D82' +
'531B702C029CD8B9203318373883731E776A69F4328CC981CF720' +
'E8DBE1E387195BF1B408675F220FA54C473D05F441A766A63AE1B' +
'31AB725516F4D726D6E9CA9CE3A8D20B590D14FBDC3185CA07B69' +
'DBDF069D27783E88B50D8B373DD127455460FCA4FB417E0CD7C3F' +
'A4AF344E067CFE5E049D7BF42D115199AA867D8714ABCF22E63F2' +
'A77941F');
Staff := BitmapFromString(34, 35, 'z78DAD559DBB2DB200CFC252' +
'EC6C68FF1EDFF3FA9D822ED6A9675DBB7F66486C9C18468D14A5A' +
'91324D9FBC95674C47DAD2B4C4792AF1DF1FCDDA324FC794FA082' +
'810CBB4B657C97B7B7DDABAA3FD77FF457B5F5249CFBB9FF3E5FE' +
'8B7DDE563E3BF0FA52CB5A26B783CD3F3BE01AFC469C472C88885' +
'1742CB60F59E56CB3F967EC58CE72958F7B0AEB11699FB14FC167' +
'DDB9E12919BAE7297B4731AA9F8FC0629E52FE92A8D17EC36BDE7' +
'9C670FF451CFB7AB01FFD6EA3E2DEC3A6EF08A7EDCE1638801891' +
'338E4BE09DFED4568217CCF25AE216CECF9C722C7B486BAC368FD' +
'8075C05740E8B3A43B041C68BE14574880218827BF6F3CFE10CA1' +
'5EF18C8D24A92DDCB7B4C57AE61C1B3E43449F65DB188B62B88B4' +
'A8C71E0927B0ADC40B620BBCCCE7C843584E5F6C4691E39723AE2' +
'76CDB9C4F3CAF7883E52E7E9B020CFF9841129AE641E1A0AE415B' +
'20B4E18B1943DA6B0AE470A31EDE7ED972BDE286E30DFB1FB91B2' +
'ABE2D820F7820DC8253B7FDB73C046F41171CCF631DBCCC6369D5' +
'35E439DEB6C7E39F707C5E7D7D8B187D45E8868C0318811979730' +
'8F71A453461DF802E79181CFCEDFD3CE4BF34BAD47DD8F2D5D0D4' +
'B6DF1721EF57E8F283A16629ACBC394FF79BDCB8AEFF14831E572' +
'E0337E633FC73BF6E79B65949919C55FC43E44C1A0BAA117D8724' +
'23AC8A2B09BD939379F348FCC4BFC6241CB9D2F549E61BF40E61F' +
'54F657FEB3FDBC7E500D8D57C752462858F370B4E277A93C26F3A' +
'D311F54015ACBAA0C736F5AEEE85DD3DCEA88D96FEF552C70A672' +
'6CC74CF2AC1FE8165271CCA24136E0A7C0A27CA4967FEB3EAFCDF' +
'E874B9F75B962B1D165275692B4E7E09C1F1B38F6BB6DA619985D' +
'58FD39A789ACDBD2EDD5B8B42E7914DD8E57A45506BA88B522738' +
'C9521AB3BD2543C8F335D6B3D1EF94D5C933A7528E8DC98154A8F' +
'391DFBDA77B84A4AF97669BC6B8A312CD563719CC47343BF5037A' +
'4F22163711A83B3199D98ECB3FEC0230E0B9CADCB5A1411D871F0' +
'4A87E595AB5C4307D51C7CAAB00C54017A871520C6057749C03DE' +
'517CE66CECB2283611DC13ACEF5CE45167E23A9565591B9E3531D' +
'F120A7E1FE841AEB88AC1A7C3EA25FE38818D4081A951E737107F' +
'673BCFF497428E63B6BB729E5797092D40D29E6731E73B1037EC1' +
'8A8F3BA31A9128A8022AEDC7771A2A1B7046620DE3940FD714467' +
'1E44F58D923B2D3A4DB15A51815EB94BE1AD47DAE32540B7A355F' +
'A6D609D6324FE11C7844F4954ED7895B2699D3C036ECC2542FA67' +
'CE1BADA25353CB5A9F5110A17A198E745BC737D513727835C0DCA' +
'5971CCF589A875AF9443588E7285B33699E8B1BCDF9328CE0FF43' +
'C6B5AAC44AC1255FF425A1115FBB2966D84C2C5883A6D8E0BC128' +
'75DF3258AFEA3ED66EF278D75702CBA08FE6FB0AD651AC55F816C' +
'858AA70818FD41D26B20BE3FDBD82A85B0B751F8B1672E72575A6' +
'8891F7BB65DEE73728442FE33A0EA54F44EE553721CA7EF59B858' +
'A6297AF5EB393EAB8E5BD076933B7066A844281BFC5FCC7BF2509' +
'2CFFD758E077BD1FE883E5DF');
end;
Procedure InitHelp;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 408;
frmDesign.Height := 500;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := 1 + random(9999999);
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'Microsoft Sans Serif';
frmDesign.Font.Style := [fsItalic];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
HelpTitle := TLabel.Create(frmDesign);
HelpTitle.Parent := frmDesign;
HelpTitle.Left := 5;
HelpTitle.Top := 23;
HelpTitle.Width := 41;
HelpTitle.Height := 13;
HelpTitle.Caption := 'Help File ';
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 5;
Label1.Top := 56;
Label1.Width := 326;
Label1.Height := 13;
Label1.Caption :=
'To Start The Script, Put All of Your Active Characters In The De' +
'sired ';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 6;
Label2.Top := 80;
Label2.Width := 328;
Label2.Height := 13;
Label2.Caption :=
'Locations, Either The Chicken Pen, NELumbridge, The StrongHold o' +
'r ';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 5;
Label3.Top := 108;
Label3.Width := 371;
Label3.Height := 13;
Label3.Caption :=
'Near Guards. Put The Crosshairs over the Runescape Screen, and ' +
'Press Play ';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 5;
Label4.Top := 135;
Label4.Width := 366;
Label4.Height := 13;
Label4.Caption :=
'Fill Out the quick form before it starts, and wallah! It Should ' +
'Run Perfectly Fine ';
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 5;
Label5.Top := 163;
Label5.Width := 341;
Label5.Height := 13;
Label5.Caption :=
'MSN me at [email]soupybastrd@hotmail.com[/email] and tell me any bugs or elsewi' +
'se I ';
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 5;
Label6.Top := 186;
Label6.Width := 350;
Label6.Height := 13;
Label6.Caption :=
'Will Also Have you on my Mailing list, and everytime there is a ' +
'new Update ';
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 5;
Label7.Top := 212;
Label7.Width := 94;
Label7.Height := 13;
Label7.Caption := 'I Will Email it to you. ';
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 5;
Label8.Top := 244;
Label8.Width := 56;
Label8.Height := 13;
Label8.Caption := 'Good Luck! ';
Label9 := TLabel.Create(frmDesign);
Label9.Parent := frmDesign;
Label9.Left := 5;
Label9.Top := 268;
Label9.Width := 357;
Label9.Height := 13;
Label9.Caption :=
'PS: Also, Try To Bring 1000 or more Arrows/Runes on your autoing' +
' char so ';
Label10 := TLabel.Create(frmDesign);
Label10.Parent := frmDesign;
Label10.Left := 5;
Label10.Top := 296;
Label10.Width := 293;
Label10.Height := 13;
Label10.Caption := 'The Bot Will be efficient! Thx for Buying This Ub3r 1337 Script ';
Label11 := TLabel.Create(frmDesign);
Label11.Parent := frmDesign;
Label11.Left := 6;
Label11.Top := 320;
Label11.Width := 60;
Label11.Height := 13;
Label11.Caption := 'SoupyBastrd ';
Label12 := TLabel.Create(frmDesign);
Label12.Parent := frmDesign;
Label12.Left := 75;
Label12.Top := 353;
Label12.Width := 223;
Label12.Height := 13;
Label12.Caption := 'Also, Dont Bring Multiple Equipable Weapons!!! ';
Label13 := TLabel.Create(frmDesign);
Label13.Parent := frmDesign;
Label13.Left := 5;
Label13.Top := 383;
Label13.Width := 223;
Label13.Height := 13;
Label13.Caption := 'Post Progress Reports on Moparisthebest.com/smf !! And Post Bugs! ';
end;
Procedure AddAUser(Sender: tobject);
begin
S := GetArrayLength(UsernameEdit);
SetArrayLength(UsernameLabel,S+1)
SetArrayLength(PasswordLabel,S+1)
SetArrayLength(NicknameLabel,S+1)
SetArrayLength(ClassLabel,S+1)
SetArrayLength(LocationLabel,S+1)
SetArrayLength(SkillLabel,S+1)
SetArrayLength(FightModeLabel,S+1)
SetArrayLength(MagicSkillLabel,S+1)
SetArrayLength(PlayerLabel,S+1)
SetArrayLength(ArrowTypeLabel,S+1)
Setarraylength(UsernameEdit,S+1)
SetArrayLength(PasswordEdit,S+1)
SetArrayLength(NickEdit,S+1)
SetArrayLength(ClassEdit,S+1)
SetArrayLength(LocationEdit,S+1)
SetArrayLength(Active,S+1)
SetArrayLength(LampSkillEdit,S+1)
SetArrayLength(Bone,S+1)
SetArrayLength(FightMode,S+1)
SetArrayLength(MagicSkill,S+1)
SetArrayLength(HpStop,S+1)
SetArrayLength(StartFightingHpEdit,S+1)
SetArrayLength(ArrowType,S+1)
UsernameLabel[S] := TLabel.Create(UltimateFighter);
UsernameLabel[S].Parent := UltimateFighter;
UsernameLabel[S].Left := 10;
UsernameLabel[S].Top := S * 170 + 263;
UsernameLabel[S].Width := 46;
UsernameLabel[S].Height := 15;
UsernameLabel[S].Caption := 'Username';
PasswordLabel[S] := TLabel.Create(UltimateFighter);
PasswordLabel[S].Parent := UltimateFighter;
PasswordLabel[S].Left := 10;
PasswordLabel[S].Top := S * 170 + 285
PasswordLabel[S].Width := 44;
PasswordLabel[S].Height := 15;
PasswordLabel[S].Caption := 'Password';
NicknameLabel[S] := TLabel.Create(UltimateFighter);
NicknameLabel[S].Parent := UltimateFighter;
NicknameLabel[S].Left := 10;
NicknameLabel[S].Top := S * 170 + 308;
NicknameLabel[S].Width := 52;
NicknameLabel[S].Height := 15;
NicknameLabel[S].Caption := 'NickName?';
ClassLabel[S] := TLabel.Create(UltimateFighter);
ClassLabel[S].Parent := UltimateFighter;
ClassLabel[S].Left := 10;
ClassLabel[S].Top := S * 170 + 325;
ClassLabel[S].Width := 31;
ClassLabel[S].Height := 15;
ClassLabel[S].Caption := 'Class?';
LocationLabel[S] := TLabel.Create(UltimateFighter);
LocationLabel[S].Parent := UltimateFighter;
LocationLabel[S].Left := 10;
LocationLabel[S].Top := S * 170 + 346;
LocationLabel[S].Width := 40;
LocationLabel[S].Height := 15;
LocationLabel[S].Caption := 'Location';
SkillLabel[S] := TLabel.Create(UltimateFighter);
SkillLabel[S].Parent := UltimateFighter;
SkillLabel[S].Left := 10;
SkillLabel[S].Top := S * 170 + 366;
SkillLabel[S].Width := 20;
SkillLabel[S].Height := 15;
SkillLabel[S].Caption := 'Skill';
FightModeLabel[S] := TLabel.Create(UltimateFighter);
FightModeLabel[S].Parent := UltimateFighter;
FightModeLabel[S].Left := 200;
FightModeLabel[S].Top := S * 170 + 325;
FightModeLabel[S].Width := 58;
FightModeLabel[S].Height := 15;
FightModeLabel[S].Caption := 'Fight Mode?';
MagicSkillLabel[S] := TLabel.Create(UltimateFighter);
MagicSkillLabel[S].Parent := UltimateFighter;
MagicSkillLabel[S].Left := 200;
MagicSkillLabel[S].Top := S * 170 + 357;
MagicSkillLabel[S].Width := 56;
MagicSkillLabel[S].Height := 15;
MagicSkillLabel[S].Caption := 'Magic Skill?';
PlayerLabel[S] := TLabel.Create(UltimateFighter);
PlayerLabel[S].Parent := UltimateFighter;
PlayerLabel[S].Left := 154;
PlayerLabel[S].Top := S * 170 + 242;
PlayerLabel[S].Width := 36;
PlayerLabel[S].Height := 15;
PlayerLabel[S].Caption := 'Player ' + inttostr(S + 1);
ArrowTypeLabel[S] := TLabel.Create(UltimateFighter);
ArrowTypeLabel[S].Parent := UltimateFighter;
ArrowTypeLabel[S].Left := 10;
ArrowTypeLabel[S].Top := S * 170 + 393;
ArrowTypeLabel[S].Width := 53;
ArrowTypeLabel[S].Height := 15;
ArrowTypeLabel[S].Caption := 'Arrow Type';
UsernameEdit[S] := TEdit.Create(UltimateFighter);
UsernameEdit[S].Parent := UltimateFighter;
UsernameEdit[S].Left := 72;
UsernameEdit[S].Top := S * 170 + 260;
UsernameEdit[S].Width := 121;
UsernameEdit[S].Height := 23;
UsernameEdit[S].Cursor := crCross;
UsernameEdit[S].Hint := 'Username Here';
UsernameEdit[S].ParentShowHint := False;
UsernameEdit[S].ShowHint := True;
UsernameEdit[S].TabOrder := 13;
UsernameEdit[S].Text := 'UsernameEdit';
PasswordEdit[S] := TEdit.Create(UltimateFighter);
PasswordEdit[S].Parent := UltimateFighter;
PasswordEdit[S].Left := 72;
PasswordEdit[S].Top := S * 170 + 280;
PasswordEdit[S].Width := 121;
PasswordEdit[S].Height := 23;
PasswordEdit[S].Hint := 'Put Your Password Here';
PasswordEdit[S].ParentShowHint := False;
PasswordEdit[S].ShowHint := True;
PasswordEdit[S].TabOrder := 14;
PasswordEdit[S].Text := '';
PasswordEdit[S].PasswordChar := '*';
NickEdit[S] := TEdit.Create(UltimateFighter);
NickEdit[S].Parent := UltimateFighter;
NickEdit[S].Left := 72;
NickEdit[S].Top := S * 170 + 302;
NickEdit[S].Width := 121;
NickEdit[S].Height := 23;
NickEdit[S].Hint := '3 Letters of Your Username';
NickEdit[S].ParentShowHint := False;
NickEdit[S].ShowHint := True;
NickEdit[S].TabOrder := 15;
NickEdit[S].Text := '3 Letters of Username';
ClassEdit[S] := TComboBox.Create(UltimateFighter);
ClassEdit[S].Parent := UltimateFighter;
ClassEdit[S].Left := 72;
ClassEdit[S].Top := S * 170 + 323;
ClassEdit[S].Width := 121;
ClassEdit[S].Height := 23;
ClassEdit[S].Hint := 'What Class Are You?';
ClassEdit[S].ItemHeight := 15;
ClassEdit[S].ParentShowHint := False;
ClassEdit[S].ShowHint := True;
ClassEdit[S].TabOrder := 16;
ClassEdit[S].Text := 'Class';
ClassEdit[S].Items.Add('Warrior');
ClassEdit[S].Items.Add('Ranger');
ClassEdit[S].Items.Add('Wizard');
LocationEdit[S] := TComboBox.Create(UltimateFighter);
LocationEdit[S].Parent := UltimateFighter;
LocationEdit[S].Left := 72;
LocationEdit[S].Top := S * 170 + 344;
LocationEdit[S].Width := 121;
LocationEdit[S].Height := 23;
LocationEdit[S].Hint := 'Where Will You Be Fighting?';
LocationEdit[S].ItemHeight := 15;
LocationEdit[S].TabOrder := 17;
LocationEdit[S].Text := 'Location';
LocationEdit[S].Items.Add('NELumbridge');
LocationEdit[S].Items.Add('Dwarven Mine');
LocationEdit[S].Items.Add('Chicken Pen');
LocationEdit[S].Items.Add('StrongHold');
LocationEdit[S].Items.Add('Scorpions');
LocationEdit[S].Items.Add('Cows');
Active[S] := TCheckBox.Create(UltimateFighter);
Active[S].Parent := UltimateFighter;
Active[S].Left := 197;
Active[S].Top := S * 170 + 262;
Active[S].Width := 97;
Active[S].Height := 17;
Active[S].Caption := 'Active?';
Active[S].Hint := 'Active?'
Active[S].TabOrder := 18;
LampSkillEdit[S] := TEdit.Create(UltimateFighter);
LampSkillEdit[S].Parent := UltimateFighter;
LampSkillEdit[S].Left := 72;
LampSkillEdit[S].Top := S * 170 + 366;
LampSkillEdit[S].Width := 121;
LampSkillEdit[S].Height := 23;
LampSkillEdit[S].Hint := 'When A Genie Comes, Which Skill To Choose?';
LampSkillEdit[S].TabOrder := 19;
LampSkillEdit[S].Text := 'Skill';
Bone[S] := TCheckBox.Create(UltimateFighter);
Bone[S].Parent := UltimateFighter;
Bone[S].Left := 196;
Bone[S].Top := S * 170 + 291;
Bone[S].Width := 97;
Bone[S].Height := 17;
Bone[S].Hint := 'Do You Wish To Bury Bones';
Bone[S].Caption := 'Bury Bones?';
Bone[S].TabOrder := 20;
FightMode[S] := TComboBox.Create(UltimateFighter);
FightMode[S].Parent := UltimateFighter;
FightMode[S].Left := 261;
FightMode[S].Top := S * 170 + 319;
FightMode[S].Width := 121;
FightMode[S].Height := 23;
FightMode[S].Hint := 'What Skill Will You Be Training?';
FightMode[S].ItemHeight := 15;
FightMode[S].TabOrder := 22;
FightMode[S].Text := 'FightMode[S]';
FightMode[S].Items.Add('1');
FightMode[S].Items.Add('2');
FightMode[S].Items.Add('3');
FightMode[S].Items.Add('4');
FightMode[S].Items.Add('AutoLevel');
FightMode[S].Items.Add('None');
MagicSkill[S] := TComboBox.Create(UltimateFighter);
MagicSkill[S].Parent := UltimateFighter;
MagicSkill[S].Left := 261;
MagicSkill[S].Top := S * 170 + 354;
MagicSkill[S].Width := 121;
MagicSkill[S].Height := 23;
MagicSkill[S].Hint := 'Which Magic Skill Do You Wish To Use';
MagicSkill[S].ItemHeight := 15;
MagicSkill[S].TabOrder := 23;
MagicSkill[S].Text := 'MagicSkill';
MagicSkill[S].Items.Add('Fire Bolt');
MagicSkill[S].Items.Add('None');
HpStop [S]:= TEdit.Create(UltimateFighter);
HpStop[S].Parent := UltimateFighter;
HpStop[S].Left := 274;
HpStop[S].Top := S * 170 + 257;
HpStop[S].Width := 121;
HpStop[S].Height := 23;
HpStop[S].Hint := 'Hp To Stop Fighting';
HpStop[S].TabOrder := 27;
HpStop[S].Text := 'StopFightingHp';
StartFightingHpEdit[S] := TEdit.Create(UltimateFighter);
StartFightingHpEdit[S].Parent := UltimateFighter;
StartFightingHpEdit[S].Left := 274;
StartFightingHpEdit[S].Top := S * 170 + 291;
StartFightingHpEdit[S].Width := 121;
StartFightingHpEdit[S].Height := 23;
StartFightingHpEdit[S].Hint := 'Hp To Continue Fighting';
StartFightingHpEdit[S].TabOrder := 28;
StartFightingHpEdit[S].Text := 'StartFightingHpEdit';
ArrowType[S] := TComboBox.Create(UltimateFighter);
ArrowType[S].Parent := UltimateFighter;
ArrowType[S].Left := 72;
ArrowType[S].Top := S * 170 + 386;
ArrowType[S].Width := 121;
ArrowType[S].Height := 23;
ArrowType[S].Hint := 'Which Arrow Would You Like To Use?';
ArrowType[S].ItemHeight := 15;
ArrowType[S].TabOrder := 29;
ArrowType[S].Text := 'Type Of Arrow to use';
ArrowType[S].Items.Add('Bronze');
ArrowType[S].Items.Add('Iron');
ArrowType[S].Items.Add('Steel');
ArrowType[S].Items.Add('Mithril');
ArrowType[S].Items.Add('Adamant');
ArrowType[S].Items.Add('N/A');
end;
Procedure InitSetup;
begin
UltimateFighter := CreateForm;
UltimateFighter.Left := 266;
UltimateFighter.Top := 94;
UltimateFighter.Width := 425;
UltimateFighter.Height := 584;
UltimateFighter.Hint := 'Ultimate AutoFighter V.2.0 By SoupyBastrd!';
UltimateFighter.Caption := 'Ultimate AutoFighter V.2.0 By SoupyBastrd!';
UltimateFighter.Color := 1 + random(9999999);
UltimateFighter.Font.Color := clWindowText;
UltimateFighter.Font.Height := -11;
UltimateFighter.Font.Name := 'Arial Narrow';
UltimateFighter.Font.Style := [fsBold, fsItalic];
UltimateFighter.ShowHint := True;
UltimateFighter.Visible := False;
UltimateFighter.PixelsPerInch := 96;
ActivationCodeLabel := TLabel.Create(UltimateFighter);
ActivationCodeLabel.Parent := UltimateFighter;
ActivationCodeLabel.Left := 16;
ActivationCodeLabel.Top := 43;
ActivationCodeLabel.Width := 73;
ActivationCodeLabel.Height := 15;
ActivationCodeLabel.Caption := 'Activation Code';
Title2 := TLabel.Create(UltimateFighter);
Title2.Parent := UltimateFighter;
Title2.Left := 96;
Title2.Top := 10;
Title2.Width := 173;
Title2.Height := 15;
Title2.Caption := 'Ultimate AutoFighter By SoupyBastrd';
MaxLoginLabel := TLabel.Create(UltimateFighter);
MaxLoginLabel.Parent := UltimateFighter;
MaxLoginLabel.Left := 10;
MaxLoginLabel.Top := 178;
MaxLoginLabel.Width := 51;
MaxLoginLabel.Height := 15;
MaxLoginLabel.Caption := 'Max Log In';
RandomTimeLabel := TLabel.Create(UltimateFighter);
RandomTimeLabel.Parent := UltimateFighter;
RandomTimeLabel.Left := 195;
RandomTimeLabel.Top := 177;
RandomTimeLabel.Width := 65;
RandomTimeLabel.Height := 15;
RandomTimeLabel.Caption := 'Random Time';
MonsterTimeoutLabel := TLabel.Create(UltimateFighter);
MonsterTimeoutLabel.Parent := UltimateFighter;
MonsterTimeoutLabel.Left := 87;
MonsterTimeoutLabel.Top := 219;
MonsterTimeoutLabel.Width := 78;
MonsterTimeoutLabel.Height := 15;
MonsterTimeoutLabel.Caption := 'Monster Timeout';
AxeImage := TImage.Create(UltimateFighter);
AxeImage.Parent := UltimateFighter;
AxeImage.Left := 307;
AxeImage.Top := 217;
AxeImage.Width := 30;
AxeImage.Height := 29;
BowImage := TImage.Create(UltimateFighter);
BowImage.Parent := UltimateFighter;
BowImage.Left := 337;
BowImage.Top := 217;
BowImage.Width := 30;
BowImage.Height := 29;
StaffImage := TImage.Create(UltimateFighter);
StaffImage.Parent := UltimateFighter;
StaffImage.Left := 367;
StaffImage.Top := 217;
StaffImage.Width := 30;
StaffImage.Height := 29;
Title := TLabel.Create(UltimateFighter);
Title.Parent := UltimateFighter;
Title.Left := 77;
Title.Top := 80;
Title.Width := 199;
Title.Height := 23;
Title.Caption := 'ULTIMATE AUTO FIGHTER';
Title.Font.Color := clWindowText;
Title.Font.Height := -19;
Title.Font.Name := 'Arial Narrow';
Title.Font.Style := [fsBold, fsItalic];
Title.ParentFont := False;
VersionLabel := TLabel.Create(UltimateFighter);
VersionLabel.Parent := UltimateFighter;
VersionLabel.Left := 128;
VersionLabel.Top := 108;
VersionLabel.Width := 84;
VersionLabel.Height := 23;
VersionLabel.Caption := 'Version 2.0';
VersionLabel.Font.Color := clWindowText;
VersionLabel.Font.Height := -19;
VersionLabel.Font.Name := 'Arial Narrow';
VersionLabel.Font.Style := [fsBold, fsItalic];
VersionLabel.ParentFont := False;
TopRight := TLabel.Create(UltimateFighter);
TopRight.Parent := UltimateFighter;
TopRight.Left := 338;
TopRight.Top := 10;
TopRight.Width := 51;
TopRight.Height := 15;
TopRight.Caption := 'Version 2.0';
StartScript := TButton.Create(UltimateFighter);
StartScript.Parent := UltimateFighter;
StartScript.Left := 290;
StartScript.Top := 40;
StartScript.Width := 90;
StartScript.Height := 40;
StartScript.Caption := 'Start Script!';
StartScript.OnClick:= @StartTheScript;
StartScript.TabOrder := 8;
ChangeColor := TButton.Create(UltimateFighter);
ChangeColor.Parent := UltimateFighter;
ChangeColor.Left := 5;
ChangeColor.Top := 5;
ChangeColor.Width := 80;
ChangeColor.Height := 30;
ChangeColor.Caption := 'ChangeColor!';
ChangeColor.OnClick:= @Changethecolor;
ChangeColor.TabOrder := 8;
AddUser := TButton.Create(UltimateFighter);
AddUser.Parent := UltimateFighter;
AddUser.Left := 15;
AddUser.Top := 217;
AddUser.Width := 58;
AddUser.Height := 30;
AddUser.Hint := 'Click To Add A New Player';
AddUser.Caption := 'New Player';
AddUser.OnClick := @AddAUser;
AddUser.TabOrder := 9;
AntiBanBox := TCheckBox.Create(UltimateFighter);
AntiBanBox.Parent := UltimateFighter;
AntiBanBox.Left := 6;
AntiBanBox.Top := 113;
AntiBanBox.Width := 97;
AntiBanBox.Height := 17;
AntiBanBox.Hint := 'Do You Wish To Use AntiBan?';
AntiBanBox.Caption := 'AntiBan?';
AntiBanBox.TabOrder := 10;
AutoTalkBox := TCheckBox.Create(UltimateFighter);
AutoTalkBox.Parent := UltimateFighter;
AutoTalkBox.Left := 6;
AutoTalkBox.Top := 141;
AutoTalkBox.Width := 97;
AutoTalkBox.Height := 17;
AutoTalkBox.Hint := 'Do You Wish To Auto Talk?';
AutoTalkBox.Caption := 'Auto Talk?';
AutoTalkBox.TabOrder := 11;
AutoRespondBox := TCheckBox.Create(UltimateFighter);
AutoRespondBox.Parent := UltimateFighter;
AutoRespondBox.Left := 89;
AutoRespondBox.Top := 140;
AutoRespondBox.Width := 97;
AutoRespondBox.Height := 17;
AutoRespondBox.Hint := 'Do You Wish To Use My Auto Respond Feature?';
AutoRespondBox.Caption := 'Auto Respond?';
AutoRespondBox.TabOrder := 12;
Authorization := TEdit.Create(UltimateFighter);
Authorization.Parent := UltimateFighter;
Authorization.Left := 98;
Authorization.Top := 39;
Authorization.Width := 121;
Authorization.Height := 23;
Authorization.Hint := 'Put Your Activation Code Here!';
Authorization.TabOrder := 21;
Authorization.Text := '';
Authorization.PasswordChar := '*';
SecsLoginEdit := TEdit.Create(UltimateFighter);
SecsLoginEdit.Parent := UltimateFighter;
SecsLoginEdit.Left := 63;
SecsLoginEdit.Top := 175;
SecsLoginEdit.Width := 121;
SecsLoginEdit.Height := 23;
SecsLoginEdit.Hint := 'Maximum Time To Be Logged In Before Switching in Seconds';
SecsLoginEdit.TabOrder := 24;
SecsLoginEdit.Text := 'Time';
RandomTimeEdit := TEdit.Create(UltimateFighter);
RandomTimeEdit.Parent := UltimateFighter;
RandomTimeEdit.Left := 265;
RandomTimeEdit.Top := 175;
RandomTimeEdit.Width := 121;
RandomTimeEdit.Height := 23;
RandomTimeEdit.Hint := 'Random Time Added to the Max Login Time';
RandomTimeEdit.TabOrder := 25;
RandomTimeEdit.Text := 'RandomTimeEdit';
MonsterTimeoutEdit := TEdit.Create(UltimateFighter);
MonsterTimeoutEdit.Parent := UltimateFighter;
MonsterTimeoutEdit.Left := 177;
MonsterTimeoutEdit.Top := 217;
MonsterTimeoutEdit.Width := 121;
MonsterTimeoutEdit.Height := 23;
MonsterTimeoutEdit.Hint := 'Timeout To Go To Next Monster';
MonsterTimeoutEdit.TabOrder := 26;
MonsterTimeoutEdit.Text := 'Timeout';
Help := TButton.Create(UltimateFighter);
Help.Parent := UltimateFighter;
Help.Left := 297;
Help.Top := 133;
Help.Width := 80;
Help.Height := 30;
Help.Caption := 'Help File';
Help.onclick := @Helpme;
Help.TabOrder := 30;
TakeBreak := TCheckBox.Create(UltimateFighter);
TakeBreak.Parent := UltimateFighter;
TakeBreak.Left := 191;
TakeBreak.Top := 140;
TakeBreak.Width := 97;
TakeBreak.Height := 17;
TakeBreak.Hint := 'Do You Wish To Take Breaks?';
TakeBreak.Caption := 'Take Brakes?';
TakeBreak.TabOrder := 31;
FormBitmaps;
AxeCanv := GetBitmapCanvas(Axe);
CopyCanvas(AxeCanv, AxeImage.Canvas, 0, 0, 132, 30, 0, 0, 132, 30);
BowCanv := GetBitmapCanvas(Bow);
CopyCanvas(BowCanv, BowImage.Canvas, 0, 0, 132, 30, 0, 0, 132, 30);
StaffCanv := GetBitmapCanvas(Staff);
CopyCanvas(StaffCanv, StaffImage.Canvas, 0, 0, 132, 30, 0, 0, 132, 30);
end;
Procedure SafeInitSetupForm ;
Var
v : TVariantArray ;
Begin
setarraylength ( v , 0 ) ;
ThreadSafeCall ( 'InitSetup' , v ) ;
End ;
Procedure ShowFormModalSetup ;
Begin
UltimateFighter.ShowModal ;
End ;
Procedure SafeShowFormModalSetup ;
Var
v : TVariantArray ;
Begin
setarraylength ( v , 0 ) ;
ThreadSafeCall ( 'ShowFormModalSetup' , v ) ;
End ;
Procedure TextToVars;
begin
S:= GetArrayLength(UsernameEdit)
HowManyPlayers := S + 1;
NumberOfPlayers ( HowManyPlayers ) ;
Username[S]:= UsernameEdit[S].Text ;
Password[S] := PasswordEdit[S].Text ;
Nickname[S]:= NickEdit[S].Text ;
Location[S]:= LocationEdit[S].Text ;
Players [ S ] .Name :=Username[S] ;
Players [ S ] .Pass :=Password[S] ;
Players [ S ] .Nick :=Nickname[S] ;
Players [ S ] .Loc := Location[S] ;
if(Active[S].State = cbChecked) then
Players [ S ] .Active := True ;
if(Bone[S].State = cbChecked) then
BuryBones[S] := True;
if(TakeBreak.State = cbChecked) then
TakeBreaks := True;
if(AntibanBox.State = cbChecked) then
UseAntiban := True;
if(AutoTalkBox.State= cbChecked) then
AutoTalk := True;
if(AutoRespondBox.State= cbChecked) then
AutoRespond := True;
End ;
begin
formbitmaps;
SafeInitSetupForm ;
SafeShowFormModalSetup;
texttovars;
//loginplayer;
end.[Runtime Error] : Out Of Range in line 897 in script C:\Program Files\SCAR 2.03\Scripts\UltimateFighter2.0Form3.scar