alfonso1024
2007-08-03 13:53:44
<!– BEGIN TEMPLATE: formanswers –>
alfonso1024 - SRL Member Application Form
alfonso1024
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
C++,java
Other Communitys
sythe.org
How Long have You Played Runescape
3years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I spend the hole day scriping and i do not post my scrips ot tutorials into i know they are right and understandebla i do all my things alone and spend days on srl more in scrips and i have play runescape for 3years username is
sir rober333 and thank you.
my 103 scrips comming soon! this website will be first to be notify and ppl can download in here.
and….
thank you for this webpage..
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
plz rune it and see my work=)
thank you
——————————————————
<!– END TEMPLATE: formanswers –>
alfonso1024 - SRL Member Application Form
alfonso1024
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
C++,java
Other Communitys
sythe.org
How Long have You Played Runescape
3years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I spend the hole day scriping and i do not post my scrips ot tutorials into i know they are right and understandebla i do all my things alone and spend days on srl more in scrips and i have play runescape for 3years username is
sir rober333 and thank you.
my 103 scrips comming soon! this website will be first to be notify and ppl can download in here.
and….
thank you for this webpage..
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program New;
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
userEdit : TEdit;
PassEdit : TEdit;
StartButton : TButton;
Username, Password : String;
procedure StartClick(sender: TObject);
begin
Writeln('Hello Srl');
Username := UserEdit.Text;
Password := PassEdit.Text;
WriteLn('Username = ' + Username);
Writeln('Password = ' + Password);
frmDesign.ModalResult:= mrOk; // Closes the form
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 561;
frmDesign.Height := 419;
frmDesign.Caption := 'Username and Password';
frmDesign.Color := clSkyBlue;
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 := 100;
Label1.Top := 103;
Label1.Width := 120;
Label1.Height := 29;
Label1.Caption := 'Username';
Label1.Font.Color := clMaroon;
Label1.Font.Height := -24;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [fsBold];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 102;
Label2.Top := 149;
Label2.Width := 116;
Label2.Height := 29;
Label2.Caption := 'Password';
Label2.Font.Color := clMaroon;
Label2.Font.Height := -24;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [fsBold];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 135;
Label3.Top := 41;
Label3.Width := 197;
Label3.Height := 37;
Label3.Caption := 'Please Login';
Label3.Font.Color := clGreen;
Label3.Font.Height := -32;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [fsBold];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 259;
Label4.Top := -1;
Label4.Width := 271;
Label4.Height := 24;
Label4.Caption := 'Especial Thanks to Lewis Garcia';
Label4.Font.Color := clBlue;
Label4.Font.Height := -20;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 166;
Label5.Top := 256;
Label5.Width := 193;
Label5.Height := 26;
Label5.Caption := 'By: Alfonso Garcia';
Label5.Font.Color := clYellow;
Label5.Font.Height := -23;
Label5.Font.Name := 'MS Sans Serif';
Label5.Font.Style := [fsBold];
Label5.ParentFont := False;
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 184;
Label6.Top := 292;
Label6.Width := 158;
Label6.Height := 13;
Label6.Hint := 'Email';
Label6.Caption := 'Chucho10241@hotmail.com';
Label6.Font.Color := clPurple;
Label6.Font.Height := -11;
Label6.Font.Name := 'MS Sans Serif';
Label6.Font.Style := [fsBold];
Label6.ParentFont := False;
Label6.ParentShowHint := False;
Label6.ShowHint := True;
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 175;
Label7.Top := 178;
Label7.Width := 202;
Label7.Height := 20;
Label7.Caption := 'Thank you for using scar.';
Label7.Font.Color := clRed;
Label7.Font.Height := -16;
Label7.Font.Name := 'MS Sans Serif';
Label7.Font.Style := [fsBold];
Label7.ParentFont := False;
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 59;
Label8.Top := 315;
Label8.Width := 441;
Label8.Height := 24;
Label8.Caption := 'SLR-FORUMS ROCK! IS THE BEST THING EVER=)';
Label8.Font.Color := clLime;
Label8.Font.Height := -19;
Label8.Font.Name := 'MS Sans Serif';
Label8.Font.Style := [fsUnderline];
Label8.ParentFont := False;
userEdit := TEdit.Create(frmDesign);
userEdit.Parent := frmDesign;
userEdit.Left := 230;
userEdit.Top := 106;
userEdit.Width := 110;
userEdit.Height := 21;
userEdit.TabOrder := 8;
userEdit.Text := 'UserEdit';
PassEdit := TEdit.Create(frmDesign);
PassEdit.Parent := frmDesign;
PassEdit.Left := 231;
PassEdit.Top := 150;
PassEdit.Width := 110;
PassEdit.Height := 21;
PassEdit.TabOrder := 9;
PassEdit.Text := 'PassEdit';
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.OnClick := @StartClick;
StartButton.Left := 241;
StartButton.Top := 209;
StartButton.Width := 75;
StartButton.Height := 25;
StartButton.Caption := 'Start with SRL!';
StartButton.TabOrder := 10
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.plz rune it and see my work=)
thank you
——————————————————
<!– END TEMPLATE: formanswers –>