need a rene ess miner

i make a dude who mine ess .
pla help me

 

ill be back later guys ok

 

help me plz

 

try wizzups auto ess miner at srl fourms or i could try to find mine copy of wizzups auto ess miner,its definitely not mine,all credits got to wizzup

Code:

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
{.include SRL/SRL/misc/trade.scar}

{
"Stars, Hide your fires, Let not light see my black and deep desires.
The eye wink at the hand; Yet let that be, Which the eye fears when it
is done to see"
               Macbeth - Shakespeare
}


Const
   StartPlayer = 0;
   NumberOfUsers = 8;
   MinutesPerLoad = 5;
   Loads = 100;
   VersionNumber = '1.15';
   YourSRLSTATSID   = '';  // Stats ID.
   YourSRLSTATSPASS = ''; // Stats Pass.
   // SRL Stats are fun, register at:
   // http://www.stats.srl-forums.com/
   YourRCMASTER      = ''; // Remote Control Master.
   WizzyDebug = False;

Type
  AColor = Record
    Color: Integer;
    Amount: Integer;
End;

Var
   Colors: Array Of AColor;
Var
   Position : String;
   EssencePoint : Array [0..4] Of TPoint;
   MiningMark, Abyss, NOAbyss, AuburyText, AuburyDTM,
   RuneEssenceMined, PureEssenceMined, iMark, IdleMark, Aubs, MyMark, BankDTM: Integer;
   PortalBool : Boolean;
   NormalRandomsTime, FastRandomsTime, FindTalkTime, RespondTime: LongInt;

Procedure DeclarePlayers;

Begin
   HowManyPlayers:= NumberOfUsers;
   NumberOfPlayers( HowManyPlayers );
   CurrentPlayer := StartPlayer;
   Players[0].Name :='';
   Players[0].Pass :='';
   Players[0].Nick :='';
   Players[0].Loc :='Bank';
   Players[0].Active:=True;
   Players[0].Boolean1  := True;       // Is The Pick Equipped?
   Players[0].Boolean2 := False; // False for brightness Check Once.
   Players[0].String1 := '';   // Bank PIN, If any.

   Players[1].Name :='';
   Players[1].Pass :='';
   Players[1].Nick :='';
   Players[1].Loc :='Bank';
   Players[1].Active:=True;
   Players[1].Boolean1  := True;       // Is The Pick Equipped?
   Players[1].Boolean2 := False; // False for brightness Check Once.
   Players[1].String1 := '';   // Bank PIN, If any.

   Players[2].Name :='';
   Players[2].Pass :='';
   Players[2].Nick :='';
   Players[2].Loc :='Bank';
   Players[2].Active:=True;
   Players[2].Boolean1  := True;       // Is The Pick Equipped?
   Players[2].Boolean2 := False; // False for brightness Check Once.
   Players[2].String1 := '';   // Bank PIN, If any.

   Players[3].Name :='';
   Players[3].Pass :='';
   Players[3].Nick :='';
   Players[3].Loc :='Bank';
   Players[3].Active:=True;
   Players[3].Boolean1  := True;       // Is The Pick Equipped?
   Players[3].Boolean2 := False; // False for brightness Check Once.
   Players[3].String1 := '';   // Bank PIN, If any.

   Players[4].Name :='';
   Players[4].Pass :='';
   Players[4].Nick :='';
   Players[4].Loc :='Bank';
   Players[4].Active:=True;
   Players[4].Boolean1  := True;       // Is The Pick Equipped?
   Players[4].Boolean2 := False; // False for brightness Check Once.
   Players[4].String1 := '';   // Bank PIN, If any.

   Players[5].Name :='';
   Players[5].Pass :='';
   Players[5].Nick :='';
   Players[5].Loc :='Bank';
   Players[5].Active:=True;
   Players[5].Boolean1  := True;       // Is The Pick Equipped?
   Players[5].Boolean2 := False; // False for brightness Check Once.
   Players[5].String1 := '';   // Bank PIN, If any.

   Players[6].Name :='';
   Players[6].Pass :='';
   Players[6].Nick :='';
   Players[6].Active:=True;
   Players[6].Loc := 'Bank';
   Players[6].Boolean1  := True;       // Is The Pick Equipped?
   Players[6].Boolean2 := False; // False for brightness Check Once.
   Players[6].String1 := '';   // Bank PIN, If any.

   Players[7].Name :='';
   Players[7].Pass :='';
   Players[7].Nick :='';
   Players[7].Active:=True;
   Players[7].Loc := 'Bank';
   Players[7].Boolean1  := True;       // Is The Pick Equipped?
   Players[7].Boolean2 := False; // False for brightness Check Once.
   Players[7].String1 := '';   // Bank PIN, If any.

   Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
