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

Thread: First script..

  1. #1
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default First script..

    Well since Reflection went down i had to do things legit, then i got to getting agility up.... I don't like it at all. So i watched yohojos Tut for begginers and i made this for the Barbarian outpost. It ONLY clicks on what it needs to advance, but i don't know what to add in to get out of the pit if he fails an obstacle, plus the first obstacle is so thin(the rope one) It always ends up moving off the rope and missing it all together, therefor mucking up the whole script. So my question is, What should i add in to make it work stably, and how can i add in anti-ban?(like randomizing the clicks on some obstacles)
    Any help would be greatly appreciated
    And A thanks to MAIN from Sythe for showing me this site.

    UPDATED CODE still go a problem at line 73 : [Error] (74:5): Identifier expected at line 73
    Compiling failed.
    program Agilitycourse;
    {$i srl/srl.scar}

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

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

    Code:
    procedure Course;
    begin;
      MoveMouse ( 255, 165);
      ClickMouse (255, 233, 1);
      Wait (5999);
      MoveMouse (228, 302);
      ClickMouse (255, 302, 1);
      Wait (12500);
      MoveMouse (142, 168);
      ClickMouse (130, 163, 1);
      Wait (5000);
      MoveMouse (195, 139);
      ClickMouse (195, 139, 1);
      Wait (10000);
      MoveMouse (256, 203);
      ClickMouse (256, 203, 1);
      Wait (4000);
      MoveMouse (312, 19);
      ClickMouse (312, 19, 1);
      Wait (7000);
      MoveMouse (386, 94);
      ClickMouse (386, 94, 1);
      Wait (7250);
      MoveMouse (435, 168);
      ClickMouse (435, 168, 1);
      Wait (7000);
      MoveMouse (456, 148);
      ClickMouse (456, 148, 1);
      Wait (4000);
      MoveMouse (372, 202);
      ClickMouse (372, 202, 1);
      Wait (4000);
    
      end;
      procedure RopeSwing;
    var x, y: integer;
    begin
      if FindObj(x, y, 'ope', 272431, 3) then
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('ope');
        Wait (7000)
      end;
    end;
    
    procedure NextObstacle;
    var x, y: integer;
    begin
      if FindObj(x, y, 'og', 1910844, 4) then
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('og');
        Wait (13000)
      end;
      if not FindObj(x, y, 'add', 4543578, 2) then RopeSwing;
       Mouse(x, y, 2, 2, false);
        ChooseOption('add');
        then RopeSwing; <=== Get the error here.
    end;
     procedure NetClimb;
       var x, y: integer;
       begin
       if FindObj(x, y, 'tac', 3626091, 3) then
     begin
       Mouse(x, y, 2, 2, false);
        ChooseOption('tac');
        end;
       end;
    
     begin
     SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      RopeSwing;
      NextObstacle;
      NetClimb;
      end.
    Last edited by John; 12-26-2011 at 03:24 AM.

  2. #2
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    Quote Originally Posted by Evlin View Post
    Well since Reflection went down i had to do things legit, then i got to getting agility up.... I don't like it at all. So i watched yohojos Tut for begginers and i made this for the Barbarian outpost. It ONLY clicks on what it needs to advance, but i don't know what to add in to get out of the pit if he fails an obstacle, plus the first obstacle is so thin(the rope one) It always ends up moving off the rope and missing it all together, therefor mucking up the whole script. So my question is, What should i add in to make it work stably, and how can i add in anti-ban?(like randomizing the clicks on some obstacles)
    Any help would be greatly appreciated
    And A thanks to MAIN from Sythe for showing me this site.

    Code:
    program Agilitycourse;
    procedure Course;
    begin;
     MoveMouse ( 255, 165);
     ClickMouse (255, 233, 1);
     Wait (5999);
     MoveMouse (228, 302);
     ClickMouse (255, 302, 1);
     Wait (12500);
     MoveMouse (142, 168);
     ClickMouse (130, 163, 1);
     Wait (5000);
     MoveMouse (195, 139);
     ClickMouse (195, 139, 1);
     Wait (10000);
     MoveMouse (256, 203);
     ClickMouse (256, 203, 1);
     Wait (4000);
     MoveMouse (312, 19);
     ClickMouse (312, 19, 1);
     Wait (7000);
     MoveMouse (386, 94);
     ClickMouse (386, 94, 1);
     Wait (7250);
     MoveMouse (435, 168);
     ClickMouse (435, 168, 1);
     Wait (7000);
     MoveMouse (456, 148);
     ClickMouse (456, 148, 1);
     Wait (4000);
     MoveMouse (372, 202);
     ClickMouse (372, 202, 1);
     Wait (4000)
    
      end;
     begin
     repeat
        course;
        until(false);
    
     end.
    DO NOT USE THIS.
    1. You will get banned for no randomization co-ordinate clicking.
    2. As soon as you move the compass or angle a tiny bit, your clicking will be out.

    Look up DTMs, TPAs etc.
    But most of all, look up MMouse and Mouse.

    -Boom

  3. #3
    Join Date
    Mar 2007
    Location
    Alberta, Canada
    Posts
    1,780
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Try using some object finding, instead if just Mouse functions. That could allow you to incorporate failsafes and antibanning and things like that. Check out my Simba beginners tutorial, I think it could help you out.

    And by the way its nice to see a newcomer scripting instead of just leeching!

  4. #4
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by Dynamite View Post
    DO NOT USE THIS.
    1. You will get banned for no randomization co-ordinate clicking.
    2. As soon as you move the compass or angle a tiny bit, your clicking will be out.

    Look up DTMs, TPAs etc.
    But most of all, look up MMouse and Mouse.

    -Boom
    I am well aware, please don't insult a first time scripter for making a mistake.
    Quote Originally Posted by Griff View Post
    Try using some object finding, instead if just Mouse functions. That could allow you to incorporate failsafes and antibanning and things like that. Check out my Simba beginners tutorial, I think it could help you out.

    And by the way its nice to see a newcomer scripting instead of just leeching!
    thank you Griff for posting something useful.
    Last edited by John; 12-25-2011 at 11:59 PM.

  5. #5
    Join Date
    Mar 2007
    Location
    Alberta, Canada
    Posts
    1,780
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by Evlin View Post
    I am well aware, please don't insult a first time scripter for making a mistake.
    He was just making sure you didn't get your character banned
    Feedback can seem insulting sometimes, but they mean the best.

  6. #6
    Join Date
    Nov 2011
    Location
    England
    Posts
    3,072
    Mentioned
    296 Post(s)
    Quoted
    1094 Post(s)

    Default

    Take a look into object finding, you basically created a ghost mouse if im correct? Gets the job done I assume but I don't think your account would last long :P

  7. #7
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    Quote Originally Posted by Evlin View Post
    I am well aware, please don't insult a first time scripter for making a mistake.
    Oh, I am ever so sorry for worrying about your character and trying to improve your scripting skills.

    -Boom

  8. #8
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by akonowns View Post
    Take a look into object finding, you basically created a ghost mouse if im correct? Gets the job done I assume but I don't think your account would last long :P
    could anyone link me to what he means?

  9. #9
    Join Date
    Mar 2007
    Location
    Alberta, Canada
    Posts
    1,780
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by Evlin View Post
    could anyone link me to what he means?
    There are many different types of object finding. The simplest of which would be just a FindObj (which you can find out in the tutorial I linked you to), but you should work your way up to TPAs, which you can find out about in tutorial island.

  10. #10
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by Griff View Post
    There are many different types of object finding. The simplest of which would be just a FindObj (which you can find out in the tutorial I linked you to), but you should work your way up to TPAs, which you can find out about in tutorial island.
    In your tut it uses

    Code:
    procedure ChopTree;
    var x, y: integer;
    begin
      if FindObj(x, y, 'hop', 1785912, 35) then
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('hop');
      end;
    end;
    Would i change that to somthing like ope For Rope swing?
    so it would become:
    Code:
    procedure Rope Swing;
    var x, y: integer;
    begin
      if FindObj(x, y, 'ope, 1785912, 35) then
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('ope');
      end;
    end;

  11. #11
    Join Date
    Mar 2007
    Location
    Alberta, Canada
    Posts
    1,780
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Exactly! The tolerance might need some adjusting, but other than that it should work!

  12. #12
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    Quote Originally Posted by Griff View Post
    Exactly! The tolerance might need some adjusting, but other than that it should work!
    + the color.

  13. #13
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by Griff View Post
    Exactly! The tolerance might need some adjusting, but other than that it should work!
    so if i were to run this it should:
    -login
    -cross the rope swing.
    - then stop.?

  14. #14
    Join Date
    Mar 2007
    Location
    Alberta, Canada
    Posts
    1,780
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by Dynamite View Post
    + the color.
    Oh I thought he changed it already, you're right

    Quote Originally Posted by Evlin View Post
    so if i were to run this it should:
    -login
    -cross the rope swing.
    - then stop.?
    If it had that plus declare players and all the usual stuff, then yes.

  15. #15
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by Griff View Post
    Oh I thought he changed it already, you're right


    If it had that plus declare players and all the usual stuff, then yes.
    how do i change the tolerence, where is the number i need to changed?

  16. #16
    Join Date
    Mar 2007
    Location
    Alberta, Canada
    Posts
    1,780
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by Evlin View Post
    how do i change the tolerence, where is the number i need to changed?
    The tolerance is the last number in FindObj, so the 35 in the example.

  17. #17
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by Griff View Post
    The tolerance is the last number in FindObj, so the 35 in the example.
    yeah i changed it and played it, It swung the rope D
    what if i fall down(fail the rope swing?)

  18. #18
    Join Date
    Mar 2007
    Location
    Alberta, Canada
    Posts
    1,780
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by Evlin View Post
    yeah i changed it and played it, It swung the rope D
    what if i fall down(fail the rope swing?)
    Nice!

    If you fell, you would have to do an if... then statement. So for your next obstacle, do the same thing as the first like if it finds it then click, but if it doesn't find it (if not), then you would assume it fell down, so you would need to do go back to the start and do it again.

  19. #19
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by Griff View Post
    Nice!

    If you fell, you would have to do an if... then statement. So for your next obstacle, do the same thing as the first like if it finds it then click, but if it doesn't find it (if not), then you would assume it fell down, so you would need to do go back to the start and do it again.
    could you give me an example in code? it would help me grasp what you mean.

  20. #20
    Join Date
    Mar 2007
    Location
    Alberta, Canada
    Posts
    1,780
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by Evlin View Post
    could you give me an example in code? it would help me grasp what you mean.
    Simba Code:
    procedure RopeSwing;
    var x, y: integer;
    begin
      if FindObj(x, y, 'ope', 1785912, 35) then
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('ope');
      end;
    end;

    procedure NextObstacle;
    var x, y: integer;
    begin
      if FindObj(x, y, 'ope', 1785912, 35) then
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('ope');
      end;
      if not FindObj(x, y, 'ope', 1785912, 35) then RopeSwing;
    end;

    begin
      RopeSwing
      NextObstacle;
    end.

    This is assuming you can immediately try the rope swing again, not having climb up something. (I don't know what happens when you fail)

  21. #21
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by Griff View Post
    Simba Code:
    procedure RopeSwing;
    var x, y: integer;
    begin
      if FindObj(x, y, 'ope', 1785912, 35) then
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('ope');
      end;
    end;

    procedure NextObstacle;
    var x, y: integer;
    begin
      if FindObj(x, y, 'ope', 1785912, 35) then
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('ope');
      end;
      if not FindObj(x, y, 'ope', 1785912, 35) then RopeSwing;
    end;

    begin
      RopeSwing
      NextObstacle;
    end.

    This is assuming you can immediately try the rope swing again, not having climb up something. (I don't know what happens when you fail)
    When you fail you fall into a pit underrond you have to go back up the ladder in the pit then , walk back to the ropeswing.

  22. #22
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    keep getting this: [Error] (87:6): Identifier expected at line 86
    Compiling failed.
    Line 86 is the end.

  23. #23
    Join Date
    Feb 2006
    Location
    Canada
    Posts
    2,254
    Mentioned
    21 Post(s)
    Quoted
    238 Post(s)

    Default

    So then you will have to create a FindObj for the ladder.
    EDIT: post your code

  24. #24
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by cause View Post
    So then you will have to create a FindObj for the ladder.
    EDIT: post your code
    i did but now there is an error, (look above your last post.)

  25. #25
    Join Date
    Dec 2011
    Posts
    392
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Evlin View Post
    keep getting this: [Error] (87:6): Identifier expected at line 86
    Compiling failed.
    Line 86 is the end.
    See if adding a semicolon after ropeswing helps

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
  •