SRL Archive - Help and Support

Okay, so I need the findColorSpiral to start searching from the center of the minimap , and then move outwards, but I always get: [Runtime Error] : Out Of Range in line 90
Here is Line 90:

        x := 627;
        y := 85;
        If FindColorSpiralTolerance(x, y, MMTreeColor[i], MMX1, MMY1, MMX2, MMY2, 5) Then  //line 90
        Begin

Thanks in advance,
Stur Pure

Are you sure the array is ok?

var
  MMTreeColor: Array [0..2] Of Integer; 
Begin
  MMTreeColor[0] := 14616;
  MMTreeColor[1] := 351535;
  MMTreeColor[2] := 146258;

The funny thing is that it does what it is supposed to, but after it has done that, it gives me the error…

check your array like Markus said
I don't see a
for i := 0 to High(MMTreeColor) do

From: Narcle
check your array like Markus said
I don't see a
for i := 0 to High(MMTreeColor) do

Oh, I need that? Damn, just when I thought I finally tackled arrays something like this comes up. :eek: Back to the beginner tuts. :duh:

EDIT: The four things I don't like: arrays, types, Tpoints, and Tboxes. lol

Yeah, you need to make sure that the i variable you are using is a valid number.

Since the array only goes from 0..2, then if i is any other value when you try to do your findcolorspiraltolerance command, it will give you an out of range error.

Okay, thanks, but I have no clue how to fix this, so it will work. Here is the entire Function/Script:

program New;
{.include SRL/SRL.scar}
var
  x,y: Integer;
Function PurposeMistake: Boolean;
Begin
  Case random(6) Of

    0: Begin
           ChooseOption('hop');
           Result := True;
       End;

    1: Begin
           ChooseOption('hop');
           Result := True;
       End;

    2: Begin
           Chooseoption('xamin');
           Result := False;
       End;

    3: Begin
           PickUpMouse;
           Result := False;
       End;

    4: Begin
           SleepAndMoveMouse(2000 +random(335) -random(136) +random(500));
           Result := False;
       End;

    5: Begin
           ChooseOption('hop');
           Result := True;
       End;
  End;
End;


Function ChopSturTree(Tree: String): Boolean;
Var
  i, R, Count, MCX, MCY, SCX, SCY, URX, URY, ULX, ULY, LRX, LRY, LLX, LLY : Integer;
  NormalTreeAr, OakTreeAr, WillowTreeAr, YewTreeAr: Array [0..4] Of Integer;
  MMTreeColor: Array [0..2] Of Integer;
  UpperLeft, LowerLeft, UpperRight, LowerRight: Boolean;
Begin
  NormalTreeAr[0] := 2838857;
  NormalTreeAr[1] := 397069;
  NormalTreeAr[2] := 1977900;
  NormalTreeAr[3] := 1260599;
  NormalTreeAr[4] := 7708;
  OakTreeAr[0] := 1588532;
  OakTreeAr[1] := 2901831;
  OakTreeAr[2] := 3177324;
  OakTreeAr[3] := 417617;
  OakTreeAr[4] := 3309167;
  WillowTreeAr[0] := 2332287;
  WillowTreeAr[1] := 3232844;
  WillowTreeAr[2] := 5863298;
  WillowTreeAr[3] := 2461562;
  WillowTreeAr[4] := 1648941;
  YewTreeAr[0] := 4421265;
  YewTreeAr[1] := 1923152;
  YewTreeAr[2] := 3107424;
  YewTreeAr[3] := 531484;
  YewTreeAr[4] := 3034181;
  MMTreeColor[0] := 14616;
  MMTreeColor[1] := 351535;
  MMTreeColor[2] := 146258;
  Begin
    MCX := 627;
    MCY := 85;
    SCX := 260;
    SCY := 220;
    R := 15;
    URX := 516;
    URY := 3;
    ULX := 3;
    ULY := 3;
    LRX := 516;
    LRY := 338;
    LLX := 3;
    LLY := 338;
    Begin
      Repeat
        x := 627;
        y := 85;
        If FindColorSpiralTolerance(x, y, MMTreeColor[i], MMX1, MMY1, MMX2, MMY2, 5) Then
        Begin
          For i := 0 To 3 Do
          Begin
            Case I Of

                0: If (x > MCX) And (Y < MCY) Then
                         Begin
                           UpperRight := True;
                           Mouse(x - 4, y + 4, 0, 0, true)
                         End;

                1: If (x > MCX) And (y > MCY) Then
                         Begin
                           LowerRight := True;
                           Mouse(x - 4, y - 4, 0, 0, true)
                         End;

                2: If (x < MCX) And (y < MCY) Then
                         Begin
                           UpperLeft := True;
                           Mouse(x + 4, y + 4, 0, 0, true);
                         End;

                3: If (x < MCX) And (y > MCY) Then
                         Begin
                           LowerLeft := True;
                           Mouse(x + 4, y - 4, 0, 0, true);
                         End;
            End;
          End;
            wait(102 +random(30));
            FFlag(0);
            Begin
              For i := 0 To 3 Do
              Begin
                Case i Of

                  0: If (UpperRight = True) Then
                         Begin
                           If (Tree = 'Normal') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, NormalTreeAr[i], SCX, SCY, URX, URY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Oak') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, OakTreeAr[i], SCX, SCY, URX, URY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Willow') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, WillowTreeAr[i], SCX, SCY, URX, URY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Yew') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, YewTreeAr[i], SCX, SCY, URX, URY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                         End;

                  1: If (LowerRight = True) Then
                         Begin
                           If (Tree = 'Normal') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, NormalTreeAr[i], SCX, SCY, LRX, LRY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Oak') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, OakTreeAr[i], SCX, SCY, LRX, LRY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Willow') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, WillowTreeAr[i], SCX, SCY, LRX, LRY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Yew') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, YewTreeAr[i], SCX, SCY, LRX, LRY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                         End;

                  2: If (UpperLeft = True) Then
                         Begin
                           If (Tree = 'Normal') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, NormalTreeAr[i], SCX, SCY, ULX, ULY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Oak') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, OakTreeAr[i], SCX, SCY, ULX, ULY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Willow') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, WillowTreeAr[i], SCX, SCY, ULX, ULY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Yew') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, YewTreeAr[i], SCX, SCY, ULX, ULY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                         End;

                  3: If (LowerLeft = True) Then
                         Begin
                           If (Tree = 'Normal') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, NormalTreeAr[i], SCX, SCY, LLX, LLY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Oak') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, OakTreeAr[i], SCX, SCY, LLX, LLY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Willow') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, WillowTreeAr[i], SCX, SCY, LLX, LLY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Yew') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, YewTreeAr[i], SCX, SCY, LLX, LLY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                         End;
                End;
              End;
          End;
        End;
      Until (Result = True);
    End;
  End
End;

Begin
  MouseSpeed := 12;
  Wait(3000);
  If ChopSturTree('Normal') Then
  Begin
    Writeln('Success');
  End Else
    Writeln('No Success');
End.

How do I need to change this so it will work? (if you have questions on what it should do, you can check out my thread, it is somewhere in the srl scripting section)

From: Stur Pure
Okay, thanks, but I have no clue how to fix this, so it will work. Here is the entire Function/Script:

program New;
{.include SRL/SRL.scar}
var
  x,y: Integer;
Function PurposeMistake: Boolean;
Begin
  Case random(6) Of

    0: Begin
           ChooseOption('hop');
           Result := True;
       End;

    1: Begin
           ChooseOption('hop');
           Result := True;
       End;

    2: Begin
           Chooseoption('xamin');
           Result := False;
       End;

    3: Begin
           PickUpMouse;
           Result := False;
       End;

    4: Begin
           SleepAndMoveMouse(2000 +random(335) -random(136) +random(500));
           Result := False;
       End;

    5: Begin
           ChooseOption('hop');
           Result := True;
       End;
  End;
End;


Function ChopSturTree(Tree: String): Boolean;
Var
  i, R, Count, MCX, MCY, SCX, SCY, URX, URY, ULX, ULY, LRX, LRY, LLX, LLY : Integer;
  NormalTreeAr, OakTreeAr, WillowTreeAr, YewTreeAr: Array [0..4] Of Integer;
  MMTreeColor: Array [0..2] Of Integer;
  UpperLeft, LowerLeft, UpperRight, LowerRight: Boolean;
