Results 1 to 6 of 6

Thread: SendText2 and SayCurrentLevels Problems

  1. #1
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default SendText2 and SayCurrentLevels Problems

    SendText2:
    When I use this in my script it types what I want it to but never clicks enter. How do I fix this?

    Also I noticed that SendText2 uses SendKeys. I heard SendKeys are detectable. So should I not use SendText2? And if so how do I incorperate the idea of human like misstakes from SendText2 into TypeSend.



    SayCurrentLevels:
    In this procedure
    procedure RandomTalkyAlways; {Hy71194's}
    var
    I: Integer;
    begin
    if RT=False then Exit;
    begin
    case Random(25) of
    0: begin
    FTWait(1+Random(5));
    TypeSend('fight caves!!!');
    end;
    1: begin
    FTWait(5+Random(10));
    TypeSend('time for more exp!!');
    end;
    2: begin
    FTWait(3+Random(4));
    TypeSend('gona kill jad!');
    end;
    3: begin
    FTWait(4+Random(7));
    TypeSend('so close to 99 str!!!');
    end;
    4: begin
    FTWait(5+Random(11));
    TypeSend('almost at lvl 100');
    end;
    5: begin
    FTWait(4+Random(10));
    TypeSend('att lvls?');
    end;
    6: begin
    FTWait(2+Random(5));
    TypeSend('str lvls?');
    end;
    7: begin
    FTWait(5+Random(4));
    TypeSend('def lvls?');
    end;
    8: begin
    FTWait(5+Random(8));
    TypeSend('hp lvls?');
    end;
    9: begin
    FTWait(4+Random(10));
    TypeSend('mage lvls?');
    end;
    10: begin
    FTWait(4+Random(10));
    TypeSend('range lvls?');
    end;
    11: begin
    FTWait (4+Random(10));
    TypeSend('prayer lvls?');
    end;
    12: begin
    FTWait(4+Random(10));
    TypeSend('=P');
    end;
    13: begin
    FTWait(6+Random(14));
    TypeSend('im so bored =(');
    end;
    14: begin
    FTWait(1+Random(5));
    TypeSend('die monster!');
    end;
    15: begin
    FTWait(4+Random(10));
    TypeSend('Im gona beat jad!!');
    end;
    16: begin
    FTWait(4+Random(10));
    TypeSend('rs pwns!!');
    end;
    17: begin
    FTWait(3+Random(7));
    TypeSend('..huh...');
    end;
    end;
    end;
    end;
    (I have no idea why it didn't do proper spacing)


    I wanted to add SayCurrentLevels. The thing is I only wanted to say Att, Str, Def, Range, Mage, Prayer, or Hp levels and also only pick 1 at a time randomly from the code above. I never got that to work out so if someone could tell me how or do it for me I would greatly apprciate it.


    Thanks.

  2. #2
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Use TypeSend; instead.

    SCAR Code:
    SayCurrentLevels('woodcutting');

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  3. #3
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ty but is there any way to make TypeSend with human like misstakes?

  4. #4
    Join Date
    Jun 2007
    Location
    Belgium
    Posts
    333
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm mostly using SendText cause due the keyboard setup differences between using shift for numeric keys or not makes TypeSend useless for me. Anyways, i haven't been blacklisted yet so IMO it's safe, course i'm using it in a responder not and autotalker.

    If you wanne use SendText or SendText2:

    SCAR Code:
    procedure RandomTalkyAlways; {Hy71194's}
    var
      I: Integer;
    begin
      if RT=False then
        Exit;
      begin
        case Random(25) of
          0: begin
               FTWait(1+Random(5));
               SendText('fight caves!!!');
               Wait(200 + Random(50));
               SendText(Chr(13));       //This one makes it hit enter
              end;
    ...

    Psychor

    PS. Keep an eye on those standards

  5. #5
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    procedure RandomTalkyAlways; {Hy71194's}
    var
    I: Integer;
    begin
    if RT=False then
    Exit;
    begin
    case Random(25) of
    0: begin
    FTWait(1+Random(5));
    SendText2('fight caves!!!');
    Wait(200 + Random(50));
    SendText(Chr(13)); //This one makes it hit enter
    end;

    Would that work? (Just changed SendText to SendText2 because the whole point is for human like misstakes)

  6. #6
    Join Date
    Jun 2007
    Location
    Belgium
    Posts
    333
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    aye, it should work

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
  •