End;

Function FindAuburyText: Boolean;  // FindTalk by Renax, but adepted.
var
  ExitCond, NoMoreYellow: Boolean;
  Yint, Xmin, diff, difflast, Xmax, XmidRec, Xmid: Integer;
  RawMenuText: string;
begin
  x := 0;
  y := 0;
  Xmid := 0;
  Xmin := 0;
  Xmax := 0;
  NoMoreYellow := False;
  if (FindColor(x, y, 65535, 10, 25, 511, 334)) and (not (FindColor(x, y, 65280, 220, 130, 290, 165))) then
  begin
    Result := False;
    if (not (FindBitmapMaskTolerance(AuburyText, x, y, 0, 0, 516, 338, 0, 40)))
      then
      Exit;
    if (FindColorSpiral(x, y, 65535, x - 10, y - 10, x + 10, y + 10)) then
    begin
      Wait(10);
      if (GetColor(x, y) = 65535) then
      begin
        Status('Spotted aubury text');
        Wait(10);
        NoMoreYellow := False;
        Yint := 0;
        repeat
          Yint := Yint + 1;
          y := y + Yint;
          x := 0;
          repeat
            ExitCond := False;
            x := x + 1;
            Xmin := x;
            if (GetColor(x, y) = 65535) then
              ExitCond := True;
            if (x > 500) then
            begin
              x := 0;
              ExitCond := True;
              NoMoreYellow := True;
            end;
          until (ExitCond);
          ExitCond := False;
          x := 520;
          while (NoMoreYellow = False) and (ExitCond = False) do
          begin
            x := x - 1;
            Xmax := x;
            if (GetColor(x, y) = 65535) then
              ExitCond := True;
          end;
          diff := (Xmax - Xmin);
          if (diff > difflast) and (diff > 25) then
          begin
            XmidRec := ((diff / 2) + Xmin);
          end;
          difflast := diff;
        until (NoMoreYellow)
          x := XmidRec;
        MMouse(x, y + 6, 3, 0);
        Wait(100);
        ColorToleranceSpeed(1);
        if IsUpTextMulti('Talk', 'lk-to', 'to')  Then
        begin
          GetMousePos(x, y);
          Mouse(x, y + 6, 0, 0, False);
          if (ChooseOptionGetMenuText(RawMenuText, x, y, 'Teleport')) then
          begin
            Status('Found Aubury')
            FFlag(1);
            Wait(1000 + Random(500))
            Result := True;
            Exit;
          end;
        end;
      end;
    end;
  end;
end;

{--------------------------------------------------------

Function FindFastRandoms: Boolean;    // By WT-Fakawi.

FindFastRandoms is a quicker version of FindNormalRandoms.
It does not include ALL the Anti-Randoms though.

--------------------------------------------------------}

Function FindFastRandoms: Boolean;    // By WT-Fakawi.
var
  i: Integer;
begin
  for i:=1 to 10 do
  begin
    case I of
       1:  If FindDead then
             Result := True;
       2:  If FindMod then
             Result := True;
       3:  If FindMime then
             Result := True;
       4:  If FindMaze then
             Result := True;
       5:  If FindQuiz then
             Result := True;
       6:  If FindDemon then
             Result := True;
       7:  if NoGameTab then
             begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             end;
       8 : If RC Then Result := True;

       9: If FindTalk Then Result := True;

       10: If HandleTrade Then Result := True;
    End;
    Wait(1);
  end;
end;

// New Randoms Checking.

Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;

Var
   I, iX,iY: Integer;
Begin
  For I := iFrom To ITo Do
  Begin
    iX := Round(Distance * Sin(I * Pi / 180)) + 648;
    iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
    If GetColor(iX, iY) = 0 Then
    Begin
      Result := Result + 1;
    End;
  End;
End;

Function FindNormalRandomsTimeEx: Boolean;

Var
  TempTime, Time1, Time2: LongInt;

Begin
  TempTime := GetSystemTime;
  If TempTime - NormalRandomsTime > 6000 Then
  Begin
    NormalRandomsTime := GetSystemTime;
    Time1 := GetSystemTime;
    Result := FindNormalRandoms;
    Time2 := GetSystemTime;
    Status('Calling FNRandoms; Took '+IntToStr(Time2-Time1)+'.');
    Exit;
  End;

  If TempTime - FastRandomsTime > 2000 Then
  Begin
    FastRandomsTime := GetSystemTime;
    Time1 := GetSystemTime;
    Result := FindFastRandoms;
    Time2 := GetSystemTime;
    Status('Calling FFRandoms; Took '+IntToStr(Time2-Time1)+'.');
    Exit;
  End;

  If TempTime - FindTalkTime > 500 Then
  Begin
    FindTalkTime := GetSystemTime;
    Time1 := GetSystemTime;
    Result := FindTalk;
    Time2 := GetSystemTime;
    Status('Calling FT; Took '+IntToStr(Time2-Time1)+'.');
    Exit;
  End;

  If TempTime - RespondTime > 1000 Then
  Begin
    RespondTime := GetSystemTime;
    Time1 := GetSystemTime;
  //  Respond;
    Time2 := GetSystemTime;
    Status('Calling RP; Took '+IntToStr(Time2-Time1)+'.');
    Exit;
  End;

