Fixed.
The code you copy from manuel Should be under the form code, but not big issue. Another vital thing is this
SCAR Code:
frmDesign.Visible := True;
MUUUUUUUUUUST be changed to False or the form will not appear.
Here is fixed code:
SCAR Code:
program New;
var
frmDesign : TForm;
Title : TLabel;
UsernameLabel : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
LampSkillLabel : TLabel;
UsernameEdit : TEdit;
PasswordEdit : TEdit;
NicknameEdit : TEdit;
ScriptComboBox : TComboBox;
LampSkillComboBox : TComboBox;
AddButton : TButton;
DeleteButton : TButton;
StartButton : TButton;
RunComboBox : TComboBox;
//--------------------------------------
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 324;
frmDesign.Top := 132;
frmDesign.BorderStyle := bsSingle;
frmDesign.Caption := 'Autoing Perfection';
frmDesign.ClientHeight := 400;
frmDesign.ClientWidth := 550;
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;
Title := TLabel.Create(frmDesign);
Title.Parent := frmDesign;
Title.Left := 167;
Title.Top := 14;
Title.Width := 216;
Title.Height := 13;
Title.Caption := 'Fully Automated Autoing - Gotta love it : - )';
UsernameLabel := TLabel.Create(frmDesign);
UsernameLabel.Parent := frmDesign;
UsernameLabel.Left := 45;
UsernameLabel.Top := 80;
UsernameLabel.Width := 48;
UsernameLabel.Height := 13;
UsernameLabel.Caption := 'Username';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 44;
Label2.Top := 123;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 45;
Label3.Top := 162;
Label3.Width := 48;
Label3.Height := 13;
Label3.Caption := 'Nickname';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 45;
Label4.Top := 202;
Label4.Width := 27;
Label4.Height := 13;
Label4.Caption := 'Script';
LampSkillLabel := TLabel.Create(frmDesign);
LampSkillLabel.Parent := frmDesign;
LampSkillLabel.Left := 47;
LampSkillLabel.Top := 241;
LampSkillLabel.Width := 45;
LampSkillLabel.Height := 13;
LampSkillLabel.Caption := 'LampSkill';
UsernameEdit := TEdit.Create(frmDesign);
UsernameEdit.Parent := frmDesign;
UsernameEdit.Left := 102;
UsernameEdit.Top := 76;
UsernameEdit.Width := 121;
UsernameEdit.Height := 21;
UsernameEdit.TabOrder := 8;
UsernameEdit.Text := 'UsernameEdit';
PasswordEdit := TEdit.Create(frmDesign);
PasswordEdit.Parent := frmDesign;
PasswordEdit.Left := 102;
PasswordEdit.Top := 117;
PasswordEdit.Width := 121;
PasswordEdit.Height := 21;
PasswordEdit.TabOrder := 9;
PasswordEdit.Text := 'PasswordEdit';
NicknameEdit := TEdit.Create(frmDesign);
NicknameEdit.Parent := frmDesign;
NicknameEdit.Left := 103;
NicknameEdit.Top := 160;
NicknameEdit.Width := 121;
NicknameEdit.Height := 21;
NicknameEdit.TabOrder := 10;
NicknameEdit.Text := 'NicknameEdit';
ScriptComboBox := TComboBox.Create(frmDesign);
ScriptComboBox.Parent := frmDesign;
ScriptComboBox.Left := 105;
ScriptComboBox.Top := 201;
ScriptComboBox.Width := 122;
ScriptComboBox.Height := 21;
ScriptComboBox.ItemHeight := 13;
ScriptComboBox.TabOrder := 11;
ScriptComboBox.Text := 'ScriptComboBox';
ScriptComboBox.Items.Add('Tutorial Island');
ScriptComboBox.Items.Add('Normal Trees');
ScriptComboBox.Items.Add('Oak Trees');
ScriptComboBox.Items.Add('Willow Trees');
ScriptComboBox.Items.Add('Yew Trees');
LampSkillComboBox := TComboBox.Create(frmDesign);
LampSkillComboBox.Parent := frmDesign;
LampSkillComboBox.Left := 105;
LampSkillComboBox.Top := 238;
LampSkillComboBox.Width := 120;
LampSkillComboBox.Height := 21;
LampSkillComboBox.ItemHeight := 13;
LampSkillComboBox.TabOrder := 12;
LampSkillComboBox.Text := 'LampSkillComboBox';
LampSkillComboBox.Items.Add('Woodcutting');
LampSkillComboBox.Items.Add('Mining');
LampSkillComboBox.Items.Add('Attack');
LampSkillComboBox.Items.Add('Strength');
LampSkillComboBox.Items.Add('Defence');
LampSkillComboBox.Items.Add('Hitpoints');
LampSkillComboBox.Items.Add('Prayer');
LampSkillComboBox.Items.Add('Fishing');
LampSkillComboBox.Items.Add('Cooking');
LampSkillComboBox.Items.Add('Crafting');
LampSkillComboBox.Items.Add('Runecrafting');
LampSkillComboBox.Items.Add('Smithing');
LampSkillComboBox.Items.Add('Ranged');
LampSkillComboBox.Items.Add('Magic');
AddButton := TButton.Create(frmDesign);
AddButton.Parent := frmDesign;
AddButton.Left := 337;
AddButton.Top := 363;
AddButton.Width := 81;
AddButton.Height := 30;
AddButton.Caption := 'Add Player';
AddButton.TabOrder := 13;
DeleteButton := TButton.Create(frmDesign);
DeleteButton.Parent := frmDesign;
DeleteButton.Left := 440;
DeleteButton.Top := 362;
DeleteButton.Width := 81;
DeleteButton.Height := 30;
DeleteButton.Caption := 'Delete Player';
DeleteButton.TabOrder := 14;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.Left := 115;
StartButton.Top := 330;
StartButton.Width := 101;
StartButton.Height := 47;
StartButton.Caption := 'Start ';
StartButton.Font.Color := clWindowText;
StartButton.Font.Height := -24;
StartButton.Font.Name := 'Times New Roman';
StartButton.Font.Style := [fsBold, fsItalic];
StartButton.ParentFont := False;
StartButton.TabOrder := 15;
RunComboBox := TComboBox.Create(frmDesign);
RunComboBox.Parent := frmDesign;
RunComboBox.Left := 106;
RunComboBox.Top := 274;
RunComboBox.Width := 119;
RunComboBox.Height := 21;
RunComboBox.ItemHeight := 13;
RunComboBox.TabOrder := 16;
RunComboBox.Items.Add('N');
RunComboBox.Items.Add('E');
RunComboBox.Items.Add('S');
RunComboBox.Items.Add('W');
RunComboBox.Text := 'RunComboBox';
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;
//--------------------------------------
begin
SafeInitForm;
SafeShowFormModal;
end.