SRL Archive - RS3 Outdated / Broken Scripts

AUTO TALKER V 1.0!

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.

its awsome u are good

do you mean line 78 or something where it says 'enter text here' ??:confused:

i got an autotalker but its a visual basic coded…

and u dont see the codes so its easire to manipulate

Wrong section. Should be in cloaking.

Repeat Until(false) = nono cause you have no breaks or exits.

{fill in the constants in lines  10 through 14, but don't change NumLines unless you
know what you're doing. This is V1. Pm me any bugs, and I'll try to fix em.}
//BTW, you've gotta b logged in. I didn't put any failsafes in.
program AutoTalker;//By Rotflmfwao
{.Include SRL/SRL.scar}
Var
  Text, Style, Color: Array of String;
Const
  NumLines=5;
  BuyingOrSelling='Buying';
  WhatKind='all';
  What='lobbies';
  Price='100ea';
  PlayerName='omgitzmeee';

Procedure DefineVars;
  Begin
    SetArrayLength(Text,NumLines);
    SetArrayLength(Style,NumLines);
    SetArrayLength(Color,NumLines);
    Begin
      Text[0]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
      Style[0]:='wave2';//Shake, Scroll, Wave, wave2, whatever
      Color[0]:='white';//Glow1-3, Flash1-3, cyan, white, red, whatever
      Text[1]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
      Style[1]:='wave2';//Shake, Scroll, Wave, wave2, whatever
      Color[1]:='green';//Glow1-3, Flash1-3, cyan, white, red, whatever
      Text[2]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
      Style[2]:='wave2';//Shake, Scroll, Wave, wave2, whatever
      Color[2]:='cyan';//Glow1-3, Flash1-3, cyan, white, red, whatever
      Text[3]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
      Style[3]:='wave2';//Shake, Scroll, Wave, wave2, whatever
      Color[3]:='red';//Glow1-3, Flash1-3, cyan, white, red, whatever
      Text[4]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
      Style[4]:='wave2';//Shake, Scroll, Wave, wave2, whatever
      Color[4]:='purple';//Glow1-3, Flash1-3, cyan, white, red, whatever
    End;
  End;

Procedure SayStuff;
  Var i:Integer;
  Begin
    For i:=0 to NumLines-1 do
    Begin
      SendKeysWait(Color[i] +':' +Style[i] +':' +Text[i],75,25);
      TypeByte(13);
      Writeln('You said ' +Color[i] +':' +Style[i] +':' +Text[i]);
    End;
  End;

Procedure SetupEverything;
  Begin
    SetupSRL;
    DefineVars;
    clearDebug;
    Writeln('Thanks for using Rotflmfwao''s autotexter');
    Wait(500);
    ActivateClient;
    Wait(500);
  End;

begin
SetupEverything;
Repeat
  SayStuff;
  If(Not(LoggedIn))Then
     Exit;
Until(False);
end.

Thats mine.

this script = like ban me…

Use this:

// MESSAGES SO THAT YOU HAVE ENOUGH TIME TO MINIMIZE SCAR!                     //
/////////////////////////////////////////////////////////////////////////////////
PROGRAM AutoTalker;
{.include srl/srl.scar} // Include SRL
VAR
  FrmDesign : TForm;

and now:

 REPEAT
   Typesend('Your Text HERE!'); // Text You Wish To Say Here {use typesend}
   Wait(1000+Random(1000));
   UNTIL(FALSE);

that will make very less detectable…

Heres a fix on ur script the new thing is that u wont need to press rs urself and a const so u put what u wana say in top of the script and u didnt use typesend so thats there also;)