End;

Function InAbyss: Boolean;

Var
   A : Integer;

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

Function GuessAbyssRandom: Boolean;

Var
   AbyssalMark, iX, iY, I, ChosenColor, Tol, Tries: Integer;
   WeirdColors: Array [0..3] Of Integer;
   Operate: TPoint;
Begin
  WeirdColors[0] := 13751777;
  WeirdColors[1] := 4953873;
  WeirdColors[2] := 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;
  NOAbyss := NOAbyss + 1;
  ReportVars[9] := ReportVars[9] + 1;
  Players[CurrentPlayer].Loc := 'Abyss';
  SRLRandomsReport;
  WriteLn('Abyss Random Event.');
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 OpenVarrockEastBank: Boolean;

Var
   x, y, T: Integer;

Begin
  FFlag(0);
  Wait(500 + Random (500));
  ColorToleranceSpeed(0)
  x := 250 + Random(20);
  y := 210 + Random(20);
  If FindColorSpiralTolerance(x, y, 2970721, MSX1, MSY1, MSX2, MSY2, 19) Then
  Begin
    MMouse(x, y, 0, 0);
    Wait(100+Random(150));
    ColorToleranceSpeed(1);
    If IsUpText('ank') Then
    Begin
      Mouse(x, y, 0,0, False);
      Wait(50);
      If ChooseOption(x, y, 'uick') Then
      Begin
        T := GetSystemTime;
        Repeat
          If BankScreen Then Break;
          Wait(100);
        Until GetSystemTime - T >  6000;
        Result := BankScreen;
        ColorToleranceSpeed(1);
        Exit;
      End;
    End;
  End;
  ColorToleranceSpeed(1);
End;

Function FindEssence(Var iX, iY: Integer): Boolean;

Var
  I, Tolerance : Integer;
Begin
  If Not LoggedIn Then Exit;
  For I := 0 To 2 Do
  Begin
    Tolerance := - 1;
    While Tolerance < 10 Do
    Begin
      Tolerance := Tolerance + 1;
      iX := EssencePoint[I].X;
      iY := EssencePoint[I].Y;
      If FindColorSpiralTolerance(iX, iY, 9539996, MSX1, MSY1, MSX2, MSY2, Tolerance) Then
      Begin
        If Distance(iX, iY, EssencePoint[I].X, EssencePoint[I].Y) < 80 Then
        Begin
          MMouse(iX, iY, 0, 0);
          Wait(100);
          If IsUpTextBlue('ssen') Then
          Begin
            GetMousePos(iX, iY);
            Result := True;
            Status('Found Essence');
            Exit;
          End;
        End;
      End;
    End;
  End;
  WriteLn('Did not find any essence..');
End;

Function WeirdMiddle(TPA: TpointArray): TPoint;

Var
  L, I: Integer;
Begin
  L := GetArrayLength(TPA) - 1;
  For I := 0 To L Do
  Begin
    Result.X := Result.X + TPA[I].X;
    Result.Y := Result.Y + TPA[I].Y;
  End;
  Try
  Result.X := Round(Result.X Div GetArrayLength(TPA));
  Result.Y := Round(Result.Y Div GetArrayLength(TPA));
  Except WriteLn('Error in WeirdMiddle'); End;
End;


Function AtMine: Boolean;

Var
  iX, iY: Integer;

Begin
  Result := FindColoredAreaTolerance(iX, iY, 0, MMX1, MMY1, MMX2, MMY2, 100, 0);
End;

Function UsePortal: Boolean;

Var
   Count: Integer;
   Portal: TPoint;
   PortalTPA: TPointArray;

Begin
  If Not AtMine Then
  Begin
    Result := True;
    Exit;
  End
  ColorToleranceSpeed(2);
  Repeat
    FindColorsTolerance(PortalTPA, 11059142, MSX1, MSY1, MSX2, MSY2, 9);
    WriteLn(IntToStr(GetArrayLength(PortalTPA)));
    Wait(50);
    Count := Count + 1;
    If Count > 100 Then Break;
  Until GetArrayLength(PortalTPA) > 80;
  ColorToleranceSpeed(1);
  If Not Count > 100 Then
  Begin
    WriteLn('Portal Popped up');
    Portal := WeirdMiddle(PortalTPA);
    MMouse(Portal.X, Portal.Y, 0, 0);
  GetMousePos(Portal.X, Portal.Y);
  Wait(100+Random(50));
  If IsUpText('ort') Then
    Result := True;
  End;
