SRL Archive - News and General

Well I have been trying to run multiple scripts, but every time I get some sort of error like this: Line 4: [Error] (7:11): Unknown identifier 'SmartIsKeyDown' in script C:\Program Files\SCAR\includes\srl/srl/misc/Smart.scar

Different files different times.

Anyone know what's wrong? :(

Thank you very much! ;)

Note: if your wondering why my post count is 1 apparently an administrator thinks I was pure spamming for Junior member, not complaining though! :)

Lol I wonder why your Jr member with 1 post. Ok post 1 script and I'll fix it in a jiffy. Smart is outdated right now.

Edit: Im an idiot..didnt read your full post, sorry that happened.

From: d1s3l
Lol I wonder why your Jr member with 1 post. Ok post 1 script and I'll fix it in a jiffy. Smart is outdated right now.

Edit: Im an idiot..didnt read your full post, sorry that happened.

Does SCAR work right now?

Anyway, I never opened the runescape window, so I was trying to for the first time with SCAR. This is my first time. :spongebob:

From: Tidal
Does SCAR work right now?

Anyway, I never opened the runescape window, so I was trying to for the first time with SCAR. This is my first time. :spongebob:

Yes scar does work. copy a script for scar and place it between this [/S CAR] and post it here.(without spaces in scar)

From: d1s3l
Yes scar does work. copy a script for scar and place it between this [/S CAR] and post it here.(without spaces in scar)

program New;

{.include srl/srl/misc/Smart.scar}
{.include SRL/SRL.scar}
{.include srl/srl/misc/NewAutoColor.scar}

Const
   NumberOfUsers = 4;
   StartPlayer = 0;
   Loads = 5;
   VersionNumber = '2.03';
   SRL_ID   = '';  // Stats ID.
   SRL_PASS = ''; // Stats Pass.
   SmartPrefix = 'world10';

Type
   EssLoc = Record
     Name: String;
     Info: Array Of Array Of Integer;
     MMClicks, MSEss: TPointArray;
     L, ReportIDVar: Integer;
   End;
   EssLocArray = Array Of EssLoc;

Var
   EssInfo: EssLocArray;
   AubTPA: TPointArray;
   NewAutoColorWorked, NoEssFound: Boolean;
   EssenceMined, Abyss: Integer;

//{$DEFINE DEBUG}

Procedure DeclarePlayers;

Begin
  NumberOfPlayers( NumberOfUsers );
  CurrentPlayer := StartPlayer;
  
  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active := True;
  Players[0].Loc := 'Bank';
  Players[0].Booleans[0]  := True;       // Is The Pick Equipped?

  Players[1].Name :='';
  Players[1].Pass :='';
  Players[1].Nick :='';
  Players[1].Active := True;
  Players[1].Loc := 'Bank';
  Players[1].Booleans[0]  := True;       // Is The Pick Equipped?

  Players[2].Name :='';
  Players[2].Pass :='';
  Players[2].Nick :='';
  Players[2].Active := True;
  Players[2].Loc := 'Bank';
  Players[2].Booleans[0]  := True;       // Is The Pick Equipped?}

  Players[3].Name :='';
  Players[3].Pass :='';
  Players[3].Nick :='';
  Players[3].Active := True;
  Players[3].Loc := 'Bank';
  Players[3].Booleans[0]  := True;       // Is The Pick Equipped?

  Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
  SetPlayerNameTPAs;
End;

Procedure FNRWait(ms: Integer);

Var
   T: Integer;
Begin
  T := GetSystemTime;
  While GetSystemTime - T < ms Do
  Begin
    Wait(200);
    FindNormalRandoms;
  End;
End;

Procedure DebugMM(TPA: TPointArray);

Var
   I, L: Integer;
   C: TCanvas;

Begin
  DisplayDebugImgWindow(0, 0);
  DisplayDebugImgWindow(MMX2-MMX1, MMY2-MMY1);
  C := GetDebugCanvas;
  CopyCanvas(GetClientCanvas, C, MMX1, MMY1, MMX2, MMY2, 0, 0, MMX2 - MMX1, MMY2 - MMy1);
  L := High(tpa);
  For I := 0 To L Do
    C.Pixels[tpa[i].x - MMX1, tpa[i].y - MMY1] := 255;
  DisplayDebugImgWindow(MMX2-MMX1, MMY2-MMY1);
End;

Function FindMagicSymbol(Var P: TPoint): Boolean;

Var
   I, J, cts: Integer;
   Points, P2: TPointArray;
   aTPA: T2DPointArray;
   MagicSymbolColors, C: TIntegerArray;
   H, S, L: Extended;

Begin
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.20, 2.0);
  Result := False;
  MagicSymbolColors := [2326527, 2925567];
  
  SetLength(Points, 0);
  For I := 0 To High(MagicSymbolColors) Do
  Begin
    SetLength(P2, 0);
    SetLength(C, 0);
    FindColorsTolerance(P2, MagicSymbolColors[I], MMX1, MMY1, MMX2, MMY2, 18);
    C := GetColors(P2);
    For J := 0 To High(C) Do
    Begin
      ColorToHSL(C[J], H, S, L);
      //If ((H > 8.5) And (H < 9.5)) Or ((H > 5.5) And (H < 7.5)) Then
      If (((H > 5.5) And (H < 10.0)) Or (H < 1.0)) And (S > 85.0) Then
      Begin
        SetLength(Points, Length(Points) + 1);
        Points[High(Points)] := P2[J];
      End;
    End;
    //Points := CombineTPA(Points, P2);
  End;
  {$IFDEF DEBUG} debugMM(Points); {$ENDIF}
  ColorToleranceSpeed(cts);
  aTPA := SplitTPA(Points, 5);
  SortATPASize(aTPA, True);
  If Length(aTPA) = 0 Then
    Exit;
  Result := Length(aTPA[0]) > 2;
  P := MiddleTPA(aTPA[0]);
  If Not Result Then
    WriteLn('No Aubury Shop');
End;

Function LevelUp: Boolean;

Begin
  Result := FindNPCChatText('gratu', Nothing);
  If Not Result Then
    Result := FindNPCChatText('atio', Nothing);
  If Result Then
  Begin
    While ClickContinue(True, True) Do
      Wait(500);
  End;
End;

Function FindBankers(Var Bank: TPoint; Var Angle: Extended): Boolean;

Var
   I: Integer;
   B, gB: TPointArray;
   aTPA: T2DPointArray;

Begin
  Result := False;
  FindColorsSpiralTolerance(MMCX, MMY2, B, 60909, MMX1, MMY1, MMX2, MMY2, 0);
  aTPA := SplitTPA(B, 10);
  SortATPASize(aTPA, True);
  If Length(aTPA) = 0 Then
    Exit;
  B := aTPA[0];
  For I := 0 To High(B) - 1 Do
  Begin
    If (Abs(B[I].Y - B[I + 1].Y) < 15) And (Abs(B[I].X - B[I + 1].X) < 60) Then
    Begin
      SetLength(gB, Length(gB) + 1);
      gB[High(gB)] := B[I];
      If High(gB) > 3 Then // 4 bankers.
      Begin
        Bank := MiddleTPA(gB);
        Bank.Y := Bank.Y - 5;
        Angle := Degrees(ArcTan2(gB[0].y - gB[High(gB)].y, gB[0].x - gB[High(gB)].x)) + 90;
        If Angle < 0 Then
          Angle := 90 - (Angle * -1) + 270;
        Result := True;
        Exit;
      End;
    End
    Else
      SetLength(gB, 0);
  End;
End;

Function Randomize(x, Randomness: Integer): Integer;

Begin
  Result := RandomRange(X - Randomness, X + Randomness);
End;

Function AtMine: Boolean;

Var
   TPA: TPointArray;
Begin
  FindColorsTolerance(TPA, 65536, MMX1, MMY1, MMX2, MMY2, 1);
  Result := Length(TPA) > 2000;
End;

Function GetUpTextBlue:String;

Begin
  Result := Trim(GetTextAtEx(7, 7, 140, upchars, true,
  true, 0, 2, 14277634, 50, True, tr_AllChars));
End;

Function IsUpTextBlue(Text: String): Boolean;

Begin
  Result := (Pos(Text, GetUpTextBlue) <> 0)
End;

Function FindPortal(Var x, y: Integer): Boolean;

Var
   CTS, I, C: Integer;
   vPoint: TPoint;
   Points: TPointArray;
   aPoints: T2DPointArray;
   s: String;
   sa: Array Of String;
   
Begin
  Cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.40, 1.50);         //    9743280
  FindColorsSpiralTolerance(MSCX, MSCY, Points, 9481130, MSX1, MSY1, MSX2, MSY2, 10);
  aPoints := TPAToATPAEx(Points, 40, 40);
  sa := ['Use', 'Portal', 'ortal', 'se Por'];
  ColorToleranceSpeed(Cts);
  For I := 0 To High(aPoints) Do
  Begin
    If Length(aPoints[I]) < 40 Then
      Continue;
    vPoint := MiddleTPA(aPoints[I]);
    MMouse(vPoint.X, vPoint.Y, 5, 5);
    Wait(150);
    Cts := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.2, 0.2);         //    9743280
    If CountColorTolerance(14342657, 7, 7, 100, 25, 50) > 100 Then
    Begin
      GetMousePos(x, y);
      Result := True;
      ColorToleranceSpeed(Cts);
      Exit;
    End;
    
    ColorToleranceSpeed(1);
    s := rs_GetUpText;
    For C := 0 To High(sa) Do
      If Pos(sa[C], s) <> 0 Then
        Break;
    If C = Length(sa) Then
      If Not IsUpTextBlue('ortal') Then
        Continue;
    GetMousePos(x, y);
    Result := True;
  End;
  ColorToleranceSpeed(Cts);
End;

Function DoorClosed: Boolean;

Var
   TP: TPoint;
   TPA: TPointArray;
   aTPA: T2DPointArray;
   I, c: Integer;

Begin
  Result := False;
  c := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorspeed2Modifiers(0.2, 0.5);
  FindColorsTolerance(TPA, 5208714, 3, 3, 515, 336, 8);
  //aTPA := TPAToATPAEx(TPA, 50, 50);
  aTPA := SplitTPA(TPA, 3);
  For I := 0 To High(aTPA) Do
  Begin
    If Length(aTPA[I]) < 320 Then
      Continue;
    TP := MiddleTPA(aTPA[I]);
    MMouse(TP.X, TP.Y, 0, 0);
    Wait(200);
    If IsUpText('pen') And IsUpText('oor') Then
    Begin
      Result := True;
      Mouse(TP.X, TP.Y, 0, 0, True);
      FFlag(0);
      Break;
    End;
  End;
  ColorToleranceSpeed(c);
  SetColorspeed2Modifiers(0.2, 0.2);
End;

Function FindArrow: Boolean;

Var
   x, y: Integer;
Begin
  Result := False;
  If NewAutoColorWorked Then
    If FindColor(x, y, srl_AutoGetColor('transport'), MMX1, MMY1, MMX2, MMY2) Then
    Begin
      Result := True;
      WriteLn('Succesfully used NewAutoColor for FindArrow');
    End;
  If Not Result Then
    If FindSymbol(x, y, 'transportation') Then
      Result := True;
  If Result Then
  Begin
    Mouse(x, y, 4, 4, True);
    Wait(1000);
    FFlag(0);
    FNRWait(1000);
  End;
End;

Procedure BankToAubury;

Var
   V: TPoint;
   T: Integer;

Begin
  FindNormalRandoms;
  MFNF(Randomize(640, 4), Randomize(140, 4), -1, -1);
  Wait(10000);
  T := GetSystemTime;
  While (GetSystemTime - T < 60000) Do
  Begin
    FindNormalRandoms;
    If FindMagicSymbol(V) Then
      Break;
    Wait(500);
  End;
  If GetSystemTime - T >= 60000 Then
  Begin
    WriteLn('BankToAuburyTime');
    LogOut;
    Exit;
  End;
  Mouse(V.X, V.Y + 3, 0, 0, True);
  Wait(500);
  FFlag(0);
  Players[CurrentPlayer].Loc := 'Aubury';
End;

Procedure MineToAubury;

Var
   x, y, T, T2, I: Integer;

Begin
  FNRWait(1000);

  T := GetSystemTime;
  While GetSystemTime - T < 60000 Do
  Begin
    If GetSystemTime - T > 30000 Then
      MakeCompass('E');
    If Not AtMine Then
      Break;
    FindNormalRandoms;
    If Not FindArrow Then
    Begin
      WriteLn('MineToAubury - Could not find the transportation symbol. Exiting');
      FNRWait(5000);
      Continue;
    End;
    FindNormalRandoms;
    For I := 0 To 5 Do
    Begin
      If FindPortal(x, y) Then
      Begin
        Mouse(x, y, 0, 0, True);
        T2 := GetSystemTime;
        While AtMine And (GetSystemTime - T2 < 10000) Do
        Begin
          //FindTalk;
          FNRWait(500);
        End;
        Break;
      End;
      Wait(250);
    End;
    FNRWait(1000);
    FindNormalRandoms;
  End;
  If GetSystemTime - T >= 60000 Then
  Begin
    //LogOut;
    WriteLn('No Portal!');
    LogOut;
    Exit;
  End;
  MakeCompass('N');
End;

Procedure AuburyToBank;

Var
   T: Integer;
   P: TPoint;
   A: Extended;
   
Begin
  T := GetSystemTime;
  While GetSystemTime - T < 120000 Do
  Begin
    FindNormalRandoms;
    Mouse(665, 30, 8, 8, True);
    If (FlagDistance < 40) Or (Not FlagPresent)Then
    Begin
      Mouse(MMCX, RandomRange(MMCY + 5, MMCY + 15), 4, 0, True);
      FNRWait(1500);
      DoorClosed;
    End
    Else
    Begin
     { T2 := GetSystemTime;
      While GetSystemTime - T2 < 8000 Do
      Begin
        Wait(1000);
        FindMagicSymbol(P);
        If Distance(P.x, P.y, MMCX, MMCY) > 30 Then
          Break;
      End;
      FFlag(10);  }
      FNRWait(8000);
      FFlag(10);
      FindMagicSymbol(P);
      If Distance(P.x, P.y, MMCX, MMCY) > 30 Then
        Break;
    End;
    If Not FindMagicSymbol(P) Then
      Break;
    If Distance(P.X, P.Y, MMCX, MMCY) > 30 Then
      Break;
  End;
  WriteLn('Out of shop');
  FFlag(0);
  If FindBankers(P, A) Then
  Begin
    Mouse(P.x, P.y, 0, 0, True);
    FNRWait(3000);
    FFlag(0);
  End
  Else
  If FindSymbol(P.x, P.y, 'Bank') Then
  Begin
    Mouse(P.x, P.y, 0, 0, True);
    FNRWait(3000);
    FFlag(0);
  End Else
  Begin
    WriteLn('No Bank');
    LogOut;
  End;
  Players[CurrentPlayer].Loc := 'Bank';
End;

Function FindAuburyText: Boolean;
var      // FindTalk but modded.
  TPA,Matches : TPointArray;
  TempATPA : T2DPointArray;
  I,CTS,x,y : integer;
  Box  : TBox;
  
begin;
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  FindColorsTolerance(TPA, 65535, 3, 3, 515, 336, 0);
  if FindTPAinTPA(aubtpa ,TPA,Matches) then  //Length check inside the function ;)
  For I := 0 to High(Matches) do
  begin;
    FindColorsTolerance(TPA,65535,3, Matches[I].y - 1,516,Matches[I].y + 14,0);
    if High(TPA) < 0 then
      Continue;
    TempATPA := FindGapsTPA(TPA,10);
    if Length(TempATPA) > 1 then
    begin;
      SetLength(TPA,Length(TempATPA));
      For x := 0 to High(TempATPA) do
      begin;
        Box := GetTPABounds(TempATPA[x]);
        TPA[x] := Point((Box.x2 + Box.x1) shr 1, Box.y2);
      end;
      SortTPAFrom(TPA,Point(Matches[I].x,Matches[I].y));
      x := TPA[0].x;
      y := TPA[0].y;
    end else
    begin;
      Box := GetTPABounds(TempATPA[0]);
      x := (Box.x2 + Box.x1) shr 1;
      y := Box.y2;
    end;
    y := y + 8;
    MMouse(x, y, 0, 0);
    Wait(100 + Random(50));
    if IsUpTextMultiCustom(['Talk','lk-to']) then
    begin
      GetMousePos(x, y);
      Mouse(x, y, 0, 0, False);
      Wait(450 + Random(125));
      If ChooseOption('eleport') Then
      Begin
        Result := True;
        Exit;
      End;
    end;
  end;
  ColorToleranceSpeed(CTS);
end;

Function FindAubury: Boolean;

Var
   I, T, cts: Integer;
   P: TPoint;
   PA: TPointArray;
   aPA: T2DPointArray;
   
Begin
  Result := False;
  If FindMagicSymbol(P) Then
  Begin
    If (Distance(P.x, P.y, MMCX, MMCY) > 15) Or (Random(20) = 0) Then
    Begin
      Mouse(P.x + 3, P.y + 10, 2, 2, True);
      Wait(1000);
      FFlag(0);
    End;
  End;
  If FindAuburyText Then
  Begin
    Result := True;
    Exit;
  End;
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  FindColorsTolerance(PA, 2153723, MSX1, MSY1, MSX2, MSY2, 50);
  //writeln(inttostr(length(pa)));
  aPA := TPAToATPA(PA, 50);
  //writeln(inttostr(length(apa)));
  For I := 0 To High(aPA) Do
  Begin
    Wait(200);
    If AtMine Then
    Begin
      Result := True;
      Break;
    End;
    If Length(aPA[I]) < 3 Then
      Continue;
    P := MiddleTPA(aPA[I]);
    MMouse(p.X, P.Y, 3, 3);
    Wait(250);
    If Not IsUpText('bury') Then
      Continue;
    GetMousePos(P.X, P.Y);
    Mouse(P.X, P.Y, 0, 0, False);
    Wait(50);
    If Not ChooseOption('eleport') Then
      Continue;
    T := GetSystemTime;
    While GetSystemTime - T < 15000 Do
    Begin
      Wait(500);
      If AtMine Or (Not FindMagicSymbol(P)) Then
        Break;
    End;
    Result := GetSystemTime - T < 10500;
    If AtMine Then
      Result := True;
    If Result Then
      Break;
  End;
  ColorToleranceSpeed(cts);
End;

Function GetCurrentTPA: TPointArray;

Var
   cts: Integer;

Begin
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  FindColorsTolerance(Result, clWhite, MMX1, MMy1, MMX2, MMY2, 421);
  ColorToleranceSpeed(cts);
End;

Function ScanMM(Const TPA: TPointArray; SD, ED, MinR, MaxR: Integer): Integer;

Begin
  FilterPointsPie(TPA, SD, ED, MinR, MaxR, MMCX, MMCY);
  Result := Length(TPA);
  {$IFDEF DEBUG} DebugMM(TPA); {$ENDIF}
End;

Procedure LoadLocations;

Begin
  SetLength(EssInfo, 6);
  With EssInfo[0] Do
  Begin
    Name := 'North West';
    Info := [TIntegerArray([80, 160, 60, 70, 400]), TIntegerArray([270, 30, 30, 50, 900])];
    MSEss := [Point(190, 100)];
    L := 1;
    ReportIDVar := 6;
  End;
  With EssInfo[1] Do
  Begin
    Name := 'Middle North';
    Info := [TIntegerArray([0, 80, 60, 70, 300]), TIntegerArray([80, 180, 55, 70, 300]),
    TIntegerArray([170, 260, 60, 70, 190]), TIntegerArray([270, 340, 30, 75, 900])];
    {Info := [TIntegerArray([0, 80, 60, 70, 320]), TIntegerArray([80, 180, 55, 70, 320]),
    TIntegerArray([170, 260, 60, 70, 210]), TIntegerArray([270, 340, 30, 75, 1000])];}
    MMClicks := [Point(670, 35)];
    MSEss := [Point(370, 30), Point(430, 55)];
    L := 3;
    ReportIDVar := 3;
  End;
  With EssInfo[2] Do
  Begin
    Name := 'Middle South';
    Info := [TIntegerArray([170, 270, 30, 70, 1700]), TIntegerArray([330, 120, 25, 50, 1700])];
    MMClicks := [Point(590, 120)];
    MSEss := [Point(255, 270), Point(150, 175)];
    L := 1;
    ReportIDVar := 4;
  End;
  With EssInfo[3] Do
  Begin
    Name := 'North East';
    //Info := [TIntegerArray([350, 130, 30, 60, 2000]), TIntegerArray([180, 270, 60, 74, 700])];
    Info := [TIntegerArray([350, 130, 30, 60, 1500]), TIntegerArray([180, 270, 60, 74, 450])];
    MSEss := [Point(365, 95)];
    L := 1;
    ReportIDVar := 5;
  End;
  With EssInfo[4] Do
  Begin
    Name := 'South West';
    Info := [TIntegerArray([290, 70, 0, 74, 3000])];
    MSEss := [Point(252, 65)];
    L := 0;
    ReportIDVar := 8;
  End;
  With EssInfo[5] Do
  Begin
    Name := 'South East';
    //Info := [TIntegerArray([285, 0, 0, 74, 1600]), TIntegerArray([0, 270, 0, 50, 2800])];
    Info := [TIntegerArray([285, 0, 0, 74, 1400]), TIntegerArray([0, 270, 0, 50, 2500])];
    MSEss := [Point(350, 195)];
    L := 1;
    ReportIDVar := 7;
  End;
End;

Function AdeptDegree(CompassAngle: Extended; Degree: Integer): Integer;

Begin
  Result := Round(Abs(CompassAngle + Degree));
  While Result > 360 Do
    Result := Result - 360;
End;

Function FindEssence: Boolean;

Var
   I, cts: Integer;
   P: TPoint;
   TPA: TPointArray;
   aTPA: T2DPointArray;

Begin
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.2, 0.2);
  FindColorsTolerance(TPA, 9737632, MSX1, MSY1, MSX2, MSY2, 20);
  aTPA := TPaToATPAEx(TPA, 15, 15);
  SetLength(TPA, 0);
  SortATPASize(aTPA, True);
  ColorToleranceSpeed(cts);
  For I := 0 To High(aTPA) Do
  Begin
    If Length(aTPa[I]) < 30 Then
      Continue;
    P := MiddleTPA(aTPA[I]);
    MMouse(P.X, P.Y, 5, 5);
    Wait(200);
    If (CountColorTolerance(14342657, 7, 7, 100, 25, 50) > 100) Or IsUpText('ssen') Then
    Begin
      Result := True;
      GetMousePos(P.X, P.Y);
      Mouse(P.X, P.Y, 0, 0, True);
      FNRWait(1000);
      Exit;
    End;
  End;
End;

Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
  // Old Code. Still works.
Var
   I, iX,iY: Integer;
Begin
  For I := iFrom To ITo Do
  Begin
    iX := Round(Distance * Sin(I * Pi / 180)) + MMCX;
    iY := Round(-Distance * Cos(I * Pi / 180)) + MMCY;
    If GetColor(iX, iY) = 65536 Then
    Begin
      Result := Result + 1;
    End;
  End;
End;

Function InAbyss: Boolean;
  // Old Code. Still works.
Var
   A : Integer;

Begin
  Result := False;
  A := ScanMiniMap(0, 359, 50);
  WriteLn('In Abyss gave '+IntToStr(A)+'.');
  If A = 360 Then
  Begin
    WriteLn('We are in the Abyss random.');
    Result := True;
  End
End;

Function GuessAbyssRandom: Boolean;
  // Old Code. Still works.
Var
   AbyssalMark, iX, iY, I, ChosenColor, Tol, Tries: Integer;
   WeirdColors: Array Of Integer;
   Operate: TPoint;
Begin
  WriteLn('In GuessAbyssRandom');
  WeirdColors := [13751777, 4953873, 2509833];
  Repeat
    Case Random(4) Of
      0: Begin Operate.X := 252; Operate.Y := 150; End;
      1: Begin Operate.X := 278; Operate.Y := 170; End;
      2: Begin Operate.X := 238; Operate.Y := 200; End;
      3: Begin Operate.X := 215; Operate.Y := 166; End;
    End;
    For I := 0 To 2 Do
    Begin
      Tol := 0;
      Repeat
        Tol := Tol + 1;
        iX := MSCX;
        iY := MSCY;
        If FindColorSpiralTolerance(iX, iY, WeirdColors[I], MSX1, MSY1, MSX2, MSY2, Tol) Then
        Begin
          ChosenColor := WeirdColors[I];
          If (Distance (iX, iY, MSCX, MSCY) < 120) Then Break;
        End;
        If ChosenColor <> 0 Then
          Break;
      Until Tol > 9;
    End;

    If ChosenColor <> 0 Then
    Begin
      MMouse(iX, iY, 0, 0);
      Wait(100);
      If IsUpText('perate') Then
      Begin
        GetMousePos(iX, iY);
        Mouse(iX, iY, 0, 0, True);
      End;
    End;

    Wait(5000+Random(500));
    If Not InAbyss Then
    Begin
      Abyss := Abyss + 1;
      ReportVars[8] := ReportVars[8] + 1;
      Result := True;
      Wait(1000);
      ClickToContinue;
      SRLRandomsReport;
      Exit;
   End;
    Tries := Tries + 1;
    If TimeFromMark(AbyssalMark) > 60000 * 5 Then Break;
  Until Tries > 30;

   Tries := 0;
   If InAbyss Then
   Begin
    Repeat
      Case Random(4) Of
        0: Begin Operate.X := 252; Operate.Y := 150; End;
        1: Begin Operate.X := 278; Operate.Y := 170; End;
        2: Begin Operate.X := 238; Operate.Y := 200; End;
        3: Begin Operate.X := 215; Operate.Y := 166; End;
      End;
      iX := Operate.X;
      iY := Operate.Y;
      If FindColorSpiralTolerance(iX, iY, 3393, MSX1, MSY1, MSX2, MSY2, Tol)
      Or FindColorSpiralTolerance(iX, iY, 2040150, MSX1, MSY1, MSX2, MSY2, Tol) Then
      Begin
        If (Distance (iX, iY, MSCX, MSCY) < 80) Then
        Begin
          MMouse(iX, iY, 0, 0);
          Wait(100);
          If IsUpText('perate') Then
          Begin
            GetMousePos(iX, iY);
            Mouse(iX, iY, 0, 0, True);
            Wait(5000+ Random(500));
            If Not InAbyss Then
            Begin
              Abyss := Abyss + 1;
              ReportVars[8] := ReportVars[8] + 1;
              Result := True;
              ClickToContinue;
              SRLRandomsReport;
              Exit;
            End;
          End;
        End;
      End;
      Tries := Tries + 1;
      Tol := Tol + 2;
      If Tol > 20 Then Tol := 2;
    Until Tries > 50;
  End;
  LogOut;
  ReportVars[9] := ReportVars[9] + 1;
  Players[CurrentPlayer].Loc := 'Abyss';
  SRLRandomsReport;
  WriteLn('Abyss Random Event Failed.');
