SRL Archive - RS3 Outdated / Broken Scripts

L0ser's Gnome Agility Course

loser69

2012-01-13 12:31:43

L0ser's Gnome Agility Course

Start the script around here so it can see the log.

The script relies enitrely on the flow of procedures so if one procedure fails the others fail however sometimes it manages to recover itself.

If it does happen to fail then restart the script from the start log.

Couldn't be bothered adding antibans or progressreport(to be honest don't even know how to).

Issues:
Gets stuck at ropewalk if angle isn't right.
script messes up if someone else is using the pipe.

Feedback appreciated.

Edit: THIS SCRIPT IS TERRIBLE USE AT YOUR OWN RISK.

chance333

2012-01-13 15:14:58

oh my god, thank you

smart wont start because of target page?

hhhzzzarn

2012-01-13 15:54:15

Update your script to SRL5:

Change '.SCAR' to '.simba' so it appears as

{$include srl/srl/misc/smart.simba}
{$include srl/srl.simba}

You also have to change change the setNorth and setAngle methods. Read the SRL FAQ for "unable to find srl.

Here is an updated version

 program agility;

{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i SRL\SRL\Misc\Debug.simba}
//{$i SRL\SRL\Misc\Stats.simba}



Const
 SRLStats_Username = '';// Your SRL Stats Username
 SRLStats_Password = ''; // Your SRL Stats Password
 BreakEvery        = 120;     //How Many Minutes To Break After
 BreakFor          = 10;      //How Long To Break For
 Version           = '';




Var
  runlog, x, y, StartTime: Integer;




procedure DeclarePlayers;
  Var i:integer;
Begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;
  For I := 0 to (1-1) Do
    Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

  With Players[0] Do
  Begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Nick        := ''; //Player nickname - 3-4 letters of Player username.
    Active      := True;

  End;

End;

Procedure StatsGuise(wat:String);
Begin
  Status(wat);
  Disguise(wat);
End;

Procedure Antiban;
Begin
  Case Random(250) Of
    0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Agility', False) GameTab(28) End;
    1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
    2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
    3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
    4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
    5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
  End;
End;
Procedure FailSafe(Reason:String);
Begin
  Players[CurrentPlayer].Loc:=Reason;
  Logout;
  Stats_Commit;
  TerminateScript;
End;

function logcolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.07, 0.41);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 932196, MSX1, MSY1, MSX2, MSY2, 3);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 5.12) and (X <= 8.69) and (Y >= 4.31) and (Y <= 7.28) and (Z >= 0.89) and (Z <= 1.46) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

procedure crosslog;

begin

  SetAngle(SRL_ANGLE_HIGH)
  if FindObj( x, y, 'alance', logcolor ,2) then
  writeln ('found log');
    begin
    if IsUpText('alance')   then
      begin
      mouse( x, y, 5, 5, true);
      wait(6500)

  end;
      end;

end;

function obstaclenetcolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.18, 12.34);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 1982047, MSX1, MSY1, MSX2, MSY2, 2);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 5.02) and (X <= 7.71) and (Y >= 4.85) and (Y <= 6.45) and (Z >= 1.23) and (Z <= 3.54) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;


procedure climbnet;

begin

// if FindObj( x, y, 'bstacle', obstaclenetcolor ,2) then
// writeln ('found net');
//   begin
//   if IsUpText('bstacle')   then
//    begin
//      mouse( x, y, 5, 5, true);

  SetAngle(SRL_ANGLE_HIGH) ;
  if findcolorSpiralTolerance(x,y,obstaclenetcolor,100,311,358,333,15) then
  writeln('found tree');
  Mouse(x,y, 3, 3, True);
  wait(4000);

end;


function branchcolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.09, 0.47);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 2117223, MSX1, MSY1, MSX2, MSY2, 2);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 7.59) and (X <= 9.69) and (Y >= 7.51) and (Y <= 9.57) and (Z >= 2.26) and (Z <= 2.79) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;


procedure climbbranch;

begin
  SetAngle(SRL_ANGLE_HIGH);
  if FindObj( x, y, 'ranch', branchcolor ,3) then
  writeln ('found branch');
    begin
    if IsUpText('ranch')   then
      begin
      mouse( x, y, 1, 1, true);
      wait(2000)
  end;
      end;
end;

function ropecolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.06, 0.16);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 5667737, MSX1, MSY1, MSX2, MSY2, 4);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 19.06) and (X <= 25.17) and (Y >= 18.75) and (Y <= 24.81) and (Z >= 10.19) and (Z <= 13.60) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;



procedure walkrope;

begin
  MakeCompass(316);
  SetAngle(SRL_ANGLE_HIGH);
  wait(2500);
  //if findcolorSpiralTolerance(x,y,ropecolor,386,182,425,183,25) then
  //writeln('found rope');
  //Mouse(x,y, 0, 0, True);
  // wait(7500);

    if FindObj( x, y, 'alancing', ropecolor ,3) then
    writeln ('found rope');
    begin
    if IsUpText('alancing')   then
      begin
      mouse( x, y, 1, 1, true);
      wait(7500)
  end;
      end;
end;


function treecolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.06, 0.22);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 1853020, MSX1, MSY1, MSX2, MSY2, 3);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 5.41) and (X <= 8.47) and (Y >= 5.40) and (Y <= 8.39) and (Z >= 1.66) and (Z <= 2.49) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;


procedure downtree;

begin

  wait(1000);
  SetAngle(SRL_ANGLE_HIGH) ;
  if findcolorSpiralTolerance(x,y,treecolor,360,203,375,183,15) then
  writeln('found tree');
  Mouse(x,y, 3, 3, True);
  wait(4000)

end;

function obstaclenetcolor2: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.18, 12.34);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 1982047, MSX1, MSY1, MSX2, MSY2, 2);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 5.02) and (X <= 7.71) and (Y >= 4.85) and (Y <= 6.45) and (Z >= 1.23) and (Z <= 3.54) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

procedure climbobstaclenet;

begin

  MakeCompass(266 + random(4));
  wait(3000);
  if findcolorSpiralTolerance(x,y,obstaclenetcolor2,MSX1, MSY1, MSX2, MSY2,5) then
  writeln('found obstacle net');
  Mouse(x,y, 3, 3, True);
  wait(6000);
end;
function pipecolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.13);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 9803164, MSX1, MSY1, MSX2, MSY2, 7);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 23.62) and (X <= 36.79) and (Y >= 24.33) and (Y <= 37.91) and (Z >= 25.98) and (Z <= 40.51) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

procedure squeezepipe;

begin


  if FindObj( x, y, 'through', pipecolor ,2) then
  writeln ('found pipe');
    begin
    if IsUpText('through')   then
      begin
      mouse( x, y, 5, 5, true);
      wait(5000)

  end;
      end;
end;

procedure ClickNor;
begin
  if InRange(Round(rs_GetCompassAngleDegrees), 5, 355) then
    if Random(4) = 1 then
    begin
      Mouse(542, 24, 15, 15, true);
      WaitOptionMulti(['ace', 'orth'], 1200);
    end else
      Mouse(542, 24, 15, 15, True);

end;


procedure runtolog;
begin

  wait(2500)





//runlog := DTMFromString('mLgAAAHicY2KAAE4gZoeyY12lGCrSlRiYgWwQZoRiBgYAK0gB2A==');



  //If FindDTM(runlog, X, Y, 573, 25, 663,119)  then


 // mouse( x, y, 3, 3, true);
  mouse( 580, 80, 3, 3, true);
  wait(8000);

 // FreeDTM(runlog);


end;






begin

  Smart_Server := 83;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;

  SetUpSRL;
  DeclarePlayers;
  LogInPlayer;
  StartTime:=GetSystemTime;

repeat
ClickNor
crosslog
climbnet
climbbranch
walkrope
ClickNor
downtree
climbobstaclenet
squeezepipe
ClickNor
runtolog

until(false)



end.

chance333

2012-01-13 16:47:57

so that is the correct code? ^?

hhhzzzarn

2012-01-13 16:52:52

chance333, this script is not working as it should since it does not have failsafe. When it misclicks, it does not try to click that object again and rather think it has done that object and is searching for the next one. Loser69, I do not know how to fix yours at this time.

loser69

2012-01-13 22:40:07

If the script fails please tell me exactly whereabouts it fails for example I noticed it normally fails during the second obstacle net and the rope walk.

Er1k

2012-01-14 01:54:04

Not trying to be rude but that standard needs a lot of work. It works, but others might have a hard time looking at it.


repeat
ClickNor
crosslog
climbnet
climbbranch
walkrope
ClickNor
downtree
climbobstaclenet
squeezepipe
ClickNor
runtolog

until(false)

loser69

2012-01-14 02:01:13

From: nosaj.421
Not trying to be rude but that standard needs a lot of work. It works, but others might have a hard time looking at it.
repeat
ClickNor
crosslog
climbnet
climbbranch
walkrope
ClickNor
downtree
climbobstaclenet
squeezepipe
ClickNor
runtolog

until(false)

I can simplify it by ?
procedure mainloop;
begin;
repeat
ClickNor
crosslog
climbnet
climbbranch
walkrope
ClickNor
downtree
climbobstaclenet
squeezepipe
ClickNor
runtolog

until(false)
end;

begin

mainloop

end.

loser69

2012-01-14 03:32:24

From: hhhzzzarn
Update your script to SRL5:

Change '.SCAR' to '.simba' so it appears as

{$include srl/srl/misc/smart.simba}
{$include srl/srl.simba}

You also have to change change the setNorth and setAngle methods. Read the SRL FAQ for "unable to find srl.

Here is an updated version

 program agility;

{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i SRL\SRL\Misc\Debug.simba}
//{$i SRL\SRL\Misc\Stats.simba}



Const
 SRLStats_Username = '';// Your SRL Stats Username
 SRLStats_Password = ''; // Your SRL Stats Password
 BreakEvery        = 120;     //How Many Minutes To Break After
 BreakFor          = 10;      //How Long To Break For
 Version           = '';




Var
  runlog, x, y, StartTime: Integer;




procedure DeclarePlayers;
  Var i:integer;
Begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;
  For I := 0 to (1-1) Do
    Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

  With Players[0] Do
  Begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Nick        := ''; //Player nickname - 3-4 letters of Player username.
    Active      := True;

  End;

End;

Procedure StatsGuise(wat:String);
Begin
  Status(wat);
  Disguise(wat);
End;

Procedure Antiban;
Begin
  Case Random(250) Of
    0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Agility', False) GameTab(28) End;
    1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
    2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
    3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
    4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
    5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
  End;
End;
Procedure FailSafe(Reason:String);
Begin
  Players[CurrentPlayer].Loc:=Reason;
  Logout;
  Stats_Commit;
  TerminateScript;
End;

function logcolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.07, 0.41);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 932196, MSX1, MSY1, MSX2, MSY2, 3);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 5.12) and (X <= 8.69) and (Y >= 4.31) and (Y <= 7.28) and (Z >= 0.89) and (Z <= 1.46) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

procedure crosslog;

begin

  SetAngle(SRL_ANGLE_HIGH)
  if FindObj( x, y, 'alance', logcolor ,2) then
  writeln ('found log');
    begin
    if IsUpText('alance')   then
      begin
      mouse( x, y, 5, 5, true);
      wait(6500)

  end;
      end;

end;

function obstaclenetcolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.18, 12.34);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 1982047, MSX1, MSY1, MSX2, MSY2, 2);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 5.02) and (X <= 7.71) and (Y >= 4.85) and (Y <= 6.45) and (Z >= 1.23) and (Z <= 3.54) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;


procedure climbnet;

begin

// if FindObj( x, y, 'bstacle', obstaclenetcolor ,2) then
// writeln ('found net');
//   begin
//   if IsUpText('bstacle')   then
//    begin
//      mouse( x, y, 5, 5, true);

  SetAngle(SRL_ANGLE_HIGH) ;
  if findcolorSpiralTolerance(x,y,obstaclenetcolor,100,311,358,333,15) then
  writeln('found tree');
  Mouse(x,y, 3, 3, True);
  wait(4000);

end;


function branchcolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.09, 0.47);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 2117223, MSX1, MSY1, MSX2, MSY2, 2);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 7.59) and (X <= 9.69) and (Y >= 7.51) and (Y <= 9.57) and (Z >= 2.26) and (Z <= 2.79) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;


procedure climbbranch;

begin
  SetAngle(SRL_ANGLE_HIGH);
  if FindObj( x, y, 'ranch', branchcolor ,3) then
  writeln ('found branch');
    begin
    if IsUpText('ranch')   then
      begin
      mouse( x, y, 1, 1, true);
      wait(2000)
  end;
      end;
end;

function ropecolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.06, 0.16);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 5667737, MSX1, MSY1, MSX2, MSY2, 4);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 19.06) and (X <= 25.17) and (Y >= 18.75) and (Y <= 24.81) and (Z >= 10.19) and (Z <= 13.60) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;



procedure walkrope;

begin
  MakeCompass(316);
  SetAngle(SRL_ANGLE_HIGH);
  wait(2500);
  //if findcolorSpiralTolerance(x,y,ropecolor,386,182,425,183,25) then
  //writeln('found rope');
  //Mouse(x,y, 0, 0, True);
  // wait(7500);

    if FindObj( x, y, 'alancing', ropecolor ,3) then
    writeln ('found rope');
    begin
    if IsUpText('alancing')   then
      begin
      mouse( x, y, 1, 1, true);
      wait(7500)
  end;
      end;
end;


function treecolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.06, 0.22);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 1853020, MSX1, MSY1, MSX2, MSY2, 3);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 5.41) and (X <= 8.47) and (Y >= 5.40) and (Y <= 8.39) and (Z >= 1.66) and (Z <= 2.49) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;


procedure downtree;

begin

  wait(1000);
  SetAngle(SRL_ANGLE_HIGH) ;
  if findcolorSpiralTolerance(x,y,treecolor,360,203,375,183,15) then
  writeln('found tree');
  Mouse(x,y, 3, 3, True);
  wait(4000)

end;

function obstaclenetcolor2: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.18, 12.34);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 1982047, MSX1, MSY1, MSX2, MSY2, 2);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 5.02) and (X <= 7.71) and (Y >= 4.85) and (Y <= 6.45) and (Z >= 1.23) and (Z <= 3.54) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

procedure climbobstaclenet;

begin

  MakeCompass(266 + random(4));
  wait(3000);
  if findcolorSpiralTolerance(x,y,obstaclenetcolor2,MSX1, MSY1, MSX2, MSY2,5) then
  writeln('found obstacle net');
  Mouse(x,y, 3, 3, True);
  wait(6000);
end;
function pipecolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.13);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 9803164, MSX1, MSY1, MSX2, MSY2, 7);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 23.62) and (X <= 36.79) and (Y >= 24.33) and (Y <= 37.91) and (Z >= 25.98) and (Z <= 40.51) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

procedure squeezepipe;

begin


  if FindObj( x, y, 'through', pipecolor ,2) then
  writeln ('found pipe');
    begin
    if IsUpText('through')   then
      begin
      mouse( x, y, 5, 5, true);
      wait(5000)

  end;
      end;
end;

procedure ClickNor;
begin
  if InRange(Round(rs_GetCompassAngleDegrees), 5, 355) then
    if Random(4) = 1 then
    begin
      Mouse(542, 24, 15, 15, true);
      WaitOptionMulti(['ace', 'orth'], 1200);
    end else
      Mouse(542, 24, 15, 15, True);

end;


procedure runtolog;
begin

  wait(2500)





//runlog := DTMFromString('mLgAAAHicY2KAAE4gZoeyY12lGCrSlRiYgWwQZoRiBgYAK0gB2A==');



  //If FindDTM(runlog, X, Y, 573, 25, 663,119)  then


 // mouse( x, y, 3, 3, true);
  mouse( 580, 80, 3, 3, true);
  wait(8000);

 // FreeDTM(runlog);


end;






begin

  Smart_Server := 83;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;

  SetUpSRL;
  DeclarePlayers;
  LogInPlayer;
  StartTime:=GetSystemTime;

repeat
ClickNor
crosslog
climbnet
climbbranch
walkrope
ClickNor
downtree
climbobstaclenet
squeezepipe
ClickNor
runtolog

until(false)



end.

Script doesn't compile for me if I change .SCAR to .SIMBA.

Er1k

2012-01-14 04:54:30

Nah it's not the problem. You can check out the standards maybe here http://villavu.com/forum/showthread.php?t=3293

That way your code would look easier to read with better indents and spacing.

Another thing that bothers me is that you don't put ; after your procs. Syntactically it is fine in simba but it is just not very good standard and looks odd.

chance333

2012-01-14 16:47:54

working! <3

awesomem8

2012-01-15 00:44:11

not working. it ends up at terror birds?

loser69

2012-01-15 01:02:26

one of the procedures failed.

awesomem8

2012-01-15 08:01:36

every time it happens though.

loser69

2012-01-15 08:56:36

can you tell me whereabouts the script messes up, for example the pipe, obstacle net.

the script has fixed movements so it will always click on the minimap to return to the log and sometimes it doesnt do the course but continues to click on the minimap hence why you end up at terrorbirds.

I suggest you babysit the script, I'm not a professional scripter nor have I implemented any failsafes, if you want it fixed then try learning to script yourself.

chance333

2012-01-15 14:18:37

it messes up right after it climbs the tree, right before the tight rope walk, it just stands there

chelmid

2012-02-03 13:21:27

So sad.here are at least three basic gnome runners on this website and none of them works!grim's,uz3's and L0ser's:crying:

qingqinghd

2012-02-03 14:02:44

try this one,i fix it work good

 program agility;

{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i SRL\SRL\Misc\Debug.SCAR}
{$i SRL\SRL\Misc\Stats.simba}



Const
 SRLStats_Username = '';// Your SRL Stats Username
 SRLStats_Password = ''; // Your SRL Stats Password
 BreakEvery        = 1200000;     //How Many Minutes To Break After
 BreakFor          = 10;      //How Long To Break For
 Version           = '';




Var
  runlog, x, y, StartTime: Integer;




procedure DeclarePlayers;
  Var i:integer;
Begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;
  For I := 0 to (1-1) Do
    Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

  With Players[0] Do
  Begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Nick        := ''; //Player nickname - 3-4 letters of Player username.
    Active      := True;

  End;

End;

Procedure StatsGuise(wat:String);
Begin
  Status(wat);
  Disguise(wat);
End;
Procedure FailSafe(Reason:String);
Begin
  Players[CurrentPlayer].Loc:=Reason;
  Stats_Commit;
End;

function logcolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.07, 0.41);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 932196, MSX1, MSY1, MSX2, MSY2, 3);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 5.12) and (X <= 8.69) and (Y >= 4.31) and (Y <= 7.28) and (Z >= 0.89) and (Z <= 1.46) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

procedure crosslog;

begin

  SetAngle(true)
  if FindObj( x, y, 'alance', logcolor ,2) then
  writeln ('found log');
    begin
    if IsUpText('alance')   then
      begin
      mouse( x, y, 5, 5, true);
      wait(6500)

  end;
      end;

end;

function obstaclenetcolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.18, 12.34);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 1982047, MSX1, MSY1, MSX2, MSY2, 2);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 5.02) and (X <= 7.71) and (Y >= 4.85) and (Y <= 6.45) and (Z >= 1.23) and (Z <= 3.54) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;


procedure climbnet;

begin
  SetAngle(False);
  repeat
  wait(100 + random(50));
    if (FindColorSpiralTolerance(x,y,999019, 210, 227, 245, 239, 10))
      then
        MMouse(x,y,5,5);
  until (IsUpText('net'));
  begin
    WriteLn('Climbing up obstacle net!');
    if (IsUpText('net'))
      then
        Mouse(x,y,5,5, true);
        wait(1000 + random (255));
        wait(1500+random(100));
  end;
end;

function branchcolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.09, 0.47);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 2117223, MSX1, MSY1, MSX2, MSY2, 2);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 7.59) and (X <= 9.69) and (Y >= 7.51) and (Y <= 9.57) and (Z >= 2.26) and (Z <= 2.79) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;


procedure climbbranch;

begin
  SetAngle(true);
   repeat
    wait(500 + random(100));
   if FindObj( x, y, 'ranch', branchcolor ,3) then
        MMouse(x,y,5,5);
  until (IsUpText('ranch'));
  if FindObj( x, y, 'ranch', branchcolor ,3) then
  writeln ('found branch');
    begin
    if IsUpText('ranch')   then
      begin
      mouse( x, y, 1, 1, true);
      wait(4000)
  end;
      end;
end;

function ropecolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.06, 0.16);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 5667737, MSX1, MSY1, MSX2, MSY2, 4);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 19.06) and (X <= 25.17) and (Y >= 18.75) and (Y <= 24.81) and (Z >= 10.19) and (Z <= 13.60) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;



procedure walkrope;

begin
    SetAngle(False);
    wait(100 + random(10));
        MMouse(654,75,5,3);
        Mouse(654,75,2,0, true);
    repeat
    wait(100 +random(10));
      if (FindColorSpiralTolerance(x,y,5733788, 299, 189, 319, 203, 10))
      then
        MMouse(x,y,10,1);
  until (IsUpText('rope'));
  if (IsUpText('rope'))
    then
        wait(500 + random(100));
        Mouse(x,y,3,0, true);
    WriteLn('Walking across rope!');
    wait(5000);

end;


function treecolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.06, 0.22);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 1853020, MSX1, MSY1, MSX2, MSY2, 2);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 5.41) and (X <= 8.47) and (Y >= 5.40) and (Y <= 8.39) and (Z >= 1.66) and (Z <= 2.49) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;


procedure downtree;

begin
 repeat
    wait(500 + random(100));
    if (FindColorSpiralTolerance(x,y,2050914, 472, 192, 504, 208, 3))
      then
        MMouse(x,y,5,5);
  until (IsUpText('branch'));
  begin
    WriteLn('Climbing down branch!');
    if (IsUpText('branch'))
      then
        Mouse(x,y,5,5, true);
        wait(5000+random(100));
  end;
end;

function obstaclenetcolor2: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.18, 12.34);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 3492445, MSX1, MSY1, MSX2, MSY2, 5);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 5.02) and (X <= 7.71) and (Y >= 4.85) and (Y <= 6.45) and (Z >= 1.23) and (Z <= 3.54) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

procedure climbobstaclenet;

begin
  repeat
  wait(100 + random(50));
    if (FindColorSpiralTolerance(x,y,2636103, 193, 26, 210, 40, 5))
      then
        MMouse(x,y,5,5);
  until (IsUpText('net'));
  begin
    WriteLn('Climbing up obstacle net!');
    if (IsUpText('net'))
      then
        Mouse(x,y,15,5, true);
        wait(1000 + random (255));
        wait(4000+random(100));
  end;
end;
function pipecolor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.13);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 9803164, MSX1, MSY1, MSX2, MSY2, 7);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 23.62) and (X <= 36.79) and (Y >= 24.33) and (Y <= 37.91) and (Z >= 25.98) and (Z <= 40.51) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

procedure squeezepipe;

begin


  if FindObj( x, y, 'through', pipecolor ,2) then
  writeln ('found pipe');
    begin
    if IsUpText('through')   then
      begin
      mouse( x, y, 5, 5, true);
      wait(5000)

  end;
      end;
end;

procedure ClickNor;
begin
  if InRange(Round(rs_GetCompassAngleDegrees), 5, 355) then
    if Random(4) = 1 then
    begin
      Mouse(542, 24, 15, 15, true);
      WaitOptionMulti(['ace', 'orth'], 1200);
    end else
      Mouse(542, 24, 15, 15, True);

end;


procedure runtolog;
begin

  wait(2500)





//runlog := DTMFromString('mLgAAAHicY2KAAE4gZoeyY12lGCrSlRiYgWwQZoRiBgYAK0gB2A==');



  //If FindDTM(runlog, X, Y, 573, 25, 663,119)  then


 // mouse( x, y, 3, 3, true);
  mouse( 580, 80, 3, 3, true);
  wait(8000);

 // FreeDTM(runlog);


end;






begin

  Smart_Server := 83;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;

  SetUpSRL;
  DeclarePlayers;
  LogInPlayer;
  StartTime:=GetSystemTime;

repeat
ClickNor
crosslog
climbnet
climbbranch
walkrope
ClickNor
downtree
climbobstaclenet
squeezepipe
ClickNor
runtolog

until(false)



end.

forx

2012-02-03 14:11:45

No anti ban`?

qingqinghd

2012-02-03 20:14:22

just edit from L0ser's Gnome Agility Course
made it work

Sytherix

2012-02-23 11:19:43

Hmm I'll keep my eye out for when this gets updated. I really need to get agility up :D

loser69

2012-02-28 14:18:38

sorry probably wont be updating this, but if you know how to script then you could get all the new colours and replace the autocolours etc and it will probably work

hawaiianpunch

2012-03-11 23:16:17

i keep getting this
Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''

:(

Andres

2012-03-11 23:48:22

From: hawaiianpunch
i keep getting this
Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''

:(

Should work if you change all occurences of .scar to .simba ;)

hawaiianpunch

2012-03-13 00:27:42

thanks but then i got this

Exception in Script: Unable to find file 'SRL\SRL\Misc\Stats.simba' used from ''

:(

Tonkah

2012-03-13 00:41:12

From: hawaiianpunch
thanks but then i got this

Exception in Script: Unable to find file 'SRL\SRL\Misc\Stats.simba' used from ''

:(

Remove the entire line.

hawaiianpunch

2012-03-13 21:14:05

i did and then i got this..

[Error] (105:3): Type mismatch at line 104
Compiling failed.

sorry for being a noob at this

kingsleyeng

2012-03-17 05:30:36

From: loser69
Script doesn't compile for me if I change .SCAR to .SIMBA.

his version works tried urs failed

although his couldn't do course

lightstabo

2012-04-04 00:41:50

I think the update changed the colour of the log so now this script doesn't work. If I am wrong please tell me how you got it working.

Cheers

Havi

2012-04-20 20:50:45

How do u change that scar to simba?

Big_dylan

2012-05-10 18:17:22

From: lightstabo
I think the update changed the colour of the log so now this script doesn't work. If I am wrong please tell me how you got it working.

Cheers

:thumbsup: same problem

thomas1116

2012-05-14 04:11:12

Whats the point having this thread up, when its not gonna be updated ..
Close it ?