SCAR Code:
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label4 : TLabel;
GroupBox1 : TGroupBox;
UserNameOne: TEdit;
PassWordOne: TEdit;
Edit1 : TEdit;
GroupBox2 : TGroupBox;
Label3 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
UserNameTwo: TEdit;
Edit2 : TEdit;
PassWordTwo: TEdit;
Button1 : TButton;
Username, Password : String;
procedure StartClick(sender: TObject);
begin
Username := UserNameOne.Text;
Password := PassWordTwo.Text;
WriteLn('Username1 = ' + Username);
Writeln('Password1= ' + Password);
Username := UserNameTwo.Text;
Password := PassWordTwo.Text;
WriteLn('Username2 = ' + Username);
Writeln('Password2 = ' + Password);
frmDesign.ModalResult:= mrOk;
end;
procedure Form;
begin
frmDesign := CreateForm;
frmDesign.Left := 252;
frmDesign.Top := 141;
frmDesign.Width := 391;
frmDesign.Height := 291;
frmDesign.Caption := ' Fally_Yewz.- By ->{Nauman}<-';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -13;
frmDesign.Font.Name := 'Constantia';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 24;
Label1.Top := 72;
Label1.Width := 53;
Label1.Height := 13;
Label1.Caption := 'User Name';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 24;
Label2.Top := 96;
Label2.Width := 53;
Label2.Height := 13;
Label2.Caption := 'PassWord';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 24;
Label4.Top := 136;
Label4.Width := 68;
Label4.Height := 13;
Label4.Caption := 'Loads To Do?';
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 8;
GroupBox1.Top := 59;
GroupBox1.Width := 177;
GroupBox1.Height := 115;
GroupBox1.Caption := 'Fally_Yews-Player One!';
GroupBox1.TabOrder := 3;
UserNameOne:= TEdit.Create(frmDesign);
UserNameOne.Parent := frmDesign;
UserNameOne.Left := 96;
UserNameOne.Top := 72;
UserNameOne.Width := 59;
UserNameOne.Height := 21;
UserNameOne.TabOrder := 0;
PassWordOne:= TEdit.Create(frmDesign);
PassWordOne.Parent := frmDesign;
PassWordOne.Left := 96;
PassWordOne.Top := 96;
PassWordOne.Width := 59;
PassWordOne.Height := 21;
PassWordOne.TabOrder := 1;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 112;
Edit1.Top := 136;
Edit1.Width := 57;
Edit1.Height := 21;
Edit1.TabOrder := 2;
GroupBox2 := TGroupBox.Create(frmDesign);
GroupBox2.Parent := frmDesign;
GroupBox2.Left := 200;
GroupBox2.Top := 56;
GroupBox2.Width := 177;
GroupBox2.Height := 113;
GroupBox2.Caption := 'Fally_Yewz- Player Two!!';
GroupBox2.TabOrder := 4;
Label3 := TLabel.Create(GroupBox2);
Label3.Parent := GroupBox2;
Label3.Left := 16;
Label3.Top := 16;
Label3.Width := 53;
Label3.Height := 13;
Label3.Caption := 'UserName';
Label5 := TLabel.Create(GroupBox2);
Label5.Parent := GroupBox2;
Label5.Left := 16;
Label5.Top := 40;
Label5.Width := 59;
Label5.Height := 13;
Label5.Caption := 'PassWord';
Label6 := TLabel.Create(GroupBox2);
Label6.Parent := GroupBox2;
Label6.Left := 16;
Label6.Top := 80;
Label6.Width := 68;
Label6.Height := 13;
Label6.Caption := 'Loads To Do?';
UserNameTwo:= TEdit.Create(GroupBox2);
UserNameTwo.Parent := GroupBox2;
UserNameTwo.Left := 88;
UserNameTwo.Top := 40;
UserNameTwo.Width := 59;
UserNameTwo.Height := 21;
UserNameTwo.TabOrder := 0;
Edit2 := TEdit.Create(GroupBox2);
Edit2.Parent := GroupBox2;
Edit2.Left := 96;
Edit2.Top := 80;
Edit2.Width := 65;
Edit2.Height := 21;
Edit2.TabOrder := 1;
PassWordTwo:= TEdit.Create(frmDesign);
PassWordTwo.Parent := frmDesign;
PassWordTwo.Left := 288;
PassWordTwo.Top := 72;
PassWordTwo.Width := 59;
PassWordTwo.Height := 21;
PassWordTwo.TabOrder := 5;
Button1 := TButton.Create(frmDesign);
Button1.OnClick := @StartClick;
Button1.Parent := frmDesign;
Button1.Left := 80;
Button1.Top := 200;
Button1.Width := 177;
Button1.Height := 25;
Button1.Caption := 'START CHOPPIN'#39;
Button1.TabOrder := 14;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('Form', 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.
I need it to be able (when you fill your information in) to start up and log in. I'm using the declare players for this:
SCAR Code:
Players[0].Name := ;// need it to store the name entered in the form
Players[0].Pass := Password;// vise versa
Players[0].Active := True;
Players[0].pin := 0000;
Players[1].Name := ;
Players[1].Pass := Password2;
Players[1].Active := True;
Players[1].pin := 0000;
I want it to login using this
SCAR Code:
Procedure ScriptSetup;
Begin
[B]If Not (loggedin) then
Begin[/B]
/
If you can help it would be apprieciated alot....
->{Nauman}<-