SRL Archive - First Scripts

As my first script (not acctually my first, but my first rs-related) I decided to write a autotalker, easier done then said, here it is, there is acctually another version created before this one, but this one is much more easy to use, even my best friends littlebrother has already tried it, but his opinion doesn't count.

Please post if you tried it, and what you thought of it, it might not be good, but i have been in the scripting business a few days.

EDIT:
Btw, the Writeln feature isnt writing in debug box, or not at all, can someone help me fix this?

Looks nice, you may want to add 'Worked For' In your progress report.

you might also want to check out SRL's TypeSend because SendKeys is detectable, and make it say a certain number of times, isntead of talking forever. And you actually won't have a nice ending because it'll never get past the spamming procedure ;)

Rasta Magician

Okay, thanks for the feedback both of you, but isn't noone who has a answer to my question about why my Writeln command doesn't write?

and RS GP 4 U, what do you meen with "worked for"?

thanks, i do prefer ghost controll pro (yes i know its a g mouse but it dosnt work like one)

im gonna try out soon i came back with report :)

Nice thank you :)

From: distress
Okay, thanks for the feedback both of you, but isn't noone who has a answer to my question about why my Writeln command doesn't write?

and RS GP 4 U, what do you meen with "worked for"?

i did answer it. the Spam procedure has a never ending loop, which means it'll stay in it forever. so it will never reach the NiceEnding procedure thus never getting to write in the debug.

ooookey! thanks, so i have to put NiceEnding in the beginning, making it to NiceBeginning? I have thought of this before, putting the ASCII in the Writeln procedure at the same time, removing it from the beginning of the script, making t more neat.

Nice. Rasta means that it will never reach the NiceEnding procedure because the procedure Spam is this…

procedure Spam;
 begin
  repeat
   Sendkeys(spam1+Chr(13));
   Wait(1200+random(400));   //Time between spams.
  until(false);
 end;

You have until false at the end which means that you need to stop it. If you stop it, then how will it reach the NiceEnding procedure? A good way to fix this is by adding a counter. Ask how many times you want to type the message and once it reaches that, go onto the NiceEnding procedure.

Using SRL is also very important as Rasta mentioned in his first post. SRL's TypeSend makes a different wait time between each letter making this more human-like and therefore less detectable.

Overall, good job.

Works great thanks =D

The script looks good, however do add the things that previous people have said.

What do you mean?

Well…
'Worked For' i meant put it in your progress report to say worked for ()mins
Or you could add Talked..Times Like this..

var TimesTalked: Integer;

Writeln('Talked '+ IntToStr(TimesTalked) +' Time(s).');

procedure Talk;
var i: Integer;
begin
  TimesTalked := 0;
  repeat
    begin
      TypeSend(TextToType);
      i := i + 1;
      TimesTalked := TimesTalked + 1;
    end;
  until (i = 1) // Change to number of times you want to say TextToType.
end;

Thank you for your help, i really need progress report, i wil change the script when i get home, as i'm not home right now.

There is a problem with including SRL.scar in my script, it says i need a identifier in:

(.include srl.scar)

how can i fix this?

bump, can someone help?

Thank you :)

From: distress
bump, can someone help?

Did you read rules? Bumping isn't allowed.

Read Text manual and like other person said,
- Use Typesend(' Texthere ');