End;

Function GetPos: String;
   // Get's our position and acts accoringly.
Var
   TPA: TPointArray;
   I, C, E: Integer;
   CA: Extended;

Begin
  Wait(500);

  MakeCompass('N');
  Result := '';

  TPA := GetCurrentTPA;
  CA := rs_GetCompassAngleDegrees;
  For I := Low(EssInfo) To High(EssInfo) Do
  Begin
    With EssInfo[I] Do
    Begin
      //WriteLn(EssInfo[I].Name + ': Info Length ' + IntToStr(Length(Info)));
      For C := 0 To L Do
      Begin
        E := ScanMM(TPA, AdeptDegree(CA, Info[C][0]), AdeptDegree(CA, Info[C][1]),
        Info[C][2], Info[C][3]);

        //WriteLn(IntToStr(c) + '...' +  IntToStr(E) + ' vs ' + IntToStr(Info[C][4]));

        If E < Info[C][4] Then
        Begin
          //WriteLn('Breaking... ' + IntToStr(C) + ' E('+inttostr(E) + ') was smaller than info[C][4](' + inttostr(info[C][4]) + ')');
          Break;
        End;
      End;
      If C = L + 1 Then
      Begin
        Result := Name;
        WriteLn('Location: ' + Result);
        Break;
      End;
    End;
  End;
  If Result = '' Then
  Begin
    WriteLn('No Location!');
    TerminateScript;
  End;
  
  If I = Length(EssInfo) Then
    Exit;
  Inc(ReportVars[EssInfo[I].ReportIDVar]);

  With EssInfo[I] Do
  Begin
    For I := Low(MMClicks) To High(MMClicks) Do
    Begin
      Mouse(MMClicks[I].X, MMClicks[I].Y, 4, 4, True);
      Wait(2000);
      FFlag(0);
      Wait(500);
    End;
    If Not FindEssence Then
    Begin
      NoEssFound := True;
      WriteLn('No Essence');
      //TerminateScript;
    End;
  End;
End;

Function EssenceCount: Integer;

Var
   I: Integer;
   TPA: TPointArray;
   B: TBox;

Begin
  Result := 0;
  For I := 1 To 28 Do
  Begin
    B := InvBox(I);
    FindColorsTolerance(TPA, 65536, B.X1, B.Y1, B.X2, B.Y2, 0);
    If Length(TPA) = 82 Then
      Result := Result + 1;
  End;
End;

Procedure Bank;

Var
   I: Integer;
   P: TPoint;
   A: Extended;
   TempEss: Integer;
   
Begin
  ReportVars[1] := ReportVars[1] + 1; // Banks
  Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
  For I := 0 To 2 Do
    If OpenBankFast('veb') Then
      Break
    Else
      If FindBankers(P, A) Then
      Begin
        Mouse(p.x, p.y, 0, 0, True);
        Wait(4000);
        FFlag(0);
        Wait(1500);
      End;
  If Not BankScreen Or PinScreen Then
  Begin
    LogOut;
    Players[CurrentPlayer].Loc := 'NoBank';
    Players[CurrentPlayer].Active := False;
    Exit;
  End;
  TempEss := EssenceCount;
  EssenceMined := EssenceMined + TempEss;
  ReportVars[0] := ReportVars[0] + TempEss;
  Players[CurrentPlayer].Integers[0] := Players[CurrentPlayer].Integers[0] + TempEss;
  If Players[CurrentPlayer].Booleans[0] Then
    Deposit(1, 28, True)
  Else
    Deposit(2, 28, True);
    
  CloseBank;
End;

Procedure PlayerReport;

Var
  Active, Rand: string;
  I: Integer;

Begin
  For I := 0 To High(Players) Do
  Begin
    If Players[i].Active Then
      Active := 'T'
    Else
      Active := 'F';
    If Players[i].Rand <> '' Then
      Rand := '; Rand: ' + Players[i].Rand
    Else
      Rand := '';

    WriteLn((IntToStr(I)) + ' : ' + Players[I].Nick + ' = ' +
     Active + '; ' + Players[I].Loc  + rand + '; B: ' + IntToStr(Players[I].Integers[0])
     + ' Essence;'+ ' M : ' + IntToStr(Players[I].Level[15]));
  End;
End;

Procedure ProgressReport;

Begin
  WriteLn('----------------------------');
  WriteLn('');
  WriteLn('Wizzup? Essence Miner, Version ' + VersionNumber);
  WriteLn('');
  WriteLn('Worked for '+ TimeRunning);
  WriteLn('Mined ' + IntToStr(EssenceMined) + ' Essence');
  If Abyss > 0 Then WriteLn('Solved ' + IntToStr(Abyss) + ' abyssal random events.');
  WriteLn('');
  WriteLn('----------------------------');
  WriteLn('');
  PlayerReport;
  WriteLn('');
  WriteLn('----------------------------');
  SRLRandomsReport;
End;

Procedure ScriptTerminate;

Begin
  ProgressReport;
End;

Function GetAndSetAnyReferenceColor: Boolean;

Var
   c: integer;

Begin
  NewAutoColorWorked := False;
  c := FindRockColor;
  If c > 0 Then
  Begin
    SetAutoColorReference('grey rock', c);
    WriteLn('Got the color using the grey rock');
    NewAutoColorWorked := True;
    Result := True;
    Exit;
  End;
End;

Procedure InitPlayer;

Var
   I: Integer;
Begin
  For I := 1 To 5 Do
  If Not Players[CurrentPlayer].Booleans[I] Then
  Begin
    Case I Of
      1: SetGraphics(4, '', '' ,'', '', '', '', '', '');
      2: Retaliate(False);
      3: SetAudio(0, 0, 0, Mono);
    End;
    Players[CurrentPlayer].Booleans[I] := True;
  End;

  GetAllLevels;
  SetChat('on',1);
  SetChat('friends',2);
  SetChat('on',3);
  SetAngle(True);
End;

Procedure SetupScript;

Var
   I: Integer;
Begin
  SRLID := SRL_ID;
  SRLPassword := SRL_PASS;
  For I := 1 To 19 Do
    ReportVars[I] := 0;
  ScriptID := '51';
  DeclarePlayers;
  LoginPlayer;
  InitPlayer;
End;

Var
  T, T2, I:integer;
 
begin
  Smartsetup(SmartPrefix, true, true, false);
  Settargetdc(smartgetdc);
  AubTPA := CreateTPAFromText('isthin', UpChars);
  SetupSRL;
  SetupScript;

  LoadLocations;
  SetupNewAutoColor;
  GetAndSetAnyReferenceColor;
  Repeat
  
    If Players[CurrentPlayer].Loc = 'Bank' Then
      BankToAubury;

    If Players[CurrentPlayer].Loc = 'Aubury' Then
    Begin
      T2 := GetSystemTime;
      While Not AtMine Do
      Begin
        If GetSystemTime - T2 > 180000 Then
        Begin
          Players[CurrentPlayer].Loc := 'NoAubury';
          Break;
        End;
        DoorClosed;
        If FindAubury Then
        Begin
          T := GetSystemTime;
          While (Not AtMine) and (GetSystemTime - t < 10000) Do Wait(250);
          If AtMine Then
            Break;
        End;
        Wait(500);
      End;
      Players[CurrentPlayer].Loc := 'Mine';
    End;
    
    If Players[CurrentPlayer].Loc = 'Mine' Then
    Begin
      Wait(500);
      If InAbyss Then
        GuessAbyssRandom;

      GetPos;
      T := GetSystemTime;
      T2 := GetSystemTime;
      While (GetSystemTime - T < 180000) And (InvCount < 28) Do
      Begin
        If NoEssFound Then
        Begin
          WriteLn('We did not find any essence...');
          NoEssFound := NoEssFound xor NoEssFound;
          Break;
        End;
        If GetSystemTime - T2 > 60000 Then
        Begin
          I := Random(13) + 1;
          If I = 4 Then I := 2;
          GameTab(I);
          Wait(RandomRange(200, 4000));
          GameTab(4);
          T2 := GetSystemTime;
        End;

        If FindFight Then
          Break;
        Wait(1000);
        If LevelUp Then
        Begin
          WriteLn('You levelled up');
          Break;
        End;
        If FindNormalRandoms Then
        Begin
          T := GetSystemTime;
          While GetSystemTime - T < 5000 Do
          Begin
            Wait(250);
            FindNormalRandoms;
          End;
        End;
      End;
      MineToAubury;
      AuburyToBank;
      Bank;
    End;

    ProgressReport;
    
    If Not LoggedIn Then
    Begin
      NextPlayer(False);
      InitPlayer;
      Continue;
    End;
    
    If Players[CurrentPlayer].Banked Mod Loads = 0 Then
    Begin
      NextPlayer(True);
      InitPlayer;
      Continue;
    End;

  Until False;
End.

I was trying to use Wizzup?'s Essence Miner.

Thank you for helping me by the way! :)

yeah no problem. are you sure this works with srl rev 28 or are you not sure? because Im getting a different error and I'm up to date. Rev 28 just came out so not all scripts are updated yet.

Edit: nvm its fixed here yah go:

program New;

{.include SRL/SRL.scar}
{.include srl/srl/misc/NewAutoColor.scar}

Const
   NumberOfUsers = 4;
   StartPlayer = 0;
   Loads = 5;
   VersionNumber = '2.03';
   SRL_ID   = '';  // Stats ID.
   SRL_PASS = ''; // Stats Pass.

Type
   EssLoc = Record
     Name: String;
     Info: Array Of Array Of Integer;
     MMClicks, MSEss: TPointArray;
     L, ReportIDVar: Integer;
   End;
   EssLocArray = Array Of EssLoc;

Var
   EssInfo: EssLocArray;
   AubTPA: TPointArray;
   NewAutoColorWorked, NoEssFound: Boolean;
   EssenceMined, Abyss: Integer;

//{$DEFINE DEBUG}

Procedure DeclarePlayers;

Begin
  NumberOfPlayers( NumberOfUsers );
  CurrentPlayer := StartPlayer;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active := True;
  Players[0].Loc := 'Bank';
  Players[0].Booleans[0]  := True;       // Is The Pick Equipped?

  Players[1].Name :='';
  Players[1].Pass :='';
  Players[1].Nick :='';
  Players[1].Active := True;
  Players[1].Loc := 'Bank';
  Players[1].Booleans[0]  := True;       // Is The Pick Equipped?

  Players[2].Name :='';
  Players[2].Pass :='';
  Players[2].Nick :='';
  Players[2].Active := True;
  Players[2].Loc := 'Bank';
  Players[2].Booleans[0]  := True;       // Is The Pick Equipped?}

  Players[3].Name :='';
  Players[3].Pass :='';
  Players[3].Nick :='';
  Players[3].Active := True;
  Players[3].Loc := 'Bank';
  Players[3].Booleans[0]  := True;       // Is The Pick Equipped?

  Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
  SetPlayerNameTPAs;
End;

Procedure FNRWait(ms: Integer);

Var
   T: Integer;
Begin
  T := GetSystemTime;
  While GetSystemTime - T < ms Do
  Begin
    Wait(200);
    FindNormalRandoms;
  End;
End;

Procedure DebugMM(TPA: TPointArray);

Var
   I, L: Integer;
   C: TCanvas;

Begin
  DisplayDebugImgWindow(0, 0);
  DisplayDebugImgWindow(MMX2-MMX1, MMY2-MMY1);
  C := GetDebugCanvas;
  CopyCanvas(GetClientCanvas, C, MMX1, MMY1, MMX2, MMY2, 0, 0, MMX2 - MMX1, MMY2 - MMy1);
  L := High(tpa);
  For I := 0 To L Do
    C.Pixels[tpa[i].x - MMX1, tpa[i].y - MMY1] := 255;
  DisplayDebugImgWindow(MMX2-MMX1, MMY2-MMY1);
End;

Function FindMagicSymbol(Var P: TPoint): Boolean;

Var
   I, J, cts: Integer;
   Points, P2: TPointArray;
   aTPA: T2DPointArray;
   MagicSymbolColors, C: TIntegerArray;
   H, S, L: Extended;

Begin
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.20, 2.0);
  Result := False;
  MagicSymbolColors := [2326527, 2925567];

  SetLength(Points, 0);
  For I := 0 To High(MagicSymbolColors) Do
  Begin
    SetLength(P2, 0);
    SetLength(C, 0);
    FindColorsTolerance(P2, MagicSymbolColors[i], MMX1, MMY1, MMX2, MMY2, 18);
    C := GetColors(P2);
    For J := 0 To High(C) Do
    Begin
      ColorToHSL(C[J], H, S, L);
      //If ((H > 8.5) And (H < 9.5)) Or ((H > 5.5) And (H < 7.5)) Then
      If (((H > 5.5) And (H < 10.0)) Or (H < 1.0)) And (S > 85.0) Then
      Begin
        SetLength(Points, Length(Points) + 1);
        Points[High(Points)] := P2[J];
      End;
    End;
    //Points := CombineTPA(Points, P2);
  End;
  {$IFDEF DEBUG} debugMM(Points); {$ENDIF}
  ColorToleranceSpeed(cts);
  aTPA := SplitTPA(Points, 5);
  SortATPASize(aTPA, True);
  If Length(aTPA) = 0 Then
    Exit;
  Result := Length(aTPA[0]) > 2;
  P := MiddleTPA(aTPA[0]);
  If Not Result Then
    WriteLn('No Aubury Shop');
