Results 1 to 5 of 5

Thread: Super Power Miner

  1. #1
    Join Date
    Dec 2011
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Super Power Miner

    Hi, My name is Trent and this is my FIRST powerminer script it works flawlessly for me and hope it does the same for you.
    Code:
    program SuperPowerMiner;
    
    {.include/SRL/SRL.simba}
    {.include SRL/SRL/Misc/SMART.simba}
    {.include SRL\SRL.simba}
    {.Include SRL\SRL\Misc\Debug.simba}
    
    const
      SmartWorld = 15;              // Which World/Server do you want to use?
      SmartMembers = True;     //  Is it a Members World?
      SmartSigned = True;         //  Signed/UnSigned Client?
      SmartSuperDetail = False;    //  Use Super Detail?
      Version           = '1.0';
      NumbOfPlayers     = 1;
      StartPlayer       = 0;
    
      procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := ''; //Username
      Players[0].Pass := ''; //Password
      Players[0].Active := True;
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;
    
    Procedure Antiban; //Antiban, Credits to YoHo
    Begin
      Case Random(192) Of
        0: HoverSkill('Woodcutting', False);  //skill
        1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
        2: ExamineInv;
        3: RandomAngle(1);
        4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
        5: HoverSkill('random', False);
      End;
    End;
    
    function OreColor: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
      R, G, B: Integer;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.01, 1.88);
    
      FindColorsSpiralTolerance(960, 540, arP, 2912994, 0, 0, 1920, 1080, 12);
      if (Length(arP) = 0) then
      begin
        Writeln('Failed to find the color, no result.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;
    
      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);
    
      for i := 0 to arL do
      begin
        ColorToRGB(arC[i], R, G, B);
    
        if (R >= 160) and (R <= 254) and (G >= 91) and (G <= 145) and (B >= 48) and (B <= 78) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);
    
          if (X >= 19.06) and (X <= 51.84) and (Y >= 15.44) and (Y <= 41.39) and (Z >= 4.86) and (Z <= 12.30) then
          begin
            Result := arC[i];
            Writeln('AutoColor = ' + IntToStr(arC[i]));
            Break;
          end;
        end;
      end;
    
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if (i = arL + 1) then
        Writeln('AutoColor failed in finding the color.');
    end;
    
    function MineOre:Boolean;
    Var
      x, y , PlusOne, OreCounter: Integer;
      Begin;
      PlusOne:= InvCount + 1
      x:= MSCX;
      y:= MSCY;
      If FindObjTPA(x, y, OreColor, 3, 1, 12, 1, 1, ['Mine'])  Then
      Begin
       Case Random(2) Of
        0: Mouse(x, y, 5, 5, True);
        1: Begin
            Mouse(x, y, 5, 5, False);
            Wait(100+Random(100));
            WaitOption('Mine', 500);
             End;
    
        end;
    
           Flag;
    
        MarkTime(OreCounter);
    
        Repeat;
        FindNormalRandoms;
          Antiban;
          wait(1000);
         Until (InvCount=PlusOne) Or (TimeFromMark(OreCounter) > 7500)
    
    
      End;
    
    End;
    
    Procedure DropOre;
    Var
      x, y, OreDTM, I:Integer;
      SlotBox:TBox;
      OrePattern:TIntegerArray;
    
    Begin
    
        OreDTM := DTMFromString('mrAAAAHic42BgYFjGxMCwBIjXA/FCIJ4CxLOAeBOUTmdkYIgC4kwgLgHiVCCOh+I8IN6fa8VgoKAANIkJA0PE8QNGAhgGAIeSCrw=');
        OrePattern:=[1,5,9,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,24,28];
        For I:=0 To 27 Do
        Begin
          FindNormalRandoms;
          SlotBox:=InvBox(OrePattern[I]);
          If FindDtm(OreDTM, x, y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
          Begin
            MouseItem(OrePattern[I], MOUSE_RIGHT);
            ChooseOption('Drop');
          End;
        End;
    
        FreeDTM(OreDTM);
    
    
    End;
    
    
    
    
    
    
    
    
    
    begin
      DeclarePlayers;
      Smart_Server := SmartWorld;
      Smart_Members := SmartMembers;
      Smart_Signed := SmartSigned;
      Smart_SuperDetail := SmartSuperDetail;
      SetupSRL;
      If not (LoggedIn) then
    LoginPlayer;
    OreColor;
    
    repeat
      MineOre;
      if InvFull Then
        DropOre;
      Until (false);
    
    end.
    
    end.
    Please post feedback and any bugs you are having.

    Where is runs:


    Note: This script is pretty flawless. It runs really fast and doesn't drop gems.
    Last edited by Supertrent1; 02-01-2012 at 01:54 AM.
    Hi I'm new and just starting to script. Check out my first Simba script ever here:
    http://villavu.com/forum/showthread.php?t=73533
    If I helped you:
    http://i.picasion.com/pic49/4d86097a...49046f1fb2.gif

  2. #2
    Join Date
    Nov 2011
    Posts
    92
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just upload it as an attachment, not a download from mediafire.

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

    Default

    Quote Originally Posted by drawboy11 View Post
    Just upload it as an attachment, not a download from mediafire.
    Done.
    Hi I'm new and just starting to script. Check out my first Simba script ever here:
    http://villavu.com/forum/showthread.php?t=73533
    If I helped you:
    http://i.picasion.com/pic49/4d86097a...49046f1fb2.gif

  4. #4
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    You left your user and pass in there btw.

    -Boom

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

    Default

    Quote Originally Posted by Dynamite View Post
    You left your user and pass in there btw.

    -Boom
    Haha, kinda late here, anyways. I had a day left of members on it and someone was in the midst of selling my items (Worth 16 mil). The account was a failed pure. I recovered it and there was 16mil in pouch and the last of my things were selling in the G.E. Account was compromise so I sold the RS gold on a website and took anything of value off it. Good thing I had done near nothing quest/ Time consuming wise and everything else was botted
    Hi I'm new and just starting to script. Check out my first Simba script ever here:
    http://villavu.com/forum/showthread.php?t=73533
    If I helped you:
    http://i.picasion.com/pic49/4d86097a...49046f1fb2.gif

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

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