SRL Archive - Archive

How Long have You Played Runescape?
5 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
-


What is your general programming knowledge?
Javascript, thats about it - not that good at scripting =(


Are you a member of any other communities?
Not really, but im proud to be #tdh-rs


Tell us about yourself…

From: scrim
I'm 17 years old boy from Estonia and I'm trying to get better in different programming languages. I'm pretty much at the beginner base and my scripts are pretty sucky. I'd like to get better and make successfull scripts for the community. I'm intrested in basketball and in my free time I'm trying to get better at scripting. I think that getting membership here is going to boos my motivation even more. I'd really like if i could make successful and useful scripts.

Please show us one (or multiple) of your scripts.

program scrims_autotalker;
var
TextCounter : integer;
Speed : integer;
frmDesign : TForm;
 Label1 : TLabel;
 Label2 : TLabel;
 Label3 : TLabel;
 Label4 : TLabel;
 Label5 : TLabel;
 Text1 : TEdit;
 Text2 : TEdit;
 Text3 : TEdit;
 Button1 : TButton;
 Slow : TRadioButton;
 Medium : TRadioButton;
 Fast : TRadioButton;
 RadioButton4 : TRadioButton;

 FirstBool : Boolean;
 SecondBool : Boolean;
 Const
 TradeColor=8388736
 procedure SafeInitForm; // Deafult Code
 var
 v:TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end.
procedure ShowFormModal; // Default Code
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal; // Default Code
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

procedure ClickButton(sender: TObject);   // Adding Buttons and Interactivity
begin
  If (Slow.Checked)Then Speed := 5000+Random(500);
  If (Medium.Checked)Then Speed := 3000+Random(500);
  If (Fast.Checked)Then Speed := 2000+Random(300);
  If (RadioButton4.Checked)Then Speed := 1000+Random(300);

  If (Text2.Text = ' ')Then FirstBool := False Else FirstBool := True
  If (Text2.Text = 'Text2')Then FirstBool := False Else FirstBool :=True
  If (Text3.Text = ' ')Then SecondBool := False Else SecondBool := True
  If (Text3.Text = 'Text3')Then SecondBool :=False Else SecondBool :=True


  Writeln('AutoTalking Started');
  Writeln('Saying :');
  Writeln(Text1.Text);
  Writeln('Then');
  Writeln(Text2.Text);
  Writeln('Then');
  Writeln(Text3.Text);
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
end;

Much too simple. Try to make a proper RS script, using the SRL include and such. Good luck! :)

doesn't show that you know ANYTHING about the SRL include.
try to show knowledge of that ;)

good luck in 4 weeks

Super short….. Pretty sure your not going to get in with that. Try checking the How to become a member threads in the tutorial section.

Closed!