SRL Archive - First Scripts

AUTO TALKER V 1.1!

INSTRUCTIONS:

/////////////////////////////////////////////////////////////////////////////////
// "INSTRUCTIONS"                                                              //
// 1. DRAG CROSSHAIR TO RUNESCAPE SCREEN                                       //
// 2. SET UP LINE 74 ONLY!                                                     //
// 3. PRESS PLAY OR PRESS CTRL+ALT+R                                           //
// 4. THEN CLIK THE BUTTON TO START THE SCRIPT                                 //
// 5. THEN MINIMIZE THE SCAR WINDOW!                                           //
// - NOTE: THERE WILL BE A SHORT DELAY BEFORE THE AUTOTALKER STARTS SENDING THE//
// MESSAGES SO THAT YOU HAVE ENOUGH TIME TO MINIMIZE SCAR!                     //
/////////////////////////////////////////////////////////////////////////////////
PROGRAM AutoTalker;
VAR
  FrmDesign : TForm;
  Button1 : TButton;

PROCEDURE Buttonclick(Sender: TObject);
BEGIN
  Writeln('AT(Auto Talker) Started!');
  FrmDesign.Caption:= FrmDesign.Caption + '.';
  FrmDesign.ModalResult:= MrOk;
END;

PROCEDURE InitForm;
BEGIN
  FrmDesign := CreateForm;
  FrmDesign.Left := 200;
  FrmDesign.Top := 200;
  FrmDesign.Width := 250;
  FrmDesign.Height := 150;
  frmDesign.Caption := 'AT(Auto Talker)';
  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 := 100;
  Button1 := TButton.Create(frmDesign);
  Button1.OnClick:= @buttonclick;
  Button1.Parent := frmDesign;
  Button1.Left := 100;
  Button1.Top := 100;
  Button1.Width := 220;
  Button1.Height := 100;
  Button1.Caption := 'START(After You Click Start MiniMize Scar!';
  Button1.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;
  Wait(5000);
  REPEAT
   SendKeys('Your Text HERE!'); // Text You Wish To Say Here
   Wait(1000+Random(1000));
   UNTIL(FALSE);
END.

well first of all you should take a look in the tutorial island and look for standards tutorials. Then DONT capitalize the bolded words. Its "OK" (i do it(sometimes)) to capitalize the first letter.

Begin
End;

etc…

But else its good for a new comer.

PLEASE DON'T TYPE THE "BOLDED" WORDS LIKE THIS.. IT'S ANNOYING AND BAD STANDARDDS AS THEY'RE SUPPOSED TO BE ONLY lower case..

Ok, so.. This is a nice first script, I assume this is your first script..? Oh and I suggest including SRL and adding a option for using Typesend either than sendkeys.

EDIT: Woo, 600th post.

Yes this is sort of my first script. Like ive been making scripts and trying to learn for a while, and I won't capatalize the bold words anymore. Thanks for the feed back guys!

omg this looks to much more advanced than mine, with all that crap at the beggining for a form, u probably dont need it, mine is a 10 line auto talker and has none of it!!!!!!!! muhahahahahahah

although im gonna try it now, to make my autoalker a lot more 1337 than urs!!
muahahahhaah you have now got competition!!

/////////////////////////////////////////////////////////////////////////////////
// "INSTRUCTIONS"                                                              //
// 1. DRAG CROSSHAIR TO RUNESCAPE SCREEN                                       //
// 2. SET UP LINE 74 ONLY!                                                     //
// 3. PRESS PLAY OR PRESS CTRL+ALT+R                                           //
// 4. THEN CLIK THE BUTTON TO START THE SCRIPT                                 //
// 5. THEN MINIMIZE THE SCAR WINDOW!                                           //
// - NOTE: THERE WILL BE A SHORT DELAY BEFORE THE AUTOTALKER STARTS SENDING THE//
// MESSAGES SO THAT YOU HAVE ENOUGH TIME TO MINIMIZE SCAR!                     //
/////////////////////////////////////////////////////////////////////////////////
PROGRAM AutoTalker;
VAR
  FrmDesign : TForm;
  Button1 : TButton;
 
PROCEDURE Buttonclick(Sender: TObject);
BEGIN
  Writeln('AT(Auto Talker) Started!');
  FrmDesign.Caption:= FrmDesign.Caption + '.';
  FrmDesign.ModalResult:= MrOk;
END;
 
PROCEDURE InitForm;
BEGIN
  FrmDesign := CreateForm;
  FrmDesign.Left := 200;
  FrmDesign.Top := 200;
  FrmDesign.Width := 250;
  FrmDesign.Height := 150;
  frmDesign.Caption := 'AT(Auto Talker)';
  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 := 100;
  Button1 := TButton.Create(frmDesign);
  Button1.OnClick:= @buttonclick;
  Button1.Parent := frmDesign;
  Button1.Left := 100;
  Button1.Top := 100;
  Button1.Width := 220;
  Button1.Height := 100;
  Button1.Caption := 'START(After You Click Start MiniMize Scar!';
  Button1.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;
  Wait(5000);
  REPEAT
   SendKeys('Your Text HERE!'); // Text You Wish To Say Here
   Wait(1000+Random(1000));
   UNTIL(FALSE);
END.

What's the point of the form if the script only types one message and that message isn't declared in the form?