Results 1 to 4 of 4

Thread: Help with my autominer

  1. #1
    Join Date
    Oct 2006
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with my autominer

    I can't figure out what is wrong with this. Me being a newb and all, I need help. What is wrong?

    program AutoMinerTutorial;
    {.include SRL/SRL.scar}

    Const
    rockwait = 1000;
    rockcolor1 = 2042951;
    rockcolor2 = 2174539;
    rockcolor3 = 1910334;
    rockcolor4 = 1515315;
    rockcolor5 = 2371407;
    rockcolor6 = 1712440;
    rockcolor7 = 1120040;
    rockcolor8 = 527642;
    rockcolor9 = 2898527;
    rockcolor10 = 2503507;
    rockcolor11 = 857121;
    rockcolor12 = 1318190;

    procedure MineOre;
    begin
    repeat
    if FindColorSpiral(x,y,rockcolor1,0,0,515,337) or FindColorSpiral(x,y,rockcolor2,0,0,515,337) or FindColorSpiral(x,y,rockcolor3,0,0,515,337) or FindColorSpiral(x,y,rockcolor4,0,0,515,337) or FindColorSpiral(x,y,rockcolor5,0,0,515,337) or FindColorSpiral(x,y,rockcolor6,0,0,515,337) or FindColorSpiral(x,y,rockcolor7,0,0,515,337) or FindColorSpiral(x,y,rockcolor8,0,0,515,337) or FindColorSpiral(x,y,rockcolor9,0,0,515,337) or FindColorSpiral(x,y,rockcolor10,0,0,515,337) or FindColorSpiral(x,y,rockcolor11,0,0,515,337) or FindColorSpiral(x,y,rockcolor12,0,0,515,337) then
    MoveMouseSmooth(x,y)
    if istextat2(9,9,'Mine',20) then
    ClickMouse(x,y,true)
    wait(rockwait+random(360))
    until(FindColorSpiral(x,y,4942981,907,430,950,469) )
    if (FindColorSpiral(x,y,4942981,907,430,950,469))then InventoryFull = true
    if (InventoryFull = true) then
    end;

    Procedure DropOres;
    begin
    DropAll;
    end;

    begin
    SetupSRL;
    repeat
    MineOre;
    DropOres;
    Until(falso)
    end.

  2. #2
    Join Date
    Jul 2006
    Location
    NY
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here, didnt do much but look at the notes I put into the script. And you might want to learn some scripting standards.
    SCAR Code:
    program AutoMinerTutorial;
    {.include SRL/SRL.scar}

    Const
     rockwait = 1000;
     rockcolor1 = 2042951;
     rockcolor2 = 2174539;
     rockcolor3 = 1910334;
     rockcolor4 = 1515315;
     rockcolor5 = 2371407;
     rockcolor6 = 1712440;
     rockcolor7 = 1120040;
     rockcolor8 = 527642;
     rockcolor9 = 2898527;
     rockcolor10 = 2503507;
     rockcolor11 = 857121;
     rockcolor12 = 1318190;


    procedure MineOre;
    begin
      if FindColorSpiralTolerance(x, y, rockcolor1, msx1, msy1, msx2, msy2, 15) or
         FindColorSpiralTolerance(x, y, rockcolor2, msx1, msy1, msx2, msy2, 15) or
         FindColorSpiralTolerance(x, y, rockcolor3, msx1, msy1, msx2, msy2, 15) or
         FindColorSpiralTolerance(x, y, rockcolor4, msx1, msy1, msx2, msy2, 15) or
         FindColorSpiralTolerance(x, y, rockcolor5, msx1, msy1, msx2, msy2, 15) or
         FindColorSpiralTolerance(x, y, rockcolor6, msx1, msy1, msx2, msy2, 15) or
         FindColorSpiralTolerance(x, y, rockcolor7, msx1, msy1, msx2, msy2, 15) or
         FindColorSpiralTolerance(x, y, rockcolor8, msx1, msy1, msx2, msy2, 15) or
         FindColorSpiralTolerance(x, y, rockcolor9, msx1, msy1, msx2, msy2, 15) or
         FindColorSpiralTolerance(x, y, rockcolor10, msx1, msy1, msx2, msy2, 15) or
         FindColorSpiralTolerance(x, y, rockcolor11, msx1, msy1, msx2, msy2, 15) or
         FindColorSpiralTolerance(x, y, rockcolor12, msx1, msy1, msx2, msy2, 15) then
    //use TOLERANCE for better finding.
    //msx1, msy1, msx2, msy2 = mainscreen cords.
    //MoveMouseSmooth(x,y)
    //^ NEVER USE!!

         MMouse(x, y, 3, 3);
         if istextat2(9,9,'Mine',20) then
           //ClickMouse(x,y,true) NO AGAIN!
           GetMousePos(x, y);
           Mouse(x, y, 1, 1, True);
           Wait(rockwait + random(1000))
           
      //if (FindColorSpiral(x,y,4942981,907,430,950,469)) then InventoryFull = true //????
      //if (InventoryFull = true) then  //??
    end;


    Procedure DropOres;
    begin
      DropAll;
    end;


    begin
      SetupSRL;
      repeat
       repeat
       if (InvFull) then break;
        MineOre;
       until(InvFull)
        DropOres;
      Until(false) //false not falso
    end.

  3. #3
    Join Date
    Oct 2006
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what are scripting standards?

  4. #4
    Join Date
    Jan 2007
    Location
    USA
    Posts
    1,782
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    like spacing between lines,etc


    also you might want to make those an array like so

    EDIT : o w8 lol your doing a tutorial i see nvm

    Join the fastest growing merchanting clan on the the net!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Need help with an autominer.
    By Maox in forum OSR Help
    Replies: 12
    Last Post: 01-11-2008, 06:46 AM
  2. Autominer
    By andraz125 in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 08-21-2007, 08:20 PM
  3. My First AutoMiner
    By RudeBoiAlex in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 03-03-2007, 06:56 PM
  4. AutoMiner
    By HarryJames in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 03-03-2007, 02:39 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
  •