SRL Archive - OSR Help

Compiling Fail (Unknown identifier 'GetColorToleranceSpeeGetColorToleranceSpeedd'

Incanumix

2013-03-01 17:39:37

can anyone help me fix this error?

Compiling failed.
[Error] (751:13): Unknown identifier 'GetColorToleranceSpeeGetColorToleranceSpeedd' at line 750
Compiling failed.

Eduard

2013-03-01 17:45:57

post the script using the simba tags.

I think its just a mistype but could be anything.

Incanumix

2013-03-01 17:51:35

From: Eduard
post the script using the simba tags.

I think its just a mistype but could be anything.

program AgilityP07Test;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}

//Made By Rules

var
x, y, logcol, netcol, treecol, ropecol, branchcol, climbcol, pipecol:integer;

Procedure P07_DeclarePlayer;
begin
  P07_PlayerName := '';
  P07_PlayerPass := '';
end;


procedure Log;
begin
  P07_MakeCompassSouth;
  P07_MakeCameraAngleHigh;
  logcol := 538974 Writeln('Walking Log');
    if P07_FindObjCustom(x, y, ['Walk', 'lk-acr', 'Log', 'og bal'], [logcol, 540007, 534854], 3) then
    begin
      wait(randomrange(100, 200));
      ClickMouse2(mouse_right);
      wait(randomrange(100, 200));
      P07_ChooseOptionMulti(['alk-acr']);
    end;
  end;

procedure Net;
begin
  P07_MakeCameraAngleHigh;
  P07_MakeCompassSouth;
  netcol := 132102 Writeln('climbing net');
    if P07_FindObjCustom(x, y, ['Climb', 'mb-ove', 'Obstacle'], [netcol], 5) then
    begin
      wait(randomrange(500, 1000));
      ClickMouse2(mouse_left);
    end;
  end;

procedure Tree;
begin
  P07_MakeCameraAngleLow;
  P07_MakeCompassEast;
  treecol := 1525855 Writeln('climbing branch');
    if P07_FindObj(x, y, 'Climb', treecol, 5) then
    begin
      wait(randomrange(100, 200));
      ClickMouse2(mouse_left);
    end;
  end;

procedure Rope;
begin
  P07_MakeCameraAngleHigh;
  P07_MakeCompassSouth;
  ropecol := 6063267 Writeln('Walk Rope');
    if P07_FindObjCustom(x, y, ['Walk', 'lk-on'], [ropecol, 5799581], 5) then
    begin
      wait(1000);
      ClickMouse2(mouse_left);
    end;
  end;


procedure Branch;
begin
  P07_MakeCameraAngleHigh;
  P07_MakeCompassNorth;
  branchcol := 4354956 Writeln('Climb Branch');
    if P07_FindObj(x, y, 'Climb', branchcol, 5) then
    begin
      wait(randomrange(100, 200));
      ClickMouse2(mouse_left);
    end;
  end;

procedure Climb;
begin
  P07_MakeCameraAngleLow;
  climbcol := 935537 Writeln('Climb net');
  if P07_FindObj(x, y, 'Climb', climbcol, 5) then
    begin
      wait(randomrange(100, 200));
      ClickMouse2(mouse_left);
    end;
  end;

 procedure Pipe;
begin
  P07_MakeCameraAngleHigh;
  pipecol := 7697790 Writeln('Squeeze Pipe');
    if P07_FindObj(x, y, 'Squeeze', pipecol, 5) then
    begin
      ClickMouse2(mouse_right);
      wait(randomrange(100, 200));
      P07_ChooseOptionMulti(['eze-thro']);
      wait(randomrange(600, 1000));
    end;
  end;

Procedure PipeD;
var
  DTM_pipe: integer;
