SCAR Code:
var
frmDesign: TForm;
mnu: TMainMenu;
mnuMenu1, mnuMenu2, mnuMenu3, mnuMenu4, mnuMenu5: TMenuItem;
mnuSub1, mnuSub2, mnuSub3, mnuSub4, mnuSub5, mnuSub6, mnuSub7, mnuSub8, mnuSub9, mnuSub10: TMenuItem;
Image2 : TImage;
b, w, h: Integer;
BackPack : Integer;
const
UseForm = true; // Use SRL PlayerForm ? Or Declare Players ?
GenRandomUser = true; // Will generate a random Username
MPassword = 'werty111'; // Master Password for ALL accounts - Overrides Players[x].Pass
procedure CloseForm(Sender: TObject);
begin
frmDesign.ModalResult:= mrOk;
end;
function inaccount : boolean;
begin
result := countcolor(0, 0 , 0, 671, 464) = 124388
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 700;
frmDesign.Height := 600;
frmDesign.Caption := 'TARC - Tutorial Island Runner + Acc Creator - Scripted by J_Pizzle, Rich1e, and NeehoSoft';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Image2 := TImage.Create(frmDesign);
Image2.Parent := frmDesign;
Image2.Left := 0;
Image2.Top := 0;
Image2.Width := 696;
Image2.Height := 568;
Image2.Center := True;
Image2.Stretch := True;
b := loadbitmap('C:\Documents and Settings\Administrator.INSPIRON5100\Desktop\Tutorial2.png');
getbitmapsize(b, w, h);
copycanvas(getbitmapcanvas(b), Image2.canvas, 0, 0, 696, 568, 0, 0, 696, 568);
mnu := TMainMenu.Create(frmDesign);
mnuMenu1 := TMenuItem.Create(frmDesign);
mnuMenu1.Caption := 'File';
mnu.Items.Add(mnuMenu1);
mnuMenu2 := TMenuItem.Create(frmDesign);
mnuMenu2.Caption := 'Developers';
mnu.Items.Add(mnuMenu2);
mnuMenu3 := TMenuItem.Create(frmDesign);
mnuMenu3.Caption := 'SelfUpdater';
mnu.Items.Add(mnuMenu3);
mnuMenu4 := TMenuItem.Create(frmDesign);
mnuMenu4.Caption := 'Account Settigns';
mnu.Items.Add(mnuMenu4);
mnuMenu5 := TMenuItem.Create(frmDesign);
mnuMenu5.Caption := 'Help';
mnu.Items.Add(mnuMenu5);
mnuSub1 := TMenuItem.Create(frmDesign);
mnuSub1.Caption := 'Check for Updates';
mnu.Items.Items[0].Add(mnuSub1);
mnuSub2 := TMenuItem.Create(frmDesign);
mnuSub2.OnClick := @CloseForm;
mnuSub2.Caption := 'Exit';
mnu.Items.Items[0].Add(mnuSub2);
mnuSub3 := TMenuItem.Create(frmDesign);
mnuSub3.Caption := 'J_Pizzle';
mnu.Items.Items[1].Add(mnuSub3);
mnuSub5 := TMenuItem.Create(frmDesign);
mnuSub5.Caption := 'R!ch!e';
mnu.Items.Items[1].Add(mnuSub5);
mnuSub6 := TMenuItem.Create(frmDesign);
mnuSub6.Caption := 'This Script Help';
mnu.Items.Items[4].Add(mnuSub6);
mnuSub7 := TMenuItem.Create(frmDesign);
mnuSub7.Caption := 'SCAR Tutorials';
mnu.Items.Items[4].Add(mnuSub7);
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;
the last end is the error line and the error is
[Runtime Error] : Out Of Range in line 117 in script