Results 1 to 4 of 4

Thread: My first auto talker!!!

  1. #1
    Join Date
    Jan 2007
    Location
    La Jolla,CA
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My first auto talker!!!

    Thanks for unmatched beginers guide i managed to build this!

  2. #2
    Join Date
    Dec 2006
    Location
    SC
    Posts
    692
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good job BTW, where you had all those WriteLn functions: I'm guessing you wanted to clear the box? If so just use this:

    SCAR Code:
    //..script
    Until(Counter=SayAmount);
    ClearDebug;
    End.

  3. #3
    Join Date
    Apr 2006
    Location
    I live in NH
    Posts
    611
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Cool script man! Great job. My first script was an auto talker too.

    Hey here is your next step. Try to make your script look a little more like this:

    Code:
    // Script by d3hm3d
    // My first script!!!
    // Fill in messeges and there you go
    //------------------------------------------------------------------------
    
    program AutoTalker;
    
    var
      Counter : Integer;
    
    const
      Message1   = '';   // First Message.
      Message2   = '';   // Second Message.
      SayAmount  = 200;  // How Many Times To Type Your Message.
      TimeJ      = 5000; // How Much Time To Wait Inbetween clicks.
    
    procedure AutoTalkin;
    begin
      SendKeysSilent(Message1);
      Wait(100+Random(10));
      SendKeysSilent(chr(13));
      Wait(TimeJ);
      SendKeysSilent(Message2);
      Wait(100+Random(10));
      SendKeysSilent(chr(13));
      Wait(TimeJ);
    end;
    
    begin
      Counter := 0;
      repeat
        AutoTalkin;
        Counter := Counter + 1;
      until(Counter = SayAmount)
      ClearDebug;
    end.
    It's easier to read, debug, and looks much better.

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

    Default

    You should change from this:
    Code:
    begin
    Counter:=0
    repeat
    AutoTalkin;
    Counter:=counter+1
    Until(Counter=SayAmount);
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    End.

    To this:
    Code:
    begin
    ActivateClient;
    Counter:=0
    repeat
    AutoTalkin;
    Counter:=counter+1
    Until(Counter=SayAmount);
    Cleardebug;
    End.
    but other than that it's nice

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
  •