Results 1 to 22 of 22

Thread: jps noob power miner

  1. #1
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default jps noob power miner

    ok so heres my first power miner

    id like to thank everyone who answered my questions even though there were alot of them lol


    INCLUDES


    • Multi player
      Multi Ore
      Dtm dropping
      Anti ban



    BUGS


    • NONE YET


    lastly you can have your pick weilded or not it doesnt matter at all

    best proggies
    Code:
    |     ||      \
     |     ||      |
     |     ||   ___/
    /_____/ |__ |   
    Player killingnubs3
    loads done 75
    primary ores mined 1500
    secondary ores mined 750
    gems dropped 0
    post the proggy or no more updates!!!!!!!!!!!!!!





    Disclamer
    im not responsible for an banned or items lost when using this script.


    EDIT: fixxed up standards thnx 99
    EDIT: added time feature in proggy
    Last edited by JPHamlett; 03-24-2009 at 06:37 PM.

  2. #2
    Join Date
    Feb 2009
    Location
    Philipines
    Posts
    600
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very nice, worked perfectly for me, you are better than me at scripting lol, the only script I can make is auto loginer , you should add a anti-random it is pretty easy to learn. Good job

  3. #3
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by Dark Arcana View Post
    Very nice, worked perfectly for me, you are better than me at scripting lol, the only script I can make is auto loginer , you should add a anti-random it is pretty easy to learn. Good job

    ty i will add anti randomns at the next rev update no point in putting them in it now

    and will u plz post your proggy if u still have it

    also did u use multi player by any chance cause i wanna know if that works well

  4. #4
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {So here my first script it runs pretty well

    only bugs so far is that sometimes it clicks somewhere else and doesn't drop all the ore
    (ong thts not to bad)

    ty tickyy I looked on to your miner for proggy help and antibans and more
    ____________________setup__________________________
    1. set up declareplayers
    2. set ore type in line 38
    3. setup player by rock you want to mine
    3. save
    4. run
    5. post proggies and any bugs

    btw it posts proggies all the way though so only post them at the end ty

    and enjoy :0
    ______________________________________________________}


    program SimplePowerMiner;
    {.Include SRL\SRL\Misc\SMART.SCAR}
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\Mining.scar}

    {agenda
     0. fix DTMs
     3. anti randoms
     4. multi ores???
     5. release it}


    var
      o, u, l, j, x, y, g, i, y, z, f, OreDTM, Drops, Mines, GemDrops, GemDTM: Integer;

    const
      NumOfPlayers = 1;
      StartPlayer = 0;
      WhichOre = rimmington_Iron;
      WhichOre2 = rimmington_tin;//if only mining 1 ore then have the same ore for which ore and which ore2

    procedure DeclarePlayers;//add more if needed
    begin
      HowManyPlayers := 2;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name       := '';
      Players[0].Pass       := '';
      Players[0].Nick       := '';
      Players[0].Active     := True;    // Use this account?
      Players[0].Integers[1] := 1000; // How many Loads
     
      {Players[1].Name       := '';
      Players[1].Pass       := '';
      Players[1].Nick       := '';
      Players[1].Active     := True;    // Use this account?
      Players[1].Integers[1] := 1000; // How many Loads}

    end;

    procedure AntiBanz;//ty tickyy
    begin
      if(not LoggedIn)then Exit;
      case Random(12) of
        0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
        1: HoverSkill('random',false);
        2: PickupMouse;
        3: GameTab(1+Random(12));
        4: SleepAndMoveMouse(400+Random(1500));
        5: if Random(2) = 1 then MMouse(1, 338, 515, 165);
        6: if Random(2) = 1 then MMouse(515, 1, 250, 503);
        7: RandomMovement;
        8..11: begin
                 case Random(3) of
                   0: begin
                        KeyDown(VK_RIGHT);
                        Wait(500+Random(2000));
                        KeyUp(VK_RIGHT);
                      end;
                   1: begin
                        KeyDown(VK_Left);
                        Wait(500+Random(2000));
                        KeyUp(VK_Left);
                      end;
                   2: begin
                        case Random(2) of
                          0: begin
                               KeyDown(VK_RIGHT);
                               Wait(500+Random(1400));
                               KeyUp(VK_RIGHT);
                             end;
                          1: begin
                               KeyDown(VK_Left);
                               Wait(500+Random(1400));
                               KeyUp(VK_Left);
                               Inc(z);
                             end;
                        end;
                      end;
                 end;
               end;
      end;
    end;
     
    procedure Setup;
    begin
      Disguise('TY for using jps powerminer');
      ClearDebug;
      SMARTSetupEx(149, False, True, False);
      Wait(5000);
      SetTargetDC(SmartGetDC);
      repeat
        Wait(100);
      until(SmartGetColor(253, 233)<>1118604);
      SetupSRL;
      SetupMining;
    end;

    procedure Minethestuff;
    begin
      repeat
        if FindObjRock(x, y, WhichOre)then
        begin
          Inc(u);
          Disguise('Found primary rock... mining');
          case Random(3) of
            0, 2: begin
                    Mouse(x, y, 2, 2, False);
                    Wait(Random(100));
                    ChooseOption('Mine');//otherwise it may Examine
                  end;
            1:  Mouse(x, y, 2, 2, True);
          end;
          Wait(5000 + random(300));
        end else
        if(not(FindObjRock(x, y, WhichOre)))then
          begin
            if(FindObjRock(x, y, WhichOre2))then
            begin
              Inc(l);
              Disguise('Found secondary rock... mining');
              case Random(3) of
                0, 2: begin
                        Mouse(x, y, 2, 2, False);
                        Wait(Random(100));
                        ChooseOption('Mine');//otherwise it may Examine
                      end;
                1:  Mouse(x, y, 2, 2, True);
              end;
              Wait(5000 + random(300));
              Inc(Mines);
            end;
          end else
            AntiBanz;
      until(invfull)or(Mines = 30);
    end;

    procedure OreDropping;
    begin
      repeat
        Disguise('dropping ores');
        OreDTM := DTMFromString('78DA637463626078C28002FC0C54181E02694' +
                '620FE0F048CEE40353718D000231209A403816AEE1350E30D54F3' +
                '86801A7BA09A4F04D49800D53C26C29CEBF8D5000045B70DB0');
        if(FindDTM(OreDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
        begin
          Mouse(x, y, 2, 2, False);
          Wait(random(200));
          ChooseOption('Drop');
          Wait(500 + Random(100))
          Inc(Drops);
        end;
      until(not(FindDTM(OreDTM, x, y, MIX1, MIY1, MIX2, MIY2))or(Drops = 29));
    end;


    procedure GemDroping;
    begin
      repeat
        Disguise('dropping gems');
        GemDTM := DTMFromString('78DA8DD2510E82300C06E06E814C144C500E0' +
                '3461F603199E869B83127C17F3324F3616BFBB026DB97656BAB46' +
                '4D6414C5715E2EB422FBDD0DA15E30EADFFC4EF71579862918F38' +
                '6A904C630E603734A9BC2670BD3A54DE9F324307DFE5FC10C304D' +
                'DA1CF67B8E02A31933E47B11CC4347D54A182B30BE3E1BE58D13B' +
                'C87998D60EE3057C6DC605A410D6BC68CF9BE7782F909E629308E' +
                '375FE5310F20');
          if(findDTM(GemDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
          begin
            Mouse(x, y, 2, 2, False);
            Wait(random(200));
            ChooseOption('Drop');
            Wait(500 + random(100));
            Inc(GemDrops);
            Inc(f);
          end;
      until(not(FindDTM(GemDTM, x, y, MIX1, MIY1, MIX2, MIY2))or(GemDrops = 5));//dont think your gonna get more than 1 a tie but just incase
    end;

    procedure Proggy;
    begin
      WriteLn('  _____  ______');
      WriteLn(' |     ||      \');
      WriteLn(' |     ||      |');
      WriteLn(' |     ||   ___/');
      WriteLn('/_____/ |__ |   ');
      WriteLn('Player '+ Players[CurrentPlayer].Name);
      WriteLn('loads done '+ IntToStr(g));
      WriteLn('primary ores mined ' + IntToStr(u));
      WriteLn('secondary ores mined ' + IntToStr(l));
      WriteLn('gems dropped ' + IntToStr(f));
      WriteLn('post the proggy or no more updates!!!!!!!!!!!!!!');
    end;

    procedure SkillCheck;
    begin
      Disguise('checking stats')
      HoverSkill('mining', False);
      Wait(500+Random(300));
    end;

    procedure Freeeverything;
    begin
      FreeDTM(OreDTM);
      FreeDTM(GemDTM);
    end;


    begin
      Setup;
      DeclarePlayers;
      GraphicsSet := true;
      LoginPlayer;
      repeat
        Drops:=0;
        Mines:=0;
        GemDrops:=0;
        ClearDebug;
        Proggy;
        SkillCheck;
        MineTheStuff;
        OreDropping;
        Gemdroping;
        Inc(g);
      until(g = (Players[CurrentPlayer].Integers[1]))or(not LoggedIn);
        NextPlayer(Players[CurrentPlayer].Active);
        FreeEverything;
    end.

    {rimmington_Clay
      rimmington_Copper
      rimmington_Tin
      rimmington_Iron
      rimmington_Gold

      old_Clay
      old_Copper
      old_Tin
      old_Iron
      old_Coal
      old_Mithril
      old_Adamant

      varrock_Clay
      varrock_Copper
      varrock_Tin
      varrock_Iron
      varrock_Silver

      lumbridge_Copper
      lumbridge_Tin
      lumbridge_Coal
      lumbridge_Mithril
      lumbridge_Adamant

      falador_Clay
      falador_Copper
      falador_Tin
      falador_Iron
      falador_Coal
      falador_Mithril
      falador_Adamant}

    just fixed standards

    looks nice
    Last edited by ian.; 03-24-2009 at 04:06 PM.

  5. #5
    Join Date
    Mar 2009
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Works great for me, I left it on overnight and I got logged out after mining roughly 12 loads...any ideas?

    It still helps alot though

  6. #6
    Join Date
    Mar 2007
    Location
    Alberta, Canada
    Posts
    1,780
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    This actually looks AMAZING for your first script. I'm very impressed. I can usually just skim a first script in 15 secs to get something wrong, and help the person, but I need ot look over a bit more first. I'll edit later.

  7. #7
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by griff721 View Post
    This actually looks AMAZING for your first script. I'm very impressed. I can usually just skim a first script in 15 secs to get something wrong, and help the person, but I need ot look over a bit more first. I'll edit later.
    what did i do wrong??

  8. #8
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by aaronglass View Post
    Works great for me, I left it on overnight and I got logged out after mining roughly 12 loads...any ideas?

    It still helps alot though
    ummmmmm

    try it again cause no scrippts r perffect i can usually get 20 to 30 loads every time i run

  9. #9
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    edit your posts instead of double posting please

  10. #10
    Join Date
    Nov 2008
    Location
    Belgium
    Posts
    254
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very nice first script, congrats!
    Though I wouldn't use that many global variables, and for uptext is works faster if you dont use any capital letters.(at least i think so)

  11. #11
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by impiwimpi View Post
    Very nice first script, congrats!
    Though I wouldn't use that many global variables, and for uptext is works faster if you dont use any capital letters.(at least i think so)
    Is uptext the actaul script itself

  12. #12
    Join Date
    Nov 2008
    Location
    Belgium
    Posts
    254
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No
    It is only when you use something like
    IfUpText('blabla')then

  13. #13
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by impiwimpi View Post
    No
    It is only when you use something like
    IfUpText('blabla')then
    oh ok ill change it later

  14. #14
    Join Date
    Mar 2009
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think I'm doing everything right...oh well. haha.

  15. #15
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by aaronglass View Post
    I think I'm doing everything right...oh well. haha.
    try it again it should work fin im running it right now and am on load 24

  16. #16
    Join Date
    Mar 2009
    Location
    Scotland! Land of the Brave!
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey man im just learning scripting and im looking at yours and, well im very impressed, for your first script! Wow. Can I ask how long you have been doing scripting?

    Thanks Nomad
    "Friends help you move. Real friends help you move bodies."

  17. #17
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by nomad View Post
    Hey man im just learning scripting and im looking at yours and, well im very impressed, for your first script! Wow. Can I ask how long you have been doing scripting?

    Thanks Nomad

    ive known how to script for a bout a week lol

    i jsut posted a ton of questions and trieeal and error

    testing for this script before it wsa what it is now got my mining lvl on my tester from 1 to 67

    if u wanna create a script with me id be happy to help u and make a awesome script with u i was thinking bout making a cow hide collecter and banker

  18. #18
    Join Date
    Mar 2009
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow, you went from 1 to 67? Your autominer gave me about 3 levels total in the last couple days. I really like it alot man. I know nothing of scripting, haha.

  19. #19
    Join Date
    Mar 2009
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default great

    this worked out perfect for me =]

  20. #20
    Join Date
    Apr 2007
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default nice

    this is pretty good for ur first one

  21. #21
    Join Date
    Jul 2007
    Location
    Pluto... Maybe?
    Posts
    198
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks nice and btw u left your username and password in the script so i changed it for you, i have sent you a private message with the password in it.

  22. #22
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by pl0xmypl0x View Post
    Looks nice and btw u left your username and password in the script so i changed it for you, i have sent you a private message with the password in it.
    thnx dont want my main stolen lol

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
  •