End;

Function ToPortal: Boolean;

Var
  iX, iY, C : Integer;
  Boolie : Boolean;
Begin
  If Not LoggedIn Then Exit;
  If Not AtMine Then
  Begin
    Result := True;
    Exit;
  End
  If FindSymbol(iX, iY, 'transportation') Then
  Begin
    Mouse(iX, iY, 2, 2, True);
    Wait(10);
    FFlag(0);
    FindNormalRandoms;
    iX := MSCX;
    iY := MSCY;
    Repeat
      If Random(4) = 3 Then
        Boolie := True;
      If Boolie Then
      Begin
        Case Random(3) Of
          0: MakeCompass('E');
          1: MakeCompass('S');
          2: MakeCompass('W');
        End;
      End;
      Wait(50);
      C := C + 1;
      If Not AtMine Then
      Begin
        Result := True;
        Exit;
      End
      If UsePortal Then
      Begin
        GetMousePos(iX, iY);
        Mouse(iX, iY, 0, 0, True);
        Wait(10);
        Result := True;
        FFlag(0);
        Exit;
      End Else WriteLn('No Portal');
      If Not AtMine Then
      Begin
        Result := True;
        Exit;
      End
      If FindObj(iX, iY, 'rtal', 10731205, 15) Then
      Begin
        Mouse(iX, iY, 0, 0, True);
        Wait(10);
        Result := True;
        FFlag(0);
        Exit;
      End Else WriteLn('No Portal');
      Wait(1000);
    Until C > 4;
  End;
End;

Function RunToPortal: Boolean;

Begin
  MarkTime(iMark);
  Repeat
    If Not LoggedIn Then Break;
    If (TimeFromMark(iMark) > 120000) Then
    Begin
      If WizzyDebug Then WriteLn('Portal Took too long..logging');
      LogOut;
      Players[CurrentPlayer].Loc := 'Portal';
    End;
    If ToPortal Then
    Begin
      FFlag(0);
      Wait(6000);
    End
    Else Wait(100);
  Until Not AtMine;
  Result := True;
  PortalBool := True;
End;

Function HighestBrightNess: Boolean;

Begin
  GameTab(11);
  Wait(400);
  If GetColor(712, 226) <> 16777215 Then
  Begin
    Mouse(712, 226, 2, 2, True);
    Result := True;
    Wait(200);
  End;
End;

Function GetMiddle:String;

Var
   Ex, Ey: Integer;
Begin
  If Not LoggedIn Then Exit;

  If ScanMiniMap(330, 380, 55) < 35 Then
  Begin
    Result := 'MiddleSW';
    Status(Result);
    ReportVars[4] := ReportVars[4] + 1;
    Ex := 610; // 605
    Ey := 120; // 116
    EssencePoint[0].X := 170;
    EssencePoint[0].Y := 240;
    EssencePoint[1].X := 190;
    EssencePoint[1].Y := 290;
    EssencePoint[2].X := 200;
    EssencePoint[2].Y := 223;
  End
  Else
  Begin
    Result := 'MiddleNE';
    Status(Result);
    ReportVars[3] := ReportVars[3] + 1;
    Ex := 690;
    Ey := 30;
    EssencePoint[0].X := 360;
    EssencePoint[0].Y := 40;
    EssencePoint[1].X := 450;
    EssencePoint[1].Y := 100;
    EssencePoint[2].X := 390;
    EssencePoint[2].Y := 30;
  End;
  Mouse(Ex, Ey, 2, 2, True);
  Wait(10);
  FFlag(0);
  Wait(100);
End;

Function GetPositionInMine: String;

