SRL Archive - First Scripts

Yeah after autoing a ton i decided to give back to the community with a simple, crummy Auto Talker, Gonna restart my power miner soon, After accidentally deleting it :(

Attached.

I know its a first script but i think we have enough auto talkers for a life time…. Also you might want to read a tut on scar standards - a way of organising your script. Here i fixed you standards for you.

program DenisSCRATShiteComparedtotheRestAutoTalker;

{Setup: Specify RS client
 Type what u want to spam on line 27
 Change i to how many times u want ur message typed on
 line 30, Default is 5, Look out for updates :P
 Remember this is my first script
 Thanks to WhoCares357 For the unmatched Scar Tutorial
 Also Thanks to moparisthebest community for getting
 me into Scar.
 Special Thanks to Kaitnieks for makin SCAR :)
 What is does: Types the message you put on line 27.}

{.include SRL\SRL.scar}

var i: integer;

procedure SpamThis(Msg: string);
begin
  Typesend(Msg);
end;


begin
  i := 0;
  repeat
    i := i + 1;

    begin
      SpamThis('InsertMsgHere');
      Wait(1000 + Random(200));
    end;
  until (i >= 5);
  ClearDebug;
  WriteLn('Thanks for using Deni mulics aka r00nbois SCRAT :)')
end.

:)

I am really glad you have started to learn how to script!
Sure, we have millions of auto talkers, but the point is, it is a simple little script great to start with!

keep up the great work! You can read some tuts and get more and mor advaced :) Thanks for your effort learning to script, great rewards lie ahead if you continue.

oh rewards i want in on that im gona go to library tomorow and get every book they have on pascal language seeing how i dont know anytin about it witch is probly a problem and im bored!

Ya There Are ALOT of autotalkers but hey your giving back to the community and thats great to see. Congrats On Your First Script.