SRL Archive - Archive

Wonderguy6 - SRL Member Application Form
Wonderguy6

What is the meaning to life?
My meaning in life is to become a scar scripter.

Where you Referred to SRL? If yes, by whom?
Wasent Referred. Just everyone told me to sign up at SRL, So not really one person.

Programming Knowledge
Java, HTML, Visual Basic 6.0, VBScript.

Other Communitys
Moparisthebest, Freddy1990.

How Long have You Played Runescape
3 Years

Are you affilated in anyway with Jagex LTD?
No, You think i would be scripting in scar if i was ^.^

Why i Should be accepted.

Well to start off, Im Happy about the Release of SCAR Divi, :). Ive already started to code some stuff for it ;)

Secondly, Im a SRL Member at MoparIsThebest, And was approved by Starblaster100.

I have released 5 scripts and keep alot of my scripts to myself and never release them, The reason being is that I Look at alot of other peoples code and learn from it. I always update my code to make it better.

Some of the scripts i have made:

http://www.moparisthebest.com/smf/index.php/topic,95330.0.html - Notpad Drawer - Alot of people commented on my formatting :P

http://www.moparisthebest.com/smf/index.php/topic,95330.0.html - Basic understanding of BMPs and Debugging things.

http://www.freddy1990.com/forums/index.php?topic=53.0 - Alot of people enjoyed that script. Its a leetness genorator and just shows basic understanding of Arrays, ect.

http://www.moparisthebest.com/smf/index.php/topic,101726.0.html - Autotalker. Mainly focused on Leaving it on for a while. Whilst most scripts are aimed just to get the job done.


Thanks for reviewing me and i really hope i get in… :)

~wonderguy6.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

