Results 1 to 24 of 24

Thread: Auto-Talker V6.0

  1. #1
    Join Date
    Feb 2007
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Auto-Talker V6.0

    EDIT:CHANGED TO VERSION 7.0(ADDED RANDOMNESS)Here is my lastest Auto talker, able to say up to 4 things!

    Code:
    //Directions
    //Set what u would like it to say(lines 9-12)
    //Set how long until says next message(line 47)
    //hit play
    //press F12 to stop
    program AutoTalk;
    
    const
    message1='cyan:selling full rune';
    message2='white:selling full rune';
    message3='Green:selling fulll rune';
    message4='red:selling full rune';
    
    procedure SendText(text: string);
    var  i: Integer;
    begin
       for i := 1 to Length(Text) do
       begin
         SendKeys(Text[i]);
         Wait(50+random(50));
       end;
       SendKeys(Chr(13));
    end;
    
    procedure namechange(wstatus :String);
    begin
    status(wstatus);
    GetApplication.Title:=wstatus;
    GetSelf.Caption:=wstatus;
    end;
    
    
    procedure nc4(wstatus:String; time:Integer);
    begin
    namechange(wstatus);
    wait(time);
    end;
    
    procedure Talk;
    begin
    case random(4) of
    0:SendText(message1);
    1:SendText(message2);
    2:SendText(message3);
    3:SendText(message4);
    end;
    wait(2124+random(241));
    end;
    procedure nc(wstatus:String);
    begin
    nc4(wstatus, 250);
    end;
    
    procedure flashx;
    begin
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    end;
    
    procedure Animate;
    begin
    nc(' ');
    nc('A');
    nc('Au');
    nc('Aut');
    nc('Auto');
    nc('Auto- ');
    nc('Auto-T');
    nc('Auto-Ta');
    nc('Auto-Tal');
    nc('Auto-Talk');
    nc('Auto-Talke');
    nc('Auto-Talker');
    nc('--------------');
    nc('Auto-Talker');
    nc('--------------');
    nc('By Diamondhero5');
    flashx;
    nc4('Auto-Talker - By Diamondhero5',5);
    end;
    
    
    procedure ThankYou;
    begin
    writeln('-------Auto-Talker-------')
    writeln('-----by Diamondhero5-----')
    writeln('- I know u will like it -')
    writeln('@@##$$  Thank you  $$##@@')
    writeln('         ENJOY           ')
    end;
    
    begin
    Animate
    ActivateClient
    Thankyou
    repeat
    Talk;
    until(IsFKeyDown(12))
    end.

  2. #2
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    ok, its improving. only thing is it doesnt have any randomness, it says the same things over and over in the exact same order.

  3. #3
    Join Date
    Feb 2007
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok, its improving. only thing is it doesnt have any randomness, it says the same things over and over in the exact same order.
    How do i put in randomness for talking?

  4. #4
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    man, You dont need to have 6 different topics about your auto-talker. Just release all updates to one topic.

  5. #5
    Join Date
    Feb 2007
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i dont know how to do that!!!!

  6. #6
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Just click the edit button down in the bottom left of your main post

    And put in the new script

    also, try this to put in randomness, instead of sendtext(message1)...etc
    SCAR Code:
    procedure Talk;
    begin
    case random(4) of
    0:SendText(message1);
    1:SendText(message2);
    2:SendText(message3);
    3:SendText(message4);
    end;
    wait(3000+random(3000));
    end;
    Interested in C# and Electrical Engineering? This might interest you.

  7. #7
    Join Date
    Feb 2007
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ty i was wondering how to put in random

  8. #8
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    Quote Originally Posted by diamondhero5 View Post
    i dont know how to do that!!!!
    all i can say is i told you so....

    and to add randomness, just look how i did it in my script.

  9. #9
    Join Date
    Feb 2007
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok I Have Now Changed It To Version 7.0 And Just Wondering But Is There A Way To Change The Title???

  10. #10
    Join Date
    Feb 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dude great script, it really helps when u want to buy or sell something, ty!

  11. #11
    Join Date
    Feb 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This script rocks!!!!!!!!!

  12. #12
    Join Date
    Feb 2007
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ty!

  13. #13
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Lol don't praise yourself.

    You can't change the title, so next time you release a script (a different one) don't put the version in the title, just put it in big letters on the first post.

    Check out SRL, especially Text.scar

  14. #14
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)
    Quote Originally Posted by Boreas View Post
    Lol don't praise yourself.
    Haha, I think that should be added to the tutorial on how to be a n00b
    Interested in C# and Electrical Engineering? This might interest you.

  15. #15
    Join Date
    Feb 2007
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey i finally finished my wc!

  16. #16
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Dont Lie Retard
    I Copybusted That Wcer On Your Applicance
    And I Also Posted That It Was Stolen On The Thread You Released It On.

    Stop Being An Idiot And Make Your Own Scripts.

  17. #17
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    And making new accounts is a bannable offence right?

  18. #18
    Join Date
    Sep 2006
    Location
    West U.S.
    Posts
    2,172
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Quote Originally Posted by yohojo8 View Post
    Dont Lie Retard
    I Copybusted That Wcer On Your Applicance
    And I Also Posted That It Was Stolen On The Thread You Released It On.

    Stop Being An Idiot And Make Your Own Scripts.
    oooooooooooooooooooooooooooo

    you got served a plate of whoop-ass!

    They are sisters...
    Runescape Classic

  19. #19
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by legendaryhero90 View Post
    oooooooooooooooooooooooooooo

    you got served a plate of whoop-ass!
    sorry to correct you, but isn't it pronounced a "can" of whoop-ass? lol. anyway, is this guy going to get banned for trying to make somebody else's script his own?

  20. #20
    Join Date
    Feb 2007
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you guys r all geeks, ur probally like 32 and on this all day everyday
    and u probally live with ur friend and they pay for the house and the food and everything. you suck at life.

    so go get a life you stupid mother fucking retards. And i dont care if u ban me i quiting so go get friends get banned so u cant go on this

    GET A LIFE!!!!!!!!!!!!

  21. #21
    Join Date
    Feb 2007
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    shit piss fuck kunt cock sucker mother fucker tits twaw turn and twat
    GO family reunion by blick 182
    And if u listen to mcr ur emo!!!!!!!

    When i was a young boy
    my dad told me i was emo
    so i went on srl forums
    to be a geek

    but then i got banned
    and everything went good
    i got a life!

    I got a girlfriend
    who i fuck all the time
    so go get a life
    all u nerds

  22. #22
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Hmm, either he has been hacked or has been having a bad day with a banned account and letting off some steam in the wrong section (BBQ pit I correct one).

  23. #23
    Join Date
    Feb 2007
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Bores check out my newest script...
    it was inspired by u
    http://www.srl-forums.com/forum/fuck-t7826.html

  24. #24
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Nvm, I was wrong, he's just a sore loser.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My First Auto Talker
    By jacka scar MASTER in forum First Scripts
    Replies: 5
    Last Post: 05-08-2008, 10:59 PM
  2. Replies: 5
    Last Post: 11-23-2007, 08:45 PM
  3. Help with auto trade/ auto talker script
    By logik in forum OSR Help
    Replies: 5
    Last Post: 03-16-2007, 11:16 PM

Posting Permissions

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