Begin
  MakeCompass('N');
  If Not LoggedIn Then Exit;
  If Not FindSymbol(x, y, 'transportation') Then
  Begin
    Result := GetMiddle;
    Exit;
  End;

  If ScanMiniMap(220, 240, 60) < 15 Then
  Begin
    Result := 'North-East';
    ReportVars[5] := ReportVars[5] + 1;
    EssencePoint[0].X := 340;
    EssencePoint[0].Y := 61;
    EssencePoint[1].X := 295;
    EssencePoint[1].Y := 50;
    EssencePoint[2].X := 395;
    EssencePoint[2].Y := 120;
    Status(Result);
    Exit;
  End;

  If ScanMiniMap(125, 155, 60) < 20 Then
  Begin
    Result := 'North-West';
    ReportVars[6] := ReportVars[6] + 1;
    EssencePoint[0].X := 140;
    EssencePoint[0].Y := 115;
    EssencePoint[1].X := 18;
    EssencePoint[1].Y := 70;
    EssencePoint[2].X := 120;
    EssencePoint[2].Y := 150;
    Status(Result);
    Exit;
  End;

  If ScanMiniMap(285, 325, 60) < 25 Then
  Begin
    Result := 'South-East';
    ReportVars[7] := ReportVars[7] + 1;
    EssencePoint[0].X := 350;
    EssencePoint[0].Y := 160;
    EssencePoint[1].X := 337;
    EssencePoint[1].Y := 210;
    EssencePoint[2].X := 362;
    EssencePoint[2].Y := 125;
    Status(Result);
    If (ScanMiniMap(140, 170, 55) <> 31) Then
      Exit;
  End;

  Result := 'South-West';
  ReportVars[2] := ReportVars[2] + 1;
  EssencePoint[0].X := 190;
  EssencePoint[0].Y := 60;
  EssencePoint[1].X := 146;
  EssencePoint[1].Y := 94;
  EssencePoint[2].X := 285;
  EssencePoint[2].Y := 54;
  Status(Result);

End;

Function SpotAubury: Boolean;
                                    // 10855856, 3005947, 2998011
Var
  iX, iY, C: Integer;

Begin
  Repeat
    CloseWindow;
    Wait(50);
    If FindAuburyText Then
    Begin
      Result := True;
      Break;
    End;
    iX := MSCX;
    iY := MSCY;
    If AtMine Then
    Begin
      Result := True;
      Exit;
    End;
    If FindColorSpiralTolerance(iX, iY, 2998011, MSX1, MSY1, MSX2, MSY2, 4)
    Or FindColorSpiralTolerance(iX, iY, 1888494, MSX1, MSY1, MSX2, MSY2, 4) Then
    Begin
      MMouse(iX, iY, 0, 0);
      Wait(100);
      If IsupTextMulti('Talk','bury','alk-to') Then
      Begin
        Status('Aubury Found..Right Clicking now.');
        Mouse(iX, iY, 0, 0, False);
        Result := ChooseOption(iX, iY, 'eleport');
        If Result Then Exit;
      End;
    End;
    C := C + 1;
  Until C > 5;
  Wait(500);

  If Not LoggedIn Then Exit;
End;

Function OpenDoor: Boolean;

Var
  x, y: Integer;
Begin
  ColorToleranceSpeed(2);
  If FindObj(x, y, 'oor', 4813698, 19) Then
  Begin
    GetMousePos(x, y);
    Wait(100);
    If IsUpText('pen') Then
    Begin
      Mouse(x, y, 0, 0, True);
      Result := True;
      WriteLn('Door Found and Opened');
      Wait(50);
      FFlag(0);
    End
    Else Result := IsUpText('lose');
  End;
  ColorToleranceSpeed(1);
End;

Function ToBank: Boolean;

Var
   iX, iY, DoorMark, C: Integer;
   AngleVar : Extended;

Begin
  MarkTime(DoorMark);
  SetRun(True);
  Repeat
    Mouse(680, 30, 4, 4, True);
    Wait(100);
    If FlagDistance < 40 Then
    Begin
      Mouse(MMCX, MMCY, 4, 4, True);
      OpenDoor;
      Wait(3000);
      FFlag(0);
      OpenDoor;
    End
    Else
    Begin
//      Wait(7000);
      Wait(6000);
      FFlag(0);
      Break;
    End;
    If TimeFromMark(DoorMark) > 240000 Then
    Begin
      LogOut;
      Players[CurrentPlayer].Loc := 'DoorMark > 240000';
    End;
    If Not LoggedIn Then Break;
  Until False;

  If Not LoggedIn Then Exit;
  C := 0;
  Repeat
    C := C + 1;
    If FindDTMRotated(BankDTM, iX, iY, MMX1, MMY1, MMX2, MMY2, -1.0, 2.0, 1, AngleVar) Then
    Begin
      Result := True;
      Mouse(iX, iY + 1, 0, 0, True);
      Wait(3000);
      FFlag(0);
      Break;
    End
    Else
    Begin
      If C > 19 Then
      Begin
        LogOut;
        Players[CurrentPlayer].Loc := 'ToBank2';
        WriteLn('Bank not found');
        Break;
      End;
    End;
    MakeCompass('N');
    Wait(1000);
  Until C > 20;
End;


Function ToAubury: Boolean;

Var
  x, y, AubMark: Integer;
  Angle: Extended;