begin
  P07_MakeCameraAngleHigh;
  DTM_pipe := DTMFromString('m1gAAAHic42JgYOAHYmkglgNiBSCWBWI+BghgBGIWIBYAYmEgZgJiHqh6JSiWAWJBqDoQqMjPY4iPiGCwMjNjKMvNYSjKzGSoKiwE45iwMLBYTmoqAytQrRERmJFIjAAAlI8PFw==');
  ClickDTMRotatedIn(DTM_pipe, MSX1, MSY1, MSX2, MSY2, - Pi, Pi, Pi / 30, [], mouse_Left);
  WriteLn('Found Pipe');
  Wait(2500);
  while (isMoving) do
    wait(500);
  FreeDTM(DTM_pipe);
end;




procedure WalktoLog;
var
  DTM_log: integer;
begin
  DTM_log := DTMFromString('mWAAAAHicY2FgYGAFYl4GCACx2YCYA4i5oGI8zFwoGB0womEQAAAgmACc');
  Wait(2000);
    Repeat
  ClickDTMRotatedIn(DTM_log, MMX1, MMY1, MMX2, MMY2, - Pi, Pi, Pi / 30, [], mouse_Left);
    Until(P07_DidRedClick);
  WriteLn('Found DTM');
  Wait(2500);
  while (isMoving) do
    wait(500);
  P07_MakeCompassSouth;
  FreeDTM(DTM_log);
end;

begin
  P07_DeclarePlayer;
  SetupP07Include;
  //ActivateClient;
  Repeat
  Repeat
    wait(randomrange(100, 200));
    Log;
  Until(P07_DidRedClick);
    Wait(4000);
      Net;
      Wait(4000);
      Repeat
        wait(randomrange(100, 200));
        Tree;
      Until(P07_DidRedClick);
        Wait(3500);
        Repeat
          wait(randomrange(100, 200));
          Rope;
        Until(P07_DidRedClick);
          Wait(6000);
          Repeat
            wait(randomrange(100, 200));
            Branch;
          Until(P07_DidRedClick);
             Wait(4000);
             Repeat
                wait(randomrange(100, 200));
                Climb;
             Until(P07_DidRedClick);
                 Wait(4000);
                 Repeat
                  PipeD;
                  Wait(2000);
                 Until(FindColorTolerance(X, Y, 2906031, MSX1, MSY1, MSX2, MSY2, 3));
                    WalktoLog;
                    Wait(2000);
  Until(Not P07_LoggedIn);
end.

Eduard

2013-03-01 17:59:41

try this and post errors, it compiles from my simba.


program AgilityP07Test;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}

var
  x, y, logcol, netcol, treecol, ropecol, branchcol, climbcol, pipecol: integer;

procedure P07_DeclarePlayer;
begin
  P07_PlayerName := '';
  P07_PlayerPass := '';
end;

procedure Log;
begin
  P07_MakeCompassSouth;
  P07_MakeCameraAngleHigh;
  logcol := 538974;
  Writeln('Walking Log');
  if P07_FindObjCustom(x, y, ['Walk', 'lk-acr', 'Log', 'og bal'], [logcol, 540007, 534854], 3) then
  begin
    wait(randomrange(100, 200));
    ClickMouse2(mouse_right);
    wait(randomrange(100, 200));
    P07_ChooseOptionMulti(['alk-acr']);
  end;
end;

procedure Net;
begin
  P07_MakeCameraAngleHigh;
  P07_MakeCompassSouth;
  netcol := 132102;
  Writeln('climbing net');
  if P07_FindObjCustom(x, y, ['Climb', 'mb-ove', 'Obstacle'], [netcol], 5) then
  begin
    wait(randomrange(500, 1000));
    ClickMouse2(mouse_left);
  end;
end;

procedure Tree;
begin
  P07_MakeCameraAngleLow;
  P07_MakeCompassEast;
  treecol := 1525855;
  Writeln('climbing branch');
  if P07_FindObj(x, y, 'Climb', treecol, 5) then
  begin
    wait(randomrange(100, 200));
    ClickMouse2(mouse_left);
  end;
end;

