Results 1 to 7 of 7

Thread: Script not working.

  1. #1
    Join Date
    Jul 2008
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Script not working.

    Hey i recently made a powermine based on torrent of flames tut, i changed a few things like DropTo(doesnt work anymore)ect. it doesnt work though it will hove over rocks but thats it, could you please give it the once over and tell me whats wrong, also any CONSTRUCTIVE critiscm is welcome.
    Thank you much appreciated Minkino.

    EDIT: replace RockMining with narcles, try now thanks.Would try myself but internet is currently to slow to run runescape.

    Heres the script:
    SCAR Code:
    program New;
    {.include SRL/SRL.scar}
    var x, y, Tries: integer;

    const
    RockColor1 = 2437977;
    RockColor2 = 2306390;

    procedure DeclarePlayers;
    begin

         HowManyPlayers := 1;
         NumberOfPlayers(HowManyPlayers);
         CurrentPlayer:= 0

         Players[0].Name   := '';
         Players[0].Pass   := '';
         Players[0].Nick   := '';
         Players[0].Active := True;
         Players[0].Booleans[0] := True;//True for equipped Pickaxe. False for in Inv

    end;

    {                             ____
                             NO  /____\ Entrance
    <><><><><><><><><><><><><><>|Master|<><><><><><><><><><><><><><><><>
                                |______|                                }



    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('Woodcutting', False);
        3: RandomMovement;
        4: BoredHuman;
        5: DoEmote(400 +Random(90));
      end;
    end;


    procedure RockMining;
    begin
      repeat //move repeat up here
        if not LoggedIn then //place failsafe inside repeat
         Exit;
     
        if FindObjCustom(x, y, ['Min', 'ine'], [RockColor1, RockColor2], 7) then//just this one is needed
        begin//added a begin
          case Random(2) of
            0: begin
                 Mouse(x, y, 4, 4,false);
                 ChooseOption('ine');
               end;
            1:Mouse(x, y, 4, 4, True);
          end;
          Wait(2000+random(1000));//wait for it to be mined
        end;//added a end
      until (InvFull)
    end;



    procedure DropOres;

    var
       i: integer;

    begin
         if (InvFull) then
         case Players[CurrentPlayer].Booleans[0] of
         True: DropAll;
         False: begin
                for i := 2 to 28 do
                DropItem(i);
                end;
            end;
    Wait(500 + random(1501));
    end;


    Procedure Signature;
    begin
    Writeln('  ___    ___   ___   __    __ ___  ___  ');
    wait(50)
    Writeln(' |   \  /   | |   | |  \  |  |   |/  /  ');
    wait(50)
    Writeln(' |    \/    | |   | |   \ |  |      /   ');
    wait(50)
    Writeln(' |   |\/|   | |   | |    \|  |      \   ');
    wait(50)
    Writeln(' |   |  |   | |   | |  |\    |       \  ');
    wait(50)
    Writeln(' |___|  |___| |___| |__| \___|___/\___\ ');
    end;


    begin
      Signature;
      SetupSRL;
      ActivateClient;
      repeat
        RockMining;
        AntiBan;
        DropOres;
        AntiBan;
      until (False)
    end.

  2. #2
    Join Date
    Sep 2007
    Location
    Michigan
    Posts
    3,862
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    RockMining is weird try this one:
    I placed notes

    SCAR Code:
    procedure RockMining;
    begin
      repeat //move repeat up here
        if not LoggedIn then //place failsafe inside repeat
         Exit;

        if FindObjCustom(x, y, ['Min', 'ine'], [RockColor1, RockColor2], 7) then//just this one is needed
        begin//added a begin
          case Random(2) of
            0: begin
                 Mouse(x, y, 4, 4,false);
                 ChooseOption('ine');
               end;
            1:Mouse(x, y, 4, 4, True);
          end;
          Wait(2000+random(1000));//wait for it to be mined
        end;//added a end
      until (InvFull)
    end;
    (Scripts outdated until I update for new SRL changes)
    AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
    If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
    Summer = me busy, won't be around much.

  3. #3
    Join Date
    Jul 2008
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  4. #4
    Join Date
    Mar 2008
    Location
    New Jersey
    Posts
    1,673
    Mentioned
    1 Post(s)
    Quoted
    9 Post(s)

    Default

    I'll see if I can help but it'd probably be easier for me to help if I ran the script, but first, which rock you trying to powermine? iron?

  5. #5
    Join Date
    Jul 2008
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes I'm trying to power mine iron ( although if you change the color it can be anything) and drop, it is based on Torrent of Flames Power Miner the link is here: http://www.villavu.com/forum/showthread.php?t=27850

  6. #6
    Join Date
    Mar 2008
    Location
    New Jersey
    Posts
    1,673
    Mentioned
    1 Post(s)
    Quoted
    9 Post(s)

    Default

    yea I know I just didn't feel like finding a color on my own right now. and ok I'll see how it works for me and if I can help you.

    EDIT: I went to the VEM and it would click the rocks but it would keep clicking too fast you need to either put a wait in or a way for it to wait till you get an iron ore in your inv. but other than that I think it's good but I didn't get to see if it drops all the ores yet because it clicked to fast so it made me walk away from the rock so I stopped it.

  7. #7
    Join Date
    Jul 2008
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Need help, script not working.
    By bank in forum OSR Help
    Replies: 6
    Last Post: 02-03-2009, 06:25 PM
  2. Why is this script not working?
    By papenco in forum OSR Help
    Replies: 6
    Last Post: 12-01-2007, 06:23 AM
  3. a !WORKING! script...
    By gleninater in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 06-24-2007, 08:10 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
  •