Results 1 to 9 of 9

Thread: something that presses left right and a letter

  1. #1
    Join Date
    Mar 2009
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default something that presses left right and a letter

    Hi, this is probably very simple to code.
    But I am a super noob.
    I want a script for maplestory.
    I want it to press the "s" key constantly without pressing enter, so you cant use typesend. It presses the "s" key repedeatly for 30 seconds then presses the left arrow 2seconds right arrow 3seconds and left 1 second.
    Then just at so that it goes on and on until I press stop.
    I know this is somehow possible, but I cant do it, please help!
    heres my code so far (I cant use typesend tho.) =
    SCAR Code:
    program autoattacker;
    {.include srl/srl.scar}


    const
    Skill='s';// The skill button on your keyboard
    waits=70;//

                                     
    procedure autotatk;
    begin
    Disguise('autoatk')
    wait(1000)
    typesend(skill)a

    end;

    begin
    SetupSRL;
    wait(2000);
    repeat
    autotatk
    until(false)

    end.

  2. #2
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you could just change TypeSend to not press enter..

    I can do this really quick I think

    one sec..

  3. #3
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    You could use TypeByte() it uses one Letter or Something.

    Like: TypeByte(Vk_Left); TypeByte(Vk_Right); TypeByte(Skill);

    Edit: Lol 99_, I like your Siggy
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  4. #4
    Join Date
    Mar 2009
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 22: [Error] (16228:1): Type mismatch in script C:\DOCUME~1\Wade\LOCALS~1\Temp\atker.scar I get that when
    SCAR Code:
    {    m4r1us simple auto talker }
                 {    created by m4r1us         }
                 {      Date 2008 11 25         }
                 {      edit 12 line            }
                 {______________________________}

    program autotalker;
    {.include srl/srl.scar}


    const
    Skill='s';// The skill button on your keyboard
    waits=70;//

                                     
    procedure autotatk;
    begin
    Disguise('autoatk')
    wait(1000)
    typebyte(skill)

    end;

    begin
    SetupSRL;
    wait(2000);
    repeat
    autotatk
    until(false)

    end.


    It didnt even work if I put a ;
    Last edited by blackslinga; 04-17-2009 at 08:37 AM.

  5. #5
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    to do the repeating for 30 seconds.. do..

    SCAR Code:
    procedure Whatever;
    var
      T: Integer;
    begin
      MarkTime(T);//declare T as an integer..
      repeat
        TypeByte(Skill);//doesn't work :/ let me think..
        Wait(RandomRange(50, 100));//dunno if you want it to wait a little or just type really fast.. :p
      until(TimeFromMark(T) > 30000);//30 seconds.. so it will be like.. 30.05-30.1s :)
    end;



    and thanks noidea ;D

    hmm..

    it can't be a string..

    because TypeByte types a char..

    so..

    idk how to make a str into a char..

    I'll see what I can do..

    if I can't do anything, I'll do a different way
    Last edited by ian.; 04-17-2009 at 08:41 AM.

  6. #6
    Join Date
    Mar 2009
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Failed when compiling
    Line 22: [Error] (16228:16): Type mismatch in script C:\DOCUME~1\Wade\LOCALS~1\Temp\m4r1us auto talker.scar


    What now?

  7. #7
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program vbsendkeystest;
    begin
      SendKeysVB('Lala{left}uu{enter}{end}', True);
      Sendkeys('eee');
      SendKeysSilent('hhhh');
    end.



    check your scar folder if you're bored

    I've learned a lot..

    (if you don't know how to fix your problem..

    just change TypeByte to SendKeysVB

    it did..

    ssssssssssssssssssssssssssssssssssssssssssssssssss ssssssssssssssssssssssssssssssssssssssssssssssssss ssssssssssssssssssssssssssssssssssssssssssssssssss ssssssssssssssssssssssssssssssssssssssssssssssssss ssssssssssssssssssssssssssssssssssssssssssssssssss ssssssssssssssssssssssssssssssssssssssssssssssssss ssssssssssssssssssssssssssssssssssssssssssssssssss sssssssssssssssssssssssssssssssssssssssssssssss
    in that amount of time

    is that enough? too much? just right? if it's too much just add more to the wait..



    and for left and right, do VK_Left and VK_Right

    actually.. if you want to hold it for 2 seconds or whatever then do..

    HoldKey(VK_Left);
    Wait(RandomRange(1750, 2250));
    ReleaseKey(VK_Left);
    Last edited by ian.; 04-17-2009 at 09:02 AM.

  8. #8
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    {.include srl/srl.scar}

    const
      Skill = 's';
     
    procedure Whatever;
    var
      T: Integer;
    begin
      MarkTime(T);
      repeat
        SendKeysVB(Skill, True);
        Wait(RandomRange(50, 100));
      until(TimeFromMark(T) > 30000);
    end;

    procedure Press(Key: Byte);
    begin
      KeyDown(Key);
      Wait(RandomRange(1750, 2250));
      KeyUp(Key);
    end;

    begin
      SetupSRL;
      repeat
        Whatever;
        Wait(RandomRange(100, 500));
        Press(VK_Left);
        Wait(RandomRange(100, 500));
        Press(VK_Right);
      until(IsFKeyDown(12));
    end.



    Press F12 to stop it

  9. #9
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

    rofl well u cant use typebyte(); because a byte is a number. (0-255 i think). so if u want a string/char u would have to use it 99s way with sendkeysvb

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
  •