Results 1 to 4 of 4

Thread: I need help with my power miner

  1. #1
    Join Date
    Dec 2007
    Posts
    108
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default I need help with my power miner

    I used poolikemax's tut. Thx
    Please help with why this script of mine isn't working
    please fix somebody!



    Script




    SCAR Code:
    program powerminer;

    {.include SRL/SRL.scar}

    const
    rockcolor1= 485369;//set the color of the rock
    rockcolor2= 658735;//set color of rock

    var x,y,randomm: integer;


    Procedure DeclarePlayers;
    begin
         HowManyPlayers  :=1;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=0;                // CurrentPlayer = Array Index

         Players[0].Name :='username';//USERNAME
         Players[0].Pass :='pass';//PASS
         Players[0].Nick :='ser';//3-4 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
         Players[0].Active:=True;//PLAYER IN USE OR NOT


    end;

    Procedure Randoms;
    Begin
    FindTalk; //finds talkin randoms
    FindNormalRandoms; //finds normal randoms
    SolveChatRandom; //sloves chat randoms
    FindLamp('Woodcutting'); //solves lamp and then choses a skill to update
    SolvePinball; //solves pinball random
    DwarfItem; //dropes dawalf items
    If(FindFight)Then //runs away from fight
    Begin
    MakeCompass('N');
    RunTo('W', True);
    Wait(7000 +Random(3000));
    RunTo('E', True);
    End;
    End;


    Procedure minerock;
    begin

      if not LoggedIn then
      Exit;

        repeat
        if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
        begin

          MoveMouseSmoothEx(x,y,  20,40,45,25,20);
          FTWait(1);
          clickmouse(x,y,false);
          Wait(500+(random(150)));

            ChooseOption('ine')
            randoms
            writeln('found rock');

              end else
              writeln('couldnt find rock');
              randoms;

                until( InvFull )
                end;
    Procedure Drop;
    var
     i: Integer;
    begin
     GameTab(4);
     For I := 1 To 28 Do
      If ExistsItem(i) Then
        DropItem(i);
       end;
    end;


    begin
    SetupSRL;
      DeclarePlayers;
        LoginPlayer;
          repeat
            minerock;
              drop;
                until(false);

  2. #2
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Here you go Fixed it:

    SCAR Code:
    program powerminer;

    {.include SRL/SRL.scar}

    const
    rockcolor1= 485369;//set the color of the rock
    rockcolor2= 658735;//set color of rock

    var x,y,randomm: integer;


    Procedure DeclarePlayers;
    begin
         HowManyPlayers  :=1;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=0;                // CurrentPlayer = Array Index

         Players[0].Name :='username';//USERNAME
         Players[0].Pass :='pass';//PASS
         Players[0].Nick :='ser';//3-4 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
         Players[0].Active:=True;//PLAYER IN USE OR NOT


    end;

    Procedure Randoms;
    Begin
    FindTalk; //finds talkin randoms
    FindNormalRandoms; //finds normal randoms
    SolveChatRandom; //sloves chat randoms
    FindLamp('Woodcutting'); //solves lamp and then choses a skill to update
    SolvePinball; //solves pinball random
    DwarfItem; //dropes dawalf items
    If(FindFight)Then //runs away from fight
    Begin
    MakeCompass('N');
    RunTo('W', True);
    Wait(7000 +Random(3000));
    RunTo('E', True);
    End;
    End;


    Procedure minerock;
    begin

      if not LoggedIn then
      Exit;

        repeat
        if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
        begin

          MoveMouseSmoothEx(x,y,  20,40,45,25,20);
          FTWait(1);
          clickmouse(x,y,false);
          Wait(500+(random(150)));

            ChooseOption('ine')
            randoms
            writeln('found rock');

              end else
              writeln('couldnt find rock');
              randoms;

                until( InvFull )
                end;
    Procedure Drop;
    var
     i: Integer;
    begin
     GameTab(4);
     For I := 1 To 28 Do
      If ExistsItem(i) Then
        DropItem(i);
    end;



    begin
    SetupSRL;
      DeclarePlayers;
        LoginPlayer;
          repeat
            minerock;
            drop;
          until(false);
    end.

    Hope I Helped

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

    Default

    In your procedure minerock, people usually don't use capitols, they'd put in "ine" not "Min" and you should add in a failsafe or two, more. Good job though for your first script, it looks good so far.

  4. #4
    Join Date
    Dec 2007
    Posts
    108
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Thx

    Thanks NaumanAkhlaQ you have saved me!

    Baked0420 Thanks for your opinion

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. power miner
    By loliker123 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 08-28-2008, 09:12 PM
  2. Power Miner help
    By Harkonnen in forum OSR Help
    Replies: 6
    Last Post: 07-14-2008, 02:12 AM
  3. Power Miner
    By yanix in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 11-11-2007, 06:51 PM
  4. Power miner??????
    By dewituwont in forum OSR Help
    Replies: 4
    Last Post: 06-18-2007, 03:34 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
  •