This is the declareplayers procedure :
SCAR Code:
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := Username;
Players[0].Pass := Password;
Players[0].Nick := '';
Players[0].Active := True;
end;
This is how my form gets the username\password
SCAR Code:
Username := UserEdit.Text;
Password := PassEdit.Text;
(heres my whole form, if it helps)
SCAR Code:
var
frmDesign : TForm;
UserLable : TLabel;
PassLable : TLabel;
Bevel1 : TBevel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
UserEdit : TEdit;
PassEdit : TEdit;
EditButton : TButton;
Username, Password : String;
procedure StartClick(sender: TObject);
begin
Username := UserEdit.Text;
Password := PassEdit.Text;
frmDesign.ModalResult:= mrOk;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Position := poScreenCenter;
frmDesign.Width := 267;
frmDesign.Height := 141;
frmDesign.Caption := 'GUI';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.PixelsPerInch := 96;
UserLable := TLabel.Create(frmDesign);
UserLable.Parent := frmDesign;
UserLable.Left := 16;
UserLable.Top := 40;
UserLable.Width := 51;
UserLable.Height := 13;
UserLable.Caption := 'Username:';
PassLable := TLabel.Create(frmDesign);
PassLable.Parent := frmDesign;
PassLable.Left := 16;
PassLable.Top := 64;
PassLable.Width := 49;
PassLable.Height := 13;
PassLable.Caption := 'Password:';
Bevel1 := TBevel.Create(frmDesign);
Bevel1.Parent := frmDesign;
Bevel1.Left := 8;
Bevel1.Top := 32;
Bevel1.Width := 176;
Bevel1.Height := 57;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 192;
Label1.Top := 48;
Label1.Width := 62;
Label1.Height := 13;
Label1.Caption := 'UNCfan1119';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 8;
Label2.Top := 8;
Label2.Width := 240;
Label2.Height := 16;
Label2.Caption := 'Account Creation + Tutorial Island Solver';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -15;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 200;
Label3.Top := 32;
Label3.Width := 14;
Label3.Height := 13;
Label3.Caption := 'by:';
UserEdit := TEdit.Create(frmDesign);
UserEdit.Parent := frmDesign;
UserEdit.Left := 72;
UserEdit.Top := 40;
UserEdit.Width := 105;
UserEdit.Height := 21;
UserEdit.Hint := 'Type the username to be created here.';
UserEdit.ParentShowHint := False;
UserEdit.ShowHint := True;
UserEdit.TabOrder := 8;
PassEdit := TEdit.Create(frmDesign);
PassEdit.Parent := frmDesign;
PassEdit.Left := 72;
PassEdit.Top := 64;
PassEdit.Width := 105;
PassEdit.Height := 21;
PassEdit.Hint := 'Type the password to be created here.';
PassEdit.ParentShowHint := False;
PassEdit.ShowHint := True;
PassEdit.TabOrder := 9;
EditButton := TButton.Create(frmDesign);
EditButton.Parent := frmDesign;
EditButton.Left := 192;
EditButton.Top := 64;
EditButton.Width := 49;
EditButton.Height := 17;
EditButton.Caption := 'Start';
EditButton.TabOrder := 10;
EditButton.OnClick := @StartClick;
end;
procedure SafeInitForm;
var
v : TVariantArray;
begin
SetArrayLength(v, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowInitFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowInitFormModal;
var
v : TVariantArray;
begin
SetArrayLength(v, 0);
ThreadSafeCall('ShowInitFormModal', v);
end;
procedure MainInitForm;
begin
SafeInitForm;
SafeShowInitFormModal;
FreeForm(frmDesign);
end;
My login (I can't use login.scar, because it tries to create a ttsomething of my username, and it can't because it logs in at tutorial island.)
SCAR Code:
procedure Login;
begin
ActivateClient;
Wait(1000+random(200));
TypeByte(vk_Escape);
TypeSend('');
Wait(50+random(50));
Wait(100+random(200));
TypeSend(Players[CurrentPlayer].Name);
TypeSend(Players[CurrentPlayer].Pass);
Wait(7000 + Random(300));
end;
So now we have everything needed, let me start my question. How can I make my form & script support as many accounts as the user wants to make? You don't have to tell me how to implement it into the script.