Results 1 to 4 of 4

Thread: SendText3

  1. #1
    Join Date
    Feb 2006
    Location
    California-Foster City
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default SendText3

    I dont knwo if this works completely. Since i am udner punishment and have no access to runescape, i can not test this. Please see if it retypes the word even if it gets it right.

    This is suppose to either type the word correctly, type the word wrong and correct it, or just leave it wrong. I dont know how ischatmessage works too well so it MAY be flawed

    P.S. If this doesnt work its my fault, wait till beta 3


    Code:
    program New;
    {.include SRL/SRL.scar}
    {*******************************************************************************
    procedure SendText3(Text : String);
    By:
    Description: If makes mistakes will type correct format quickly
    *******************************************************************************}
    Procedure SendText3(Ttx : String);
    var
       Mi : Boolean;
    begin
    begin
      case Random( 2 ) of
        0: begin
             SendText( ttx );
             SendKeys( chr( 13) );
             Mi:= false;
           end;
        1: begin
             SendText2( ttx);
             If ( Not( IsChatMessage( ttx ) ) )then
             begin
               Mi:= True;
             end;
             Sendkeys( chr( 13 ) );
           end;
      end;
    end;
      If( Mi )then
       begin
         case Random( 2) of
           0: begin
                wait( 50+random( 10 ) );
                SendText( ttx );
                SendKeys( chr( 13 ) );
              end;
           1: begin
                writeln( 'Mistake Not Corrected' );
              end;
         end;
       end;
    end;
    
    begin
    SetupSRL
    SendText3('Helllo')
    end.

    Its a script, just run it
    The Welcoming Party
    Don't be a Fakawi! Get 25 hours of sleep a day!

  2. #2
    Join Date
    Mar 2006
    Posts
    201
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    worked fine for me. I wrote "im teh greatest" and it horribly jumbled it up and then wrote it correctly. and then it wrote it jumbled and then "writeln" mistake not corrected. Looks awesome to me
    |>|-|33|2 /\/\ '/ 1337 |-|@>< 0|2 |)1 3

    " There are no stupid questions, only stupid people "

  3. #3
    Join Date
    Feb 2006
    Location
    Aussie
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks good, bout to test it, did u make this becoz of my threade bout sendtext2?

    EDIT:
    Code:
    1st
    2nd
    3rd
    4th Mistake Not Corrected
    5th Mistake Not Corrected
    6th 
    7th 
    8th
    9th
    10th
    11th
    12th
    13th
    14th Corrected Mistake
    15th Mistake Not Corrected
    16th 
    17th Mistake Not Corrected
    18th Mistake Not Corrected
    19th Mistake Not Corrected
    20th Mistake Not Corrected
    blank ones mean it got it correct

  4. #4
    Join Date
    Feb 2006
    Posts
    582
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    "Sdcit likes the hairy scrotum
    Successfully compiled"
    Perfect!
    Free File Hosting
    No download timers!

    Rifkwtf.com

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
  •