Results 1 to 8 of 8

Thread: 2 things to do with mineing

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

    Default 2 things to do with mineing

    1)autocoloring for more than 1 rock? i have a powerminr with autocolor 1 problem it only has 1 slot for 1 ore.ive added more slots and changed the autocolor to 3 rocks get me lol
    e.g

    SCAR Code:
    Procedure SetOreColor;

    Begin

      Case LowerCase(Players[CurrentPlayer].String1) Of
        'copper'  :  OreColor1:=CopperColor;
        'tin'     :  OreColor1:=TinColor;
        'clay'    :  OreColor1:=ClayColor;
        'iron'    :  OreColor1:=IronColor;
        'silver'  :  OreColor1:=SilverColor;
        'coal'    :  OreColor1:=CoalColor;
        'gold'    :  OreColor1:=GoldColor;
        'mithril' :  OreColor1:=MithrilColor;
        'adamant' :  OreColor1:=AdamantColor;
        'runite'  :  OreColor1:=RuniteColor;
     End;
      Case Lowercase(Players[CurrentPlayer].String2) Of
        'copper'  :  OreColor2:=CopperColor;
        'tin'     :  OreColor2:=TinColor;
        'clay'    :  OreColor2:=ClayColor;
        'iron'    :  OreColor2:=IronColor;
        'silver'  :  OreColor2:=SilverColor;
        'coal'    :  OreColor2:=CoalColor;
        'gold'    :  OreColor2:=GoldColor;
        'mithril' :  OreColor2:=MithrilColor;
        'adamant' :  OreColor2:=AdamantColor;
        'runite'  :  OreColor2:=RuniteColor;
      End;
      Case LowerCase(Players[CurrentPlayer].String3) Of
        'copper'  :  OreColor3:=CopperColor;
        'tin'     :  OreColor3:=TinColor;
        'clay'    :  OreColor3:=ClayColor;
        'iron'    :  OreColor3:=IronColor;
        'silver'  :  OreColor3:=SilverColor;
        'coal'    :  OreColor3:=CoalColor;
        'gold'    :  OreColor3:=GoldColor;
        'mithril' :  OreColor3:=MithrilColor;
        'adamant' :  OreColor3:=AdamantColor;
        'runite'  :  OreColor3:=RuniteColor;
      End;
    End;

    done that bit and in the declare players added the strings need help with wat to put in my mineing procedure


    2)how do i make it locate if the ore is gone and mine again instead of a simple (clickrock + random ect...
    any help will + rep

  2. #2
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Maybe if you got the mouse position of x,y , then checked for the RockGone color (gray) and make it repeat waiting until it finds that color at x,y or near x,y.

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

    Default

    maybe but isnt there a function or procedure to check it ?

  4. #4
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    I'm not sure, but this should work and store the colors of 3 different Rocks..

    SCAR Code:
    Procedure SetOreColor;
     
    Begin
     
      Case LowerCase(Players[CurrentPlayer].String1) Of
        'copper'  :  Color1:=CopperColor;
        'tin'     :  Color1:=TinColor;
        'clay'    :  Color1:=ClayColor;
        'iron'    :  Color1:=IronColor;
        'silver'  :  Color1:=SilverColor;
        'coal'    :  Color1:=CoalColor;
        'gold'    :  Color1:=GoldColor;
        'mithril' :  Color1:=MithrilColor;
        'adamant' :  Color1:=AdamantColor;
        'runite'  :  Color1:=RuniteColor;
     End;
      Case Lowercase(Players[CurrentPlayer].String2) Of
        'copper'  :  Color2:=CopperColor;
        'tin'     :  Color2:=TinColor;
        'clay'    :  Color2:=ClayColor;
        'iron'    :  Color2:=IronColor;
        'silver'  :  Color2:=SilverColor;
        'coal'    :  Color2:=CoalColor;
        'gold'    :  Color2:=GoldColor;
        'mithril' :  Color2:=MithrilColor;
        'adamant' :  Color2:=AdamantColor;
        'runite'  :  Color2:=RuniteColor;
      End;
      Case LowerCase(Players[CurrentPlayer].String3) Of
        'copper'  :  Color3:=CopperColor;
        'tin'     :  Color3:=TinColor;
        'clay'    :  Color3:=ClayColor;
        'iron'    :  Color3:=IronColor;
        'silver'  :  Color3:=SilverColor;
        'coal'    :  Color3:=CoalColor;
        'gold'    :  Color3:=GoldColor;
        'mithril' :  Color3:=MithrilColor;
        'adamant' :  Color3:=AdamantColor;
        'runite'  :  Color3:=RuniteColor;
      End;
    End;
     

    Procedure MoreThenOneRockColor;
    var TempColor1, TempColor2: Integer;
    begin
      FindOreColors(Color1, 15, 10);
      TempColor1 := OreColor1;
      FindOreColors(Color2, 15, 10);
      TempColor2 := OreColor1;
      FindOreColors(Color3, 15, 10);
      OreColor1 := TempColor1;
      OreColor2 := TempColor2;
      WriteLn('Ore 1 = '+IntToStr(OreColor1)+ ', Ore 2 = ' +IntToStr(OreColor2)+', Ore 3 = '+IntToStr(OreColor3) );
    end;
    Hup Holland Hup!

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

    Default

    does that mine ore number 1 most then ore number 2 a little less then ore number 3 the least thats wat im looking for

  6. #6
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    No . That just AutoColors your 3 rocks . For Ore switching use something like this:

    SCAR Code:
    Procedure SwitchOres;
    var i: integer;
    begin
      i := Random (10);
      if i = 9 then RockColor := OreColor3 else //Will be mined the least
      if i > 6 then
      begin
        if i < 9 then RockColor := OreColor2 //Will be mined more then OreColor3;
      end else
      RockColor := OreColor1; //Will be mined most
    end;

    Just is (also) just a procedure I made very quickly . For better ones; check the PowerMiners.. .
    Hup Holland Hup!

  7. #7
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    I don't know if this is what you mean but this will click once on the ore and wait until it's mined or the time you set for it has been exceded...it looks for messages in the chat box. e.g. if it finds 'anage' from 'you managed to mine some ore' it will click on the next rock.

    SCAR Code:
    procedure UntilMined(Time: Integer);
    var
      timer: integer;
    begin
      Status('waiting for pick swing')
        FindFastRandoms;
      wait(700 + random(200));
      if FindText(x, y, 'You swing your', smallchars, 18, 415, 477, 433) then
      begin
        marktime(Timer);
        repeat
          wait(700 + random(900));
          FindFastRandoms;
          FindPick;
          FindGasses;
          Reply;
        until FindText(x, y, 'anage', smallchars, 20, 401, 477, 433) or
          (timefrommark(Timer) > Time);
          OreMined := OreMined + 1;
      end;
    end;
    Sleeping...

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

    Default

    very helpful ty

    @rkrox yes thats wat i needed ty

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Mineing/banking script[please]
    By digital_mike_is_god in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 08-13-2007, 10:19 PM
  2. am i seeing things...
    By Dark_Sniper in forum Discussions & Debates
    Replies: 6
    Last Post: 05-17-2006, 02:01 AM

Posting Permissions

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