Results 1 to 4 of 4

Thread: need help

  1. #1
    Join Date
    Nov 2006
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default need help

    i need major help with my auto miner can someone tell me what im doing wrong

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

    Default

    Please post the script using [ scar][ /scar] tags, btw, where is my lvl 20 account you told me you were going to make for testing scripts?

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

    Default

    Here it is...
    SCAR Code:
    Program Powerminer;
    {.include SRL/SRL.scar}

    Const
    Coppercolor = 5476070;
    Ironcolor = 2898528;
    rocktype='iron'; //name of rock
    rockw = 15000;   //time you want to wait for the rock
    pick='false';    //true if weilding, false if unweilded.

    Procedure findandmine;
    Begin
     If (findcolorSpiralTolerance(x,y,Ironcolor,MSX1,MSY1,MSx2,MSY2,15))Then
     Begin
       Mmouse(x,y,5,5)
       wait(Random(1000))
      if IsUpText(RockType) Then
      Begin
       mouse(x,y,1,1,true)
       flag;
       wait(rockw+random(2000))
      End Else
       findandmine;
     end;
    end;

    procedure dropore;
    begin
     case pick of
      'true':  dropto(1,28);
      'false': dropto(2,28);
     end;
    end;


    Begin
    setupsrl;
     repeat
      repeat
        if invfull then break;
        findandmine;
      until(invfull)
      if invfull then
       dropore;
     until(false)
    end.

  4. #4
    Join Date
    Nov 2006
    Posts
    91
    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)

Posting Permissions

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