SRL Archive - First Scripts

this is my VERY FIRST script. tell me what you think…..
dont be to harsh tho;)

this script can support 3 messages, has customizable delay time and randomtime. plan to add more features,

PLZ GIVE ME IDEAS ON WHAT TO ADD

program Corl45sAutoTalker;
{.include SRL/SRL.scar}
{=======================================================================================]
[                                                                                       ]
[                              Corl45's Auto Talker!!                                   ]
[                                                                                       ]
[=======================================================================================]
| HOW TO USE:                                                                           |
|1: fill in user defines                                                                |
|2: log onto runescape                                                                  |
|3:  drag the cross-hair over and click run                                             |
|4: hold F1 to type you 2nd message and F2 to type your third it will automaticly type  |
| your first                                                                            |
|5: press F3 to stop talking                                                            |
[=======================================================================================]
[ thanx to:                                                                             ]
[ SRL Team                                                                              ]
[ Rogeruk-got the idea of the look of the instructions from him                         ]
[=======================================================================================}
{
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 ANY THING WITH SHIFT OR CAPSLOCK INVOLVED WONT WORK EX: IF YOU PUT A "(" IT WILL SHOW UP AS 9
 }

//***************************************************************************************
//*********************************USER DEFINES!*****************************************
//***************************************************************************************

const
     message1=('your first message goes here  ex:selling stuff');
     message2=('your second message goes here');
     message3=('Your third message goes here');
const
     waittime=(500);//time before each talk (in miliseconds(1000=1second))
     randomadd=(300);// adds some randomness to the time. 0 for none(in milseconds)
     delaystart=(10000);// delays start of script for a little bit(miliseconds)


//***************************************************************************************
//*********************************END USER DEFINES**************************************
//***************************************************************************************
{
................................................................................................
}
//***************debug on/off**********
const
debug=true;
//*************end debug***************
procedure start;
begin
ClearDebug;
wait(200);
Writeln('|====Corl45s Auto Talker=====|') ;
wait(200);
Writeln('|posted at www.SRL-Forums.com|') ;
wait(200);
Writeln('|~~~~~~~~made by Corl45~~~~~~|');
wait(200);
Writeln('|hold f1 to show the 2nd one |');
wait(200);
Writeln('|hold f2 to show the 3rd one |');
wait(200);
Writeln('|hold f3 to stop the script  |');
wait(200);
Writeln('|____________________________|');
end;


//_-_-_-_-_-_-_-_-_-#2_-_-_-_-_-_-_-_-_-_-_-_-_-_
Procedure Talking;
begin

 wait(waittime+random(randomadd));
 TypeSend(Message1);

   if(debug=true)then
          begin
            writeln('typed Message 1');
          end;

  if(IsFKeyDown(1))then
  begin
    wait(waittime+random(randomadd));
    TypeSend(message2);

       if(debug=true)then
          begin
            writeln('typed Message 2');
          end;
  end;
  if(IsFKeyDown(2))then
  begin
   wait(waittime+random(randomadd));
   TypeSend(Message3);

      if(debug=true)then
          begin
            writeln('typed Message 3');
          end;
  end;
end;
//_-_-_-_-_-_-_-_-_-End #2_-_-_-_-_-_-_-_-_-_-_-_

//+++++++++++++++++Main loop+++++++++++++++++++++
 begin
   start;
   ActivateClient;
   if(debug=true)then
          begin
            writeln('waiting to start the script');
          end;
   wait(delaystart);
   if(debug=true)then
          begin
            writeln('script started');
          end;
   repeat;
   Talking;
   until(IsFKeyDown(3));
end.
//++++++++++++++End Main loop++++++++++++++++++++

i plan on making a power miner too..
you should see that in the first script section too.

I'll definitely give it a try when I get home :)

Maybe add some randomness?

For example instead of:

 wait(waittime);

Use something like:

 wait(waittime+random(500));

Or something like that.

You could even put randomtowait in your constants and do this:

const
     waittime = 2500; //time before each talk (in miliseconds(1000=1second))
     randomtowait = 300; //This adds a random amount up to 299 ms on to your wait time.

 wait(waittime+random(randomtowait));

Anyways, looks pretty good.

thx, i was thinking about putting a start-up time on it to, so you get some time to click on runescape before it starts typing in scar.

Add "ActivateClient;" to the end of your start procedure. That will make it so the client you've selected (with that cross hair thing) will be up so you don't have to click on it first.

From: Opal Tasty
Add "ActivateClient;" to the end of your start procedure. That will make it so the client you've selected (with that cross hair thing) will be up so you don't have to click on it first.

ohhh ty!! that would help alot

EDIT: NEW VERSION OUT!! added a few things..

Another well executed script.
I used your auto miner as well. Keep up the good work

From: Qball
Another well executed script.
I used your auto miner as well. Keep up the good work

thx