End;

Function LevelUp: Boolean;

Begin
  Result := FindNPCChatText('gratu', Nothing);
  If Not Result Then
    Result := FindNPCChatText('atio', Nothing);
  If Result Then
  Begin
    While ClickContinue(True, True) Do
      Wait(500);
  End;
End;

Function FindBankers(Var Bank: TPoint; Var Angle: Extended): Boolean;

Var
   I: Integer;
   B, gB: TPointArray;
   aTPA: T2DPointArray;

Begin
  Result := False;
  FindColorsSpiralTolerance(MMCX, MMY2, B, 60909, MMX1, MMY1, MMX2, MMY2, 0);
  aTPA := SplitTPA(B, 10);
  SortATPASize(aTPA, True);
  If Length(aTPA) = 0 Then
    Exit;
  B := aTPA[0];
  For I := 0 To High(B) - 1 Do
  Begin
    If (Abs(B[i].Y - B[I + 1].Y) < 15) And (Abs(B[i].X - B[I + 1].X) < 60) Then
    Begin
      SetLength(gB, Length(gB) + 1);
      gB[High(gB)] := B[i];
      If High(gB) > 3 Then // 4 bankers.
      Begin
        Bank := MiddleTPA(gB);
        Bank.Y := Bank.Y - 5;
        Angle := Degrees(ArcTan2(gB[0].y - gB[High(gB)].y, gB[0].x - gB[High(gB)].x)) + 90;
        If Angle < 0 Then
          Angle := 90 - (Angle * -1) + 270;
        Result := True;
        Exit;
      End;
    End
    Else
      SetLength(gB, 0);
  End;
End;

Function Randomize(x, Randomness: Integer): Integer;

Begin
  Result := RandomRange(X - Randomness, X + Randomness);
End;

Function AtMine: Boolean;

Var
   TPA: TPointArray;
Begin
  FindColorsTolerance(TPA, 65536, MMX1, MMY1, MMX2, MMY2, 1);
  Result := Length(TPA) > 2000;
End;

Function GetUpTextBlue:String;

Begin
  Result := Trim(GetTextAtEx(7, 7, 140, upchars, true,
  true, 0, 2, 14277634, 50, True, tr_AllChars));
End;

Function IsUpTextBlue(Text: String): Boolean;

Begin
  Result := (Pos(Text, GetUpTextBlue) <> 0)
End;

Function FindPortal(Var x, y: Integer): Boolean;

Var
   CTS, I, C: Integer;
   vPoint: TPoint;
   Points: TPointArray;
   aPoints: T2DPointArray;
   s: String;
   sa: Array Of String;

Begin
  Cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.40, 1.50);         //    9743280
  FindColorsSpiralTolerance(MSCX, MSCY, Points, 9481130, MSX1, MSY1, MSX2, MSY2, 10);
  aPoints := TPAToATPAEx(Points, 40, 40);
  sa := ['Use', 'Portal', 'ortal', 'se Por'];
  ColorToleranceSpeed(Cts);
  For I := 0 To High(aPoints) Do
  Begin
    If Length(aPoints[i]) < 40 Then
      Continue;
    vPoint := MiddleTPA(aPoints[i]);
    MMouse(vPoint.X, vPoint.Y, 5, 5);
    Wait(150);
    Cts := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.2, 0.2);         //    9743280
    If CountColorTolerance(14342657, 7, 7, 100, 25, 50) > 100 Then
    Begin
      GetMousePos(x, y);
      Result := True;
      ColorToleranceSpeed(Cts);
      Exit;
    End;

    ColorToleranceSpeed(1);
    s := rs_GetUpText;
    For C := 0 To High(sa) Do
      If Pos(sa[C], s) <> 0 Then
        Break;
    If C = Length(sa) Then
      If Not IsUpTextBlue('ortal') Then
        Continue;
    GetMousePos(x, y);
    Result := True;
  End;
  ColorToleranceSpeed(Cts);
End;

Function DoorClosed: Boolean;

Var
   TP: TPoint;
   TPA: TPointArray;
   aTPA: T2DPointArray;
   I, c: Integer;

Begin
  Result := False;
  c := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorspeed2Modifiers(0.2, 0.5);
  FindColorsTolerance(TPA, 5208714, 3, 3, 515, 336, 8);
  //aTPA := TPAToATPAEx(TPA, 50, 50);
  aTPA := SplitTPA(TPA, 3);
  For I := 0 To High(aTPA) Do
  Begin
    If Length(aTPA[i]) < 320 Then
      Continue;
    TP := MiddleTPA(aTPA[i]);
    MMouse(TP.X, TP.Y, 0, 0);
    Wait(200);
    If IsUpText('pen') And IsUpText('oor') Then
    Begin
      Result := True;
      Mouse(TP.X, TP.Y, 0, 0, True);
      FFlag(0);
      Break;
    End;
  End;
  ColorToleranceSpeed(c);
  SetColorspeed2Modifiers(0.2, 0.2);
End;

Function FindArrow: Boolean;

Var
   x, y: Integer;
Begin
  Result := False;
  If NewAutoColorWorked Then
    If FindColor(x, y, srl_AutoGetColor('transport'), MMX1, MMY1, MMX2, MMY2) Then
    Begin
      Result := True;
      WriteLn('Succesfully used NewAutoColor for FindArrow');
    End;
  If Not Result Then
    If FindSymbol(x, y, 'transportation') Then
      Result := True;
  If Result Then
  Begin
    Mouse(x, y, 4, 4, True);
    Wait(1000);
    FFlag(0);
    FNRWait(1000);
  End;
End;

Procedure BankToAubury;

Var
   V: TPoint;
   T: Integer;

Begin
  FindNormalRandoms;
  MFNF(Randomize(640, 4), Randomize(140, 4), -1, -1);
  Wait(10000);
  T := GetSystemTime;
  While (GetSystemTime - T < 60000) Do
  Begin
    FindNormalRandoms;
    If FindMagicSymbol(V) Then
      Break;
    Wait(500);
  End;
  If GetSystemTime - T >= 60000 Then
  Begin
    WriteLn('BankToAuburyTime');
    LogOut;
    Exit;
  End;
  Mouse(V.X, V.Y + 3, 0, 0, True);
  Wait(500);
  FFlag(0);
  Players[CurrentPlayer].Loc := 'Aubury';
End;

Procedure MineToAubury;

Var
   x, y, T, T2, I: Integer;

Begin
  FNRWait(1000);

  T := GetSystemTime;
  While GetSystemTime - T < 60000 Do
  Begin
    If GetSystemTime - T > 30000 Then
      MakeCompass('E');
    If Not AtMine Then
      Break;
    FindNormalRandoms;
    If Not FindArrow Then
    Begin
      WriteLn('MineToAubury - Could not find the transportation symbol. Exiting');
      FNRWait(5000);
      Continue;
    End;
    FindNormalRandoms;
    For I := 0 To 5 Do
    Begin
      If FindPortal(x, y) Then
      Begin
        Mouse(x, y, 0, 0, True);
        T2 := GetSystemTime;
        While AtMine And (GetSystemTime - T2 < 10000) Do
        Begin
          //FindTalk;
          FNRWait(500);
        End;
        Break;
      End;
      Wait(250);
    End;
    FNRWait(1000);
    FindNormalRandoms;
  End;
  If GetSystemTime - T >= 60000 Then
  Begin
    //LogOut;
    WriteLn('No Portal!');
    LogOut;
    Exit;
  End;
  MakeCompass('N');
End;

Procedure AuburyToBank;

Var
   T: Integer;
   P: TPoint;
   A: Extended;

Begin
  T := GetSystemTime;
  While GetSystemTime - T < 120000 Do
  Begin
    FindNormalRandoms;
    Mouse(665, 30, 8, 8, True);
    If (FlagDistance < 40) Or (Not FlagPresent)Then
    Begin
      Mouse(MMCX, RandomRange(MMCY + 5, MMCY + 15), 4, 0, True);
      FNRWait(1500);
      DoorClosed;
    End
    Else
    Begin
     { T2 := GetSystemTime;
      While GetSystemTime - T2 < 8000 Do
      Begin
        Wait(1000);
        FindMagicSymbol(P);
        If Distance(P.x, P.y, MMCX, MMCY) > 30 Then
          Break;
      End;
      FFlag(10);  }
      FNRWait(8000);
      FFlag(10);
      FindMagicSymbol(P);
      If Distance(P.x, P.y, MMCX, MMCY) > 30 Then
        Break;
    End;
    If Not FindMagicSymbol(P) Then
      Break;
    If Distance(P.X, P.Y, MMCX, MMCY) > 30 Then
      Break;
  End;
  WriteLn('Out of shop');
  FFlag(0);
  If FindBankers(P, A) Then
  Begin
    Mouse(P.x, P.y, 0, 0, True);
    FNRWait(3000);
    FFlag(0);
  End
  Else
  If FindSymbol(P.x, P.y, 'Bank') Then
  Begin
    Mouse(P.x, P.y, 0, 0, True);
    FNRWait(3000);
    FFlag(0);
  End Else
  Begin
    WriteLn('No Bank');
    LogOut;
  End;
  Players[CurrentPlayer].Loc := 'Bank';
End;

Function FindAuburyText: Boolean;
var      // FindTalk but modded.
  TPA,Matches : TPointArray;
  TempATPA : T2DPointArray;
  I,CTS,x,y : integer;
  Box  : TBox;

begin;
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  FindColorsTolerance(TPA, 65535, 3, 3, 515, 336, 0);
  if FindTPAinTPA(aubtpa ,TPA,Matches) then  //Length check inside the function ;)
  For I := 0 to High(Matches) do
  begin;
    FindColorsTolerance(TPA,65535,3, Matches[i].y - 1,516,Matches[i].y + 14,0);
    if High(TPA) < 0 then
      Continue;
    TempATPA := FindGapsTPA(TPA,10);
    if Length(TempATPA) > 1 then
    begin;
      SetLength(TPA,Length(TempATPA));
      For x := 0 to High(TempATPA) do
      begin;
        Box := GetTPABounds(TempATPA[x]);
        TPA[x] := Point((Box.x2 + Box.x1) shr 1, Box.y2);
      end;
      SortTPAFrom(TPA,Point(Matches[i].x,Matches[i].y));
      x := TPA[0].x;
      y := TPA[0].y;
    end else
    begin;
      Box := GetTPABounds(TempATPA[0]);
      x := (Box.x2 + Box.x1) shr 1;
      y := Box.y2;
    end;
    y := y + 8;
    MMouse(x, y, 0, 0);
    Wait(100 + Random(50));
    if IsUpTextMultiCustom(['Talk','lk-to']) then
    begin
      GetMousePos(x, y);
      Mouse(x, y, 0, 0, False);
      Wait(450 + Random(125));
      If ChooseOption('eleport') Then
      Begin
        Result := True;
        Exit;
      End;
    end;
  end;
  ColorToleranceSpeed(CTS);
end;

Function FindAubury: Boolean;

Var
   I, T, cts: Integer;
   P: TPoint;
   PA: TPointArray;
   aPA: T2DPointArray;

Begin
  Result := False;
  If FindMagicSymbol(P) Then
  Begin
    If (Distance(P.x, P.y, MMCX, MMCY) > 15) Or (Random(20) = 0) Then
    Begin
      Mouse(P.x + 3, P.y + 10, 2, 2, True);
      Wait(1000);
      FFlag(0);
    End;
  End;
  If FindAuburyText Then
  Begin
    Result := True;
    Exit;
  End;
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  FindColorsTolerance(PA, 2153723, MSX1, MSY1, MSX2, MSY2, 50);
  //writeln(inttostr(length(pa)));
  aPA := TPAToATPA(PA, 50);
  //writeln(inttostr(length(apa)));
  For I := 0 To High(aPA) Do
  Begin
    Wait(200);
    If AtMine Then
    Begin
      Result := True;
      Break;
    End;
    If Length(aPA[i]) < 3 Then
      Continue;
    P := MiddleTPA(aPA[i]);
    MMouse(p.X, P.Y, 3, 3);
    Wait(250);
    If Not IsUpText('bury') Then
      Continue;
    GetMousePos(P.X, P.Y);
    Mouse(P.X, P.Y, 0, 0, False);
    Wait(50);
    If Not ChooseOption('eleport') Then
      Continue;
    T := GetSystemTime;
    While GetSystemTime - T < 15000 Do
    Begin
      Wait(500);
      If AtMine Or (Not FindMagicSymbol(P)) Then
        Break;
    End;
    Result := GetSystemTime - T < 10500;
    If AtMine Then
      Result := True;
    If Result Then
      Break;
  End;
  ColorToleranceSpeed(cts);
End;

Function GetCurrentTPA: TPointArray;

