Results 1 to 3 of 3

Thread: powerminner..

  1. #1
    Join Date
    Jul 2007
    Location
    So Cal
    Posts
    410
    Mentioned
    0 Post(s)
    Quoted
    16 Post(s)

    Default powerminner..

    i made a power miner and i don't know if it works because i keep getting file acces error please test.

    SCAR Code:
    program Powerminer;
    {.include SRL/SRL.scar}

    var
     Iron: integer;
     
    procedure DTMs;
    begin
      Iron := DTMFromString('78DA6314666060E0614001C652820C5C409A1' +
           '188FF0301A31490C1CA8006189148202D09248409A801D923CA80' +
           '15C0D5B001092EFCE60000D15B050D');
    end;
    const
    RockColour1= 111111;
    RockColour2= 222222;

    var x, y, Tries: integer;

    Procedure DeclarePlayers;begin

              HowManyPlayers:= 1;
              NumberOfPlayers(HowManyPlayers);
              CurrentPlayer:= 0
             
              Players[0].Name   := 'Username';//your username
              Players[0].Pass   := 'Password';///your password
              Players[0].Nick   := 'pot';///3-4 letters from your name
              Players[0].Active := True;///are you using this player false if not

             
    end;

    Procedure AntiRandoms;
    begin
      if(FindFight)then
      RunAway('N', True,1,15000);
      FindNormalRandoms;
      FindLamp('Mining');
    end;

    Procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case Random(30) of
        1: RandomRClick;
        2: HoverSkill('Mining',False);
        3: RandomMovement;
        4: BoredHuman;
        5: AlmostLogout;
        6: DoEmote(400 +Random(90));
      end;
    end;

    Procedure RockMining;
    begin
    if not LoggedIn then
      Exit;
      AntiRandoms;
      if (not (FindObjCustom(x, y, ['Mi', 'ne'], [RockColour1, RockColour2], 7))) then
        wait(100+random(100));
        Tries :=Tries + 1;
        if(Tries = 5) then
         begin
           Logout;
           Exit;
         end else
     if FindObjCustom(x, y, ['Min', 'ine'], [RockColour1, RockColour2], 7) then
     repeat
       case (Random(2)) of
         0: begin
            Mouse(x, y, 4, 4,false);
            ChooseOption('ine');
            end;
            1: Mouse(x, y, 4, 4, True);
          end;
        until (InvFull)
    end;

    Procedure TheRocks;
    begin
      if FindDTM(Iron, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
        Mouse(x, y, 5, 5, false);
        ChooseOption('rop');
      end;
    end;

    begin
      SetupSRL;
      DTMs;
      TheRocks;
      FreeDTM(iron);
    end.
     
      repeat
        RockMining;
        TheRocks;
        AntiBan;
      until (False)
    end.

  2. #2
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by thebob142 View Post
    i made a power miner and i don't know if it works because i keep getting file acces error please test.

    SCAR Code:
    program Powerminer;
    {.include SRL/SRL.scar}

    var
     Iron: integer;
     
    procedure DTMs;
    begin
      Iron := DTMFromString('78DA6314666060E0614001C652820C5C409A1' +
           '188FF0301A31490C1CA8006189148202D09248409A801D923CA80' +
           '15C0D5B001092EFCE60000D15B050D');
    end;
    const
    RockColour1= 111111;
    RockColour2= 222222;

    var x, y, Tries: integer;

    Procedure DeclarePlayers;begin

              HowManyPlayers:= 1;
              NumberOfPlayers(HowManyPlayers);
              CurrentPlayer:= 0
             
              Players[0].Name   := 'Username';//your username
              Players[0].Pass   := 'Password';///your password
              Players[0].Nick   := 'pot';///3-4 letters from your name
              Players[0].Active := True;///are you using this player false if not

             
    end;

    Procedure AntiRandoms;
    begin
      if(FindFight)then
      RunAway('N', True,1,15000);
      FindNormalRandoms;
      FindLamp('Mining');
    end;

    Procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case Random(30) of
        1: RandomRClick;
        2: HoverSkill('Mining',False);
        3: RandomMovement;
        4: BoredHuman;
        5: AlmostLogout;
        6: DoEmote(400 +Random(90));
      end;
    end;

    Procedure RockMining;
    begin
    if not LoggedIn then
      Exit;
      AntiRandoms;
      if (not (FindObjCustom(x, y, ['Mi', 'ne'], [RockColour1, RockColour2], 7))) then
        wait(100+random(100));
        Tries :=Tries + 1;
        if(Tries = 5) then
         begin
           Logout;
           Exit;
         end else
     if FindObjCustom(x, y, ['Min', 'ine'], [RockColour1, RockColour2], 7) then
     repeat
       case (Random(2)) of
         0: begin
            Mouse(x, y, 4, 4,false);
            ChooseOption('ine');
            end;
            1: Mouse(x, y, 4, 4, True);
          end;
        until (InvFull)
    end;

    Procedure TheRocks;
    begin
      if FindDTM(Iron, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
        Mouse(x, y, 5, 5, false);
        ChooseOption('rop');
      end;
    end;

    begin
      SetupSRL;
      DTMs;
      TheRocks;
      FreeDTM(iron);
    end.
     
      repeat
        RockMining;
        TheRocks;
        AntiBan;
      until (False)
    end.
    im pretty sure its cuz you never free'd the DTM

  3. #3
    Join Date
    Jul 2007
    Location
    So Cal
    Posts
    410
    Mentioned
    0 Post(s)
    Quoted
    16 Post(s)

    Default

    look at the end... i did under therocks

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. powerminner...
    By thebob142 in forum First Scripts
    Replies: 6
    Last Post: 06-10-2008, 07:42 PM
  2. lvl 3 powerminner idea
    By dreygoth in forum OSR Help
    Replies: 2
    Last Post: 04-07-2008, 09:20 AM
  3. My Updated Powerminner
    By RudeBoiAlex in forum RS3 Outdated / Broken Scripts
    Replies: 18
    Last Post: 01-28-2008, 11:17 PM
  4. autocolor for powerminner
    By RudeBoiAlex in forum OSR Help
    Replies: 7
    Last Post: 03-20-2007, 06:35 PM
  5. My PowerMinner
    By RudeBoiAlex in forum RS3 Outdated / Broken Scripts
    Replies: 11
    Last Post: 03-04-2007, 06:21 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
  •