SRL Archive - RS3 Outdated / Broken Scripts

Here's my auto talker. It works (or at least it should XD) and stuff… here it is.

A few minor errors in there, e.g Colon expected… fixed them and it works really niceley :D.

{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='Selling';
  WhatKind='rune';
  What='scimy';
  Price='30k';
  PlayerName='your characters name here';

Function RandomEffect(i:string):string;//Put 'style' for style and 'color' for a color effect.
  Var
    q:Integer;
  Begin
    Case i of
    'style': Begin
               q:=random(4);
               Case q of
               0: Result:='wave';
               1: Result:='wave2';
               2: Result:='shake';
               3: Result:='scroll';
             End;
             end;
    'color':  Begin
                q:=random(11);
                Case q of
                0: Result:='red';
                1: Result:='white';
                2: Result:='cyan';
                3: Result:='purple';
                4: Result:='green';
                5: Result:='flash1';
                6: Result:='flash2';
                7: Result:='flash3';
                8: Result:='glow1';
                9: Result:='glow2';
                10: Result:='glow3';
                End;
            End;
    End;
  End;

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

Procedure SayStuff;
  Var i:Integer;
  Begin
    For i:=0 to NumLines-1 do
    Begin
      TypeSend(Color[i] +':' +Style[i] +':' +Text[i]);
      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(1000);
    ActivateClient;
    Wait(1000);
  End;

begin
SetupEverything;
Repeat
  SayStuff;
Until(False);
end.

Awesome script. Works wicked for me :)