need a rene ess miner

Discussion in 'Script Requests' started by homey g dog, Aug 6, 2007.

need a rene ess miner
  1. Unread #1 - Aug 6, 2007 at 1:49 PM
  2. homey g dog
    Referrals:
    0

    homey g dog Guest

    need a rene ess miner

    i make a dude who mine ess .
    pla help me
     
  3. Unread #2 - Aug 6, 2007 at 1:51 PM
  4. homey g dog
    Referrals:
    0

    homey g dog Guest

    need a rene ess miner

    ill be back later guys ok
     
  5. Unread #3 - Aug 6, 2007 at 3:54 PM
  6. homey g dog
    Referrals:
    0

    homey g dog Guest

    need a rene ess miner

    help me plz
     
  7. Unread #4 - Aug 6, 2007 at 3:59 PM
  8. poo fein
    Joined:
    Apr 18, 2007
    Posts:
    53
    Referrals:
    0
    Sythe Gold:
    0

    poo fein Member

    need a rene ess miner

    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.
     
  9. Unread #5 - Aug 6, 2007 at 4:02 PM
  10. homey g dog
    Referrals:
    0

    homey g dog Guest

    need a rene ess miner

    wat do i do next plz tell me
     
  11. Unread #6 - Aug 6, 2007 at 4:30 PM
  12. poo fein
    Joined:
    Apr 18, 2007
    Posts:
    53
    Referrals:
    0
    Sythe Gold:
    0

    poo fein Member

    need a rene ess miner

    you copy all that into scar

    and u set it up,your new to this,huh?
     
  13. Unread #7 - Aug 6, 2007 at 4:56 PM
  14. homey g dog
    Referrals:
    0

    homey g dog Guest

    need a rene ess miner

    yes i am
    but were the scar the thing i downloded
     
  15. Unread #8 - Aug 6, 2007 at 4:58 PM
  16. homey g dog
    Referrals:
    0

    homey g dog Guest

    need a rene ess miner

    there i copyed it all
     
  17. Unread #9 - Aug 6, 2007 at 4:59 PM
  18. homey g dog
    Referrals:
    0

    homey g dog Guest

    need a rene ess miner

    plz i need u to reply me fast cuz iim leaveing in 30min
     
  19. Unread #10 - Aug 6, 2007 at 5:59 PM
  20. poo fein
    Joined:
    Apr 18, 2007
    Posts:
    53
    Referrals:
    0
    Sythe Gold:
    0

    poo fein Member

    need a rene ess miner

  21. Unread #11 - Aug 6, 2007 at 8:54 PM
  22. homey g dog
    Referrals:
    0

    homey g dog Guest

    need a rene ess miner

    i did that but what do i do next
     
  23. Unread #12 - Aug 6, 2007 at 8:56 PM
  24. homey g dog
    Referrals:
    0

    homey g dog Guest

    need a rene ess miner

    and thats alright
     
  25. Unread #13 - Aug 6, 2007 at 9:09 PM
  26. homey g dog
    Referrals:
    0

    homey g dog Guest

    need a rene ess miner

    i will be back l8ter so plz wen u get a chance tell me wat to do:eek:
     
  27. Unread #14 - Aug 7, 2007 at 5:20 AM
  28. Gofez0r
    Joined:
    Jan 21, 2007
    Posts:
    1,820
    Referrals:
    1
    Sythe Gold:
    0

    Gofez0r Guru

    need a rene ess miner

    Poo, did you get wizzup?'s permission to post that script here?
     
  29. Unread #15 - Aug 7, 2007 at 8:07 AM
  30. poo fein
    Joined:
    Apr 18, 2007
    Posts:
    53
    Referrals:
    0
    Sythe Gold:
    0

    poo fein Member

    need a rene ess miner

    i didnt think he would be mad just a long as he got alll the credit for it
     
  31. Unread #16 - Aug 7, 2007 at 8:10 AM
  32. poo fein
    Joined:
    Apr 18, 2007
    Posts:
    53
    Referrals:
    0
    Sythe Gold:
    0

    poo fein Member

    need a rene ess miner

    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
     
  33. Unread #17 - Aug 10, 2007 at 12:30 AM
  34. $k!ller pk3r
    Joined:
    Aug 9, 2007
    Posts:
    104
    Referrals:
    0
    Sythe Gold:
    0

    $k!ller pk3r Active Member

    need a rene ess miner

    yea i need help with that script there is somtihing wrong with the howmany player identifyers
     
  35. Unread #18 - Aug 10, 2007 at 12:32 AM
  36. $k!ller pk3r
    Joined:
    Aug 9, 2007
    Posts:
    104
    Referrals:
    0
    Sythe Gold:
    0

    $k!ller pk3r Active Member

    need a rene ess miner

    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!:(
     
  37. Unread #19 - Aug 18, 2007 at 2:37 PM
  38. qcrist
    Referrals:
    0

    qcrist Guest

    need a rene ess miner

    i cannot get the script to do anything
     
< new auto alcher! | need an auto fletcher >

Users viewing this thread
1 guest


 
 
Adblock breaks this site