Begin

  If Not Players[CurrentPlayer].Boolean2 Then
  Begin
    HighestBrightness;
    Players[CurrentPlayer].Boolean2 := True;
    //SetRun(True);
  End;
  SetRun(False);
  If Not LoggedIn Then Exit;
  Mouse(663, 142, 6, 6, True);
  Wait(15000+Random(4000));
  FFlag(0);
  MarkTime(AubMark);
  Repeat
    If FindDTMRotated(AuburyDTM, x, y, MMX1, MMY1, MMX2, MMY2,
       -Radians(35), Radians(35), 0.05, Angle) Then
    Begin
      Mouse(x, y, 0, 0, True);
      GetMousePos(x, y);
      Wait(100);
      FFlag(0);
      Result := True;
      If LoggedIn Then Players[CurrentPlayer].Loc := 'Aubury';
      Exit;
    End;
  Until TimeFromMark(AubMark) > 60000;
End;

Function ToMine: Boolean;

Var
   zMark, iX, iY: Integer;
Begin
  MarkTime(zMark);
  Repeat
    FindNormalRandomsTimeEx;
    If (TimeFromMark(zMark) > 240000) Then
    Begin
      WriteLn('Aubury Took too long..logging');
      LogOut;
      Players[CurrentPlayer].Loc := 'AuburyNF';
    End;
    If Random(10) = 1 Then OpenDoor;
    If SpotAubury Then
    Begin
      FFlag(0);
      Wait(4000);
    End
    Else
    Begin
      Wait(100);
      ChooseOption(iX, iY, 'ancel');
    End;

    If Not LoggedIn Then Break;
  Until AtMine;

  Result := True;
  If LoggedIn Then Players[CurrentPlayer].Loc := 'Mine';
End;

Function MyOpenBank: Boolean;

Var
   C, iX, iY: Integer;
   Angle: Extended;

Begin
  Repeat
    C := C + 1;
    If OpenVarrockEastBank Then
    Begin
      Result := True;
      Exit;
    End;
    OpenBankGlass('veb',False,False);
    FFlag(0);
    Wait(2000);
    If BankScreen Or PinScreen Then
    Begin
      Result := True;
      If PinScreen Then InPin(Players[CurrentPlayer].String1);
      Exit;
    End;
    If FindDTMRotated(BankDTM, iX, iY, MMX1, MMY1, MMX2, MMY2, -1.0, 2.0, 0.05, Angle) Then
    Begin
      Mouse(iX, iY, 0, 0, True);
      Wait(3000);
      FFlag(0);
    End
  //  If OpenBankQuiet('veb') Then Result := True;
    If PinScreen Then InPin(Players[CurrentPlayer].String1);
  Until (C > 4);
End;


Function BankStuff: Boolean;

Var
  RuneEss, PureEss: Integer;
Begin
  If Not BankScreen Then Exit;
  RuneEss := BitmapFromString(8, 12, 'z78DA8DCD3112C3200C44D1' +
       '2BE1B02B9B1288B9FF91222315149107EFCCAFF4B08037BB584F0' +
       'E0E6F9143D724EBAC5F79BE0F1BABF7DDCEB25374B3925858BCC1' +
       '3BBC78E82AA1DBB07EBFAAC8DA3D3130BC1B8A191DFD8F8A6C424' +
       '57515D945E1C685D35564973FA23DD4D48ED5ABACDB560092CED4' +
       'BB9DF73F7ACE7D1F');
  PureEss := BitmapFromString(11, 10, 'z78DAA5CF490E03211003C' +
       '02FB1B56D8E0CCBFF9F1492CC012962B2B5251F4B6E451616192B' +
       'ABC8CEA62CC771F6A120AFA638D39594B213841C342F27151536A' +
       '6994110F214A59DB9D1783032FCE39018E8CCF474BF693434B48F' +
       '9C555B1CBAF98A185050BED0963DE8B8DFA3DF689BEF90E1670EA' +
       '4994F9C65D5D38159B736596763AB5D3A362C5B46B46AF5D4AE57' +
       'BD3837C02891A6');
  RuneEssenceMined := RuneEssenceMined + CountItemBmpTol(RuneEss, 15);
  PureEssenceMined := PureEssenceMined + CountItemBmpTol(PureEss, 15);
  ReportVars[1] := ReportVars[1] + 1;
  ReportVars[0] := CountItemBmpTol(RuneEss, 15) + CountItemBmpTol(PureEss, 15);
  Players[CurrentPlayer].Integer1 := Players[CurrentPlayer].Integer1 + CountItemBmpTol(PureEss, 15) + CountItemBmpTol(RuneEss, 15);
  ClickAllItemsBmpTolWait('All', RuneEss, 15, 1500);
  ClickAllItemsBmpTolWait('All', PureEss, 15, 1500);
  If EquipPick Then Deposit(1, 28, 2)
  Else Deposit(2, 28, 2);
  FreeBitMap(RuneEss);
  FreeBitMap(PureEss);
  If BankScreen Then CloseBank;
  Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
  Banks := Banks + 1;
  Result := True;
