First script..

[John]

i did but now there is an error, (look above your last post.)

Code requested. IGNORE THE MOUSECLICKS< MOUSE MOVE ECT,ect

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;

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, 10) then
  begin
    Mouse(x, y, 2, 2, false);
    ChooseOption('ope');
  end;
end;

procedure NextObstacle;
var x, y: integer;
begin
  if FindObj(x, y, 'bal', 2042174, 15) then
  begin
    Mouse(x, y, 2, 2, false);
    ChooseOption('bal');
  end;
  if not FindObj(x, y, 'Lad', 4477785, 15) then RopeSwing;

end;
 procedure NetClimb;
   var x, y: integer;
   begin
   if FindObj(x, y, 'tac', 3626091, 15) then
 begin
   Mouse(x, y, 2, 2, false);
    ChooseOption('tac');
    end;
 begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  RopeSwing;
  NextObstacle;
  NetClimb;
  end.

[lilcmp1]

Looks like you need one more "end;" for the procedure NetClimb

[John]

Looks like you need one more "end;" for the procedure NetClimb

worked but now the mouse is going every where.

[Griff]

Yeah you need the other end. And just a few other things: First, you should use proper standards, you can learn them here

Next, remember that you need to use not the first letter for the thing that you are finding. So instead of Lad, use adder.

If you need to climb back up, instead of

if not FindObj(x, y, 'Lad', 4477785, 15) then RopeSwing;

Go

if not FindObj(x, y, 'Lad', 4477785, 15) then Climb;

And you will need to make a "Climb" procedure.

[John]

Yeah you need the other end. And just a few other things: First, you should use proper standards, you can learn them here

Next, remember that you need to use not the first letter for the thing that you are finding. So instead of Lad, use adder.

If you need to climb back up, instead of

if not FindObj(x, y, 'Lad', 4477785, 15) then RopeSwing;

Go

if not FindObj(x, y, 'Lad', 4477785, 15) then Climb;

And you will need to make a "Climb" procedure.

would it still work how i have it? plus do you have msn? can we talk over it?