Results 1 to 6 of 6

Thread: Why isn't my powerminer working?

  1. #1
    Join Date
    Sep 2007
    Location
    Pennsylvania
    Posts
    3,396
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Why isn't my powerminer working?

    EDIT: I think the problem was DTMs, so I just made another thread to help me with them cause i think I'm doing something wrong with DTMs...


    After it mines an inventory of ore (doesn't drop it) it stops and in the debug box it says it successfully executed. I can't seem to find where the problem is...


    Heres the script

    SCAR Code:
    //This is my first script, a powerminer. Fill in the info in lines 10-13 and 18-26 and you
    //should be ready to go!


    //Big thanks to Derek, Method, Santa_Clause, and JackLKrawl for helping me fix errors and and suggesting what functions I should use

    program PowerMinerByScapian;
    {.include SRL/SRL.scar}

      var
       Ore, AmountLoads, inventories, x, y:integer;

      const

        YourSRLId = '';  //Enter your SRL Stats ID number, if you don't have one go here - [url]http://www.stats.srl-forums.com/[/url]
        YourSRLPassword =''; //Your SRL Stats password

        RockColor1 = 3890561; //put the color of the rock (using the color picker) before the ; but after the =
        RockColor2 = 3463635; //same as above, just a slightly different color
        RockColor3 = 3624564; //same as above, just a slightly different color
        RockTolerance = 10; //10 should be fine, but if it's not finding the rock then increase it and/or change the above colors
        WaitTime = 10000; //Time you want it to wait in between clicking rocks (multiply by 1000,
                             //1 second = 1000, 2 seconds = 2000, etc)
                             //NOTE: because of a bit of antiban this will automatically include an
                             //extra 5 sec or so
        Loads = 1; //How many loads do you want each character to do before logging out?
        MineRockLength = 600000; ////Time you want it to mine an inventory of rocks before giving up (multiply by 1000,
                             //1 second = 1000, 2 seconds = 2000, etc)

    Procedure DeclarePlayers;
    begin
        HowManyPlayers := 4;   //Ignore this line, just be sure to set the players you won't be using False
        NumberOfPlayers(HowManyPlayers);  //Ignore this line
        CurrentPlayer := 0; //Which player do you want to start with? (0 is the first player)

        Players[0].Name := '';  //Put the name of your rs character here
        Players[0].Pass := '';  //Put the password of your rs character here
        Players[0].Nick := '';  //Put 3-4 letters of your rs name in here(Not the first letter
                                 //and no spaces or _'s.
        Players[0].Active := True; //Are you using this player? True is Yes, False is no.
       
        Players[1].Name := '';
        Players[1].Pass := '';             //to set the rest of these up just refer to the above instructions
        Players[1].Nick := '';
        Players[1].Active := False;

        Players[2].Name := '';
        Players[2].Pass := '';
        Players[2].Nick := '';
        Players[2].Active := False;
       
        Players[3].Name := '';
        Players[3].Pass := '';
        Players[3].Nick := '';
        Players[3].Active := False;
       



        NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;




    procedure Mining;
      var TimeMining,Tries:integer;
      begin
        MarkTime(TimeMining);
        Tries:=0
        repeat
           if(not(LoggedIn))then
              begin
                Exit;
              end;
           if (FindObjCustom(x, y, ['Mine','ine O','ne Or','e Ore','Ore'], [RockColor1, RockColor2, RockColor3], RockTolerance)) then
               Mouse(x, y, 0, 0, True)
           else
             begin
               Tries:=Tries+1
                 if (Tries = 25) then
                   begin
                     Writeln('Couldnt find the color 25 times, terminating script');
                     TerminateScript;
                   end;
             end;
           if FindNPCChatText('inventory is too full to hold any more') then
             begin
               exit;
             end;
           wait(WaitTime + random(20));
           FindNormalRandoms;
           RandomRClick;
           BoredHuman;
        until(InvFull) or (TimeFromMark(TimeMining) > MineRockLength+random(20000))

       
      end;

    procedure Drop;
      var DropTries, Dropping:Integer;
      begin
        if(not(LoggedIn))then
          begin
            Exit;
          end;

        Ore := DTMFromString('78DA63FCC8C4C030919101199C2A3262F80FA' +
           '441A2FF8180F12D50CD7C543510591809A47F01D5CC24A0E63F50' +
           '4D0F0135CF8830E72150CD0C026A7E03D54C25A0E62B504D2B7E3' +
           '500380212C7');
        MarkTime(Dropping)
        repeat
          if FindDTM(Ore,x, y,1, 1, 200, 200) then
            begin
              Mouse(x,y,0,0,false);
              ChooseOption('rop');
              DropTries:=DropTries+1
            end;
        until(DropTries = 35) or (TimeFromMark(Dropping)>300000)

        Inventories:=Inventories+1;
        AmountLoads:=AmountLoads+1;
      end;
     
    procedure Randoms;
      begin
        FindNormalRandoms;
      end;

     
    procedure AntiBan;    //by SRL Devs
      var Ban: Integer;
        begin
        Ban:= random(5);
          case Ban of
            0: RandomRClick;
            1: HoverSkill('mining', False);
            2: PickUpMouse;
            3: AlmostLogout;
            4: Wait2(3 + random(9), true);
            5: BoredHuman;
          end;
        end;
       
    procedure CheckSrlId;
      begin
       if (YourSRLId = '') then
         begin
           Writeln('You need an SRL Stats account to use this script :)')
           Writeln('If you dont have one, go here - http://www.stats.srl-forums.com')
           Writeln('Signing up takes 1 minute, dont be lazy')
           Writeln('Srl stats are awesome, you can show off how long you have been running scripts!')
           TerminateScript;
         end
       else
         begin
           exit;
         end;
       if (YourSRLPassword = '') then
         begin
           Writeln('You need an SRL Stats account to use this script :)')
           Writeln('If you dont have one, go here - http://www.stats.srl-forums.com')
           Writeln('Signing up takes 1 minute, dont be lazy')
           Writeln('Srl stats are awesome, you can show off how long you have been running scripts!')
           TerminateScript;
         end
       else
         begin
           exit;
         end;
      end;
       
    procedure proggy;
      begin
        Writeln('|\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/|');
        Writeln('|\/\/\/\/\/\/ Power Miner by Scapian /\/\/\/\/\/\/\|');
        Writeln('|\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/|');
        Writeln('|\/\ We have done' + intToStr(inventories) + ' inventories of ores so far! /\/\|');
        Writeln('|\/\ We worked ' + TimeRunning + '/\/\/\/\/\/\/\/\/\//\/\/\|');
        Writeln('|\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/|');
        Writeln('|\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\//\/\/\/\|');
      end;
     
    procedure siggy;
      begin
        Writeln('I hope you had a great experience with the Scapian Power Miner!')
        Writeln('                   Hope to see you again!                      ')
        Writeln('                                   -Scapian')
      end;
     
    procedure login;
      begin
        if (not(loggedin)) then
          begin
            loginplayer;
            findnormalrandoms;
            wait(1000);
            setBar('brightness',4);
          end
        else
          begin
            findnormalrandoms;
            wait(1000);
            setBar('brightness',4);
          end;
      end;
     
    procedure EnoughLoads;
      begin
        if(AmountLoads=Loads)then
        begin
          NextPlayer(True);
          AmountLoads:=0;
          HighestAngle;
          MakeCompass('N');
        end;
      end;




    begin
     SetupSRL;
     ScriptID := '532';
     SRLId := YourSRLId;
     SRLPassword:= YourSRLPassword;
     CheckSrlId;
     FindRS;
     ActivateClient;
     DeclarePlayers;
     login;
     Mining;
     Drop;
     Randoms;
     AntiBan;
     repeat
       if(not(LoggedIn))then
         begin
           Exit;
         end;
       Mining;
       Drop;
       Randoms;
       AntiBan;
       proggy;
       EnoughLoads;
     until(false)
       Siggy;
    end.

    EDIT: Hmm, is something wrong with my DTM? I'm going to try to make a new one...

  2. #2
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Its probally the DTM, or scar 3.13 it has bugs. But maybe just use:

    SCAR Code:
    DropToPos(2{From}, 28{To});
    Woot woot.

  3. #3
    Join Date
    Aug 2007
    Location
    Vancouver
    Posts
    394
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    SCAR Code:
    ChooseOption('rop');


    SCAR Code:
    ChooseOption(x,y'rop');

    ^^ i believe thats why

  4. #4
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Dangerous Garden Tools View Post
    SCAR Code:
    ChooseOption('rop');


    SCAR Code:
    ChooseOption(x,y'rop');

    ^^ i believe thats why
    That wouldn't do it... What ore are you trying to get?
    I do visit every 2-6 months

  5. #5
    Join Date
    Dec 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just use Dropall; ?

  6. #6
    Join Date
    Sep 2007
    Location
    Pennsylvania
    Posts
    3,396
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by zasz View Post
    That wouldn't do it... What ore are you trying to get?
    Any kind of ore

    It might be fixed now, I found that I was doing something wrong with DTMs, going to test it soon.

    Btw, DropAll or DropExcept wouldn't help because I don't want it to drop whatever random event items it has and I don't know how many pickaxes or other things the person will have.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Actually working powerminer
    By TheChineseMan in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 02-10-2008, 10:38 AM
  2. looking for WORKING powerminer
    By unl in forum RS3 Outdated / Broken Scripts
    Replies: 13
    Last Post: 01-21-2008, 07:11 AM
  3. ~~~~Working Edge cooker WORKING~~~
    By NiCbaZ in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 10-29-2007, 11:16 PM
  4. A good working powerminer...
    By decilios in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 08-24-2007, 12:03 AM
  5. Replies: 2
    Last Post: 05-29-2007, 05:32 PM

Posting Permissions

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