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.

---

Quote:

---

Originally Posted by Evlin

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. :duh:
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

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!

Quote:

---

Originally Posted by Dynamite

DO NOT USE THIS. :duh:
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

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.

Quote:

---

Originally Posted by Evlin

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 :p
Feedback can seem insulting sometimes, but they mean the best.

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

Quote:

---

Originally Posted by Evlin

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. :spongebob:

-Boom

Quote:

---

Originally Posted by akonowns

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?

Quote:

---

Originally Posted by Evlin

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.

Quote:

---

Originally Posted by Griff

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;

---

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

Quote:

---

Originally Posted by Griff

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

---

+ the color.

Quote:

---

Originally Posted by Griff

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.?

Quote:

---

Originally Posted by Dynamite

+ the color.

---

Oh I thought he changed it already, you're right :p

Quote:

---

Originally Posted by Evlin

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.

Quote:

---

Originally Posted by Griff

Oh I thought he changed it already, you're right :p


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?

Quote:

---

Originally Posted by Evlin

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.

Quote:

---

Originally Posted by Griff

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 :DD
what if i fall down(fail the rope swing?)

Quote:

---

Originally Posted by Evlin

yeah i changed it and played it, It swung the rope :DD
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.

Quote:

---

Originally Posted by Griff

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.

Quote:

---

Originally Posted by Evlin

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)

Quote:

---

Originally Posted by Griff

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.

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

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

Quote:

---

Originally Posted by cause

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.)

Quote:

---

Originally Posted by Evlin

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