Results 1 to 15 of 15

Thread: My login and autotyper with f-keyes - not working :(

  1. #1
    Join Date
    Jan 2007
    Location
    Somewhere....
    Posts
    77
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    My login and autotyper with f-keyes - not working :(

    So here is the script, it complies ok, but it just downt work for some reason...
    I get this error:
    [Runtime Error] : Exception: Access violation at address 0064FEA2 in module 'scar.exe'. Read of address 00000000 in line 353 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Text.scar


    SCAR Code:
    //////////////////////////////////////////////////////
    //////            First autotalker!                   //////
    //////           Created by Bell1313              //////
    //////           Credit to Bebemycat2            //////
    //////           for the great tutorial!            //////
    //////           Ilove8it aswell!                     //////
    //////            Fourscape also!                   //////
    //////////////////////////////////////////////////////
    //Dont forget to drag the crosshair on at the beggining!
    //Dont think it will ban! Ive used it and no bans so far!
    //Read instuctions below. (in green) //

    program Autotalker;
    {.include SRL/SRL.scar}
    const
    w1='';//type what ever you want it to say between the ''!!
    w2='';//Same here! If you dont want it to say anything, dont put anything!
    w3='';//Same here!
    w4='';//same here

    Procedure DeclarePlayers;
    begin
    HowManyPlayers:=6;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer:=0;

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

    Players[1].Name:='';
    Players[1].Pass:='';
    Players[1].Nick:='';
    Players[1].Active:=True;

    Players[2].Name:='';
    Players[2].Pass:='';
    Players[2].Nick:='';
    Players[2].Active:=True;

    Players[3].Name:='';
    Players[3].Pass:='';
    Players[3].Nick:='';
    Players[3].Active:=True;

    Players[4].Name:='';
    Players[4].Pass:='';
    Players[4].Nick:='';
    Players[4].Active:=True;

    Players[5].Name:='';
    Players[5].Pass:='';
    Players[5].Nick:='';
    Players[5].Active:=True;
    end;

    //////////////////////Don't Change After here//////////////////////
    procedure Autotlk;
    begin
    If (IsFkeyDown(1)=True) then
     Begin
      Typesend(w1)
        end;
      Begin
       If(IsfKeydown(2)=true) then
        begin
         Typesend(w2)
           end;
       Begin
        If(IsfKeydown(3)=true) then
          begin
           Typesend(w3)
             end;
       Begin
        If(IsfKeydown(4)=true) then
          begin
           Typesend(w4)
             end;
    end;
    end;
    end;
    end;
    ////////////////////////////////////////////////////
     begin
     ActivateClient;
     DeclarePlayers;
     LoginPlayer;
     If (IsFkeyDown(9)=True) then
     Logout;
     If(Not(LoggedIn)) then NextPlayer(False);
     repeat
     autotlk;
     wait(100);
     until(false)
    end.

    Thanks in advance!

  2. #2
    Join Date
    Jun 2006
    Posts
    3,861
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    You need to put SetupSRL; as the first thing in your main loop.

  3. #3
    Join Date
    Jan 2007
    Location
    Somewhere....
    Posts
    77
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh yea, lolz, DOH!!!

  4. #4
    Join Date
    Jan 2007
    Location
    Somewhere....
    Posts
    77
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How do i get it to log out when i press f9

  5. #5
    Join Date
    Jan 2007
    Location
    Somewhere....
    Posts
    77
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Does anybody have any idea? I feel like im the only one online on this forum!

  6. #6
    Join Date
    Jun 2006
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    put this:

    SCAR Code:
    Until(IsFKeyDown(9))

    instead off:

    SCAR Code:
    Until(false)

    That should work just ask if you need anymore help

  7. #7
    Join Date
    Jan 2007
    Location
    Somewhere....
    Posts
    77
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    If i press f9, it doesnt log me out, it just stops the script. I want it to log out when i press f9

  8. #8
    Join Date
    Jun 2006
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    Until(IsFKeyDown(9))
    logout;

    just add logout after
    SCAR Code:
    Until(IsFKeyDown(9))

    that should log you out

    if that doesnt work let me know

  9. #9
    Join Date
    Dec 2006
    Location
    Ky
    Posts
    390
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This works there was some sort of error with the login im not sure why but i removed it and the script works fine.
    Recomendations
    - make it so that you only have to press the f-key once and then itll repeat like 5 times
    - make sure you let people know that they have to press the fkeys for it to work (state at the begging of your script)

    Good work though!

    Code:
    {.include SRL/SRL.scar}
    const
    w1='selling 84 coal';//type what ever you want it to say between the ''!!
    w2='';//Same here! If you dont want it to say anything, dont put anything!
    w3='';//Same here!
    w4='';//same here
    
    Procedure DeclarePlayers;
    begin
    HowManyPlayers:=6;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer:=0;
    
    Players[0].Name:='';
    Players[0].Pass:='';
    Players[0].Nick:='';
    Players[0].Active:=True;
    
    Players[1].Name:='';
    Players[1].Pass:='';
    Players[1].Nick:='';
    Players[1].Active:=True;
    
    Players[2].Name:='';
    Players[2].Pass:='';
    Players[2].Nick:='';
    Players[2].Active:=True;
    
    Players[3].Name:='';
    Players[3].Pass:='';
    Players[3].Nick:='';
    Players[3].Active:=True;
    
    Players[4].Name:='';
    Players[4].Pass:='';
    Players[4].Nick:='';
    Players[4].Active:=True;
    
    Players[5].Name:='';
    Players[5].Pass:='';
    Players[5].Nick:='';
    Players[5].Active:=True;
    end;
    
    //////////////////////Don't Change After here//////////////////////
    procedure Autotlk;
    begin
    If (IsFkeyDown(1)=True) then
     Begin
      Typesend(w1)
        end;
      Begin
       If(IsfKeydown(2)=true) then
        begin
         Typesend(w2)
           end;
       Begin
        If(IsfKeydown(3)=true) then
          begin
           Typesend(w3)
             end;
       Begin
        If(IsfKeydown(4)=true) then
          begin
           Typesend(w4)
             end;
    end;
    end;
    end;
    end;
    ////////////////////////////////////////////////////
     begin
    ActivateClient;
     DeclarePlayers;
     {removed the login that was here}
     If (IsFkeyDown(9)=True) then
     Logout;
     If(Not(LoggedIn)) then NextPlayer(False);
     repeat
     autotlk;
     wait(100);
     until(false)
    end.
    SUMMER BREAK be back when I want to

  10. #10
    Join Date
    Jan 2007
    Location
    Toronto.
    Posts
    150
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think he means:

    SCAR Code:
    If(IsFKeyDown(9))Then
      Logout;

  11. #11
    Join Date
    Oct 2006
    Posts
    189
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How I would do it, Auto talkers dont need multi players.

    SCAR Code:
    //////////////////////////////////////////////////////
    //////            First autotalker!             //////
    //////           Created by Bell1313            //////
    //////           Credit to Bebemycat2           //////
    //////           for the great tutorial!        //////
    //////           Ilove8it aswell!               //////
    //////////////////////////////////////////////////////
    //Dont forget to drag the crosshair on at the beggining!
    //Dont think it will ban! Ive used it and no bans so far!
    //Read instuctions below. (in green) //
    //FILL IN PLAYER FORM!!!
    //F7 Logs in
    //F8 logs out


    program Autotalker;
    {.include SRL/SRL.scar}
    const
    w1='';//type what ever you want it to say between the ''!!
    w2='';//Same here! If you dont want it to say anything, dont put anything!
    w3='';//Same here!
    w4='';//same here

    Procedure DeclarePlayers;
    begin

         HowManyPlayers  := 2;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := 0;

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

     end;



    //////////////////////Don't Change After here//////////////////////
    procedure Autotlk;
    begin
    If (IsFkeyDown(1)=True) then
     Begin
      Typesend(w1)
       Wait(2000+random(1000))
        end;
      Begin
       If(IsfKeydown(2)=true) then
        begin
         Typesend(w2)
          Wait(2000+random(1000))
           end;
       Begin
        If(IsfKeydown(3)=true) then
          begin
           Typesend(w3)
            Wait(2000+random(1000))
             end;
         Begin
          If(IsfKeydown(4)=true) then
           begin
            Typesend(w4)
             Wait(2000+random(1000))
              end;
          Begin
           If(IsFKeyDown(7)) then
            Begin
    Wait(100+random(100))        
            LogInPlayer;
              end;
               end;
           Begin
            If(IsFKeyDown(8)) then
             Begin
    Wait(100+random(100))
              LogOut;
              end;
            end;
          end;
        end;
      end;
    end;

     begin
     ActivateClient;
     SetupSrl;
     DeclarePlayers;
     repeat
     autotlk;
     until(false)
    end.
    thanks the scar noob, for the avatar, it rocks!

    my sig owns

  12. #12
    Join Date
    Oct 2006
    Posts
    189
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [QUOTE=whales;52081]
    Recomendations
    - make it so that you only have to press the f-key once and then itll repeat like 5 times
    - make sure you let people know that they have to press the fkeys for it to work (state at the begging of your script)

    I agree with the second, but the first one... hmm... Imagine this, a person typing the same EXACT thing over and over at a continuous speed in the same Flash2:wave: text. With having to push the Fkeys you can add randomness to it... say F1 will say Flash2:wave Selling stuff and F2 can say Flash1:scroll: Selling stuff. Gives you alot more freedom to personalize your typing.
    thanks the scar noob, for the avatar, it rocks!

    my sig owns

  13. #13
    Join Date
    Dec 2006
    Location
    Ky
    Posts
    390
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    True, good point maybe make it an option to type it multiple times at a normal human speed, so like if you press f-6 it will type it ten times at a normal human rate. If you did this you could eventually turn this into a merchanter..
    SUMMER BREAK be back when I want to

  14. #14
    Join Date
    Oct 2006
    Posts
    189
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Pretty sure this works... Now if you hit F1, It will say it as many times as you put it to do. I think it works... Ill check to see if it compiles when I get home.

    SCAR Code:
    //////////////////////////////////////////////////////
    //////            First autotalker!             //////
    //////           Created by Bell1313            //////
    //////           Credit to Bebemycat2           //////
    //////           for the great tutorial!        //////
    //////           Ilove8it aswell!               //////
    //////////////////////////////////////////////////////
    //Dont forget to drag the crosshair on at the beggining!
    //Dont think it will ban! Ive used it and no bans so far!
    //Read instuctions below. (in green) //
    //FILL IN PLAYER FORM!!!
    //F7 Logs in
    //F8 logs out


    program Autotalker;
    {.include SRL/SRL.scar}
    const
    w1='';//type what ever you want it to say between the ''!!
    w2='';//Same here! If you dont want it to say anything, dont put anything!
    w3='';//Same here!
    w4='';//same here
    timess = 3; //times you want to say a phrase

    Procedure DeclarePlayers;
    begin

         HowManyPlayers  := 2;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := 0;

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

     end;



    //////////////////////Don't Change After here//////////////////////
    procedure Autotlk;
    Var
    C : Integer;
    begin
    C := 0
    If (IsFkeyDown(1)=True) then
     Begin
    Repeat
     Begin
      Typesend(w1)
    C := C+1
       Wait(2000+random(1000))
        end;
    C := 0
    Until (C =timess)
    end;
      Begin
       If(IsfKeydown(2)=true) then
        begin
         Typesend(w2)
          Wait(2000+random(1000))
           end;
       Begin
        If(IsfKeydown(3)=true) then
          begin
           Typesend(w3)
            Wait(2000+random(1000))
             end;
         Begin
          If(IsfKeydown(4)=true) then
           begin
            Typesend(w4)
             Wait(2000+random(1000))
              end;
          Begin
           If(IsFKeyDown(7)) then
            Begin
    Wait(100+random(100))        
            LogInPlayer;
              end;
               end;
           Begin
            If(IsFKeyDown(8)) then
             Begin
    Wait(100+random(100))
              LogOut;
              end;
            end;
          end;
        end;
      end;
    end;

     begin
     ActivateClient;
     SetupSrl;
     DeclarePlayers;
     repeat
     autotlk;
     until(false)
    end.
    thanks the scar noob, for the avatar, it rocks!

    my sig owns

  15. #15
    Join Date
    Jan 2007
    Location
    Somewhere....
    Posts
    77
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Kk thanks guys

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Login.Scar changed yet not working.
    By faster789 in forum OSR Help
    Replies: 12
    Last Post: 12-04-2008, 08:17 PM
  2. AutoTyper
    By KoKouKo in forum RS3 Outdated / Broken Scripts
    Replies: 8
    Last Post: 03-30-2008, 11:11 PM
  3. Login functions not working
    By Metagen in forum OSR Help
    Replies: 4
    Last Post: 07-17-2007, 03:03 PM

Posting Permissions

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