{
    _         _      _____     _ _
   / \Basic_| |_ __|_   _|_ _| | | _____ _ __
  / _ \| | | | __/ _ \| |/ _` | | |/ / _ \ '__|
 / ___ \ |_| | || (_) | | (_| | |   <  __/ |
/_/   \_\__,_|\__\___/|_|\__,_By Wonderguy6!

************INSTRUCTIONS************
1. Fire up the Script (You have Completed this)
2. Drag The Crosshair over Runescape
3. Start The Script.
4. Go Drink a Drink.
5. Have a pee.
6. Go Eat.
7. Come back and check your Progress Report.
************END-INSTRUCTIONS************
}

program FormBegginerTutorial;
{.include SRL\SRL.scar}
var
  WordsTyped: Integer;
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label5 : TLabel;
  hi : TLabel;
  Label4 : TLabel;
  Hello : TEdit;
  Scar : TEdit;
  Start : TButton;
//************SETUP************\\
const
Progress = 01; //How often Would you like the progress report to print?
//************END-SETUP************\\
Procedure WriteNews(HowMany: Integer);
Var
  Timer, i, x, y: integer;
  News : Array of String;
  New, TheNews : String;
Begin
  SetArrayLength(News, HowMany+1);

  GetSelf.Left := 15;
  ChangeReportWidth(390);
  GetSelf.Width := 1070;
  ClearReport;
  Status('Downloading Latest News...');
  Writeln('Please Wait whilst the Latest News is Downloaded...');
  Wait(1);
  TheNews := Getpage('http://lagex.net/version.txt');
  x := 0;
  AddToReport(Chr(32));
  y := 1;
  For i := 1 to HowMany do
  Begin
    MarkTime(Timer);
    repeat
      x := x + 1;
      new := copy(TheNews, x, x+1);
    until(copy(new, 1, 1) = ',')or(TimeFromMark(Timer) >= 2000);
  news[i]:= copy(TheNews, y, (x-y));
  y := x + 1;
  AddToReport(' :: '+news[i]);
  Wait(1);
  end;
end;

procedure ButtonClick(sender: TObject);
begin
 WriteLn ('Script Sucsessfully Started');
 WriteLn ('Scars Title is:' + Scar.Text + '.');
 WriteLn ('The Text that will be typed is' + Hello.Text + '.');
 frmDesign.Caption:= frmDesign.Caption + '.';
 frmDesign.ModalResult:= mrOk;

end;

procedure InitForm;

begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 486;
frmDesign.Height := 372;
frmDesign.Caption := 'Wonderguy6'#39's Auto Talker v1.0 Setup';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := True;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Tag := -2;
Label1.Left := 27;
Label1.Top := 10;
Label1.Width := 448;
Label1.Height := 41;
Label1.Caption := 'Wonderguy6'#39's Auto Talker v2.0';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -35;
Label1.Font.Name := 'Odessa LET';
Label1.Font.Style := [fsBold];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 56;
Label2.Top := 43;
Label2.Width := 50;
Label2.Height := 24;
Label2.Caption := 'Setup';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -24;
Label2.Font.Name := 'WST_Ital';
Label2.Font.Style := [fsBold];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 21;
Label3.Top := 138;
Label3.Width := 122;
Label3.Height := 15;
Label3.Caption := 'The Sentence To Type:';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -13;
Label3.Font.Name := 'Times New Roman';
Label3.Font.Style := [fsItalic];
Label3.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 19;
Label5.Top := 164;
Label5.Width := 181;
Label5.Height := 15;
Label5.Caption := 'Scar'#39's Caption Will be known as:';
Label5.Font.Color := clWindowText;
Label5.Font.Height := -13;
Label5.Font.Name := 'Times New Roman';
Label5.Font.Style := [fsItalic];
Label5.ParentFont := False;
hi := TLabel.Create(frmDesign);
hi.Parent := frmDesign;
hi.Left := 23;
hi.Top := 202;
hi.Width := 411;
hi.Height := 13;
hi.Caption :=
'The Progress Report Settings are still in the Setup section of s' +
'cript. So if you havent set';
hi.DragCursor := crMultiDrag;
hi.ParentShowHint := False;
hi.ShowHint := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 21;
Label4.Top := 218;
Label4.Width := 315;
Label4.Height := 13;
Label4.Caption :=
' that up and wish to change it please stop the script and go bac' +
'k :)';
Hello := TEdit.Create(frmDesign);
Hello.Parent := frmDesign;
Hello.Left := 147;
Hello.Top := 135;
Hello.Width := 121;
Hello.Height := 21;
Hello.Font.Color := clWindowText;
Hello.Font.Height := -4;
Hello.Font.Name := 'MS Sans Serif';
Hello.Font.Style := [];
Hello.ParentFont := False;
Hello.TabOrder := 8;
Hello.Text := '';
Scar := TEdit.Create(frmDesign);
Scar.Parent := frmDesign;
Scar.Left := 204;
Scar.Top := 163;
Scar.Width := 121;
Scar.Height := 21;
Scar.TabOrder := 9;
Scar.Text := '';
Start := TButton.Create(frmDesign);
Start.Parent := frmDesign;
Start.Left := 195;
Start.Top := 272;
Start.Width := 98;
Start.Height := 27;
Start.Caption := 'Start';
Start.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;

Procedure Talk;
begin

 repeat
   TypeSend(Hello.Text + Chr(13));
   WordsTyped:= WordsTyped + 1;
   Wait(100 + Random(40));
 until(False)
end;

procedure ProgressReport;
begin
  ClearDebug;
  WriteLn('[]---/////////////////////\\\\\\\\\\\\\\\\\\\\---[]');
  WriteLn('|         Wonderguy6''s Autotakler                 |');
  WriteLn('|            PR0GR3SS-R3P0RT                      |');
  WriteLn('|      The Script has been Typing for '  + ScriptTime2(2) + '  |');
  WriteLn('|      The Script Has typed ' + IntToStr(WordsTyped) + '  Sentences         |');
  WriteLn('[]---/////////////////////\\\\\\\\\\\\\\\\\\\\---[]');
end;
procedure Chats;
begin
SetChat('Friends',1)
SetChat('Friends',2)
SetChat('Friends',3)
end;

begin
 ClearDebug;
 SafeInitForm;
 SetupSRL;
 SetTimeOut(Progress * 60, 'ProgressReport');
 ActivateClient;
 Talk;
 DisguiseScar(Scar.Text);
 end.

——————————————————
<!– END TEMPLATE: formanswers –>

I like appliances.

Cool, What did you vote, If you voted no, What can i do to inprove.

The scripts are nice and all
But we are looking for scripts that
Play RS for an extended period of time
Have Antiban
Have MultiPlyaer
Have Antirandoms
Work Well
Show a good knowledge over overall scripting


Try making a script that meets those standards and you will get in.

Anti random, multiplayer, more complicated rs script please

From: Aftermath_96
I like appliances.

How did that guy post here?? I thought you would notice that his name was green Boreas and YoHoJo.. :p lol.

From: JAD
How did that guy post here?? I thought you would notice that his name was green Boreas and YoHoJo.. :p lol.

Because im applying?

I opened up the thread (with a bunch of others) before he posted. And yea, whats your story Aftermath?

From: wonderguy6
Because im applying?

Unless your names aftermath, I wasn't talking about you.. :p lol.

From: JAD
Unless your names aftermath, I wasn't talking about you.. :p lol.

ooooooooh. ok :P:duh:

I like the news and the form, but I won't vote yes until I see a more complex script.

My script recommendation: a power-[skill]. Give it good antiban, antirandoms, multiplayer; throw in a few unique features, and you've got my vote.

I really don't care how well your script works, I just want to see you apply a good amount of SRL commands. Show me that you know SRL, and I'll vote for you.

You are obviously a talented scripter. As with the others, I also agree that you need to apply the SRL core concepts to this script, I also agree that you need to develop a non-auto talker script. Think on it a little bit more and come up with something original.

1: it starts the auto talker when i click exit;
2: it's only a auto talker!

alot of people can make auto talkers man..
make somthing more useful,
sure auto talkers are useful but.. i could make one in like a few seconds :p

From: SKy Scripter
1: it starts the auto talker when i click exit;
2: it's only a auto talker!

alot of people can make auto talkers man..
make somthing more useful,
sure auto talkers are useful but.. i could make one in like a few seconds :p

I Guess i could make a more complex script. Basically i made the talker because i wanted it to be more unique and used for long-terms unlike F[no.] Autotalkers or ones that will get you banned.

@YoHoJo: Anti-Ban? No need! Its a human talker. Wont get you banned.

By the way doesnt the application say "no autotalkers or spammers"? Because it did when i applied.

Never told me.

Boreas JAD
I thought YOU guys would know, that sometimes name colors dont get changed right away and stuff, so maybe thats why.
Hes SRL member status, just green name.
=)

No , sorry.
YoHoJo thanks i was just about to ask about it.

too simple, sorry, no.