Results 1 to 8 of 8

Thread: autocolor for powerminner

  1. #1
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default autocolor for powerminner

    SCAR Code:
    program PoWeRmInEr;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\Skill\Mining.scar}
    {.include SRL\SRL\Misc\Trade.scar}

    //JADS AnitBan Credit Goes To Him.
    //Reads JADS tut they pwn.
    //The Rest Of The Script Was Made By Me.
    //Drop Procedure Is Really Slow
    //Will Bulid On This Script In Future


    Const
    Loads = 2;//How Many Loads.
    NumberOfUsers = 1;//How Many Players Are You Using.
    StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
    RudeProggy = True;//Use My Proggy Please For Reports.
    Color = 4418452;//The Color Of The Ore You Want To Mine.
    ClickRock = 5000;//How Long To Click Again
    RunDir = 'S'; // RunDirection, choose it wisely.


    Procedure DeclarePlayers;
    //If Not Using Any Left Over Players Delete There Forms.


      Begin
         HowManyPlayers:= NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;


         Players[0].Name :='UserName';
         Players[0].Pass :='Password';
         Players[0].Nick :='3-4 Letters Of Youre USername';
         Players[0].Active:=True;


         Players[1].Name :='Username';
         Players[1].Pass :='Password';
         Players[1].Nick :='3-4 Letters Of Youre Username';
         Players[1].Active:= True;


         Players[2].Name :='Username';
         Players[2].Pass :='Password';
         Players[2].Nick :='3-4 Letters Of Youre Username';
         Players[2].Active:= True;


         Players[3].Name :='Username';
         Players[3].Pass :='Password';
         Players[3].Nick :='3-4 Letters Of Youre Username';
         Players[3].Active:= True;


         Players[4].Name :='Username';
         Players[4].Pass :='Password';
         Players[4].Nick :='3-4 Letters Of Youre Username';
         Players[4].Active:= True;
    end;


    Procedure Start;
    Begin
    Writeln('[]--------You Are Using RudeBois PowerMiner---------[]')
    Writeln('(*&^%$Have Fun$%^&*')
    Writeln('Post Proggies Please')
    End;

    Procedure FindRocks;
    Begin
    If
    (FindColorSpiral(x,y,Color,2,2,418,304)) Then
    Begin
    Writeln('Found Ore Now Starting Script')
    End Else
    Writeln('Didnt Find Ore');
    end;


    Procedure MineRocks;
    Begin
    if
    (findColorSpiral(x,y,Color,2,2,418,304)) Then
    MMouse(x,y,3,3)
    IsTextAt2(9,9,'Mine',20)
    Mouse(x,y,2,2,True)
    Wait(ClickRock + Random(500))
    end;

    procedure Inventory;
    begin
    repeat
    MineRocks;
    Until (InvFull)
    end;




    Function FindFastRandoms: Boolean;    // By WT-Fakawi.

    Var
      i: Integer;

    Begin
      For I := 1 To 11 Do
      Begin
        Case I Of
           1:  If FindDead Then
                 Result := True;

           2:  If FindMod Then
                 Result := True;

           3:  If FindMime Then
                 Result := True;

           4:  If FindMaze Then
                 Result := True;

           5:  If FindQuiz Then
                 Result := True;

           6:  If FindDemon Then
                 Result := True;

           7: Begin
                 If NoGameTab Then
                 Begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 End;
               End;

           8 : If RC Then
                 Result := True;

           9 : If FindFight Then
                  Begin
                    Result := True;
                    RunTo(RunDir, True);
                  End;

           10: If FindTalk Then
                 Result := True;

           11: If HandleTrade Then
                 Result := True;
        End;
        Wait(1);
      End;
    End;


    function DoAntiBan: Boolean;
    begin
      AntiBan;
      wait(50 + random(100));
      BoredEvery(3 + random(3));
      wait(100 + random(100))
        RotateEvery(7 + random(4));
      wait(750 + random(250));
      LeaveScreenEvery(5 + random(7));
      wait(500 + random(150));
    end;


    Procedure DropOres;
    begin
     Mousespeed := 5;
     DropTo(2,28);
     mouseSpeed := 25;
    end;


    Begin
    SetupSRL;
    Repeat
    DeclarePlayers;
    Start;
    FindRocks;
    MineRocks;
    Inventory;
    FindFastRandoms;
    DoAntiBan;
    DropOres;
    Until(False);
    end.

    How and were do i put it any help appreciated please

  2. #2
    Join Date
    Mar 2007
    Location
    Jersey
    Posts
    135
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I might be wrong but I might be right... but think you need to do this, this is what i have in my power cutter and also my power miner (which i am actually making at the moment)

    SCAR Code:
    program PoWeRmInEr;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\Skill\Mining.scar}
    {.include SRL\SRL\Misc\Trade.scar}
     
    //JADS AnitBan Credit Goes To Him.
    //Reads JADS tut they pwn.
    //The Rest Of The Script Was Made By Me.
    //Drop Procedure Is Really Slow
    //Will Bulid On This Script In Future

    var
    Load: Integer;
     
    Const
    Loads = 2;//How Many Loads.
    NumberOfUsers = 1;//How Many Players Are You Using.
    StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
    RudeProggy = True;//Use My Proggy Please For Reports.
    Color = 4418452;//The Color Of The Ore You Want To Mine.
    ClickRock = 5000;//How Long To Click Again
    RunDir = 'S'; // RunDirection, choose it wisely.
     
     
    Procedure DeclarePlayers;
    //If Not Using Any Left Over Players Delete There Forms.
     
     
      Begin
         HowManyPlayers:= NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;
     
     
         Players[0].Name :='UserName';
         Players[0].Pass :='Password';
         Players[0].Nick :='3-4 Letters Of Youre USername';
         Players[0].Active:=True;
     
     
         Players[1].Name :='Username';
         Players[1].Pass :='Password';
         Players[1].Nick :='3-4 Letters Of Youre Username';
         Players[1].Active:= True;
     
     
         Players[2].Name :='Username';
         Players[2].Pass :='Password';
         Players[2].Nick :='3-4 Letters Of Youre Username';
         Players[2].Active:= True;
     
     
         Players[3].Name :='Username';
         Players[3].Pass :='Password';
         Players[3].Nick :='3-4 Letters Of Youre Username';
         Players[3].Active:= True;
     
     
         Players[4].Name :='Username';
         Players[4].Pass :='Password';
         Players[4].Nick :='3-4 Letters Of Youre Username';
         Players[4].Active:= True;
    end;
     
     
    Procedure Start;
    Begin
    Writeln('[]--------You Are Using RudeBois PowerMiner---------[]')
    Writeln('(*&^%$Have Fun$%^&*')
    Writeln('Post Proggies Please')
    End;
     
    Procedure FindRocks;
    Begin
    if (FindMSColor(x,y,Color)) then
    Begin
    Writeln('Found Ore Now Starting Script')
    End Else
    Writeln('Didnt Find Ore');
    end;
     
     
    Procedure MineRocks;
    procedure ;
    begin
    repeat
    if (FindMSColor(x,y,Color)) then
    Mouse(x,y,2,2,true);
    Wait((waittime)+random(200));
    until(InvFull)
    end;
     

     
    Function FindFastRandoms: Boolean;    // By WT-Fakawi.
     
    Var
      i: Integer;
     
    Begin
      For I := 1 To 11 Do
      Begin
        Case I Of
           1:  If FindDead Then
                 Result := True;
     
           2:  If FindMod Then
                 Result := True;
     
           3:  If FindMime Then
                 Result := True;
     
           4:  If FindMaze Then
                 Result := True;
     
           5:  If FindQuiz Then
                 Result := True;
     
           6:  If FindDemon Then
                 Result := True;
     
           7: Begin
                 If NoGameTab Then
                 Begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 End;
               End;
     
           8 : If RC Then
                 Result := True;
     
           9 : If FindFight Then
                  Begin
                    Result := True;
                    RunTo(RunDir, True);
                  End;
     
           10: If FindTalk Then
                 Result := True;
     
           11: If HandleTrade Then
                 Result := True;
        End;
        Wait(1);
      End;
    End;
     
     
    function DoAntiBan: Boolean;
    begin
      AntiBan;
      wait(50 + random(100));
      BoredEvery(3 + random(3));
      wait(100 + random(100))
        RotateEvery(7 + random(4));
      wait(750 + random(250));
      LeaveScreenEvery(5 + random(7));
      wait(500 + random(150));
    end;
     
     
    Procedure DropOres;
    begin
    GameTab(4);
    DropTo(2,28);
    Load := Load + 1;
    end;
     
     
    Begin
    SetupSRL;
    Repeat
    DeclarePlayers;
    Start;
    FindRocks;
    MineRocks;
    Inventory;
    FindFastRandoms;
    DoAntiBan;
    DropOres;
    Until(False);
    end.

    See if that works, i might have not really understood what you said because you didn't explain really about what went wrong, but just try it out
    http://i183.photobucket.com/albums/x181/logik00/sig.jpg

    Windows 95 is a 32 bit extensions and a graphical shell for a 16 bit patch to an 8 bit operating system originally coded for a 4 bit microprocessor, written by a 2 bit company, that can't stand 1 bit of competition.

    This is how you can tell someone is a true RS autoer.
    Quote Originally Posted by xraye View Post
    Who is Andrew? lol
    http://i183.photobucket.com/albums/x...newonecopy.jpg

  3. #3
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nothing went wrong i just wanna no how to add autocoloring i dont re;;y get wat u did there either

  4. #4
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    How about this, I made a procedure that gets rock color, also I changed something in mainloop:
    (And btw, you dont need procedure FindRocks; Your minerocks already finds rocks.)
    SCAR Code:
    program PoWeRmInEr;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\Skill\Mining.scar}
    {.include SRL\SRL\Misc\Trade.scar}

    //JADS AnitBan Credit Goes To Him.
    //Reads JADS tut they pwn.
    //The Rest Of The Script Was Made By Me.
    //Drop Procedure Is Really Slow
    //Will Bulid On This Script In Future

    var
    Load: Integer;
    NewRockColor:Integer;

    Const
    Loads = 2;//How Many Loads.
    NumberOfUsers = 1;//How Many Players Are You Using.
    StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
    RudeProggy = True;//Use My Proggy Please For Reports.
    Color = 4418452;//The Color Of The Ore You Want To Mine.
    ClickRock = 5000;//How Long To Click Again
    RunDir = 'S'; // RunDirection, choose it wisely.


    Procedure DeclarePlayers;
    //If Not Using Any Left Over Players Delete There Forms.


      Begin
         HowManyPlayers:= NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;


         Players[0].Name :='UserName';
         Players[0].Pass :='Password';
         Players[0].Nick :='3-4 Letters Of Youre USername';
         Players[0].Active:=True;


         Players[1].Name :='Username';
         Players[1].Pass :='Password';
         Players[1].Nick :='3-4 Letters Of Youre Username';
         Players[1].Active:= True;


         Players[2].Name :='Username';
         Players[2].Pass :='Password';
         Players[2].Nick :='3-4 Letters Of Youre Username';
         Players[2].Active:= True;


         Players[3].Name :='Username';
         Players[3].Pass :='Password';
         Players[3].Nick :='3-4 Letters Of Youre Username';
         Players[3].Active:= True;


         Players[4].Name :='Username';
         Players[4].Pass :='Password';
         Players[4].Nick :='3-4 Letters Of Youre Username';
         Players[4].Active:= True;
    end;


    Procedure Start;
    Begin
    Writeln('[]--------You Are Using RudeBois PowerMiner---------[]')
    Writeln('(*&^%$Have Fun$%^&*')
    Writeln('Post Proggies Please')
    End;

    procedure GetRockColor;
    begin
    if(FindObj(x,y,'ine',Color,10))then
     NewRockColor:=Getcolor(x,y)
    else
     NewRockColor:=Color;
    end;

    Procedure FindRocks;
    Begin
    if (FindMSColor(x,y,NewRockColor)) then
    Begin
    Writeln('Found Ore Now Starting Script')
    End Else
    Writeln('Didnt Find Ore');
    end;


    Procedure MineRocks;
    begin
    repeat
    if (FindMSColor(x,y,NewRockColor)) then
    begin
    Mouse(x,y,2,2,true);
    Wait((waittime)+random(200));
    end;
    wait(10)
    until(InvFull)
    end;



    Function FindFastRandoms: Boolean;    // By WT-Fakawi.

    Var
      i: Integer;

    Begin
      For I := 1 To 11 Do
      Begin
        Case I Of
           1:  If FindDead Then
                 Result := True;

           2:  If FindMod Then
                 Result := True;

           3:  If FindMime Then
                 Result := True;

           4:  If FindMaze Then
                 Result := True;

           5:  If FindQuiz Then
                 Result := True;

           6:  If FindDemon Then
                 Result := True;

           7: Begin
                 If NoGameTab Then
                 Begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 End;
               End;

           8 : If RC Then
                 Result := True;

           9 : If FindFight Then
                  Begin
                    Result := True;
                    RunTo(RunDir, True);
                  End;

           10: If FindTalk Then
                 Result := True;

           11: If HandleTrade Then
                 Result := True;
        End;
        Wait(1);
      End;
    End;


    function DoAntiBan: Boolean;
    begin
      AntiBan;
      wait(50 + random(100));
      BoredEvery(3 + random(3));
      wait(100 + random(100))
        RotateEvery(7 + random(4));
      wait(750 + random(250));
      LeaveScreenEvery(5 + random(7));
      wait(500 + random(150));
    end;


    Procedure DropOres;
    begin
    GameTab(4);
    DropTo(2,28);
    Load := Load + 1;
    end;


    Begin
    SetupSRL;
    DeclarePlayers;
    Start;
    GetRockColor;
    LogInPlayer;
    Repeat
    FindRocks;
    MineRocks;
    Inventory;
    FindFastRandoms;
    DoAntiBan;
    DropOres;
    Until(False);
    end.

  5. #5
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i dont get it like with wizzups in the declare players he has like strring1 ='iron' or something

  6. #6
    Join Date
    Mar 2007
    Location
    Jersey
    Posts
    135
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ohh i see i thought well umm.... yea see lol well at the moment i am a little busy with my script but i would really love to help but ummm u can use the function FindRockColor: Integer;
    http://i183.photobucket.com/albums/x181/logik00/sig.jpg

    Windows 95 is a 32 bit extensions and a graphical shell for a 16 bit patch to an 8 bit operating system originally coded for a 4 bit microprocessor, written by a 2 bit company, that can't stand 1 bit of competition.

    This is how you can tell someone is a true RS autoer.
    Quote Originally Posted by xraye View Post
    Who is Andrew? lol
    http://i183.photobucket.com/albums/x...newonecopy.jpg

  7. #7
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ill figure it out soon

  8. #8
    Join Date
    Mar 2007
    Location
    Jersey
    Posts
    135
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just check in the SRL/mining.scar
    http://i183.photobucket.com/albums/x181/logik00/sig.jpg

    Windows 95 is a 32 bit extensions and a graphical shell for a 16 bit patch to an 8 bit operating system originally coded for a 4 bit microprocessor, written by a 2 bit company, that can't stand 1 bit of competition.

    This is how you can tell someone is a true RS autoer.
    Quote Originally Posted by xraye View Post
    Who is Andrew? lol
    http://i183.photobucket.com/albums/x...newonecopy.jpg

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. powerminner..
    By thebob142 in forum First Scripts
    Replies: 2
    Last Post: 04-28-2008, 03:11 AM
  3. lvl 3 powerminner idea
    By dreygoth in forum OSR Help
    Replies: 2
    Last Post: 04-07-2008, 09:20 AM
  4. My Updated Powerminner
    By RudeBoiAlex in forum RS3 Outdated / Broken Scripts
    Replies: 18
    Last Post: 01-28-2008, 11:17 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
  •