Var
   cts: Integer;

Begin
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  FindColorsTolerance(Result, clWhite, MMX1, MMy1, MMX2, MMY2, 421);
  ColorToleranceSpeed(cts);
End;

Function ScanMM(Const TPA: TPointArray; SD, ED, MinR, MaxR: Integer): Integer;

Begin
  FilterPointsPie(TPA, SD, ED, MinR, MaxR, MMCX, MMCY);
  Result := Length(TPA);
  {$IFDEF DEBUG} DebugMM(TPA); {$ENDIF}
End;

Procedure LoadLocations;

Begin
  SetLength(EssInfo, 6);
  With EssInfo[0] Do
  Begin
    Name := 'North West';
    Info := [TIntegerArray([80, 160, 60, 70, 400]), TIntegerArray([270, 30, 30, 50, 900])];
    MSEss := [Point(190, 100)];
    L := 1;
    ReportIDVar := 6;
  End;
  With EssInfo[1] Do
  Begin
    Name := 'Middle North';
    Info := [TIntegerArray([0, 80, 60, 70, 300]), TIntegerArray([80, 180, 55, 70, 300]),
    TIntegerArray([170, 260, 60, 70, 190]), TIntegerArray([270, 340, 30, 75, 900])];
    {Info := [TIntegerArray([0, 80, 60, 70, 320]), TIntegerArray([80, 180, 55, 70, 320]),
    TIntegerArray([170, 260, 60, 70, 210]), TIntegerArray([270, 340, 30, 75, 1000])];}
    MMClicks := [Point(670, 35)];
    MSEss := [Point(370, 30), Point(430, 55)];
    L := 3;
    ReportIDVar := 3;
  End;
  With EssInfo[2] Do
  Begin
    Name := 'Middle South';
    Info := [TIntegerArray([170, 270, 30, 70, 1700]), TIntegerArray([330, 120, 25, 50, 1700])];
    MMClicks := [Point(590, 120)];
    MSEss := [Point(255, 270), Point(150, 175)];
    L := 1;
    ReportIDVar := 4;
  End;
  With EssInfo[3] Do
  Begin
    Name := 'North East';
    //Info := [TIntegerArray([350, 130, 30, 60, 2000]), TIntegerArray([180, 270, 60, 74, 700])];
    Info := [TIntegerArray([350, 130, 30, 60, 1500]), TIntegerArray([180, 270, 60, 74, 450])];
    MSEss := [Point(365, 95)];
    L := 1;
    ReportIDVar := 5;
  End;
  With EssInfo[4] Do
  Begin
    Name := 'South West';
    Info := [TIntegerArray([290, 70, 0, 74, 3000])];
    MSEss := [Point(252, 65)];
    L := 0;
    ReportIDVar := 8;
  End;
  With EssInfo[5] Do
  Begin
    Name := 'South East';
    //Info := [TIntegerArray([285, 0, 0, 74, 1600]), TIntegerArray([0, 270, 0, 50, 2800])];
    Info := [TIntegerArray([285, 0, 0, 74, 1400]), TIntegerArray([0, 270, 0, 50, 2500])];
    MSEss := [Point(350, 195)];
    L := 1;
    ReportIDVar := 7;
  End;
End;

Function AdeptDegree(CompassAngle: Extended; Degree: Integer): Integer;

Begin
  Result := Round(Abs(CompassAngle + Degree));
  While Result > 360 Do
    Result := Result - 360;
End;

Function FindEssence: Boolean;

Var
   I, cts: Integer;
   P: TPoint;
   TPA: TPointArray;
   aTPA: T2DPointArray;

Begin
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.2, 0.2);
  FindColorsTolerance(TPA, 9737632, MSX1, MSY1, MSX2, MSY2, 20);
  aTPA := TPaToATPAEx(TPA, 15, 15);
  SetLength(TPA, 0);
  SortATPASize(aTPA, True);
  ColorToleranceSpeed(cts);
  For I := 0 To High(aTPA) Do
  Begin
    If Length(aTPa[i]) < 30 Then
      Continue;
    P := MiddleTPA(aTPA[i]);
    MMouse(P.X, P.Y, 5, 5);
    Wait(200);
    If (CountColorTolerance(14342657, 7, 7, 100, 25, 50) > 100) Or IsUpText('ssen') Then
    Begin
      Result := True;
      GetMousePos(P.X, P.Y);
      Mouse(P.X, P.Y, 0, 0, True);
      FNRWait(1000);
      Exit;
    End;
  End;
End;

Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
  // Old Code. Still works.
Var
   I, iX,iY: Integer;
Begin
  For I := iFrom To ITo Do
  Begin
    iX := Round(Distance * Sin(I * Pi / 180)) + MMCX;
    iY := Round(-Distance * Cos(I * Pi / 180)) + MMCY;
    If GetColor(iX, iY) = 65536 Then
    Begin
      Result := Result + 1;
    End;
  End;
End;

Function InAbyss: Boolean;
  // Old Code. Still works.
Var
   A : Integer;

Begin
  Result := False;
  A := ScanMiniMap(0, 359, 50);
  WriteLn('In Abyss gave '+IntToStr(A)+'.');
  If A = 360 Then
  Begin
    WriteLn('We are in the Abyss random.');
    Result := True;
  End
End;

Function GuessAbyssRandom: Boolean;
  // Old Code. Still works.
Var
   AbyssalMark, iX, iY, I, ChosenColor, Tol, Tries: Integer;
   WeirdColors: Array Of Integer;
   Operate: TPoint;
Begin
  WriteLn('In GuessAbyssRandom');
  WeirdColors := [13751777, 4953873, 2509833];
  Repeat
    Case Random(4) Of
      0: Begin Operate.X := 252; Operate.Y := 150; End;
      1: Begin Operate.X := 278; Operate.Y := 170; End;
      2: Begin Operate.X := 238; Operate.Y := 200; End;
      3: Begin Operate.X := 215; Operate.Y := 166; End;
    End;
    For I := 0 To 2 Do
    Begin
      Tol := 0;
      Repeat
        Tol := Tol + 1;
        iX := MSCX;
        iY := MSCY;
        If FindColorSpiralTolerance(iX, iY, WeirdColors[i], MSX1, MSY1, MSX2, MSY2, Tol) Then
        Begin
          ChosenColor := WeirdColors[i];
          If (Distance (iX, iY, MSCX, MSCY) < 120) Then Break;
        End;
        If ChosenColor <> 0 Then
          Break;
      Until Tol > 9;
    End;

    If ChosenColor <> 0 Then
    Begin
      MMouse(iX, iY, 0, 0);
      Wait(100);
      If IsUpText('perate') Then
      Begin
        GetMousePos(iX, iY);
        Mouse(iX, iY, 0, 0, True);
      End;
    End;

    Wait(5000+Random(500));
    If Not InAbyss Then
    Begin
      Abyss := Abyss + 1;
      ReportVars[8] := ReportVars[8] + 1;
      Result := True;
      Wait(1000);
      ClickToContinue;
      SRLRandomsReport;
      Exit;
   End;
    Tries := Tries + 1;
    If TimeFromMark(AbyssalMark) > 60000 * 5 Then Break;
  Until Tries > 30;

   Tries := 0;
   If InAbyss Then
   Begin
    Repeat
      Case Random(4) Of
        0: Begin Operate.X := 252; Operate.Y := 150; End;
        1: Begin Operate.X := 278; Operate.Y := 170; End;
        2: Begin Operate.X := 238; Operate.Y := 200; End;
        3: Begin Operate.X := 215; Operate.Y := 166; End;
      End;
      iX := Operate.X;
      iY := Operate.Y;
      If FindColorSpiralTolerance(iX, iY, 3393, MSX1, MSY1, MSX2, MSY2, Tol)
      Or FindColorSpiralTolerance(iX, iY, 2040150, MSX1, MSY1, MSX2, MSY2, Tol) Then
      Begin
        If (Distance (iX, iY, MSCX, MSCY) < 80) Then
        Begin
          MMouse(iX, iY, 0, 0);
          Wait(100);
          If IsUpText('perate') Then
          Begin
            GetMousePos(iX, iY);
            Mouse(iX, iY, 0, 0, True);
            Wait(5000+ Random(500));
            If Not InAbyss Then
            Begin
              Abyss := Abyss + 1;
              ReportVars[8] := ReportVars[8] + 1;
              Result := True;
              ClickToContinue;
              SRLRandomsReport;
              Exit;
            End;
          End;
        End;
      End;
      Tries := Tries + 1;
      Tol := Tol + 2;
      If Tol > 20 Then Tol := 2;
    Until Tries > 50;
  End;
  LogOut;
  ReportVars[9] := ReportVars[9] + 1;
  Players[CurrentPlayer].Loc := 'Abyss';
  SRLRandomsReport;
  WriteLn('Abyss Random Event Failed.');
End;

Function GetPos: String;
   // Get's our position and acts accoringly.
Var
   TPA: TPointArray;
   I, C, E: Integer;
   CA: Extended;

Begin
  Wait(500);

  MakeCompass('N');
  Result := '';

  TPA := GetCurrentTPA;
  CA := rs_GetCompassAngleDegrees;
  For I := Low(EssInfo) To High(EssInfo) Do
  Begin
    With EssInfo[i] Do
    Begin
      //WriteLn(EssInfo[i].Name + ': Info Length ' + IntToStr(Length(Info)));
      For C := 0 To L Do
      Begin
        E := ScanMM(TPA, AdeptDegree(CA, Info[C][0]), AdeptDegree(CA, Info[C][1]),
        Info[C][2], Info[C][3]);

        //WriteLn(IntToStr(c) + '...' +  IntToStr(E) + ' vs ' + IntToStr(Info[C][4]));

        If E < Info[C][4] Then
        Begin
          //WriteLn('Breaking... ' + IntToStr(C) + ' E('+inttostr(E) + ') was smaller than info[C][4](' + inttostr(info[C][4]) + ')');
          Break;
        End;
      End;
      If C = L + 1 Then
      Begin
        Result := Name;
        WriteLn('Location: ' + Result);
        Break;
      End;
    End;
  End;
  If Result = '' Then
  Begin
    WriteLn('No Location!');
    TerminateScript;
  End;

  If I = Length(EssInfo) Then
    Exit;
  Inc(ReportVars[EssInfo[i].ReportIDVar]);

  With EssInfo[i] Do
  Begin
    For I := Low(MMClicks) To High(MMClicks) Do
    Begin
      Mouse(MMClicks[i].X, MMClicks[i].Y, 4, 4, True);
      Wait(2000);
      FFlag(0);
      Wait(500);
    End;
    If Not FindEssence Then
    Begin
      NoEssFound := True;
      WriteLn('No Essence');
      //TerminateScript;
    End;
  End;
End;

Function EssenceCount: Integer;

Var
   I: Integer;
   TPA: TPointArray;
   B: TBox;

Begin
  Result := 0;
  For I := 1 To 28 Do
  Begin
    B := InvBox(I);
    FindColorsTolerance(TPA, 65536, B.X1, B.Y1, B.X2, B.Y2, 0);
    If Length(TPA) = 82 Then
      Result := Result + 1;
  End;
End;

Procedure Bank;

Var
   I: Integer;
   P: TPoint;
   A: Extended;
   TempEss: Integer;

Begin
  ReportVars[1] := ReportVars[1] + 1; // Banks
  Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
  For I := 0 To 2 Do
    If OpenBankFast('veb') Then
      Break
    Else
      If FindBankers(P, A) Then
      Begin
        Mouse(p.x, p.y, 0, 0, True);
        Wait(4000);
        FFlag(0);
        Wait(1500);
      End;
  If Not BankScreen Or PinScreen Then
  Begin
    LogOut;
    Players[CurrentPlayer].Loc := 'NoBank';
    Players[CurrentPlayer].Active := False;
    Exit;
  End;
  TempEss := EssenceCount;
  EssenceMined := EssenceMined + TempEss;
  ReportVars[0] := ReportVars[0] + TempEss;
  Players[CurrentPlayer].Integers[0] := Players[CurrentPlayer].Integers[0] + TempEss;
  If Players[CurrentPlayer].Booleans[0] Then
    Deposit(1, 28, True)
  Else
    Deposit(2, 28, True);

  CloseBank;
End;

Procedure PlayerReport;

Var
  Active, Rand: string;
  I: Integer;

Begin
  For I := 0 To High(Players) Do
  Begin
    If Players[i].Active Then
      Active := 'T'
    Else
      Active := 'F';
    If Players[i].Rand <> '' Then
      Rand := '; Rand: ' + Players[i].Rand
    Else
      Rand := '';

    WriteLn((IntToStr(I)) + ' : ' + Players[i].Nick + ' = ' +
     Active + '; ' + Players[i].Loc  + rand + '; B: ' + IntToStr(Players[i].Integers[0])
     + ' Essence;'+ ' M : ' + IntToStr(Players[i].Level[15]));
  End;
End;

Procedure ProgressReport;

Begin
  WriteLn('----------------------------');
  WriteLn('');
  WriteLn('Wizzup? Essence Miner, Version ' + VersionNumber);
  WriteLn('');
  WriteLn('Worked for '+ TimeRunning);
  WriteLn('Mined ' + IntToStr(EssenceMined) + ' Essence');
  If Abyss > 0 Then WriteLn('Solved ' + IntToStr(Abyss) + ' abyssal random events.');
  WriteLn('');
  WriteLn('----------------------------');
  WriteLn('');
  PlayerReport;
  WriteLn('');
  WriteLn('----------------------------');
  SRLRandomsReport;
