Results 1 to 8 of 8

Thread: Mager1R AutoTyper *improved*

  1. #1
    Join Date
    Feb 2008
    Location
    UnitedStates, Phx
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Mager1R AutoTyper *improved*

    This is just a minor improvment to my last autotyper getting rid of things that were un-needed. . . something did come to my attention though i was told i should use "Typesend" instead of "sendkeys" i tried this and it said unknown identifier. can someone help me with this or tell me if it is even needed?

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    TypeSend is in SRL. Include SRL to your script


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Feb 2008
    Location
    Manteca, CA
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    To add typesend put this in the line after program;

    SCAR Code:
    {.include SRL/SRL.scar}

    That will include SRL, like TypeSend.

    SCAR Code:
    program include;
     {.include SRL/SRL.scar}

    Procedure send;
    begin
      repeat
      TypeSend ('message here')
      wait(1000)
      until(false)
    end;

    begin
       send;
    end.

    Just something like that.

  4. #4
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    If you want to include SRL just put

    SCAR Code:
    {.include SRL/SRL.scar}

    Right below the program name. Then it won't be a unknown idenififer.

    Edit: Burrito you nubsauce you edited it

    Also, you spaced your stuff wrong. You also forget an until

    SCAR Code:
    program include;
     {.include SRL/SRL.scar}
     
    procedure type;
    begin
      typesend ('message here');
      wait(1000);
       
    begin
    repeat
       send;
    until(false);
    end.

    You might want to make an autotalker like this.

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

    { Fill in the Consts with what you want to type.
    Fill in the StopKeyz with what key you want to use to stop.
    F2 says msg1, F3 says msg2, F4 says msg3, F5 says msg4, F6 says msg5. }


    Const

    Msg1 = '';
    Msg2 = '';
    Msg3 = '';
    Msg4 = '';
    Msg5 = '';
    StopKey = 8;

    Begin

    Repeat

    If IsFKeyDown(2) then
    TypeSend(Msg1);
    Wait(400 + random(250));

    If IsFKeyDown(3) then
    TypeSend(Msg2);
    Wait(400 + random(250));

    If IsFKeyDown(4) then
    TypeSend(Msg3);
    Wait(400 + random(250));

    If IsFKeyDown(5) then
    TypeSend(Msg4);
    Wait(400 + random(250));

    If IsFKeyDown(6) then
    TypeSend(Msg5);
    Wait(400 + random(250));

    Until(IsFKeyDown(StopKey));

    End.

  5. #5
    Join Date
    Feb 2008
    Location
    Manteca, CA
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Da 0wner View Post
    If you want to include SRL just put

    SCAR Code:
    {.include SRL/SRL.scar}

    Right below the program name. Then it won't be a unknown idenififer.

    Edit: Burrito you nubsauce you edited it
    Pwned!

    Hehe, jkjk.







    Or you could have one with different options like this:

    SCAR Code:
    program autotyper;
    {.include SRL/SRL.scar}



    const
      FirstMessage= 'Message Here';
      SecondMessage= 'Message Here';
      ThirdMessage= 'Message Here';
      MessageType= 1; // 1 is hotkeys, 2 is typesends and 3 is spam.


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :='Username';
      Players[0].Pass :='Password';
      Players[0].Nick :='Nick';
      Players[0].Active:= True;

    end;

    procedure Hotkeys;

    begin
      if (IsFKeyDown(10))
        then TypeSend(FirstMessage)
      else
        wait(40);
      if (IsFKeyDown(11))
        then TypeSend(SecondMessage)
      else
        wait(40);
        if (IsFKeyDown(12))  then
        TypeSend(ThirdMessage)
      else
        wait(40);
      end;

    procedure SendMessage;
    begin
      TypeSend(FirstMessage)
      Wait(2000 + random(1000));
     
      TypeSend(SecondMessage)
      Wait(2000 + random(1000));

      TypeSend(ThirdMessage)
      Wait(2000 + random(1000));
     
    end;

    procedure Spam;
      begin
      Sendkeys(FirstMessage + Chr(13));
      Wait(500)
      Sendkeys(secondmessage + Chr(13));
      Wait(500)
      Sendkeys(thirdMessage + Chr(13));
      Wait(500)

    end;



    begin;
      ActivateClient;
    repeat
      SetUpSRL;
      DeclarePlayers;
      LoginPlayer;
      if (MessageType=1)
      then
    begin
      Hotkeys;
      if (MessageType=2)
      then
    begin
      SendMessage;
      if (MessageType=3)
      then
    begin
      Spam;
    end;
    end;
    end;
    until(false);
     end.

  6. #6
    Join Date
    Feb 2008
    Location
    UnitedStates, Phx
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OK thanks all this helped alot i will try this again using what you all have said

  7. #7
    Join Date
    Feb 2008
    Location
    UnitedStates, Phx
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by B u r r i t o View Post
    Pwned!

    Hehe, jkjk.







    Or you could have one with different options like this:

    SCAR Code:
    program autotyper;
    {.include SRL/SRL.scar}



    const
      FirstMessage= 'Message Here';
      SecondMessage= 'Message Here';
      ThirdMessage= 'Message Here';
      MessageType= 1; // 1 is hotkeys, 2 is typesends and 3 is spam.


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :='Username';
      Players[0].Pass :='Password';
      Players[0].Nick :='Nick';
      Players[0].Active:= True;

    end;

    procedure Hotkeys;

    begin
      if (IsFKeyDown(10))
        then TypeSend(FirstMessage)
      else
        wait(40);
      if (IsFKeyDown(11))
        then TypeSend(SecondMessage)
      else
        wait(40);
        if (IsFKeyDown(12))  then
        TypeSend(ThirdMessage)
      else
        wait(40);
      end;

    procedure SendMessage;
    begin
      TypeSend(FirstMessage)
      Wait(2000 + random(1000));
     
      TypeSend(SecondMessage)
      Wait(2000 + random(1000));

      TypeSend(ThirdMessage)
      Wait(2000 + random(1000));
     
    end;

    procedure Spam;
      begin
      Sendkeys(FirstMessage + Chr(13));
      Wait(500)
      Sendkeys(secondmessage + Chr(13));
      Wait(500)
      Sendkeys(thirdMessage + Chr(13));
      Wait(500)

    end;



    begin;
      ActivateClient;
    repeat
      SetUpSRL;
      DeclarePlayers;
      LoginPlayer;
      if (MessageType=1)
      then
    begin
      Hotkeys;
      if (MessageType=2)
      then
    begin
      SendMessage;
      if (MessageType=3)
      then
    begin
      Spam;
    end;
    end;
    end;
    until(false);
     end.
    I think i shall try to get this one down before moving on to the other options thanks though i will keep it in mind so when i move on to other things.

  8. #8
    Join Date
    Feb 2008
    Location
    UnitedStates, Phx
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Da 0wner View Post
    If you want to include SRL just put

    SCAR Code:
    {.include SRL/SRL.scar}

    Right below the program name. Then it won't be a unknown idenififer.

    Edit: Burrito you nubsauce you edited it

    Also, you spaced your stuff wrong. You also forget an until

    SCAR Code:
    program include;
     {.include SRL/SRL.scar}
     
    procedure type;
    begin
      typesend ('message here');
      wait(1000);
       
    begin
    repeat
       send;
    until(false);
    end.

    You might want to make an autotalker like this.

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

    { Fill in the Consts with what you want to type.
    Fill in the StopKeyz with what key you want to use to stop.
    F2 says msg1, F3 says msg2, F4 says msg3, F5 says msg4, F6 says msg5. }


    Const

    Msg1 = '';
    Msg2 = '';
    Msg3 = '';
    Msg4 = '';
    Msg5 = '';
    StopKey = 8;

    Begin

    Repeat

    If IsFKeyDown(2) then
    TypeSend(Msg1);
    Wait(400 + random(250));

    If IsFKeyDown(3) then
    TypeSend(Msg2);
    Wait(400 + random(250));

    If IsFKeyDown(4) then
    TypeSend(Msg3);
    Wait(400 + random(250));

    If IsFKeyDown(5) then
    TypeSend(Msg4);
    Wait(400 + random(250));

    If IsFKeyDown(6) then
    TypeSend(Msg5);
    Wait(400 + random(250));

    Until(IsFKeyDown(StopKey));

    End.
    After adding {.include SRL/SRL.scar} When i went to run the script a new tab came up titled "EvilBob.scar" and i got a Error message. . [Error] (8874:7): Unknown type 'TPointArrayArray' in script C:\Program Files\SCAR 3.14\includes\SRL/SRL/Core/AntiRandoms/EvilBob.scar Do you have any idea what is going on or can you give me a link that might help? I am running SCAR 3.14 i see many people using 3.12 should i get that? Sorry if i am sounding like a noob.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Mager1R AutoTalker
    By mageroner in forum First Scripts
    Replies: 5
    Last Post: 02-29-2008, 06:38 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
  •