Poll: How well does this work?

Be advised that this is a public poll: other users can see the choice(s) you selected.

Page 2 of 2 FirstFirst 12
Results 26 to 50 of 50

Thread: TypeSend2 - Makes Human Errors! [NEW]

  1. #26
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Most of those are actually quite easy to do, but to pull together in one script and make them coincide is where the real problems start. Afterall, what happens if all of the mistakes happen in one word? That would look very suspicious or if you backspaced a wrong word then put a *"word here". It's just thinking it all through and organising it, then making sure it all works with heavy testing and it will be great. Also, as EvilChicken said, it probably will be thrown into SRL, though I doubt for the login as I doubt Jagex would monitor login screens, especially as I know I personally have never misspelled my name when logging in and only a couple of times misspelled my password.
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

  2. #27
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Aye thank you all and yes I did use my old (300lines+) version of this in frostbite 1.5.

    May be quite a hard time ahead lol, but I need just as much organization in Fr0zn Hybrid, I will manage I doubt it will stay to < 100 lines though.

    Thank you all for your support, wish me luck!

    Edit : Just begun... holy shit this hurts going well though, I have separated the Text into a special Type I have made, so each word is one part of an array. Not even entirely sure what I'm gonna finish with lol...

    Seperator :
    SCAR Code:
    Text := Padr(Padl(Trim(Text), Length(Trim(Text)) + 1), Length(Trim(Text)) + 2);
      Repeat
        WordArr[i].Word := Between(' ', ' ', Text);
        Delete(Text, Pos(WordArr[i].Word, Text) - 1, Length(WordArr[i].Word) + 1);
        i := i + 1;
      Until(Text = ' ');

  3. #28
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think I'm pretty much done on it, please PM for a test.

    I'm not sure about the speed thing. Should I do it randomly or user set? Because if I use Typesend2(text, 5) it might not be implemented coz ppl wouldn't wanna write the speed each time? I know how to do it, just not wether I should.

    Also what Typing speed? RandomRange(200,400) between each key is what I'm using, works pretty well but I don't have much experience.

  4. #29
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    200 - 400 MS is qute much for key typing. Check what the original TypeSend has! I think its shomewhat like 30 + random(45). And, RandomRange(int, int2) is twice as slow as int + random(int); So I would reccomend int + random(int). Likewise, Inc(int) is twice as slow as int + 1;.

    Edit: Mind PMing me the code, since I now made a post in your thread and all? (Trying to save time..)

  5. #30
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    Program Test;

    Function MakeError( S: String; Chance: Integer): String;
    Var
      KeyBoard: Array [1..3] Of TStringArray;
      I, KBx1, KBy1: Integer;
    Begin
      KeyBoard[1] := ['q','w','e','r','t','y', 'u', 'i', 'o', 'p'];
      KeyBoard[2] := ['a','s','d','f','g','h', 'j', 'k', 'l'];
      KeyBoard[3] := ['z','x','c','v','b','n', 'm'];
      If(Chance > 100)Then
        Chance := 100-Random(100);
      For I:= 1 To Length(S) Do
        If(Chance >= Random(100))Then
        Begin
          For KBx1 := 1 To 3 Do
            For KBy1 := 0 To High(KeyBoard[ KBx1 ] ) Do
            Begin
              If(Lowercase(S [ i ]) = KeyBoard[KBx1][KBy1])Then
              Begin
                Try
                  Result := Result + KeyBoard[KBx1 + Random(2)][KBy1 + Random(2)];
                Except
                  Try
                    Result := Result + KeyBoard[KBx1 - Random(2)][KBy1 - Random(2)];
                  Except
                    Result := Result + S [ I ];
                  End;
                End;
              End;
            End;
        End Else
        Begin
          Result := Result + S [ I ];
          Continue;
        End;
    End;

    Begin
      Writeln(MakeError('abcdefghijklmnopqrstuvwxyz', 10));
    End.

    ehhhh´, i suckkk but thats somewhat how i would create it.

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  6. #31
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No Jukka lol, I'm sure it works just as well as mine did, but mine now has all those extra things.

    damit so I can't use RandomRange either used to use inc till I read raymonds post that they were slower...

  7. #32
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hmm... Nice function, but I believe SRL made one that does the exact same thing except it doesn't press the enter key:

    SCAR Code:
    {*******************************************************************************
    function SendText2(Text: String): Boolean;
    By: RSN | Modded By: Spky
    Description: Types text humanlike making mistakes, returns true if mistake has
    been made.
    *******************************************************************************}


    function SendText2(Text: string): Boolean;
    var
      i, j, w: Integer;
      S: string;
    begin
      for i := 1 to Length(Text) do
      begin
        S := Text[i];
        if (Random(5) + 1 = 1) and (w < 3) then
        begin
          w := w + 1;
          Result := True;
          j := Ord(S[1]);
          if (j <> 13) then
            S := Chr(j + (Random(5) + 1));
          if (S = Chr(13)) then
            S := 'l';
        end;
        SendKeys(S);
        Wait(50 + Random(100));
      end;
    end;

    Correct me if yours does something different.

    Nice though

  8. #33
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Jad the SRL one is hardly anything like this, it types any letter near one, so s could be like qrstuv, but thats no where near human like, plus mine backspaces and correct mistakes.

  9. #34
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    forsure gonna use this! in my script

  10. #35
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ^^ thanks p1nky, enjoy mate.

  11. #36
    Join Date
    Jun 2007
    Location
    Liverpool ,Nsw,Australia
    Posts
    740
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    haha Checked new version out Rep++

    it was ment to right

    Strikerx25 Rocks He is a n00b Scripter ATM but will someday Rule Ze World

    But instead

    strikerx25 rocks he is a n00b scripter atm but will sosmeday rulw ze world
    rule*

    So to use this just replace typesend('') With typesend2('') <----Noob Question
    Quote Originally Posted by Darkmage View Post
    I got 2 questions'
    #1. When i run the script will it automatically pick up the mouse and move?

  12. #37
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes TypeSend in your script becomes TypeSend2('text', false);, or if you are using SMART then TypeSend2('text', true);.

  13. #38
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey, i seen this in your script - Forest Frostbite, yes this is awsome.

    MWHAHAHAHA How are you gonna deal with this now jaghax! .
    Woot woot.

  14. #39
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol yea script uses my old one, doesn't have the 3+ new features ^^ totally pwning jagex hehe.

  15. #40
    Join Date
    Jun 2007
    Location
    Liverpool ,Nsw,Australia
    Posts
    740
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey just wondering sometimes it backspaces even when it is correct is this ment to happen?
    Quote Originally Posted by Darkmage View Post
    I got 2 questions'
    #1. When i run the script will it automatically pick up the mouse and move?

  16. #41
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ya I know lol, gonna have to fix that then eh ^^

  17. #42
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Okay this kick ass

    Edit:500th post!

  18. #43
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks man, you reckon this could be put in SRL?

  19. #44
    Join Date
    Nov 2007
    Location
    The Netherlands
    Posts
    1,490
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i think this might become a srl thingie
    its awsome man
    very nice done

  20. #45
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks I fixed the problem with it backspacing and replacing with the same letter now, so its sweet as. Gonna see what Wizzup? thinks.

  21. #46
    Join Date
    Sep 2007
    Location
    Michigan
    Posts
    3,862
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by FrÕzÑ_§ÕµL View Post
    thanks man, you reckon this could be put in SRL?
    Devs are very picky.
    (Scripts outdated until I update for new SRL changes)
    AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
    If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
    Summer = me busy, won't be around much.

  22. #47
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea I ain't really expecting anything lol... especially not with it taking up so many lines oh well.

  23. #48
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    Procedure Typesendmistake(txt: String; Chance: Integer);
    Var
      Key: String;
      KeyBoard: Array [0..3] Of TStringArray;
      KBx1, KBy1, I: Integer;
    Begin
      I := 1;
      KeyBoard[0] := ['1','2','3','4','5','6','7','8','9','0'];
      KeyBoard[1] := ['q','w','e','r','t','y', 'u', 'i', 'o', 'p'];
      KeyBoard[2] := ['a','s','d','f','g','h', 'j', 'k', 'l'];
      KeyBoard[3] := ['z','x','c','v','b','n', 'm'];
      While( I <= Length( txt ) ) Do
      Begin
        If(Random(100) <= Chance)Then
        Begin
          For KBx1 := 0 To 3 Do
            For KBy1 := 0 To High(KeyBoard[ KBx1 ] ) Do
              If(Lowercase(txt [ i ]) = KeyBoard[KBx1][KBy1])Then
                Try
                  Key := KeyBoard[KBx1 + Random(2)][KBy1 + Random(2)];
                Except
                  Try
                    Key := KeyBoard[KBx1 - Random(2)][KBy1 - Random(2)];
                  Except
                    Key := Txt[i];
                  End;
                End;
        End Else Key := Txt[i];

        TypeByte(GetKeyCode(StrGet(Key, 1)));
        Wait(40 + Random(40));
        If(Key = txt[i])Then
          Inc(I)
        Else
        Begin
          Wait(200+Random(200));
          TypeByte(VK_BACK);
          Wait(200+Random(200));
        End;
      End;
      TypeByte(GetKeyCode(Chr(13)));
    End;

    heres another one i created.

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  24. #49
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ty useing this in script if thats ok!

  25. #50
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No prob nic, it's what its here for.

Page 2 of 2 FirstFirst 12

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Script that makes your money?
    By haz3 in forum News and General
    Replies: 14
    Last Post: 11-22-2007, 06:30 AM
  2. makes me mad
    By jhildy in forum SRL Site Discussion
    Replies: 3
    Last Post: 05-22-2007, 12:27 AM
  3. This makes no sence!
    By Hobbit in forum OSR Help
    Replies: 4
    Last Post: 12-31-2006, 02:25 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •