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

Thread: L0ser's Gnome Agility Course

  1. #1
    Join Date
    Nov 2011
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default L0ser's Gnome Agility Course

    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.
    Last edited by loser69; 01-16-2012 at 10:19 AM.

  2. #2
    Join Date
    Jan 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh my god, thank you

    smart wont start because of target page?
    Last edited by chance333; 01-13-2012 at 08:19 PM.

  3. #3
    Join Date
    Dec 2011
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

    Simba Code:
    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.
    Last edited by hhhzzzarn; 01-13-2012 at 09:53 PM.

  4. #4
    Join Date
    Jan 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    so that is the correct code? ^?

  5. #5
    Join Date
    Dec 2011
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  6. #6
    Join Date
    Nov 2011
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    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.

  7. #7
    Join Date
    Nov 2011
    Posts
    1,532
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

    Simba Code:
    repeat
    ClickNor
    crosslog
    climbnet
    climbbranch
    walkrope
    ClickNor
    downtree
    climbobstaclenet
    squeezepipe
    ClickNor
    runtolog

    until(false)

  8. #8
    Join Date
    Nov 2011
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by nosaj.421 View Post
    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.

    Simba Code:
    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.

  9. #9
    Join Date
    Nov 2011
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by hhhzzzarn View Post
    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

    Simba Code:
    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.

  10. #10
    Join Date
    Nov 2011
    Posts
    1,532
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  11. #11
    Join Date
    Jan 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    working! <3

  12. #12
    Join Date
    Nov 2011
    Location
    Australia
    Posts
    158
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    not working. it ends up at terror birds?

  13. #13
    Join Date
    Nov 2011
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    one of the procedures failed.

  14. #14
    Join Date
    Nov 2011
    Location
    Australia
    Posts
    158
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    every time it happens though.

  15. #15
    Join Date
    Nov 2011
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    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.

  16. #16
    Join Date
    Jan 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  17. #17
    Join Date
    Nov 2011
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  18. #18
    Join Date
    Jul 2010
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    try this one,i fix it work good
    Code:
     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.

  19. #19
    Join Date
    Jan 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No anti ban`?

  20. #20
    Join Date
    Jul 2010
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

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

  21. #21
    Join Date
    Feb 2012
    Location
    Australia
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  22. #22
    Join Date
    Nov 2011
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    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

  23. #23
    Join Date
    Feb 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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


  24. #24
    Join Date
    Feb 2012
    Location
    Denver, CO
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by hawaiianpunch View Post
    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

  25. #25
    Join Date
    Feb 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks but then i got this

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


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)

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •