Page 1 of 2 12 LastLast
Results 1 to 25 of 28

Thread: StayLogIn--By Haxal

  1. #1
    Join Date
    Nov 2006
    Location
    Canada, Montreal.
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default StayLogIn--By Haxal

    STAYLOGIN---BY HAXAL(T-KUAT)

    This is my first script I made for my self to stay login.

    This is simple script working with new version of scar 3.15 and new SRL#16.
    Enjoy=)

    What script does: Random right clicking on selected area. You can still chat... The script doesn't block chat functions.

    Version 1
    SCAR Code:
    //Script made by T-KUAT(Haxal)//
    program StayLogIn;
    {.include SRL/SRL.scar}
    begin
    repeat
     wait(50 + random(10000))
      RandomRClick;
     until false;
    end.

    Version 2
    SCAR Code:
    //By T-KUAT(Haxal)// ( Thanks to bEnJa for his help )
    program StayLogIn;
    {.include SRL/SRL.scar}

    procedure DeclarePlayers;

    begin
      HowManyPlayers := 1; // How many players
      CurrentPlayer := 0;  // Player will start
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name       := 'Username'; // Name of your account
      Players[0].Pass       := 'Password';  //Password (no need to enter)
      Players[0].Nick       := 'Nickname';  // Nick name 4-3 later
      Players[0].Active     :=  True;

     Writeln('Using '+IntToStr(HowManyPlayers)+' Player[s].');
    end;

    procedure StayLogin;
    begin
     wait(50 + random(1000))
     case Random(6) of
      0:RandomRClick;
      1:PickUpMouse;
      2:AlmostLogout;
      3:RandomMovement;
      4:BoredHuman;
      5:HoverSkill('Fishing', False); // You can change Fishing to any other skill

      end;
    end;

      procedure SetUp;
      begin
      SetupSRL;
      ActivateClient;
      end;

      begin
      SetUpSRL;
      DeclarePlayers;
      LoginPlayer;
      ActivateClient;
      repeat
      StayLogin;
     until false;
    end.

    I hope in future I can make something better than that =)

  2. #2
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Suggestions: You could make it a little less Routine/Bannable
    Add in some GetSkillInfo, TypeSend or Examine random things around you,
    Rotate Map, Change Angles etc...

    But good work
    Its better then being a filthy leecher!!

    SCAR Code:
    RandomMovement;
    SetAngle(True);
    SetAngle(False);

    case Random(5) of
      0:Talk:='hey dudes';
      1:Talk:='srl pwns rs';
      2:Talk:='blah blah'
      3,4,5:Talk:='im bored';
    end;
    TypeSend(Talk);
    Project: Welcome To Rainbow

  3. #3
    Join Date
    Nov 2006
    Location
    Canada, Montreal.
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes, I'm learning now =) I hope ill do better stuff. But i need some base...

    P.S. Idk why but my random movements doesn't work all the time...

    I just tried what you wrote and i got that error.[Error] (12657:3): Unknown identifier 'Talk' in script...

  4. #4
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    Define Talk as a string variable

    SCAR Code:
    var Talk: string;

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  5. #5
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    //Script made by T-KUAT(Haxal)//
    program StayLogIn;
    {.include SRL/SRL.scar}

    var
      Talk:string;
     
    begin
    repeat
     wait(50 + random(10000))
      case Random(5) of
        0: RandomRClick;
        1: RandomMovement;
        2: PickUpMouse;
        3: SetAngle(True);
        4: BoredHuman;
        5: AlmostLogout;
        6: HoverSkill('random',false);
        7:case Random(5) of
             0:begin
               Talk:='hey dudes';
               TypeSend(Talk);
             end;
             1:begin
               Talk:='srl pwns rs';
               TypeSend(Talk);
             end;
             2:begin
               Talk:='blah blah';
               TypeSend(Talk);
             end;
             3,4,5:begin
               Talk:='im bored';
               TypeSend(Talk);
             end;
           end;
      end;
     until false;
    end.

    Now you can make the script even better by changing the ratio of chance each option has of being done.
    eg/
    SCAR Code:
    case Random(13) of
        0,1,2: RandomRClick;
        3,4: RandomMovement;
        5: PickUpMouse;
        6: SetAngle(True);
        7,8,9: BoredHuman;
        10: Almost Logout;
        11,12,13: HoverSkill(random)
       end;
    Project: Welcome To Rainbow

  6. #6
    Join Date
    Mar 2008
    Location
    Indiana
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Shorter
    No need for Talk

    SCAR Code:
    //Script made by T-KUAT(Haxal)//
    program StayLogIn;
    {.include SRL/SRL.scar}

    begin
    repeat
     wait(50 + random(10000))
      case Random(5) of
        0: RandomRClick;
        1: RandomMovement;
        2: PickUpMouse;
        3: SetAngle(True);
        4: BoredHuman;
        5: AlmostLogout;
        6: HoverSkill('random',false);
        7: case Random(5) of
             0: TypeSend('hey dudes');
             1: TypeSend('srl pwns rs');
             2: TypeSend('blah blah');
             3,4,5: TypeSend('im bored');
            end;
       end;
     until(false);
    end.

  7. #7
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    d`oh! yeh go with smithsps's
    Project: Welcome To Rainbow

  8. #8
    Join Date
    Nov 2006
    Location
    Canada, Montreal.
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thx alot, from your short examples i learned alot =)

    Can you explain how VAR; works?


    Idk why but nothing works for me... my scar doesn't want to do the commands... My mouse dragging upstairs with very very slow speed.

  9. #9
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    to fix mouse dragging, do this;
    SCAR Code:
    SetUpSRL;
    before ANYTHING

    var is used to declare variables before you use them. it is for anything that is not a set value...
    eg
    "RoadColor" is a variable,
    "14868961" is not.

    eg

    you have a variable called Rounds, which is a number

    so you must have
    SCAR Code:
    var
      Rounds : integer;

    eg2/

    you have a word variable called Name

    you must do
    SCAR Code:
    var
      Name : string

    Other var simple var type is Boolean (which is True or False)

    Hope I helped, its pretty hard to explain
    Project: Welcome To Rainbow

  10. #10
    Join Date
    Nov 2006
    Location
    Canada, Montreal.
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ya i got it =)))
    i tryed to setup srl before... idk seems something doesn't really worked...

  11. #11
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Still Doesnt work..?

    Scripts Should Look like this...

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

    procedure Task;
    begin
      .....
    end;

    procedure Setup;
    begin
      SetUpSRL;
      ActivateClient;
      .....
    end;

    begin
      SetUp;
      Task;
    end;
    Project: Welcome To Rainbow

  12. #12
    Join Date
    Nov 2006
    Location
    Canada, Montreal.
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Man i set up it... and still got same problem mouse just slide with very very slow speed... (bugged) Indk what to do =((((

  13. #13
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    send me your script via pm, ill fix it up for you
    Project: Welcome To Rainbow

  14. #14
    Join Date
    Nov 2006
    Location
    Canada, Montreal.
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its doesn't work just when i use other functions of anitban.scar (boredhuman;/ randommovements;/etc.)


    I think i found it... every time i try to setupsrl its says ( File access error )


    there is really something wrong with my stuff... its was so fickin easy to install all that shit before...


    OK i found the problem, folder of scar and all sub folders are read only i tryed to remove read only mark its come back every time.SRL file is not read only but its still right ( File access error )

  15. #15
    Join Date
    Nov 2006
    Location
    Canada, Montreal.
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OK i finally go it =)))

    I setup the SRL but problem is still there

  16. #16
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can you copy the exact script you got so far in here?
    And Copy Paste what the error says.

    ps. Use the Edit button next time, dont double post
    Project: Welcome To Rainbow

  17. #17
    Join Date
    Nov 2006
    Location
    Canada, Montreal.
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Script is the one smith made and i don't get any errors... Script just kinda freeze and mouse begin to slide up with very slow speed.
    SCAR Code:
    //Script made by T-KUAT(Haxal)//
    program StayLogIn;
    {.include SRL/SRL.scar}
     
    begin
    repeat
     wait(50 + random(10000))
      case Random(5) of
        0: RandomRClick;
        1: RandomMovement;
        2: PickUpMouse;
        3: SetAngle(True);
        4: BoredHuman;
        5: AlmostLogout;
        6: HoverSkill('random',false);
        7: case Random(5) of
             0: TypeSend('hey dudes');
             1: TypeSend('srl pwns rs');
             2: TypeSend('blah blah');
             3,4,5: TypeSend('im bored');
            end;
       end;
     until(false);
    end.

    AlmostLogout function doesn't work
    BoredHuman function doesn't work
    PickupMouse function doesn't work
    ETC.
    The only working is RandomClick

  18. #18
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    //Script made by T-KUAT(Haxal)//
    //Edited by: bEnJa
    program StayLogIn;
    {.include SRL/SRL.scar}

    procedure Main;
      begin
      wait(50 + random(10000))
      case Random(7) of
          0: RandomRClick;
          1: RandomMovement;
          2: PickUpMouse;
          3: SetAngle(True);
          4: BoredHuman;
          5: AlmostLogout;
          6: HoverSkill('random',false);
          7: case Random(5) of
            0: TypeSend('hey dudes');
            1: TypeSend('srl pwns rs');
            2: TypeSend('blah blah');
            3,4,5: TypeSend('im bored');
          end;
       end;
    end;

    procedure Setup;
    begin
      SetupSRL; // THIS IS VITAL!!!!!!
      ActivateClient;
    end;

    begin
      Setup;
      repeat
        Main;
      until false; //even though endless loops are bad, this is just to teach you how to get the basics of your script going

    Post anything you dont undestand :P
    SetupSRL is a necessity to every script if you are using procedures/functions from the includes
    Project: Welcome To Rainbow

  19. #19
    Join Date
    Nov 2006
    Location
    Canada, Montreal.
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thx alot=))) Can i write a later somewhere to recommend you?( Want you to get higher rank)

    Ok, little error here. (In my script but got same in yours)

    SCAR Code:
    //By T-KUAT(Haxal)//
    program StayLogIn;
    {.include SRL/SRL.scar}
    procedure StayLogin;
    begin
     wait(50 + random(1000))
     case Random(5) of
      0:RandomRClick;
      1:PickUpMouse;
      2:AlmostLogout;
      3:RandomMovement;
      4:BoredHuman;
      5:SayCurrentLevels('Fishing');
      end;
    end;

      procedure SetUp;
      begin
      SetupSRL;
      ActivateClient;
      end;
     
      begin
      SetUpSRL;
      repeat
      StayLogin;
     until false;
    end.

    ERROR: New client targeted
    Successfully compiled (1368 ms)
    SRL Compiled in 0 msec
    [Runtime Error] : Out Of Range in line 1211 in script F:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar

    [Runtime Error] : Out Of Range in line 140 in script F:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiBan.scar

    Can't get my fishing working.

  20. #20
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    Quote Originally Posted by benjaa View Post
    SCAR Code:
    //Script made by T-KUAT(Haxal)//
    //Edited by: bEnJa
    program StayLogIn;
    {.include SRL/SRL.scar}

    procedure Main;
      begin
      wait(50 + random(10000))
      case Random(7) of
          0: RandomRClick;
          1: RandomMovement;
          2: PickUpMouse;
          3: SetAngle(True);
          4: BoredHuman;
          5: AlmostLogout;
          6: HoverSkill('random',false);
          7: case Random(5) of
            0: TypeSend('hey dudes');
            1: TypeSend('srl pwns rs');
            2: TypeSend('blah blah');
            3,4,5: TypeSend('im bored');
          end;
       end;
    end;

    procedure Setup;
    begin
      SetupSRL; // THIS IS VITAL!!!!!!
      ActivateClient;
    end;

    begin
      Setup;
      repeat
        Main;
      until false; //even though endless loops are bad, this is just to teach you how to get the basics of your script going

    Post anything you dont undestand :P
    SetupSRL is a necessity to every script if you are using procedures/functions from the includes
    Random(7) Returns anything between 0 and 6.



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

  21. #21
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    does it really Wizzup?? i thought it was 0 to 7 ...

    thankyou very much
    Project: Welcome To Rainbow

  22. #22
    Join Date
    Nov 2006
    Location
    Canada, Montreal.
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    //By T-KUAT(Haxal)//
    program StayLogIn;
    {.include SRL/SRL.scar}
    procedure StayLogin;
    begin
     wait(50 + random(1000))
     case Random(5) of
      0:RandomRClick;
      1:PickUpMouse;
      2:AlmostLogout;
      3:RandomMovement;
      4:BoredHuman;
      5:SayCurrentLevels('Fishing');
      end;
    end;
     
      procedure SetUp;
      begin
      SetupSRL;
      ActivateClient;
      end;
     
      begin
      SetUpSRL;
      repeat
      StayLogin;
     until false;
    end.

    ERROR: New client targeted
    Successfully compiled (1368 ms)
    SRL Compiled in 0 msec
    [Runtime Error] : Out Of Range in line 1211 in script F:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar

    [Runtime Error] : Out Of Range in line 140 in script F:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiBan.scar

    Can't get my fishing working.

  23. #23
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Its out of range because you dont have Players[0].Name:= or Players[0].Nick

    This is all usually delcared in a procedure called DeclarePlayers at the start.

    SCAR Code:
    //By T-KUAT(Haxal)//
    program StayLogIn;
    //Edited by: bEnJaa
    {.include SRL/SRL.scar}

    const
      StartPlayer = 0;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;                       // CHANGE: Set Number of Players here.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := StartPlayer;

      Players[0].Name := '';            //CHANGE: Username
      Players[0].Pass := '';          //CHANGE: Password
      Players[0].Nick := '';                 //CHANGE: 3-4 consecutive letters of Username(NOT First letter)
      Players[0].Active := True;                 //CHANGE: Are you going to use this player?
    end;

    procedure StayLogin;
    begin
     wait(50 + random(1000))
     case Random(5) of
      0:RandomRClick;
      1:PickUpMouse;
      2:AlmostLogout;
      3:RandomMovement;
      4:BoredHuman;
      5:SayCurrentLevels('Fishing');
      end;
    end;

    procedure SetUp;
    begin
      SetupSRL;
      ActivateClient;
    end;

    begin
      SetUpSRL;
      repeat
        StayLogin;
      until false;
    end.
    Project: Welcome To Rainbow

  24. #24
    Join Date
    Nov 2006
    Location
    Canada, Montreal.
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Runtime Error] : Out Of Range in line 140 in script F:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiBan.scar

    Hmmm seems that its doesn't worked.

    SCAR Code:
    //By T-KUAT(Haxal)//
    program StayLogIn;
    {.include SRL/SRL.scar}

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

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

     Writeln('Using '+IntToStr(HowManyPlayers)+' Player[s].');
    end;

    procedure StayLogin;
    begin
     wait(50 + random(1000))
     case Random(6) of
      0:RandomRClick;
      1:PickUpMouse;
      2:AlmostLogout;
      3:RandomMovement;
      4:BoredHuman;
      5:SayCurrentLevels('fishing');
      end;
    end;

      procedure SetUp;
      begin
      SetupSRL;
      ActivateClient;
      end;
     
      begin
      SetUpSRL;
      repeat
      StayLogin;
     until false;
    end.

    WHY?>>>> Line 17: [Error] (12660:4): period ('.') expected in script F:\Program Files\...

    Why he needs dot?

    +


    error of before that still there:

    [Runtime Error] : Out Of Range in line 1211 in script F:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar

  25. #25
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SHIT...my bad...

    SCAR Code:
    begin
      SetUpSRL;
      DeclarePlayers; //forgot to call :D
      ActivateClient;
      LoginPlayer;
      repeat
      StayLogin;
     until false;
    end.

    WHY? Line 17: [Error] (12660:4): period ('.') expected in script F:\Program Files\...
    SCAR Code:
    procedure DeclarePlayers;//<<neccessary
    begin
      HowManyPlayers := 1;
      CurrentPlayer := 0;
      NumberOfPlayers(HowManyPlayers);
     
      Players[0].Name       := 'Name';
      Players[0].Pass       := 'Pass';
      Players[0].Nick       := 'Name';
      Players[0].Active     :=  True;
     
     Writeln('Using '+IntToStr(HowManyPlayers)+' Player[s].');
    end;
    Project: Welcome To Rainbow

Page 1 of 2 12 LastLast

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
  •