Results 1 to 11 of 11

Thread: SinfulEnds First Auto Talker

  1. #1
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default SinfulEnds First Auto Talker

    My first ever script
    A basic auto talker with simply randomization for anti-ban
    Tell me what you think thanks

    Quote Originally Posted by Sinfulend View Post
    program SinfulEndsFirstAutoTalker;

    //Intro

    //This is the first computer program i have ever written
    //It is a fairly simple auto talker
    //It will say the text anywhere from every 3-5 seconds to prevent banning

    //Intructions

    //Fill in lines 27 and 29
    //Minimize the window
    //Hit cntrl+alt+r to start
    //Hit ctrl+alt+s for emergancy stop


    var
    i: Integer;

    begin


    i:= 0;
    Writeln('This will go on however many times you filled in line 29.');
    Writeln('Remember ctrl+alt+s is emergancy stop.');
    repeat
    i:= i + 1;
    SendKeys('INSERT TEXT HERE'+chr(13)); //Insert your text here
    wait(3000+random(2000));
    until(i >= 10);//Change the 10 to however many times you want to repeat
    end.

  2. #2
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    feel free to post any comment or anything

  3. #3
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    [Offtopic] Nice Signature!
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  4. #4
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by SantaClause View Post
    [Offtopic] Nice Signature!
    TY I made on cooltext.com

  5. #5
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Sinfulend View Post
    TY I made on cooltext.com


    Instead of using send keys use type send...

    put the mesages as a const



    Ill show you mine. that i just made lol. It took bout 5-6 min.



    SCAR Code:
    Program talk
    {include. srl/srl.scar}

    const
    Message1' here'// Have them type messages here so they dont have to look
    Message2'here'
    Message3'here'

    procedure Talks;
    begin
    Wait(2500+random(1000));
    TypeSend(Message1 +chr(13));{See how i used typesend instead of sendkeys?}
    Wait(2500+random(1000));//this is telling it to wait 2.5 seconds - 1 second
    // it randomizes it for anti ban
    TypeSend(Message2 +chr(13));// Its telling it to send message 1/2/3 so
    //the script users dont have to look for this procedure.
    Wait(2500+random(1000));
    TypeSend(Message3 +chr(13));
    end;

    // main loop
    begin
     repeat//this is teling it to repeat the ^^^^^ procedure
     talks;
    until(false)// until script is stoped i think

    next time put it in tags...

    i didnt test it if it compiles or not but u get the idea

  6. #6
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  7. #7
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by cnr sport View Post
    Instead of using send keys use type send...

    put the mesages as a const



    Ill show you mine. that i just made lol. It took bout 5-6 min.



    SCAR Code:
    Program talk
    {include. srl/srl.scar}

    const
    Message1' here'// Have them type messages here so they dont have to look
    Message2'here'
    Message3'here'

    procedure Talks;
    begin
    Wait(2500+random(1000));
    TypeSend(Message1 +chr(13));{See how i used typesend instead of sendkeys?}
    Wait(2500+random(1000));//this is telling it to wait 2.5 seconds - 1 second
    // it randomizes it for anti ban
    TypeSend(Message2 +chr(13));// Its telling it to send message 1/2/3 so
    //the script users dont have to look for this procedure.
    Wait(2500+random(1000));
    TypeSend(Message3 +chr(13));
    end;

    // main loop
    begin
     repeat//this is teling it to repeat the ^^^^^ procedure
     talks;
    until(false)// until script is stoped i think

    next time put it in tags...

    i didnt test it if it compiles or not but u get the idea
    It won't compile because you're missing an end at the end. Also, TypeSend automatically presses enter so you don't need +chr(13);.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  8. #8
    Join Date
    Mar 2007
    Location
    Maryland, USA
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by cnr sport View Post
    Instead of using send keys use type send...

    put the mesages as a const



    Ill show you mine. that i just made lol. It took bout 5-6 min.



    SCAR Code:
    Program talk
    {include. srl/srl.scar}

    const
    Message1' here'// Have them type messages here so they dont have to look
    Message2'here'
    Message3'here'

    procedure Talks;
    begin
    Wait(2500+random(1000));
    TypeSend(Message1 +chr(13));{See how i used typesend instead of sendkeys?}
    Wait(2500+random(1000));//this is telling it to wait 2.5 seconds - 1 second
    // it randomizes it for anti ban
    TypeSend(Message2 +chr(13));// Its telling it to send message 1/2/3 so
    //the script users dont have to look for this procedure.
    Wait(2500+random(1000));
    TypeSend(Message3 +chr(13));
    end;

    // main loop
    begin
     repeat//this is teling it to repeat the ^^^^^ procedure
     talks;
    until(false)// until script is stoped i think

    next time put it in tags...

    i didnt test it if it compiles or not but u get the idea
    also put in that u have to push a button for the messages to be type like what if i wanted just to say one thing? and not 3?

  9. #9
    Join Date
    May 2007
    Location
    Seattle
    Posts
    1,069
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    It looks like a good script. When I started scripting I did an Auto Dropper and Talker.
    FORMERLY BORN2CODE | Play Internet Games
    http://img147.imageshack.us/img147/2084/sigg.png

  10. #10
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah nice work

  11. #11
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    and... make it leetspeak lol
    SCAR Code:
    Function LeetSpeak(Text: string; HowManyTimes, OutOf : integer) : string;
    var
      i: Integer;
      TheLength: Integer;
      NewText: String;
    begin
      TheLength:= 0;
      Text := Replace(Text, 'and', '&');
      Text := Replace(Text, 'anned', '&');
      Text := Replace(Text, 'ant', '&');
      Text := Replace(Text, 'aned', '&');
      for i := 1 to Length(Text) do
       begin
       if (Random(OutOf) < HowManyTimes) then
        Case lowercase(Text[I]) of
          'a' :  begin
               Case random(6) of
               0 : begin
                    Insert('4',NewText,TheLength +1);
                    TheLength := TheLength + 1;
                   end;
               1 : begin
                    Insert('/\',NewText,TheLength +1);
                    TheLength := TheLength + 2;
                   end;
               2 : begin
                    Insert('@',NewText,TheLength +1);
                    TheLength := TheLength + 1;
                   end;
               3 : begin
                   Insert('/-\',NewText,TheLength +1);
                   TheLength := TheLength + 3; end;
               4 : begin
                   Insert('^',NewText,TheLength +1);
                   TheLength := TheLength + 1; end;
               5 : begin
                   Insert('aya',NewText,TheLength +1);
                   TheLength := TheLength + 3; end;
               end;
               end;

        'b' : begin
              case Random(8) of
              0 : begin
                  insert('8',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('6',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              2 : begin
                  insert('13',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              3 : begin
                  insert('P>',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              4 : begin
                  insert('!3',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              5 : begin
                  insert('(3',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              6 : begin
                  insert('/3',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              7 : begin
                  insert(')3',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              end;
              end;

        'c' : begin
              case Random(3) of
              0 : begin
                  insert('[',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('<',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              2 : begin
                  insert('(',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              end;
              end;

        'd' : begin
              case Random(6) of
              0 : begin
                  insert(')',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('[)',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              2 : begin
                  insert('I>',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              3 : begin
                  insert('?',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              4 : begin
                  insert('T)',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              5 : begin
                  insert('0',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              end;
              end;

        'e' : begin
              case Random(3) of
              0 : begin
                  insert('3',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('&',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              2 : begin
                  insert('[-',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              end;
              end;

        'f' : begin
              case Random(2) of
              0 : begin
                  insert('ph',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              1 : begin
                  insert('/=',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              end;
              end;

        'g' : begin
              case Random(5) of
              0 : begin
                  insert('6',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('9',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              2 : begin
                  insert('C-',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              3 : begin
                  insert('gee',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              4 : begin
                  insert('(V,',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              end;
              end;

        'h' : begin
              case Random(7) of
              0 : begin
                  insert('#',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('/-/',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              2 : begin
                  insert('[-]',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              3 : begin
                  insert(']-[',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              4 : begin
                  insert(')-(',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              5 : begin
                  insert('(-)',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              6 : begin
                  insert(':-:',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              end;
              end;

        'i' : begin
              case Random(5) of
              0 : begin
                  insert('1',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('!',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              2 : begin
                  insert('eye',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              3 : begin
                  insert('3y3',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              4 : begin
                  insert(']',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              end;
              end;

        'j' : begin
              case Random(2) of
              0 : begin
                  insert('</',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              1 : begin
                  insert('(/',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              end;
              end;

        'k' : begin
              case Random(1) of
              0 : begin
                  insert('!<',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
                  end;
                  end;

        'l' : begin
              case Random(3) of
              0 : begin
                  insert('1',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('7',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              2 : begin
                  insert('1j',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              end;
              end;

        'm' : begin
              case Random(1) of
              0 : begin
                  insert('/^^\',NewText,TheLength +1);
                  TheLength := TheLength + 4; end;
              end;
              end;

        'n' : begin;
              case Random(8) of
              0 : begin
                  insert('^/',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              1 : begin
                  insert('/\/',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              2 : begin
                  insert('[\]',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              3 : begin
                  insert('<\>',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              4 : begin
                  insert('[]\',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              5 : begin
                  insert('//',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              6 : begin
                  insert('[]',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              7 : begin
                  insert('/V',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              end;
              end;

        'o' : begin;
              case Random(4) of
              0 : begin
                  insert('0',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('()',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              2 : begin
                  insert('oh',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              3 : begin
                  insert('[]',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              end;
              end;

        'p' : begin;
              case Random(2) of
              0 : begin
                  insert('9',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('[]D',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              end;
              end;

        'q' : begin;
              case Random(1) of
              0 : begin
                  insert('<!',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              end;
              end;

        'r' : begin;
              case Random(6) of
              0 : begin
                  insert('2',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('/2',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              2 : begin
                  insert('lz',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              3 : begin
                  insert('[z',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              4 : begin
                  insert('12',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              5 : begin
                  insert('l2',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              end;
              end;

        's' : begin;
              case Random(5) of
              0 : begin
                  insert('5',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('z',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              2 : begin
                  insert('ehs',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              3 : begin
                  insert('es',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              4 : begin
                  insert('$',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              end;
              end;

        't' : begin;
              case Random(3) of
              0 : begin
                  insert('7',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('+',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              2 : begin
                  insert('1',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              end;
              end;

        'u' : begin;
              case Random(1) of
              0 : begin
                  insert('v',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              end;
              end;

        'v' : begin;
              case Random(1) of
              0 : begin
                  insert('\/',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              end;
              end;

        'w' : begin;
              case Random(6) of
              0 : begin
                  insert('\/\/',NewText,TheLength +1);
                  TheLength := TheLength + 4; end;
              1 : begin
                  insert('vv',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              2 : begin
                  insert('\^/',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              3 : begin
                  insert('(n)',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              4 : begin
                  insert('\v/',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              5 : begin
                  insert('\x/',NewText,TheLength +1);
                  TheLength := TheLength + 3; end;
              end;
              end;

        'x' : begin;
              case Random(3) of
              0 : begin
                  insert('><',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              1 : begin
                  insert('ecks',NewText,TheLength +1);
                  TheLength := TheLength + 4; end;
              2 : begin
                  insert(')(',NewText,TheLength +1);
                  TheLength := TheLength + 2; end;
              end;
              end;

        'y' : begin;
              case Random(2) of
              0 : begin
                  insert('j',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              1 : begin
                  insert('7',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              end;
              end;

        'z' : begin;
              case Random(1) of
              0 : begin
                  insert('2',NewText,TheLength +1);
                  TheLength := TheLength + 1; end;
              end;
              end;
           else begin
                insert(Text[I], NewText,TheLength +1);
                TheLength := TheLength + 1; end;

        end else
        begin
         insert(lowercase(Text[I]), NewText, TheLength +1);
         TheLength := TheLength + 1;
        end;
    end;
    Result := NewText;
    end;

    begin

    WriteLn(LeetSpeak('text here', 10 , 10));

    end.
    Infractions, reputation, reflection, the dark side of scripting, they are.

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
  •