End;

Procedure ScriptTerminate;

Begin
  ProgressReport;
End;

Function GetAndSetAnyReferenceColor: Boolean;

Var
   c: integer;

Begin
  NewAutoColorWorked := False;
  c := FindRockColor;
  If c > 0 Then
  Begin
    SetAutoColorReference('grey rock', c);
    WriteLn('Got the color using the grey rock');
    NewAutoColorWorked := True;
    Result := True;
    Exit;
  End;
End;

Procedure InitPlayer;

Var
   I: Integer;
Begin
  For I := 1 To 5 Do
  If Not Players[CurrentPlayer].Booleans[i] Then
  Begin
    Case I Of
      1: SetGraphics(4, '', '' ,'', '', '', '', '', '');
      2: Retaliate(False);
      3: SetAudio(0, 0, 0, Mono);
    End;
    Players[CurrentPlayer].Booleans[i] := True;
  End;

  GetAllLevels;
  SetChat('on',1);
  SetChat('friends',2);
  SetChat('on',3);
  SetAngle(True);
End;

Procedure SetupScript;

Var
   I: Integer;
Begin
  SRLID := SRL_ID;
  SRLPassword := SRL_PASS;
  For I := 1 To 19 Do
    ReportVars[i] := 0;
  ScriptID := '51';
  DeclarePlayers;
  LoginPlayer;
  InitPlayer;
End;

Var
  T, T2, I:integer;

begin
  AubTPA := CreateTPAFromText('isthin', UpChars);
  SetupSRL;
  SetupScript;

  LoadLocations;
  SetupNewAutoColor;
  GetAndSetAnyReferenceColor;
  Repeat

    If Players[CurrentPlayer].Loc = 'Bank' Then
      BankToAubury;

    If Players[CurrentPlayer].Loc = 'Aubury' Then
    Begin
      T2 := GetSystemTime;
      While Not AtMine Do
      Begin
        If GetSystemTime - T2 > 180000 Then
        Begin
          Players[CurrentPlayer].Loc := 'NoAubury';
          Break;
        End;
        DoorClosed;
        If FindAubury Then
        Begin
          T := GetSystemTime;
          While (Not AtMine) and (GetSystemTime - t < 10000) Do Wait(250);
          If AtMine Then
            Break;
        End;
        Wait(500);
      End;
      Players[CurrentPlayer].Loc := 'Mine';
    End;

    If Players[CurrentPlayer].Loc = 'Mine' Then
    Begin
      Wait(500);
      If InAbyss Then
        GuessAbyssRandom;

      GetPos;
      T := GetSystemTime;
      T2 := GetSystemTime;
      While (GetSystemTime - T < 180000) And (InvCount < 28) Do
      Begin
        If NoEssFound Then
        Begin
          WriteLn('We did not find any essence...');
          NoEssFound := NoEssFound xor NoEssFound;
          Break;
        End;
        If GetSystemTime - T2 > 60000 Then
        Begin
          I := Random(13) + 1;
          If I = 4 Then I := 2;
          GameTab(I);
          Wait(RandomRange(200, 4000));
          GameTab(4);
          T2 := GetSystemTime;
        End;

        If FindFight Then
          Break;
        Wait(1000);
        If LevelUp Then
        Begin
          WriteLn('You levelled up');
          Break;
        End;
        If FindNormalRandoms Then
        Begin
          T := GetSystemTime;
          While GetSystemTime - T < 5000 Do
          Begin
            Wait(250);
            FindNormalRandoms;
          End;
        End;
      End;
      MineToAubury;
      AuburyToBank;
      Bank;
    End;

    ProgressReport;

    If Not LoggedIn Then
    Begin
      NextPlayer(False);
      InitPlayer;
      Continue;
    End;

    If Players[CurrentPlayer].Banked Mod Loads = 0 Then
    Begin
      NextPlayer(True);
      InitPlayer;
      Continue;
    End;

  Until False;
End.

Testing it hang on a second…

Darn!

Line 46: [Error] (230:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files\SCAR\includes\SRL/SRL/Core/Math.scar

Any idea what's causing this one?

I reinstalled SCAR today, and used the SRL install located inside it. :)

From: Tidal
Testing it hang on a second…

Darn!

Line 46: [Error] (230:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files\SCAR\includes\SRL/SRL/Core/Math.scar

Any idea what's causing this one?

I reinstalled SCAR today, and used the SRL install located inside it. :)

did you enter your username/pass?

From: d1s3l
did you enter your username/pass?

Yes, I did.

Line 46: [Error] (230:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files\SCAR\includes\SRL/SRL/Core/Math.scar

Error I have now.

try going to file update srl svn 27->28 or whatever number.

Update SRL and reflection svn to head revision.

Then:
http://www.villavu.com/forum/showthread.php?t=36898

From: lordsaturn
Update SRL and reflection svn to head revision.

Then:
http://www.villavu.com/forum/showthread.php?t=36898

could u pm me the instructios there? cause it's off limits for me

From: mathiasverbert
could u pm me the instructios there? cause it's off limits for me

Thats called leaking, and people get banned for that ;)

Just wait a week, then you get access to all that shitz :)

From: d1s3l
Lol I wonder why your Jr member with 1 post.

He might of got banned and using that account or something like i have 1 post on my other guy and i have jr member because i got banned on this one.

i would like to know same thing is happening to me….

no i heard smart is working once again

smart is working but you have to do something to get the scripts to work properly

~shut

here i took smart out and it works fine

program New;

//{.include srl/srl/misc/Smart.scar}
{.include SRL/SRL.scar}
{.include srl/srl/misc/NewAutoColor.scar}

Const
   NumberOfUsers = 4;
   StartPlayer = 0;
   Loads = 5;
   VersionNumber = '2.03';
   SRL_ID   = '';  // Stats ID.
   SRL_PASS = ''; // Stats Pass.
   SmartPrefix = 'world10';

Type
   EssLoc = Record
     Name: String;
     Info: Array Of Array Of Integer;
     MMClicks, MSEss: TPointArray;
     L, ReportIDVar: Integer;
   End;
   EssLocArray = Array Of EssLoc;

Var
   EssInfo: EssLocArray;
   AubTPA: TPointArray;
   NewAutoColorWorked, NoEssFound: Boolean;
   EssenceMined, Abyss: Integer;

//{$DEFINE DEBUG}

Procedure DeclarePlayers;

Begin
  NumberOfPlayers( NumberOfUsers );
  CurrentPlayer := StartPlayer;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active := True;
  Players[0].Loc := 'Bank';
  Players[0].Booleans[0]  := True;       // Is The Pick Equipped?

  Players[1].Name :='';
  Players[1].Pass :='';
  Players[1].Nick :='';
  Players[1].Active := True;
  Players[1].Loc := 'Bank';
  Players[1].Booleans[0]  := True;       // Is The Pick Equipped?

  Players[2].Name :='';
  Players[2].Pass :='';
  Players[2].Nick :='';
  Players[2].Active := True;
  Players[2].Loc := 'Bank';
  Players[2].Booleans[0]  := True;       // Is The Pick Equipped?}

  Players[3].Name :='';
  Players[3].Pass :='';
  Players[3].Nick :='';
  Players[3].Active := True;
  Players[3].Loc := 'Bank';
  Players[3].Booleans[0]  := True;       // Is The Pick Equipped?

  Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
  SetPlayerNameTPAs;
End;

Procedure FNRWait(ms: Integer);

Var
   T: Integer;
Begin
  T := GetSystemTime;
  While GetSystemTime - T < ms Do
  Begin
    Wait(200);
    FindNormalRandoms;
  End;
End;

Procedure DebugMM(TPA: TPointArray);

Var
   I, L: Integer;
   C: TCanvas;

Begin
  DisplayDebugImgWindow(0, 0);
  DisplayDebugImgWindow(MMX2-MMX1, MMY2-MMY1);
  C := GetDebugCanvas;
  CopyCanvas(GetClientCanvas, C, MMX1, MMY1, MMX2, MMY2, 0, 0, MMX2 - MMX1, MMY2 - MMy1);
  L := High(tpa);
  For I := 0 To L Do
    C.Pixels[tpa[i].x - MMX1, tpa[i].y - MMY1] := 255;
  DisplayDebugImgWindow(MMX2-MMX1, MMY2-MMY1);
End;

Function FindMagicSymbol(Var P: TPoint): Boolean;

Var
   I, J, cts: Integer;
   Points, P2: TPointArray;
   aTPA: T2DPointArray;
   MagicSymbolColors, C: TIntegerArray;
   H, S, L: Extended;

Begin
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.20, 2.0);
  Result := False;
  MagicSymbolColors := [2326527, 2925567];

  SetLength(Points, 0);
  For I := 0 To High(MagicSymbolColors) Do
  Begin
    SetLength(P2, 0);
    SetLength(C, 0);
    FindColorsTolerance(P2, MagicSymbolColors[i], MMX1, MMY1, MMX2, MMY2, 18);
    C := GetColors(P2);
    For J := 0 To High(C) Do
    Begin
      ColorToHSL(C[J], H, S, L);
      //If ((H > 8.5) And (H < 9.5)) Or ((H > 5.5) And (H < 7.5)) Then
      If (((H > 5.5) And (H < 10.0)) Or (H < 1.0)) And (S > 85.0) Then
      Begin
        SetLength(Points, Length(Points) + 1);
        Points[High(Points)] := P2[J];
      End;
    End;
    //Points := CombineTPA(Points, P2);
  End;
  {$IFDEF DEBUG} debugMM(Points); {$ENDIF}
  ColorToleranceSpeed(cts);
  aTPA := SplitTPA(Points, 5);
  SortATPASize(aTPA, True);
  If Length(aTPA) = 0 Then
    Exit;
  Result := Length(aTPA[0]) > 2;
  P := MiddleTPA(aTPA[0]);
  If Not Result Then
    WriteLn('No Aubury Shop');
End;

Function LevelUp: Boolean;

Begin
  Result := FindNPCChatText('gratu', Nothing);
  If Not Result Then
    Result := FindNPCChatText('atio', Nothing);
  If Result Then
  Begin
    While ClickContinue(True, True) Do
      Wait(500);
  End;
End;

Function FindBankers(Var Bank: TPoint; Var Angle: Extended): Boolean;

Var
   I: Integer;
   B, gB: TPointArray;
   aTPA: T2DPointArray;

Begin
  Result := False;
  FindColorsSpiralTolerance(MMCX, MMY2, B, 60909, MMX1, MMY1, MMX2, MMY2, 0);
  aTPA := SplitTPA(B, 10);
  SortATPASize(aTPA, True);
  If Length(aTPA) = 0 Then
    Exit;
  B := aTPA[0];
  For I := 0 To High(B) - 1 Do
  Begin
    If (Abs(B[i].Y - B[I + 1].Y) < 15) And (Abs(B[i].X - B[I + 1].X) < 60) Then
    Begin
      SetLength(gB, Length(gB) + 1);
      gB[High(gB)] := B[i];
      If High(gB) > 3 Then // 4 bankers.
      Begin
        Bank := MiddleTPA(gB);
        Bank.Y := Bank.Y - 5;
        Angle := Degrees(ArcTan2(gB[0].y - gB[High(gB)].y, gB[0].x - gB[High(gB)].x)) + 90;
        If Angle < 0 Then
          Angle := 90 - (Angle * -1) + 270;
        Result := True;
        Exit;
      End;
    End
    Else
      SetLength(gB, 0);
  End;
End;

Function Randomize(x, Randomness: Integer): Integer;

Begin
  Result := RandomRange(X - Randomness, X + Randomness);
End;

Function AtMine: Boolean;

Var
   TPA: TPointArray;
Begin
  FindColorsTolerance(TPA, 65536, MMX1, MMY1, MMX2, MMY2, 1);
  Result := Length(TPA) > 2000;
End;

Function GetUpTextBlue:String;

Begin
  Result := Trim(GetTextAtEx(7, 7, 140, upchars, true,
  true, 0, 2, 14277634, 50, True, tr_AllChars));
End;

Function IsUpTextBlue(Text: String): Boolean;

Begin
  Result := (Pos(Text, GetUpTextBlue) <> 0)
End;

Function FindPortal(Var x, y: Integer): Boolean;

Var
   CTS, I, C: Integer;
   vPoint: TPoint;
   Points: TPointArray;
   aPoints: T2DPointArray;
   s: String;
   sa: Array Of String;

Begin
  Cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.40, 1.50);         //    9743280
  FindColorsSpiralTolerance(MSCX, MSCY, Points, 9481130, MSX1, MSY1, MSX2, MSY2, 10);
  aPoints := TPAToATPAEx(Points, 40, 40);
  sa := ['Use', 'Portal', 'ortal', 'se Por'];
  ColorToleranceSpeed(Cts);
  For I := 0 To High(aPoints) Do
  Begin
    If Length(aPoints[i]) < 40 Then
      Continue;
    vPoint := MiddleTPA(aPoints[i]);
    MMouse(vPoint.X, vPoint.Y, 5, 5);
    Wait(150);
    Cts := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.2, 0.2);         //    9743280
    If CountColorTolerance(14342657, 7, 7, 100, 25, 50) > 100 Then
    Begin
      GetMousePos(x, y);
      Result := True;
      ColorToleranceSpeed(Cts);
      Exit;
    End;

    ColorToleranceSpeed(1);
    s := rs_GetUpText;
    For C := 0 To High(sa) Do
      If Pos(sa[C], s) <> 0 Then
        Break;
    If C = Length(sa) Then
      If Not IsUpTextBlue('ortal') Then
        Continue;
    GetMousePos(x, y);
    Result := True;
  End;
  ColorToleranceSpeed(Cts);
