Results 1 to 3 of 3

Thread: Help with rock finding procedure

  1. #1
    Join Date
    Feb 2007
    Location
    Yorkshire, England
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with rock finding procedure

    SCAR Code:
    procedure RockMine;
    begin
      FindGas(fx, fy: ): ;
    if(findcolor(x,y,'RockColor',MSX1,MSY1,MSX2,MSY2))then
      Mouse(X,y,4,4,true)
      Repeat
      findtalk;
      findnormalrandoms;
    Until(Isuptext('Mine'))
    If FindColor( Blah ) then
      MMouse(x,y5,5)
    Until(Isuptext('Mine'))
    If IsupTex('Mine') then
      Mouse(x,y,0,0,true)
      FindGas(fx, fy: ): ;
    end;

    This is it so far anyone help me sort it out

    i will later change it to findcolorspiral

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

    Default

    SCAR Code:
    procedure RockMine;
    begin
      FindGas(fx, fy: ): ; //What is this doing here? :p
    if(findcolor(x,y,'RockColor',MSX1,MSY1,MSX2,MSY2))then //This can stay at the same spot every time and RockColor can't be a string so remove the ''
      Mouse(X,y,4,4,true)
      Repeat
      findtalk; //This can be an endless loop
      findnormalrandoms;
    Until(Isuptext('Mine'))
    If FindColor( Blah ) then
      MMouse(x,y5,5)
    Until(Isuptext('Mine'))
    If IsupTex('Mine') then
      Mouse(x,y,0,0,true)
      FindGas(fx, fy: ): ;
    end;
    This is what I made from your procedure, but I suggest you look at some MiningScripts
    SCAR Code:
    procedure RockMine;
    begin
      if findObj(x, y, 'Mine', RockColor, 20)then   //Change this with some better FindObj :p
      begin
        if not FindGas(x, y) then
        Mouse(X,y,4,4,true)
      end;
    end;
    Hup Holland Hup!

  3. #3
    Join Date
    Feb 2007
    Location
    Yorkshire, England
    Posts
    180
    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. bitmap finding procedure help
    By Awkwardsaw in forum OSR Help
    Replies: 0
    Last Post: 09-21-2008, 01:01 AM
  2. Finding Minimap mine rock color...
    By Drakan in forum OSR Help
    Replies: 16
    Last Post: 05-08-2008, 04:31 PM
  3. Finding Rock error
    By faster789 in forum OSR Help
    Replies: 19
    Last Post: 04-13-2008, 05:30 PM
  4. Help With finding a Procedure
    By !bezo! in forum OSR Help
    Replies: 9
    Last Post: 03-20-2007, 07:24 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
  •