SRL Archive - First Scripts

program Flyingkid101AutoTalker;
{.include SRL/SRL.scar}

var
Text: String;
x: Integer;


procedure Auto1;
begin
Text:= 'Wassup ';//Enter the first thing you want your character to say
// You can also add text effects such as Flash1
// If you add effects, dont forget the ":"
TypeSend(Text);
end;

procedure Auto2;
begin
Text:= 'YESSIR ';//Enter the second thing you want your character to say
TypeSend(Text);
end;

begin
x:=0;
repeat
x:=x+1;
Auto1;
wait(1000+random(1000))///enter how many milliseconds you want the script to
///wait before it enters the next set of text

Auto2;
wait(1000+random(1000))
until (x>=10);///Enter how many times you want the script to type the two texts
/// This number is represented by the '10'
end.

{===================================================================]
[                   FlyingKid101's AutoSpammer                      ]
[                                                                   ]
[           NAME        : FlyingKid101's AutoSpammer                ]
[           WRITER      : FlyingKid101 edited by IP-Drowner         ]
[           CATEGORY    : Talker                                    ]
[           DESCRIPTION : Talk's what the user tell's it to talk.   ]
[           SRL Used    : Any                                       ]
[           SCAR Used   : Any                                       ]
[                                                                   ]
[                   More Scripts can be found at                    ]
[                        www.SRL-Forums.com                         ]
[===================================================================]
[                           Instructions.                           ]
[===================================================================]
[ 1. Setup lines 28-33                                              ]
[ 2. Select the Runescape Client by dragging the crosshair          ]
[ 3. Watch the script do it's job.                                  ]
[ 4. To stop the script, press your assigned HotKey                 ]
[===================================================================}

program Flyingkid101AutoTalker;
{.include SRL/SRL.scar}

const{ant}
  Sen1  = 'Hello!';    //First Sentence to type.
  Sen2  = 'Sup'' All'; //Second Sentence to type.
  Sen3  = 'Levels?';   //Third Sentence to type.
  WTIM  = 1000;        //Wait time in between typing. Use Miliseconds.
  XAM   = 10;          //How many time's to say those three sentences.
  TFAST = False;       //Type super fast? True or False.
  
var
  x: Integer;

begin
  ActivateClient;
  x:=0;
  if(TFAST = True) then
    begin
      repeat
        SendKeys(Sen1 + Chr(13));
        Wait(WTIM + Random(789))
        SendKeys(Sen2 + Chr(13));
        Wait(WTIM + Random(871))
        SendKeys(Sen3 + Chr(13));
        Wait(WTIM + Random(601))
        x:=x+1;
      Until(x>=XAM);
    end else
      repeat
        TypeSend(Sen1);
        Wait(WTIM + Random(789))
        TypeSend(Sen2);
        Wait(WTIM + Random(871))
        TypeSend(Sen3);
        Wait(WTIM + Random(601))
        x:=x+1;
      Until (x>=XAM);
end.[/scar]

Hope that could help you in your scripting career :)