End;

Function DoorClosed: Boolean;

Var
   TP: TPoint;
   TPA: TPointArray;
   aTPA: T2DPointArray;
   I, c: Integer;

Begin
  Result := False;
  c := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorspeed2Modifiers(0.2, 0.5);
  FindColorsTolerance(TPA, 5208714, 3, 3, 515, 336, 8);
  //aTPA := TPAToATPAEx(TPA, 50, 50);
  aTPA := SplitTPA(TPA, 3);
  For I := 0 To High(aTPA) Do
  Begin
    If Length(aTPA[i]) < 320 Then
      Continue;
    TP := MiddleTPA(aTPA[i]);
    MMouse(TP.X, TP.Y, 0, 0);
    Wait(200);
    If IsUpText('pen') And IsUpText('oor') Then
    Begin
      Result := True;
      Mouse(TP.X, TP.Y, 0, 0, True);
      FFlag(0);
      Break;
    End;
  End;
  ColorToleranceSpeed(c);
  SetColorspeed2Modifiers(0.2, 0.2);
End;

Function FindArrow: Boolean;

Var
   x, y: Integer;
Begin
  Result := False;
  If NewAutoColorWorked Then
    If FindColor(x, y, srl_AutoGetColor('transport'), MMX1, MMY1, MMX2, MMY2) Then
    Begin
      Result := True;
      WriteLn('Succesfully used NewAutoColor for FindArrow');
    End;
  If Not Result Then
    If FindSymbol(x, y, 'transportation') Then
      Result := True;
  If Result Then
  Begin
    Mouse(x, y, 4, 4, True);
    Wait(1000);
    FFlag(0);
    FNRWait(1000);
  End;
End;

Procedure BankToAubury;

Var
   V: TPoint;
   T: Integer;

Begin
  FindNormalRandoms;
  MFNF(Randomize(640, 4), Randomize(140, 4), -1, -1);
  Wait(10000);
  T := GetSystemTime;
  While (GetSystemTime - T < 60000) Do
  Begin
    FindNormalRandoms;
    If FindMagicSymbol(V) Then
      Break;
    Wait(500);
  End;
  If GetSystemTime - T >= 60000 Then
  Begin
    WriteLn('BankToAuburyTime');
    LogOut;
    Exit;
  End;
  Mouse(V.X, V.Y + 3, 0, 0, True);
  Wait(500);
  FFlag(0);
  Players[CurrentPlayer].Loc := 'Aubury';
End;

Procedure MineToAubury;

Var
   x, y, T, T2, I: Integer;

Begin
  FNRWait(1000);

  T := GetSystemTime;
  While GetSystemTime - T < 60000 Do
  Begin
    If GetSystemTime - T > 30000 Then
      MakeCompass('E');
    If Not AtMine Then
      Break;
    FindNormalRandoms;
    If Not FindArrow Then
    Begin
      WriteLn('MineToAubury - Could not find the transportation symbol. Exiting');
      FNRWait(5000);
      Continue;
    End;
    FindNormalRandoms;
    For I := 0 To 5 Do
    Begin
      If FindPortal(x, y) Then
      Begin
        Mouse(x, y, 0, 0, True);
        T2 := GetSystemTime;
        While AtMine And (GetSystemTime - T2 < 10000) Do
        Begin
          //FindTalk;
          FNRWait(500);
        End;
        Break;
      End;
      Wait(250);
    End;
    FNRWait(1000);
    FindNormalRandoms;
  End;
  If GetSystemTime - T >= 60000 Then
  Begin
    //LogOut;
    WriteLn('No Portal!');
    LogOut;
    Exit;
  End;
  MakeCompass('N');
End;

Procedure AuburyToBank;

Var
   T: Integer;
   P: TPoint;
   A: Extended;

Begin
  T := GetSystemTime;
  While GetSystemTime - T < 120000 Do
  Begin
    FindNormalRandoms;
    Mouse(665, 30, 8, 8, True);
    If (FlagDistance < 40) Or (Not FlagPresent)Then
    Begin
      Mouse(MMCX, RandomRange(MMCY + 5, MMCY + 15), 4, 0, True);
      FNRWait(1500);
      DoorClosed;
    End
    Else
    Begin
     { T2 := GetSystemTime;
      While GetSystemTime - T2 < 8000 Do
      Begin
        Wait(1000);
        FindMagicSymbol(P);
        If Distance(P.x, P.y, MMCX, MMCY) > 30 Then
          Break;
      End;
      FFlag(10);  }
      FNRWait(8000);
      FFlag(10);
      FindMagicSymbol(P);
      If Distance(P.x, P.y, MMCX, MMCY) > 30 Then
        Break;
    End;
    If Not FindMagicSymbol(P) Then
      Break;
    If Distance(P.X, P.Y, MMCX, MMCY) > 30 Then
      Break;
  End;
  WriteLn('Out of shop');
  FFlag(0);
  If FindBankers(P, A) Then
  Begin
    Mouse(P.x, P.y, 0, 0, True);
    FNRWait(3000);
    FFlag(0);
  End
  Else
  If FindSymbol(P.x, P.y, 'Bank') Then
  Begin
    Mouse(P.x, P.y, 0, 0, True);
    FNRWait(3000);
    FFlag(0);
  End Else
  Begin
    WriteLn('No Bank');
    LogOut;
  End;
  Players[CurrentPlayer].Loc := 'Bank';
End;

Function FindAuburyText: Boolean;
var      // FindTalk but modded.
  TPA,Matches : TPointArray;
  TempATPA : T2DPointArray;
  I,CTS,x,y : integer;
  Box  : TBox;

begin;
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  FindColorsTolerance(TPA, 65535, 3, 3, 515, 336, 0);
  if FindTPAinTPA(aubtpa ,TPA,Matches) then  //Length check inside the function ;)
  For I := 0 to High(Matches) do
  begin;
    FindColorsTolerance(TPA,65535,3, Matches[i].y - 1,516,Matches[i].y + 14,0);
    if High(TPA) < 0 then
      Continue;
    TempATPA := FindGapsTPA(TPA,10);
    if Length(TempATPA) > 1 then
    begin;
      SetLength(TPA,Length(TempATPA));
      For x := 0 to High(TempATPA) do
      begin;
        Box := GetTPABounds(TempATPA[x]);
        TPA[x] := Point((Box.x2 + Box.x1) shr 1, Box.y2);
      end;
      SortTPAFrom(TPA,Point(Matches[i].x,Matches[i].y));
      x := TPA[0].x;
      y := TPA[0].y;
    end else
    begin;
      Box := GetTPABounds(TempATPA[0]);
      x := (Box.x2 + Box.x1) shr 1;
      y := Box.y2;
    end;
    y := y + 8;
    MMouse(x, y, 0, 0);
    Wait(100 + Random(50));
    if IsUpTextMultiCustom(['Talk','lk-to']) then
    begin
      GetMousePos(x, y);
      Mouse(x, y, 0, 0, False);
      Wait(450 + Random(125));
      If ChooseOption('eleport') Then
      Begin
        Result := True;
        Exit;
      End;
    end;
  end;
  ColorToleranceSpeed(CTS);
end;

Function FindAubury: Boolean;

Var
   I, T, cts: Integer;
   P: TPoint;
   PA: TPointArray;
   aPA: T2DPointArray;

Begin
  Result := False;
  If FindMagicSymbol(P) Then
  Begin
    If (Distance(P.x, P.y, MMCX, MMCY) > 15) Or (Random(20) = 0) Then
    Begin
      Mouse(P.x + 3, P.y + 10, 2, 2, True);
      Wait(1000);
      FFlag(0);
    End;
  End;
  If FindAuburyText Then
  Begin
    Result := True;
    Exit;
  End;
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  FindColorsTolerance(PA, 2153723, MSX1, MSY1, MSX2, MSY2, 50);
  //writeln(inttostr(length(pa)));
  aPA := TPAToATPA(PA, 50);
  //writeln(inttostr(length(apa)));
  For I := 0 To High(aPA) Do
  Begin
    Wait(200);
    If AtMine Then
    Begin
      Result := True;
      Break;
    End;
    If Length(aPA[i]) < 3 Then
      Continue;
    P := MiddleTPA(aPA[i]);
    MMouse(p.X, P.Y, 3, 3);
    Wait(250);
    If Not IsUpText('bury') Then
      Continue;
    GetMousePos(P.X, P.Y);
    Mouse(P.X, P.Y, 0, 0, False);
    Wait(50);
    If Not ChooseOption('eleport') Then
      Continue;
    T := GetSystemTime;
    While GetSystemTime - T < 15000 Do
    Begin
      Wait(500);
      If AtMine Or (Not FindMagicSymbol(P)) Then
        Break;
    End;
    Result := GetSystemTime - T < 10500;
    If AtMine Then
      Result := True;
    If Result Then
      Break;
  End;
  ColorToleranceSpeed(cts);
End;

Function GetCurrentTPA: TPointArray;

Var
   cts: Integer;

Begin
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  FindColorsTolerance(Result, clWhite, MMX1, MMy1, MMX2, MMY2, 421);
  ColorToleranceSpeed(cts);
End;

Function ScanMM(Const TPA: TPointArray; SD, ED, MinR, MaxR: Integer): Integer;

Begin
  FilterPointsPie(TPA, SD, ED, MinR, MaxR, MMCX, MMCY);
  Result := Length(TPA);
  {$IFDEF DEBUG} DebugMM(TPA); {$ENDIF}
End;

Procedure LoadLocations;

Begin
  SetLength(EssInfo, 6);
  With EssInfo[0] Do
  Begin
    Name := 'North West';
    Info := [TIntegerArray([80, 160, 60, 70, 400]), TIntegerArray([270, 30, 30, 50, 900])];
    MSEss := [Point(190, 100)];
    L := 1;
    ReportIDVar := 6;
  End;
  With EssInfo[1] Do
  Begin
    Name := 'Middle North';
    Info := [TIntegerArray([0, 80, 60, 70, 300]), TIntegerArray([80, 180, 55, 70, 300]),
    TIntegerArray([170, 260, 60, 70, 190]), TIntegerArray([270, 340, 30, 75, 900])];
    {Info := [TIntegerArray([0, 80, 60, 70, 320]), TIntegerArray([80, 180, 55, 70, 320]),
    TIntegerArray([170, 260, 60, 70, 210]), TIntegerArray([270, 340, 30, 75, 1000])];}
    MMClicks := [Point(670, 35)];
    MSEss := [Point(370, 30), Point(430, 55)];
    L := 3;
    ReportIDVar := 3;
  End;
  With EssInfo[2] Do
  Begin
    Name := 'Middle South';
    Info := [TIntegerArray([170, 270, 30, 70, 1700]), TIntegerArray([330, 120, 25, 50, 1700])];
    MMClicks := [Point(590, 120)];
    MSEss := [Point(255, 270), Point(150, 175)];
    L := 1;
    ReportIDVar := 4;
  End;
  With EssInfo[3] Do
  Begin
    Name := 'North East';
    //Info := [TIntegerArray([350, 130, 30, 60, 2000]), TIntegerArray([180, 270, 60, 74, 700])];
    Info := [TIntegerArray([350, 130, 30, 60, 1500]), TIntegerArray([180, 270, 60, 74, 450])];
    MSEss := [Point(365, 95)];
    L := 1;
    ReportIDVar := 5;
  End;
  With EssInfo[4] Do
  Begin
    Name := 'South West';
    Info := [TIntegerArray([290, 70, 0, 74, 3000])];
    MSEss := [Point(252, 65)];
    L := 0;
    ReportIDVar := 8;
  End;
  With EssInfo[5] Do
  Begin
    Name := 'South East';
    //Info := [TIntegerArray([285, 0, 0, 74, 1600]), TIntegerArray([0, 270, 0, 50, 2800])];
    Info := [TIntegerArray([285, 0, 0, 74, 1400]), TIntegerArray([0, 270, 0, 50, 2500])];
    MSEss := [Point(350, 195)];
    L := 1;
    ReportIDVar := 7;
  End;
End;

Function AdeptDegree(CompassAngle: Extended; Degree: Integer): Integer;

Begin
  Result := Round(Abs(CompassAngle + Degree));
  While Result > 360 Do
    Result := Result - 360;
End;

Function FindEssence: Boolean;

Var
   I, cts: Integer;
   P: TPoint;
   TPA: TPointArray;
   aTPA: T2DPointArray;

Begin
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.2, 0.2);
  FindColorsTolerance(TPA, 9737632, MSX1, MSY1, MSX2, MSY2, 20);
  aTPA := TPaToATPAEx(TPA, 15, 15);
  SetLength(TPA, 0);
  SortATPASize(aTPA, True);
  ColorToleranceSpeed(cts);
  For I := 0 To High(aTPA) Do
  Begin
    If Length(aTPa[i]) < 30 Then
      Continue;
    P := MiddleTPA(aTPA[i]);
    MMouse(P.X, P.Y, 5, 5);
    Wait(200);
    If (CountColorTolerance(14342657, 7, 7, 100, 25, 50) > 100) Or IsUpText('ssen') Then
    Begin
      Result := True;
      GetMousePos(P.X, P.Y);
      Mouse(P.X, P.Y, 0, 0, True);
      FNRWait(1000);
      Exit;
    End;
  End;
