If the username was Edit1, then this is what it would look like:
SCAR Code:
program New;
{.include SRL/SRL.scar}
var
frmDesign : TForm;
Label1 : TLabel;
Edit1, Edit2, Edit3 : TEdit;
Button1 : TButton;
Username, Password, Nickname : string; //Added these
procedure ButtonClick(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:=mrOk;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 696;
frmDesign.Height := 209;
frmDesign.Caption := 'frmDesign';
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;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 8;
Label1.Top := 8;
Label1.Width := 153;
Label1.Height := 13;
Label1.Caption := 'Tut Runner Script by Dervish =)';
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 8;
Edit1.Top := 80;
Edit1.Width := 209;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit1.Text := 'Username';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 8;
Edit2.Top := 112;
Edit2.Width := 209;
Edit2.Height := 21;
Edit2.TabOrder := 9;
Edit2.Text := 'Password';
Button1 := TButton.Create(frmDesign);
Button1.OnClick := @ButtonClick;
Button1.Parent := frmDesign;
Button1.Left := 224;
Button1.Top := 8;
Button1.Width := 449;
Button1.Height := 153;
Button1.Caption := 'Start Script';
Button1.Default := True;
Button1.TabOrder := 10;
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 8;
Edit3.Top := 144;
Edit3.Width := 209;
Edit3.Height := 21;
Edit3.TabOrder := 11;
Edit3.Text := 'NickName (3-4 letters of your name)';
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;
procedure FormShowing;
begin
SafeInitForm;
SafeShowFormModal;
end;
procedure DeclarePlayers;
begin
Username:= Edit1.text;
Password:= Edit2.text; //Added these three
Nickname:= Edit3.text;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0
Players[0].Name := (Username);
Players[0].Pass := (Password); //Changed these
Players[0].Nick := (Nickname);
Players[0].Active := True;
end;
begin
FormShowing;
DeclarePlayers;
end.
That's assuming that Edit1 is the username, Edit2 is the password, and Edit3 is the nick.
Hope I helped!