SRL Archive - Archive

alfonso1024 - SRL Member Application Form


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

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 –>

YoHoJo

2007-08-03 13:58:54

No SRL
No Multiplauer
No Antiban
No Antirandoms.

This isn't very much a complete script. Just a forum for autologin.
To get into srl you need a script that uses SRL, plays runescape, and has all of those above features.

REMEMBER: There is a one month waiting period until you can make a new app, so learn some more and try again in AT LEAST one month.

Bobarkinator

2007-08-03 14:01:45

Your script must include
  • Multiplayer
  • Failsafes
  • Antirandoms
  • AntiBan
  • Preferably RadialWalk
  • An actualy RS script

You must create a script that has those to be accepted
Edit: Beaten by 3 minutes