End;

Procedure PlayerReport;

Var
  Active: String;
  I:Integer;

Begin
  For I  :=  0 to HowManyPlayers - 1 Do
   Begin
     If Players[i].Active=True Then Active := 'T' Else Active := 'F';
     WriteLn( (IntToStr(I))+' : '+Players[I].nick+ ' = '+
     Active+ +'; Loc = '+Players[I].Loc+'; Banked: '+IntToStr(Players[I].Integer1)
     +' Ess; M lvl:'+IntToStr(Players[i].Level[15]));
   End;
End;

Procedure CurrentPlayerReport;

Begin
  WriteLn('----------------------------------------------')
  WriteLn(Players[CurrentPlayer].Name+'.');
  WriteLn('Mined ' + IntToStr(Players[CurrentPlayer].Integer1) + ' Essence.');
  WriteLn('Mining level is ' + IntToStr(Players[CurrentPlayer].Level[15]));
  WriteLn('Location is ' + Players[CurrentPlayer].Loc+ '.');
  WriteLn('----------------------------------------------')
End;

Procedure ProgressReport;

Begin
  WriteLn('----------------------------------------------')
  WriteLn('')
  WriteLn('Essence Miner by Wizzup?.')
  WriteLn('Version: '+VersionNumber)
  WriteLn('')
  If RuneEssenceMined > 0 Then WriteLn('Rune Essence Mined and Banked : '+IntToStr(RuneEssenceMined)+'.');
  If PureEssenceMined > 0 Then WriteLn('Pure Essence Mined and Banked : '+IntToStr(PureEssenceMined)+'.');
  If Abyss > 0 Then WriteLn('Solved '+IntToStr(Abyss)+' Abyssal Random Events.');
  If NOAbyss > 0 Then WriteLn('Missed '+IntToStr(NoAbyss)+' Abyssal Random Events.');
  Writeln('Worked for '+ TimeRunning);
  WriteLn('')
  WriteLn('----------------------------------------------')
  WriteLn('')
  PlayerReport;
  CurrentPlayerReport;
  SRLRandomsReport;
End;

Procedure ClearVars;

Var
  I : Integer;
Begin
  For I := 1 To 19 Do
  ReportVars[I] := 0;
End;

Procedure DoChats;

Begin
  SetChat('On', 1);
  SetChat('On', 1);
  SetChat('Friends', 2);
  SetChat('Friends', 2);
  SetChat('Friends', 3);
  SetChat('Friends', 3);
End;

Procedure RandomGameTab;

Var
   A: Integer;
Begin
  A := Random(10) + 1;
  If A = 4 Then
  Begin
    GameTab(2);
    HoverSkill('mining', False);
  End
  Else GameTab(a);
  GameTab(4);
End;

Procedure SetupScript;

Begin
  ClearDebug;
  ActivateClient;
  Wait(100);
  SetupSRL;
  SetupSRLMining;
  AuburyDTM := DTMFromString('78DA63AC666260C86140016FDF3230FC07D28' +
       'C40FC1F08188B816AD420724C486AB8A06A4080B18308353544A8' +
       '6920AC0600A21C11F8');

  BankDTM:= DTMFromString('78DA636C666260486140016FDEBC61F80FA41' +
       '981F83F1030B603D5E4A0AA79FB96814103AA060418EB816AB251' +
       'D57CFD8AAA0600B6210EA4');

 // SetupSRLAutoResponder;
  DeclarePlayers;
  MouseSpeed := 5;
  Rcmaster := YourRCMASTER;
  RcLoc := 'Bank';
  ScriptID := '51';
  ClearVars;
  SRLID := YourSRLstatsID;
  SRLPassword := YourSRLstatsPASS;
  CurrentPlayer := StartPlayer;
  LoginPlayer;
  Wait(1000);
  DoChats;
  EquipPick := Players[CurrentPlayer].Boolean1;
  AuburyText := CreateBitmapMaskFromText('isthine', upchars);
  BenMouse := True;
  HighestAngle;
  MakeCompass('N');
  GetAllLevels;
End;

Function ToEssence: Boolean;

Begin
  If FindEssence(X, Y) Then
  Begin
    Mouse(X, Y, 0, 0, True);
    Wait(10);
    FFlag(0);
    Result := True;
  End
  Else
  Begin
    RunToPortal;
  End;
End;