Begin
  NormalTreeAr[0] := 2838857;
  NormalTreeAr[1] := 397069;
  NormalTreeAr[2] := 1977900;
  NormalTreeAr[3] := 1260599;
  NormalTreeAr[4] := 7708;
  OakTreeAr[0] := 1588532;
  OakTreeAr[1] := 2901831;
  OakTreeAr[2] := 3177324;
  OakTreeAr[3] := 417617;
  OakTreeAr[4] := 3309167;
  WillowTreeAr[0] := 2332287;
  WillowTreeAr[1] := 3232844;
  WillowTreeAr[2] := 5863298;
  WillowTreeAr[3] := 2461562;
  WillowTreeAr[4] := 1648941;
  YewTreeAr[0] := 4421265;
  YewTreeAr[1] := 1923152;
  YewTreeAr[2] := 3107424;
  YewTreeAr[3] := 531484;
  YewTreeAr[4] := 3034181;
  MMTreeColor[0] := 14616;
  MMTreeColor[1] := 351535;
  MMTreeColor[2] := 146258;
  Begin
    MCX := 627;
    MCY := 85;
    SCX := 260;
    SCY := 220;
    R := 15;
    URX := 516;
    URY := 3;
    ULX := 3;
    ULY := 3;
    LRX := 516;
    LRY := 338;
    LLX := 3;
    LLY := 338;
    Begin
      Repeat
        x := 627;
        y := 85;
        If FindColorSpiralTolerance(x, y, MMTreeColor[i], MMX1, MMY1, MMX2, MMY2, 5) Then
        Begin
          For i := 0 To 3 Do
          Begin
            Case I Of

                0: If (x > MCX) And (Y < MCY) Then
                         Begin
                           UpperRight := True;
                           Mouse(x - 4, y + 4, 0, 0, true)
                         End;

                1: If (x > MCX) And (y > MCY) Then
                         Begin
                           LowerRight := True;
                           Mouse(x - 4, y - 4, 0, 0, true)
                         End;

                2: If (x < MCX) And (y < MCY) Then
                         Begin
                           UpperLeft := True;
                           Mouse(x + 4, y + 4, 0, 0, true);
                         End;

                3: If (x < MCX) And (y > MCY) Then
                         Begin
                           LowerLeft := True;
                           Mouse(x + 4, y - 4, 0, 0, true);
                         End;
            End;
          End;
            wait(102 +random(30));
            FFlag(0);
            Begin
              For i := 0 To 3 Do
              Begin
                Case i Of

                  0: If (UpperRight = True) Then
                         Begin
                           If (Tree = 'Normal') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, NormalTreeAr[i], SCX, SCY, URX, URY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Oak') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, OakTreeAr[i], SCX, SCY, URX, URY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Willow') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, WillowTreeAr[i], SCX, SCY, URX, URY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Yew') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, YewTreeAr[i], SCX, SCY, URX, URY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                         End;

                  1: If (LowerRight = True) Then
                         Begin
                           If (Tree = 'Normal') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, NormalTreeAr[i], SCX, SCY, LRX, LRY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Oak') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, OakTreeAr[i], SCX, SCY, LRX, LRY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Willow') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, WillowTreeAr[i], SCX, SCY, LRX, LRY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Yew') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, YewTreeAr[i], SCX, SCY, LRX, LRY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                         End;

                  2: If (UpperLeft = True) Then
                         Begin
                           If (Tree = 'Normal') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, NormalTreeAr[i], SCX, SCY, ULX, ULY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Oak') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, OakTreeAr[i], SCX, SCY, ULX, ULY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Willow') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, WillowTreeAr[i], SCX, SCY, ULX, ULY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Yew') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, YewTreeAr[i], SCX, SCY, ULX, ULY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                         End;

                  3: If (LowerLeft = True) Then
                         Begin
                           If (Tree = 'Normal') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, NormalTreeAr[i], SCX, SCY, LLX, LLY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Oak') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, OakTreeAr[i], SCX, SCY, LLX, LLY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Willow') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, WillowTreeAr[i], SCX, SCY, LLX, LLY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                           If (Tree = 'Yew') Then
                           Begin
                             x := SCX;
                             y := SCY;
                             If FindColorSpiralTolerance(x, y, YewTreeAr[i], SCX, SCY, LLX, LLY, 5) Then
                             Begin
                               Mouse(x -random(2), y +random(2), 0, 0, False);
                               Wait(104 +random(24) -random(31));
                               Repeat
                                 PurposeMistake;
                               Until (PurposeMistake = True);
                               Wait(104 +random(24) -random(31));
                               FFlag(0);
                             End;
                           End;
                         End;
                End;
              End;
          End;
        End;
      Until (Result = True);
    End;
  End
End;

Begin
  MouseSpeed := 12;
  Wait(3000);
  If ChopSturTree('Normal') Then
  Begin
    Writeln('Success');
  End Else
    Writeln('No Success');
End.

How do I need to change this so it will work? (if you have questions on what it should do, you can check out my thread, it is somewhere in the srl scripting section)

I could code that in a easier way xP i just dont feel like..

But what u have to add is: For I:= 0 To High(varname) Do

be4 ur find color.

Oh great, thanks for your help :p
Mind giving me at least a hint of how to code that easier? lol

You never define i before you do your FindColorSpiralTolerance.

If you want to look for a random MMTreeColor, all you have to do is add one line above your FCST line.

x := 627;
y := 85;
i:=random(3);
If FindColorSpiralTolerance(x, y, MMTreeColor, MMX1, MMY1, MMX2, MMY2, 5) Then

If you do that it will never give you an out of range error.

Man, is it really that easy? Cool, thanks a lot! :)