Results 1 to 15 of 15

Thread: Auto-Talker V5.0

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

    Auto-Talker V5.0

    Ok here it is best one i've made in all my years of doing this(lol like 2 days).

    Code:
    //Directions
    //Set what u would like it to say(line 34)
    //Set how long you would like it to wait until it says again(line 35)
    //hit play
    program AutoTalk;
    
    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
    SendText('cyan:slide:dude i rok!!!');//what you want it to say
    wait(4000+random(147));//how long until typed again 1000= 1 second
    end;
    
    procedure nc(wstatus:String);
    begin
    nc4(wstatus, 250);
    end;
    
    procedure flashx;
    begin
    nc4('Auto-Talker',200);
    Wait(383)
    nc4('By Diamondhero5',200);
    Wait(383)
    nc4('Auto-Talker',200);
    Wait(383)
    nc4('By Diamondhero5',200);
    Wait(383)
    nc4('Auto-Talker',200);
    Wait(383)
    nc4('By Diamondhero5',200);
    Wait(383)
    nc4('Auto-Talker',200);
    Wait(383)
    nc4('By Diamondhero5',200);
    Wait(383)
    nc4('Auto-Talker',200);
    Wait(383)
    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(false)
    end.

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

    Default

    Haha It's a HUGE improvement over your first one!

    Good job, keep trying and you'll have some really nice scripts out in notime!
    Interested in C# and Electrical Engineering? This might interest you.

  3. #3
    Join Date
    Feb 2007
    Location
    Yorkshire, England
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    very nice

    +rep

    im going to use this

    thanks

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

    Default

    ty, smartkid my first one stunk lol. Dude i cant beleive i made that and i started like 2 days ago!. Ty u both

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

    Default

    you should really make an option under const where you type in what you want to say. just look at my autotalker i posted in your other topic

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

    Default

    i know what u mean mjordon but is it really that better?

  7. #7
    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 know what u mean mjordon but is it really that better?
    yes, it makes it cleaner and you dont have to look all through the script to set what you want. also you should try making it say more than one phrase

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

    Default

    ok i fixed it so it under const and it has 2 phrases look for new thread autotalker V6.0

  9. #9
    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
    ok i fixed it so it under const and it has 2 phrases look for new thread autotalker V6.0
    i'd suggest instead of making new threads every time you update, just post it in your current thread. just change the title in you thread to go along with the version, or dont put a version in the thread name, just "diamondhero's autotalker!"

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

    Default

    i like making new threads and i made it 4 phrases and not 2

  11. #11
    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 like making new threads and i made it 4 phrases and not 2
    you will get in trouble. your choice though.......

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

    Default

    y will i get in trouble and start posting in my new thread

  13. #13
    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
    y will i get in trouble and start posting in my new thread
    for making useless threads, when all you have to do is post the new version in you original thread.

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

    Default

    Administrator's Warning:
    Please stop making new threads and heed Mjordan's warning


    ^^^^^^I am allowed to use that, right?^^^^^^
    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

    i dont know how to post a new version on the same thread so can some1 explain?

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
  •