procedure Rope;
begin
  P07_MakeCameraAngleHigh;
  P07_MakeCompassSouth;
  ropecol := 6063267;
  Writeln('Walk Rope');
  if P07_FindObjCustom(x, y, ['Walk', 'lk-on'], [ropecol, 5799581], 5) then
  begin
    wait(1000);
    ClickMouse2(mouse_left);
  end;
end;

procedure Branch;
begin
  P07_MakeCameraAngleHigh;
  P07_MakeCompassNorth;
  branchcol := 4354956;
  Writeln('Climb Branch');
  if P07_FindObj(x, y, 'Climb', branchcol, 5) then
  begin
    wait(randomrange(100, 200));
    ClickMouse2(mouse_left);
  end;
end;

procedure Climb;
begin
  P07_MakeCameraAngleLow;
  climbcol := 935537;
  Writeln('Climb net');
  if P07_FindObj(x, y, 'Climb', climbcol, 5) then
  begin
    wait(randomrange(100, 200));
    ClickMouse2(mouse_left);
  end;
end;

procedure Pipe;
begin
  P07_MakeCameraAngleHigh;
  pipecol := 7697790;
  Writeln('Squeeze Pipe');
  if P07_FindObj(x, y, 'Squeeze', pipecol, 5) then
  begin
    ClickMouse2(mouse_right);
    wait(randomrange(100, 200));
    P07_ChooseOptionMulti(['eze-thro']);
    wait(randomrange(600, 1000));
  end;
end;

procedure PipeD;
var
  DTM_pipe: integer;
begin
  P07_MakeCameraAngleHigh;
  DTM_pipe := DTMFromString('m1gAAAHic42JgYOAHYmkglgNiBSCWBWI+BghgBGIWIBYAYmEgZgJiHqh6JSiWAWJBqDoQqMjPY4iPiGCwMjNjKMvNYSjKzGSoKiwE45iwMLBYTmoqAytQrRERmJFIjAAAlI8PFw==');
  ClickDTMRotatedIn(DTM_pipe, MSX1, MSY1, MSX2, MSY2, - Pi, Pi, Pi / 30, [], mouse_Left);
  WriteLn('Found Pipe');
  Wait(2500);
  while (isMoving) do
    wait(500);
  FreeDTM(DTM_pipe);
end;

procedure WalktoLog;
var
  DTM_log: integer;
begin
  DTM_log := DTMFromString('mWAAAAHicY2FgYGAFYl4GCACx2YCYA4i5oGI8zFwoGB0womEQAAAgmACc');
  Wait(2000);
  repeat
    ClickDTMRotatedIn(DTM_log, MMX1, MMY1, MMX2, MMY2, - Pi, Pi, Pi / 30, [], mouse_Left);
  until (P07_DidRedClick);
  WriteLn('Found DTM');
  Wait(2500);
  while (isMoving) do
    wait(500);
  P07_MakeCompassSouth;
  FreeDTM(DTM_log);
end;

begin
  P07_DeclarePlayer;
  SetupP07Include;
  repeat
    repeat
      wait(randomrange(100, 200));
      Log;
    until (P07_DidRedClick);
    Wait(4000);
    Net;
    Wait(4000);
    repeat
      wait(randomrange(100, 200));
      Tree;
    until (P07_DidRedClick);
    Wait(3500);
    repeat
      wait(randomrange(100, 200));
      Rope;
    until (P07_DidRedClick);
    Wait(6000);
    repeat
      wait(randomrange(100, 200));
      Branch;
    until (P07_DidRedClick);
    Wait(4000);
    repeat
      wait(randomrange(100, 200));
      Climb;
    until (P07_DidRedClick);
    Wait(4000);
    repeat
      PipeD;
      Wait(2000);
    until (FindColorTolerance(X, Y, 2906031, MSX1, MSY1, MSX2, MSY2, 3));
    WalktoLog;
    Wait(2000);
  until (not P07_LoggedIn);
end.

Incanumix

2013-03-01 18:10:33

Investigated a little deeper and turns out I had to force update my client.
Thanks for help Eduard