Results 1 to 5 of 5

Thread: help with my mining procedure

  1. #1
    Join Date
    Feb 2007
    Posts
    169
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default help with my mining procedure

    here is my mining procedure
    SCAR Code:
    procedure MineWay1;
    begin
      failsafes;
      repeat
      P:=0
      repeat
      P:=P+1
      wait(250+random(100));
      until(FindColorTolerance(x,y,rockcolour,20,20,490,326,5))or(FindColorTolerance(x,y,rockcolour1,20,20,490,326,5))or(P=50)
      if(P=50)then
      begin
        writeln('no rocks');
        NextPlayer(False);
      end;
      if(FindColorTolerance(x,y,rockcolour,20,20,490,326,5))or(FindColorTolerance(x,y,rockcolour1,20,20,490,326,5))then
      MMouse(x,y,0,0);
      if(isuptext('ake'))then
      Mouse(x,y,100,100,true);
      if(IsUpText('ine'))then
      begin
        wait(100+random(50));
        Mouse(x,y,0,0,true);
        wait(1150+random(450));
        Q:=0
        repeat
          Q:=Q+1
          wait(100+random(100));
        until(finddtm(mine,x1,y1,11,403,145,455))or(finddtm(nomine,x2,y2,11,403,145,455))or(Q=20)
        wait(500+random(500));
      end;
      Q:=0
      until(InvFull);
    end;

    the only problem i have with it is i put this code in
    SCAR Code:
    if(isuptext('ake'))then
      Mouse(x,y,100,100,true);
    because every time i dropped ores, it picked up the colour from an ore and moved the mouse to it
    although it didn't click the mouse on it and pick it up, the mouse wouldn't mover from them
    so i put in this code to try and stop it but its not working
    could someone please help me?
    thanks

  2. #2
    Join Date
    Dec 2006
    Location
    Banville
    Posts
    3,914
    Mentioned
    12 Post(s)
    Quoted
    98 Post(s)

    Default

    1) If you're dropping ores, why pick them up?

    2) Try doing IsUpTextMulti('thi', 'ng ', 'one')

    3) SRL should have English requirements.

    4) Could you explain more?
    The jealous temper of mankind, ever more disposed to censure than
    to praise the work of others, has constantly made the pursuit of new
    methods and systems no less perilous than the search after unknown
    lands and seas.

  3. #3
    Join Date
    Feb 2007
    Posts
    169
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i don't want to pick them up, the problem is that is doesn't move off the ores once it has found them because they are the right colour but not the right text in the top left corner, so it won't click them
    basically i want a way so when it sees an ore with the right colour, it just ignores it
    my script won't pick it up but as its the right colour, it won't ignore it

  4. #4
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Designing your first autominer is not an easy task. Its nice to see you are trying to get it right -doing it MineWay - but some things in your script might need some improvement.


    if(FindColorTolerance(x,y,rockcolour,MMx1,MMy1,490 ,326,5))or(FindColorTolerance(x,y,rockcolour1,20,2 0,490,326,5))then <<-- use DIVI constants
    Begin <<<--- you forgot to add Begin
    MMouse(x,y,0,0);
    if(isuptext('ake'))then
    Mouse(x,y,100,100,true); << --you pick something up. You move. The next x and y are useless.
    if(IsUpText('ine'))then
    begin
    wait(100+random(50));
    Mouse(x,y,0,0,true);
    wait(1150+random(450)); <<-- Wait until chattext "you managed to mine...
    Q:=0
    repeat
    Q:=Q+1
    wait(100+random(100));
    until(finddtm(mine,x1,y1,11,403,145,455))or(finddt m(nomine,x2,y2,11,403,145,455))or(Q=20)
    wait(500+random(500)); <<-- what does the dtm do?
    end;

    [/scar]

    The main thing you forgot was the Begin. You should plan your loops better. Why search for the rockcolor twice? If find then click, if not find...dont click. Look for changes in the screen, look for statechanges. Is the color still there? Is there a new ChatText? Is there a change in my inventory? When designing a script, I first mimic the script manually, sometimes even for days, and only then I start to script.

    But first study other peoples scripts. Print them out, read them, take 'm with you, make notes... Then copy their code, and slowly modify it gradually developing your own style...Well, thats what I did anyway.

    Good luck.

    Fawk.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  5. #5
    Join Date
    Feb 2007
    Posts
    169
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by WT-Fakawi View Post
    Designing your first autominer is not an easy task. Its nice to see you are trying to get it right -doing it MineWay - but some things in your script might need some improvement.


    if(FindColorTolerance(x,y,rockcolour,MMx1,MMy1,490 ,326,5))or(FindColorTolerance(x,y,rockcolour1,20,2 0,490,326,5))then <<-- use DIVI constants
    Begin <<<--- you forgot to add Begin
    MMouse(x,y,0,0);
    if(isuptext('ake'))then
    Mouse(x,y,100,100,true); << --you pick something up. You move. The next x and y are useless.
    if(IsUpText('ine'))then
    begin
    wait(100+random(50));
    Mouse(x,y,0,0,true);
    wait(1150+random(450));<<-- Wait until chattext "you managed to mine...
    Q:=0
    repeat
    Q:=Q+1
    wait(100+random(100));
    until(finddtm(mine,x1,y1,11,403,145,455))or(finddt m(nomine,x2,y2,11,403,145,455))or(Q=20)
    wait(500+random(500)); <<-- what does the dtm do?
    end;

    [/scar]

    The main thing you forgot was the Begin. You should plan your loops better. Why search for the rockcolor twice? If find then click, if not find...dont click. Look for changes in the screen, look for statechanges. Is the color still there? Is there a new ChatText? Is there a change in my inventory? When designing a script, I first mimic the script manually, sometimes even for days, and only then I start to script.

    But first study other peoples scripts. Print them out, read them, take 'm with you, make notes... Then copy their code, and slowly modify it gradually developing your own style...Well, thats what I did anyway.

    Good luck.

    Fawk.
    thanks for all the enocouragement and the good luck
    the mouse(x,y,100,100,true); i put in to make sure if i find an ore i walk away from it
    the wait(1150+random(450)); is the give the player time to get to the rock before looking for the texts (no ore / managed to mine)
    what are divi constants as you mentioned them?
    these texts are the dtms which i can change for the srl command which i wasn't aware of
    however, although you post really really really helped me and my loop, i still have the problem of how to get my mouse of the ores which i don't want to pick up

    EDIT: why does RandomRClickEvery(5); compile with scar 2.03 but not with 3.06?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Mining procedure
    By weequ in forum OSR Help
    Replies: 6
    Last Post: 04-10-2008, 01:08 PM
  2. Mining Procedure Help
    By massive630 in forum OSR Help
    Replies: 12
    Last Post: 01-13-2008, 02:54 PM
  3. help w/ mining procedure...
    By stupedspam in forum OSR Help
    Replies: 7
    Last Post: 04-04-2007, 02:32 AM
  4. Mining Procedure
    By stol3n in forum OSR Help
    Replies: 6
    Last Post: 04-03-2007, 07:09 AM
  5. Mining Procedure
    By ben123321 in forum OSR Help
    Replies: 9
    Last Post: 11-25-2006, 09:33 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
  •