End;

Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
  // Old Code. Still works.
Var
   I, iX,iY: Integer;
Begin
  For I := iFrom To ITo Do
  Begin
    iX := Round(Distance * Sin(I * Pi / 180)) + MMCX;
    iY := Round(-Distance * Cos(I * Pi / 180)) + MMCY;
    If GetColor(iX, iY) = 65536 Then
    Begin
      Result := Result + 1;
    End;
  End;
End;

Function InAbyss: Boolean;
  // Old Code. Still works.
Var
   A : Integer;

Begin
  Result := False;
  A := ScanMiniMap(0, 359, 50);
  WriteLn('In Abyss gave '+IntToStr(A)+'.');
  If A = 360 Then
  Begin
    WriteLn('We are in the Abyss random.');
    Result := True;
  End
End;

Function GuessAbyssRandom: Boolean;
  // Old Code. Still works.
Var
   AbyssalMark, iX, iY, I, ChosenColor, Tol, Tries: Integer;
   WeirdColors: Array Of Integer;
   Operate: TPoint;
Begin
  WriteLn('In GuessAbyssRandom');
  WeirdColors := [13751777, 4953873, 2509833];
  Repeat
    Case Random(4) Of
      0: Begin Operate.X := 252; Operate.Y := 150; End;
      1: Begin Operate.X := 278; Operate.Y := 170; End;
      2: Begin Operate.X := 238; Operate.Y := 200; End;
      3: Begin Operate.X := 215; Operate.Y := 166; End;
    End;
    For I := 0 To 2 Do
    Begin
      Tol := 0;
      Repeat
        Tol := Tol + 1;
        iX := MSCX;
        iY := MSCY;
        If FindColorSpiralTolerance(iX, iY, WeirdColors[i], MSX1, MSY1, MSX2, MSY2, Tol) Then
        Begin
          ChosenColor := WeirdColors[i];
          If (Distance (iX, iY, MSCX, MSCY) < 120) Then Break;
        End;
        If ChosenColor <> 0 Then
          Break;
      Until Tol > 9;
    End;

    If ChosenColor <> 0 Then
    Begin
      MMouse(iX, iY, 0, 0);
      Wait(100);
      If IsUpText('perate') Then
      Begin
        GetMousePos(iX, iY);
        Mouse(iX, iY, 0, 0, True);
      End;
    End;

    Wait(5000+Random(500));
    If Not InAbyss Then
    Begin
      Abyss := Abyss + 1;
      ReportVars[8] := ReportVars[8] + 1;
      Result := True;
      Wait(1000);
      ClickToContinue;
      SRLRandomsReport;
      Exit;
   End;
    Tries := Tries + 1;
    If TimeFromMark(AbyssalMark) > 60000 * 5 Then Break;
  Until Tries > 30;

   Tries := 0;
   If InAbyss Then
   Begin
    Repeat
      Case Random(4) Of
        0: Begin Operate.X := 252; Operate.Y := 150; End;
        1: Begin Operate.X := 278; Operate.Y := 170; End;
        2: Begin Operate.X := 238; Operate.Y := 200; End;
        3: Begin Operate.X := 215; Operate.Y := 166; End;
      End;
      iX := Operate.X;
      iY := Operate.Y;
      If FindColorSpiralTolerance(iX, iY, 3393, MSX1, MSY1, MSX2, MSY2, Tol)
      Or FindColorSpiralTolerance(iX, iY, 2040150, MSX1, MSY1, MSX2, MSY2, Tol) Then
      Begin
        If (Distance (iX, iY, MSCX, MSCY) < 80) Then
        Begin
          MMouse(iX, iY, 0, 0);
          Wait(100);
          If IsUpText('perate') Then
          Begin
            GetMousePos(iX, iY);
            Mouse(iX, iY, 0, 0, True);
            Wait(5000+ Random(500));
            If Not InAbyss Then
            Begin
              Abyss := Abyss + 1;
              ReportVars[8] := ReportVars[8] + 1;
              Result := True;
              ClickToContinue;
              SRLRandomsReport;
              Exit;
            End;
          End;
        End;
      End;
      Tries := Tries + 1;
      Tol := Tol + 2;
      If Tol > 20 Then Tol := 2;
    Until Tries > 50;
  End;
  LogOut;
  ReportVars[9] := ReportVars[9] + 1;
  Players[CurrentPlayer].Loc := 'Abyss';
  SRLRandomsReport;
  WriteLn('Abyss Random Event Failed.');
End;

Function GetPos: String;
   // Get's our position and acts accoringly.
Var
   TPA: TPointArray;
   I, C, E: Integer;
   CA: Extended;

Begin
  Wait(500);

  MakeCompass('N');
  Result := '';

  TPA := GetCurrentTPA;
  CA := rs_GetCompassAngleDegrees;
  For I := Low(EssInfo) To High(EssInfo) Do
  Begin
    With EssInfo[i] Do
    Begin
      //WriteLn(EssInfo[i].Name + ': Info Length ' + IntToStr(Length(Info)));
      For C := 0 To L Do
      Begin
        E := ScanMM(TPA, AdeptDegree(CA, Info[C][0]), AdeptDegree(CA, Info[C][1]),
        Info[C][2], Info[C][3]);

        //WriteLn(IntToStr(c) + '...' +  IntToStr(E) + ' vs ' + IntToStr(Info[C][4]));

        If E < Info[C][4] Then
        Begin
          //WriteLn('Breaking... ' + IntToStr(C) + ' E('+inttostr(E) + ') was smaller than info[C][4](' + inttostr(info[C][4]) + ')');
          Break;
        End;
      End;
      If C = L + 1 Then
      Begin
        Result := Name;
        WriteLn('Location: ' + Result);
        Break;
      End;
    End;
  End;
  If Result = '' Then
  Begin
    WriteLn('No Location!');
    TerminateScript;
  End;

  If I = Length(EssInfo) Then
    Exit;
  Inc(ReportVars[EssInfo[i].ReportIDVar]);

  With EssInfo[i] Do
  Begin
    For I := Low(MMClicks) To High(MMClicks) Do
    Begin
      Mouse(MMClicks[i].X, MMClicks[i].Y, 4, 4, True);
      Wait(2000);
      FFlag(0);
      Wait(500);
    End;
    If Not FindEssence Then
    Begin
      NoEssFound := True;
      WriteLn('No Essence');
      //TerminateScript;
    End;
  End;
End;

Function EssenceCount: Integer;

Var
   I: Integer;
   TPA: TPointArray;
   B: TBox;

Begin
  Result := 0;
  For I := 1 To 28 Do
  Begin
    B := InvBox(I);
    FindColorsTolerance(TPA, 65536, B.X1, B.Y1, B.X2, B.Y2, 0);
    If Length(TPA) = 82 Then
      Result := Result + 1;
  End;
End;

Procedure Bank;

Var
   I: Integer;
   P: TPoint;
   A: Extended;
   TempEss: Integer;

Begin
  ReportVars[1] := ReportVars[1] + 1; // Banks
  Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
  For I := 0 To 2 Do
    If OpenBankFast('veb') Then
      Break
    Else
      If FindBankers(P, A) Then
      Begin
        Mouse(p.x, p.y, 0, 0, True);
        Wait(4000);
        FFlag(0);
        Wait(1500);
      End;
  If Not BankScreen Or PinScreen Then
  Begin
    LogOut;
    Players[CurrentPlayer].Loc := 'NoBank';
    Players[CurrentPlayer].Active := False;
    Exit;
  End;
  TempEss := EssenceCount;
  EssenceMined := EssenceMined + TempEss;
  ReportVars[0] := ReportVars[0] + TempEss;
  Players[CurrentPlayer].Integers[0] := Players[CurrentPlayer].Integers[0] + TempEss;
  If Players[CurrentPlayer].Booleans[0] Then
    Deposit(1, 28, True)
  Else
    Deposit(2, 28, True);

  CloseBank;
End;

Procedure PlayerReport;

Var
  Active, Rand: string;
  I: Integer;

Begin
  For I := 0 To High(Players) Do
  Begin
    If Players[i].Active Then
      Active := 'T'
    Else
      Active := 'F';
    If Players[i].Rand <> '' Then
      Rand := '; Rand: ' + Players[i].Rand
    Else
      Rand := '';

    WriteLn((IntToStr(I)) + ' : ' + Players[i].Nick + ' = ' +
     Active + '; ' + Players[i].Loc  + rand + '; B: ' + IntToStr(Players[i].Integers[0])
     + ' Essence;'+ ' M : ' + IntToStr(Players[i].Level[15]));
  End;
End;

Procedure ProgressReport;

Begin
  WriteLn('----------------------------');
  WriteLn('');
  WriteLn('Wizzup? Essence Miner, Version ' + VersionNumber);
  WriteLn('');
  WriteLn('Worked for '+ TimeRunning);
  WriteLn('Mined ' + IntToStr(EssenceMined) + ' Essence');
  If Abyss > 0 Then WriteLn('Solved ' + IntToStr(Abyss) + ' abyssal random events.');
  WriteLn('');
  WriteLn('----------------------------');
  WriteLn('');
  PlayerReport;
  WriteLn('');
  WriteLn('----------------------------');
  SRLRandomsReport;
End;

Procedure ScriptTerminate;

Begin
  ProgressReport;
End;

Function GetAndSetAnyReferenceColor: Boolean;

Var
   c: integer;

Begin
  NewAutoColorWorked := False;
  c := FindRockColor;
  If c > 0 Then
  Begin
    SetAutoColorReference('grey rock', c);
    WriteLn('Got the color using the grey rock');
    NewAutoColorWorked := True;
    Result := True;
    Exit;
  End;
End;

Procedure InitPlayer;

Var
   I: Integer;
Begin
  For I := 1 To 5 Do
  If Not Players[CurrentPlayer].Booleans[i] Then
  Begin
    Case I Of
      1: SetGraphics(4, '', '' ,'', '', '', '', '', '');
      2: Retaliate(False);
      3: SetAudio(0, 0, 0, Mono);
    End;
    Players[CurrentPlayer].Booleans[i] := True;
  End;

  GetAllLevels;
  SetChat('on',1);
  SetChat('friends',2);
  SetChat('on',3);
  SetAngle(True);
End;

Procedure SetupScript;

Var
   I: Integer;
Begin
  SRLID := SRL_ID;
  SRLPassword := SRL_PASS;
  For I := 1 To 19 Do
    ReportVars[i] := 0;
  ScriptID := '51';
  DeclarePlayers;
  LoginPlayer;
  InitPlayer;
End;

Var
  T, T2, I:integer;

begin
  AubTPA := CreateTPAFromText('isthin', UpChars);
  SetupSRL;
  SetupScript;

  LoadLocations;
  SetupNewAutoColor;
  GetAndSetAnyReferenceColor;
  Repeat

    If Players[CurrentPlayer].Loc = 'Bank' Then
      BankToAubury;

    If Players[CurrentPlayer].Loc = 'Aubury' Then
    Begin
      T2 := GetSystemTime;
      While Not AtMine Do
      Begin
        If GetSystemTime - T2 > 180000 Then
        Begin
          Players[CurrentPlayer].Loc := 'NoAubury';
          Break;
        End;
        DoorClosed;
        If FindAubury Then
        Begin
          T := GetSystemTime;
          While (Not AtMine) and (GetSystemTime - t < 10000) Do Wait(250);
          If AtMine Then
            Break;
        End;
        Wait(500);
      End;
      Players[CurrentPlayer].Loc := 'Mine';
    End;

    If Players[CurrentPlayer].Loc = 'Mine' Then
    Begin
      Wait(500);
      If InAbyss Then
        GuessAbyssRandom;

      GetPos;
      T := GetSystemTime;
      T2 := GetSystemTime;
      While (GetSystemTime - T < 180000) And (InvCount < 28) Do
      Begin
        If NoEssFound Then
        Begin
          WriteLn('We did not find any essence...');
          NoEssFound := NoEssFound xor NoEssFound;
          Break;
        End;
        If GetSystemTime - T2 > 60000 Then
        Begin
          I := Random(13) + 1;
          If I = 4 Then I := 2;
          GameTab(I);
          Wait(RandomRange(200, 4000));
          GameTab(4);
          T2 := GetSystemTime;
        End;

        If FindFight Then
          Break;
        Wait(1000);
        If LevelUp Then
        Begin
          WriteLn('You levelled up');
          Break;
        End;
        If FindNormalRandoms Then
        Begin
          T := GetSystemTime;
          While GetSystemTime - T < 5000 Do
          Begin
            Wait(250);
            FindNormalRandoms;
          End;
        End;
      End;
      MineToAubury;
      AuburyToBank;
      Bank;
    End;

    ProgressReport;

    If Not LoggedIn Then
    Begin
      NextPlayer(False);
      InitPlayer;
      Continue;
    End;

    If Players[CurrentPlayer].Banked Mod Loads = 0 Then
    Begin
      NextPlayer(True);
      InitPlayer;
      Continue;
    End;

  Until False;
End.

Yes, download revision 28 and extract into the file it says