Results 1 to 4 of 4

Thread: My First Script!

  1. #1
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My First Script!

    ~~~Hey321's Auto-Talker~~~
    ~~~Works with RS2~~~
    ~~~Squig.TxT Required~~~

    Code:
    program MessageWriter;
    {.include Squig.txt}
    
    const
    Message1=('~~~This is Hey321s Auto-Talker~~~');// how many times to repeat
    waittime=(3000);//how long to wait
    NumLoops=1;//how many times to repeat
    {Hi this is Hey321 here and this is Hey321's Auto-Talker SCAR (Shit Compared To
    AutoRune) This is a free script! If you bought it you got RIPPED OFF. Also i am
    currently learning how to script with SRL (Scar Resource Library). If you have
    a SRL TuT then it would be greatly appriecated if you could PM me where you got
    this from! Ehora.co.nr GO NOW!}
    
    var
     MessagesTyped: Integer;
    
    procedure MessageSender;
    begin
    SendKeysHuman (Message1 + chr (13));
    end;
    
    procedure TimeToWait;
    begin
         wait (waittime + random (250));
    end;
    
    procedure Thanks;
    begin
    writeln('~~~Thanks for using ~~~Hey321s~~~ Talker~~~');
    writeln('~~~~~~Hey321~~~ thanks you for using this Auto-Talker');
    end;
    
    begin
    repeat
         MessageSender;
         TimeToWait;
         Thanks;
         MessagesTyped:= MessagesTyped + 1;wait(WaitTime + random (50));
         writeln('~~~Typed '+inttostr(MessagesTyped)+' Messages For You~~~');
         until(MessagesTyped = NumLoops);
         wait(WaitTime + random (50));
    end.

  2. #2
    Join Date
    Oct 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    LOL... Nowadays, autotalkers are simple... Urs too complcated... Check this out
    //M Family's product//
    //Edit messages, put effects easily//
    //best & shortest auto talkers in the world!!//
    //By 11 year old boy...That;s why it sucks
    program OBautotalkerv11;
    begin
    writeln('Thank You for using M Familys product...')
    repeat
    wait(1000);
    sendkeys('');
    wait(200);
    sendkeysvb('{ENTER}',true)
    wait(1000);
    sendkeys('');
    wait(200);
    sendkeysvb('{ENTER}',true)
    until(false)
    end.

    i took like 10secs to make a script shorter and same as urs!
    But good job!@!

  3. #3
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sendkeys is very detectable. I'm not using a very detectable key sender. Infact if i wanted to i could post an updated version thats even less detecable.

  4. #4
    Join Date
    Oct 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It's no difference adding a sendkeyshuman... I don really use much includes

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •