Results 1 to 3 of 3

Thread: Need procedure to test if I am mining or not

  1. #1
    Join Date
    Jan 2007
    Location
    Kansas
    Posts
    3,760
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default Need procedure to test if I am mining or not

    I would like a procedure to test if the person I am working with is mining or not. Here is the script
    SCAR Code:
    program Varrock_East_Miner_Banker;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\extended\xMapWalk.scar}
    {.include SRL\SRL\extended\xBank.scar}
    var
    Tin,Copper,Iron,colorofroad,road: Integer;


    const
    typeofore='Tin';//Will except Iron,Tin, and Copper
    banksymbol=0;//0 to autocolor
    pin=false;//If you have no pin then leave at false
    timetowait=7000;//Amout of time to wait before clicking rock again

    procedure bitmaps;
    begin
      Tin := BitmapFromString(3, 3, '8D83838D83830000009287878081810' +
           '00000000000000000000000');
      Iron := BitmapFromString(3, 2, '4F2F234F2F230000000000000000000' +
           '00000');
      Copper := BitmapFromString(3, 3, 'z78DAB33031333076B6009306606081' +
           '218209002F090AC1');
      Road := BitmapFromString(4, 4, 'z78DA3333317536753143220DC0C08C' +
           '44715C0000EBBC1414');
    end;

    procedure TinColor;
    begin
      if (typeofore='Tin') then
       begin
         Tin := AutoColorThis(Tin,40,0,0,517,333);
         Writeln('Your tin color is '+inttostr(Tin));
       end;
    end;
    procedure RColor;
    begin
      if (colorofroad=0) then
      colorofroad :=AutoColorThis(Road,40,579,30,701,124);
      Writeln('Your road color is ' +inttostr(colorofroad));
    end;

    procedure GettingColors;
    begin
    RColor;
    TinColor;
    end;

    procedure domine;
    begin
    repeat
      if (typeofore='Tin') then
      Findcolorspiral(x,y,Tin,0,0,517,313);
      Mouse(x,y,4,4,true);
      Wait(timetowait+random(300));
    until(InvFull=True)
    end;

    procedure walktobank;
    begin
    RadialWalk(colorofroad,90,0,70,2,2);
    RadialWalk(colorofroad,360,270,70,2,2);
    RadialWalk(colorofroad,360,270,70,2,2);
    RadialWalk(colorofroad,360,270,70,2,2);
    RadialWalk(colorofroad,360,270,70,2,2);
    end;


    begin
      SetupSRL;
      Bitmaps;
      findrs;
      activateclient;
      wait(1000);
      GettingColors;
      DoMine;
      WalkToBank;
    end.

    Also if anybody has a better way to walk to the bank that would be much appreciated cause I don't like the way I am doing it.
    I know there are no proggies/multiplayer/or loop. I am putting these in later


  2. #2
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    you could make it hover over the rock and when it changes colors then it knows that it/someone else has mined the rock. check out starblasters powerskills script it does that. using that way is not 100% though because alot of times it will move the mouse over another rock waiting for it to change, but it never does because you arent mining it. but it will be good enough to get the script running, then you can update it to a better function later

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

    Default

    I would of helped you out more if I had more time, but im not home at the moment.
    SCAR Code:
    procedure RColor;
    begin
      if (colorofroad = 0) then
      begin//after a then, if there is more then 1 procedure you need a 'begin'
        colorofroad := AutoColorThis(Road, 40, 579, 30, 701, 124);
        Writeln('Your road color is ' + inttostr(colorofroad));
      end;//another 'end;' for the extra begin
    end;


    procedure domine;
    begin
    repeat
      if (typeofore = 'Tin') then
      begin//another begin, same reason as above
        Findcolorspiral(x, y, Tin, 0, 0, 517, 313);
        //i would use this procedure below.
        //if (FindColorSpiralTolerance(x, y, Tin, msx1, msy1, msx2, msy2, 15)) then
        //begin
        Mouse(x, y, 4, 4, true);
        Wait(timetowait + random(300));
        //end;
      end;//you already know....
    until(InvFull = True)
    end;

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. 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
  •