begin
  ActivateClient;
  SetupScript;
  Repeat
    MakeCompass('N');
    If Players[CurrentPlayer].Loc = 'Bank' Then
    Begin
      Aubs := 0;
      ToAubury;
    End;

    If Players[CurrentPlayer].Loc = 'Aubury' Then
    Begin
      SetRun(True);
      ToMine;
    End;

    If Players[CurrentPlayer].Loc = 'Mine' Then
    Begin
      Wait(500);
      If InAbyss Then
      Begin
        GuessAbyssRandom;
        BoredHuman;
      End;
      Wait(1000);
      FindNormalRandoms;
      SymbolAccuracy := 0.4;
      Position := GetPositionInMine;
      WriteLn('Our position is '+ Position+'.');
      ToEssence;
      MarkTime(IdleMark);
      MarkTime(MiningMark);
      Repeat
        If Not LoggedIn Then Break
        If PortalBool Then Break;

        If TimeFromMark(IdleMark) > (40000+Random(5000)) Then
        Begin
          Status('Gametabs to avoid logging out.');
          RandomGametab;
          GameTab(4);
          MarkTime(IdleMark);
        End;
        FindNormalRandomsTimeEx;
        If FindFight Then
        Begin
          RunToPortal;
          WriteLn('Going to Portal, FindFight.');
          Break;
        End;

        Wait(50);
      Until ((InvFull) Or (TimeFromMark(MiningMark) > 1000 * 60 * MinutesPerLoad));

      If Not PortalBool Then
      Begin
        MarkTime(iMark);
        Repeat
          If Not LoggedIn Then Break;
          If (TimeFromMark(iMark) > 120000) Then
          Begin
            WriteLn('Portal Took too long..logging');
            LogOut;
            Players[CurrentPlayer].Loc := 'Portal';
          End;
          If ToPortal Then
          Begin
            FFlag(0);
            Wait(3000);
          End
          Else Wait(100);
        Until Not AtMine;
      End;

      WriteLn('Through The portal');
      Wait(2000 + Random(500));
      MakeCompass('N');
      SymbolAccuracy := 0.8;
      PortalBool := False;
      If LoggedIn Then Players[CurrentPlayer].Loc := 'ToBank';
      If InventoryCount <> 28 Then
      Begin
        Players[CurrentPlayer].Loc := 'Aubury';
        If Aubs <> 0 Then WriteLn(IntToStr(Aubs) + ' Aubs');
        Aubs := Aubs + 1;
      End
      Else Aubs := 0;
      If Aubs > 9 Then
      Begin
        LogOut;
        //TerminateScript;
        WriteLn('9 times and still no ess. stopping player');
        Players[CurrentPlayer].Loc := 'TooManyAubs';
      End;
    End;

    If Players[CurrentPlayer].Loc = 'ToBank' Then
    Begin
      Wait(500);
      ToBank;
      MyOpenBank;
      BankStuff;
      If LoggedIn Then Players[CurrentPlayer].Loc := 'Bank';
    End;

    ProgressReport;
    If ( LoggedIn And (Players[CurrentPlayer].Banked Mod Loads = 0 ) And (Players[CurrentPlayer].Banked <> 0) ) Then
    Begin
      MarkTime(MyMark);
      SetChat('off',1);
      Repeat
        FindNormalRandomsTimeEx;
        Wait(10);
        If TimeFromMark(MyMark) > 240000 Then Begin Logout; Break; End;
      Until Not LoggedIn;
      Wait(1000);
      NextPlayer(True);
      EquipPick := Players[CurrentPlayer].Boolean1;
      DoChats;
      SetRun(True);
      FindPickHeadColor;
      GetAllLevels;
    End;

    If Not LoggedIn Then
    Begin
      NextPlayer(False);
      DoChats;
      EquipPick := Players[CurrentPlayer].Boolean1;
      SetRun(True);
      FindPickHeadColor;
      GetAllLevels;
    End;
  Until False;
  FreeDTM(BankDTM);
end.

 

wat do i do next plz tell me

 

you copy all that into scar

and u set it up,your new to this,huh?

 

yes i am
but were the scar the thing i downloded

 

there i copyed it all

 

plz i need u to reply me fast cuz iim leaveing in 30min

 

go to this and you should be able to find a download

http://www.sythe.org/showthread.php?t=200024


ps:sorry i couldent get it to you in time

 

i did that but what do i do next

 

and thats alright

 

i will be back l8ter so plz wen u get a chance tell me wat to do

 

Poo, did you get wizzup?'s permission to post that script here?

 

i didnt think he would be mad just a long as he got alll the credit for it
​

 

you have to copy the script into scar,then you put the information into the blank space:user name,pass,nick and after that drag the croshair onto the game,log out and leave it at the logout screen when you are in the east varrock bank,then start the script,viola

 

yea i need help with that script there is somtihing wrong with the howmany player identifyers

 

ok in line 34 there is a prob with the idenifyer idk wats up with it im a tota noob to this who thing but if some1 can help me if wud be greatly apreciated. thank you!

 

i cannot get the script to do anything