Results 1 to 5 of 5

Thread: Where an i going wrong?

  1. #1
    Join Date
    Oct 2006
    Location
    H0M3
    Posts
    142
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Where an i going wrong?

    i am trying to use what i've learned recently to make an auto talker, when i run this script all it does is types in a load of stuff, not what i tell it to and then it start the colour picker for some reason. hanks in advance for any help.

    Code:
    program AutoTalker;
    
    
    
    
    
    
    
    
    
    
    
    ////////////////////////////////////////////////////////////////////////////////
    
    Const
    
    Chat = 'fishing levels people'; // Replace only text with your message.
    Rate = 20; // How many seconds to wait. Tip: try not to make it too ovious.
    Randomtime = true; // Set true to add random time of 4-6 seconds.
    KeepTyping = false;
    ////////////////////////////////////////////////////////////////////////////////
    
    Procedure Waiting;
    begin
    wait(1000+random(10*rate));
    end;
    
    Procedure Randomtimer;
    b
    wait(1000+random(700));
    wait(1000+random(300));
    wait(1000+random(400));
    wait(1000+random(600));
    end;
    
    procedure Typo;
    begin
    SendKeys(Chat);
    end;
    
    begin
    cleardebug;
    if keeptyping = false
    then begin
    Typo;
    end else
    repeat
    waiting;
    typo;
    randomtimer;
    until(false);
    end.

  2. #2
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Why don't you use SRL?
    SendKeys is quite bannable. Use SRL's TypeSend instead.
    This is it abit fixed up here and there. Compair it and learn from it:

    SCAR Code:
    Program AutoTalker;
    {.include SRL/SRL.scar}

    ////////////////////////////////////////////////////////////////////////////////
    Const
      Chat = 'fishing levels people'; // Replace only text with your message.
      Rate = 20; // How many seconds to wait. Tip: try not to make it too obvious.
      RandomTime = True; // Set true to add random time of 4-6 seconds.
      KeepTyping = False; //Type once or more.
    ////////////////////////////////////////////////////////////////////////////////

    Procedure Waiting;
    Begin
      Case RandomTime Of
        True: Wait(1000 * (Rate + (4 + Random(2))));
        False: Wait(1000 * Rate);
      End;
    End;

    Procedure Typo;
    Begin
      TypeSend(Chat);
    End;

    Begin
      SetupSRL;
      ClearDebug;
      If KeepTyping = False Then
        Typo
      Else Begin
        Repeat
          Typo;
          Waiting;
        Until(false);
      End;
    End.
    Ce ne sont que des gueux


  3. #3
    Join Date
    Oct 2007
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Floor66 View Post
    Why don't you use SRL?
    SendKeys is quite bannable. Use SRL's TypeSend instead.
    This is it abit fixed up here and there. Compair it and learn from it:
    How can you have a random Boolean?
    The Waiting procedure would have to be like:
    pascal Code:
    Procedure Waiting;
    Begin
      Wait(1000 * Rate);
      if RandomTime then
        Wait(4000 + Random(2000));
    End;

  4. #4
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Oh lol. I thought RandomTime was an int. I overlooked it. Fixing it.

    EDIT;
    fixed. added a Case statement.
    Ce ne sont que des gueux


  5. #5
    Join Date
    Oct 2006
    Location
    H0M3
    Posts
    142
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cheers for that, just gonna look at it now. and i've just started making scripts. havent had a chance to go on to srl yet.

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
  •