Poll: Script public?

Page 1 of 3 123 LastLast
Results 1 to 25 of 54

Thread: Porting Al's LRC Fisher to LRC Miner

  1. #1
    Join Date
    Apr 2012
    Location
    UK
    Posts
    269
    Mentioned
    2 Post(s)
    Quoted
    46 Post(s)

    Default Porting Al's LRC Fisher to LRC Miner

    Hello all I have been porting Al's LRC Fisher so that it can mine gold ore in the living rock caverns. This was a private project for me only but I have deiced to release it to public once finished. This is a port from al's LRC fisher so I can not guarantee he we let me release this yet.


    I can confirm that the script will be released to public very soon



    Done List

    Runs to the mine spot
    runs to the bank and back
    switchers between the 2 gold deposits
    If attacked runs to the bank


    DMT for gold ore so when it banks it can find it (feel free to help me on this one so i can release this quicker.
    Clean up the script so it makes sense and not look like a fishing script


    Still to do

    Convert the paint so it works with tracking gold ores and not fish.
    Reworking the failsafes


    Almost done but wish me luck anyways
    Last edited by tristen8878; 06-18-2012 at 09:42 PM.

  2. #2
    Join Date
    Apr 2012
    Posts
    3,356
    Mentioned
    34 Post(s)
    Quoted
    218 Post(s)

    Default

    Ah weird thing is i just asked Al about it.

    Does it work well?

    Good work!

  3. #3
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    DMT for gold ore so when it banks it can find it (feel free to help me on this one so i can release this quicker.
    I recommend doing a colour count for this:
    Simba Code:
    Function GoldOreInSpot(Spot : integer) : Boolean;
    Var
      B : TBox;
    begin

      B := InvBox(Spot);
      if(CountColorTolerance(GoldOreColour, B.x1, B.y1, B.x2, B.y2, 10) > Count)then
        Result := True;

    end;

    Function GoldOreInInvent : integer;
    Var
      i : integer;
    begin

      for i := 1 to 28 do
        if(GoldOreInSpot(i))then
          inc(Result);

    end;

    then for depositing do:
    Simba Code:
    Function DepositOres : Boolean;
    begin

      if(not DepositScreen)then
        if(not OpenDeposit)then
          exit;

      DepositAll;//Not sure if this works for deposit screens  Edit: Just checked and it should do...
      CloseAllScreens;

      Result := GoldOreInInvent = 0;

    end;

  4. #4
    Join Date
    Apr 2012
    Location
    UK
    Posts
    269
    Mentioned
    2 Post(s)
    Quoted
    46 Post(s)

    Default

    Quote Originally Posted by -Benny View Post
    Ah weird thing is i just asked Al about it.

    Does it work well?

    Good work!
    Yes it runs flawless atm switches spots fine but am just working on the banking been banking manual thats how i have got 37k hr so far. It walks to the bank fine from both spots just depositing the ore is the problem
    Last edited by tristen8878; 06-15-2012 at 08:23 PM.

  5. #5
    Join Date
    Apr 2012
    Posts
    3,356
    Mentioned
    34 Post(s)
    Quoted
    218 Post(s)

    Default

    ah well i'm really looking forward to this. lemme know if i can help

  6. #6
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by tristen8878 View Post
    Yes it runs flawless atm switches spots fine but am just working on the banking been banking manual thats how i have got 37k hr so far. It walks to the bank fine from both spots just depositing the ore is the problem
    What's the problem with depositing the ore?

  7. #7
    Join Date
    Apr 2012
    Location
    UK
    Posts
    269
    Mentioned
    2 Post(s)
    Quoted
    46 Post(s)

    Default

    Quote Originally Posted by putonajonny View Post
    What's the problem with depositing the ore?
    Code:
    RFish    := DTMFromString('mrAAAAHic42BgYMhmYmDIBOJCIK4C4iIgzgHiRCCOBeLnQDV3gfgWlH4LxJ+B+AMQvwBij2APIMmEE3MBSXyYkQCGAQD1rAvw');
    Code:
    Procedure Banking;
    Begin
      If (FindDTM(RFish,x,y,MIX1,MIY1,MIX2,MIY2) Or FindDTM(CFish,x,y,MIX1,MIY1,MIX2,MIY2)) Then
        Begin
          If (FindPulley(X,Y)) Then
            Begin
              If FindDTM(RFish,x,y,MIX1,MIY1,MIX2,MIY2) Then FC  := CountItems('dtm', RFish, []) Else FC  := CountItems('dtm', CFish, []);
              XP  := (FC*380);
              FFC := IntToStr(FC);
              Writeln('Trying to bank ' + FFC + ' fish!');
              OnScreenUpdate;
              ClickMouse2(True);
              Wait(RandomRange(2250,2750));
              If PinScreen Then InPin(PP);
              Wait(RandomRange(1000,1250));
              If (FindDTM(RFish, x, y, MSX1, MSY1, MSX2, MSY2) Or FindDTM(CFish, x, y, MSX1, MSY1, MSX2, MSY2)) Then
                Begin
                  Mouse(x,y,3,3,False);
                  Wait(RandomRange(700,850));
                  ChooseOption('ll');
                  ToFishing;
                End Else ToFishing;
            End Else
            Begin
              SymbolAccuracy := 0.35
              FindSymbol(x,y,'bank');
              Mouse(x,y,0,0,true);
              Wait(RandomRange(1000,1300));
              SymbolAccuracy := 0.80
              Banking;
            End;
        End Else ToFishing;
    End;
    Here is the deposit for fish from Al's lrc if anyone wants to help port it so it works for gold ores.

  8. #8
    Join Date
    Apr 2012
    Posts
    3,356
    Mentioned
    34 Post(s)
    Quoted
    218 Post(s)

    Default

    bump

  9. #9
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

  10. #10
    Join Date
    Nov 2011
    Location
    England
    Posts
    3,072
    Mentioned
    296 Post(s)
    Quoted
    1094 Post(s)

    Default

    Sigh, This will bring back alot of leachers if he lets you release it.

  11. #11
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    I don't like DTMs, so here is a way of doing it without them, you need to set GoldOreColour yourself to a the gold colour on the ore...
    Simba Code:
    Function GoldOreInSpot(Spot : integer) : Boolean;
    Var
      B : TBox;
    begin

      B := InvBox(Spot);
      if(CountColorTolerance(GoldOreColour, B.x1, B.y1, B.x2, B.y2, 10) > 10)then
        Result := True;

    end;

    Function GoldOreInInvent : integer;
    Var
      i : integer;
    begin

      for i := 1 to 28 do
        if(GoldOreInSpot(i))then
          inc(Result);

    end;

    Procedure Banking;
    Var
      R, FC, XP, x, y : integer;
      Points : array of TPoint;
    Begin
      If (GoldOreInInvent <> 0) Then
        Begin
          If (FindPulley(X,Y)) Then
            Begin
              FC := GoldOreInInvent;
              XP  := FC * 380;
              Writeln('Trying to bank ' + IntToStr(FC) + ' ores!');
              OnScreenUpdate;
              ClickMouse2(True);
              Wait(RandomRange(2250,2750));
              If PinScreen Then    //Its a deposit box so doesn't use pin right?
                InPin(Players[CurrentPlayer].Pin);
              Wait(RandomRange(1000,1250));
              If(FindColorsTolerance(Points, GoldOreColour, MSX1, MSY1, MSX2, MSY2, 10))Then
                Begin
                  R := Random(GetArrayLength(Points));
                  x := Points[R].x;
                  y := Points[R].y;
                  Mouse(x,y,3,3,False);
                  Wait(RandomRange(700,850));
                  ChooseOption('ll');
                  ToFishing;
                End
              Else
                ToFishing;
            End
          Else
            Begin
              SymbolAccuracy := 0.35
              FindSymbol(x,y,'bank');
              Mouse(x,y,0,0,true);
              Wait(RandomRange(1000,1300));
              SymbolAccuracy := 0.80
              Banking;
            End;
        End
      Else
        ToFishing;
    End;

    I don't understand this guys logic, but I haven't touched it...
    Last edited by putonajonny; 06-16-2012 at 01:45 PM.

  12. #12
    Join Date
    Dec 2011
    Posts
    505
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    Quote Originally Posted by tristen8878 View Post
    Here is the deposit for fish from Al's lrc if anyone wants to help port it so it works for gold ores.
    Seems kind of obvious, replace the DTM of RFish & CFish with the DTM of Gold or Replace those Words with the Gold word you have for DTM - then it would work. Remember originally it checks for Rocktails(RFish) & Cavefish(CFish). You can do either these 2 and it wouldn't have issues.

    Example:
    Simba Code:
    RFish    := DTMFromString('mrAAAAHic42BgYMhmYmDIBOJCIK4C4iIgzgHiRCCOBeLnQDV3gfgWlH4LxJ+B+AMQvwBij2APIMmEE3MBSXyYkQCGAQD1rAvw');
    CFish    := DTMFromString('mrAAAAHic42BgYLBlYmCwAmJXIPYHYg8gdgJiCyC2B2IORqAiKGYGYm4gFgJiFiD+BxRevLwASDLhxPwM+AEjAQwDAIoYBTU=');

    //This would be for Gold Ore
    GMined    := DTMFromString('mWAAAAHicY2FgYJjBxMDQB8SzgHgxEAcyMjAEAbEHEHsD8eZ+KYZEPzOGTb2SDJkh1gz8QD3ImBENgwAA4fkIew==');

    //This would be for Coal Ore
    CMined    := DTMFromString('mggAAAHicY2NgYMhjYmAoAuIkIM4C4gogLgHiJ0C52wwQ+g0QPwTiF0Csri4HxuGuBgzRnsYMWSHWDJKSwgz8QDlsmBEHhgAAKPUMHA==');

    //Free The DTMs
    FreeDTM(GMined);
    FreeDTM(CMined);

    Made changes of replacing the DTM words, It would look like this:
    Simba Code:
    Procedure Banking;
    Begin
      If (FindDTM(GMined,x,y,MIX1,MIY1,MIX2,MIY2) Or FindDTM(CMined,x,y,MIX1,MIY1,MIX2,MIY2)) Then
        Begin
          If (FindPulley(X,Y)) Then
            Begin
              If FindDTM(GMined,x,y,MIX1,MIY1,MIX2,MIY2) Then FC  := CountItems('dtm', GMined, []) Else FC  := CountItems('dtm', CMined, []);
              XP  := (FC*380);
              FFC := IntToStr(FC);
              Writeln('Trying to bank ' + FFC + ' fish!');
              OnScreenUpdate;
              ClickMouse2(True);
              Wait(RandomRange(2250,2750));
              If PinScreen Then InPin(PP);
              Wait(RandomRange(1000,1250));
              If (FindDTM(GMined, x, y, MSX1, MSY1, MSX2, MSY2) Or FindDTM(CMined, x, y, MSX1, MSY1, MSX2, MSY2)) Then
                Begin
                  Mouse(x,y,3,3,False);
                  Wait(RandomRange(700,850));
                  ChooseOption('ll');
                  ToFishing;
                End Else ToFishing;
            End Else
            Begin
              SymbolAccuracy := 0.35
              FindSymbol(x,y,'bank');
              Mouse(x,y,0,0,true);
              Wait(RandomRange(1000,1300));
              SymbolAccuracy := 0.80
              Banking;
            End;
        End Else ToFishing;
    End;
    *Note* I added Coal in there... just for fun

    Here is without the Coal Checks, Only Gold:
    Simba Code:
    Procedure Banking;
    Begin
      If (FindDTM(GMined,x,y,MIX1,MIY1,MIX2,MIY2)) Then
        Begin
          If (FindPulley(X,Y)) Then
            Begin
              If FindDTM(GMined,x,y,MIX1,MIY1,MIX2,MIY2) Then FC  := CountItems('dtm', GMined, []);
              XP  := (FC*380); //Change 380 with 65
              FFC := IntToStr(FC);
              Writeln('Trying to bank ' + FFC + ' fish!');
              OnScreenUpdate;
              ClickMouse2(True);
              Wait(RandomRange(2250,2750));
              If PinScreen Then InPin(PP);
              Wait(RandomRange(1000,1250));
              If (FindDTM(GMined, x, y, MSX1, MSY1, MSX2, MSY2)) Then
                Begin
                  Mouse(x,y,3,3,False);
                  Wait(RandomRange(700,850));
                  ChooseOption('ll');
                  ToFishing;
                End Else ToFishing;
            End Else
            Begin
              SymbolAccuracy := 0.35
              FindSymbol(x,y,'bank');
              Mouse(x,y,0,0,true);
              Wait(RandomRange(1000,1300));
              SymbolAccuracy := 0.80
              Banking;
            End;
        End Else ToFishing;
    End;

  13. #13
    Join Date
    Dec 2011
    Posts
    505
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    Quote Originally Posted by Ollybest View Post
    Sigh, This will bring back alot of leachers if he lets you release it.
    And you think the LRC that Brandon had isn't shared around? LOL He had said if anybody wants it they can ask and anybody who still has them is allowed to share them the scripts *ONLY* if they wanted to.

    Also it isn't as if LRC isn't already FULL of bots, heck PB has like 4 Banking LRC Mining Scripts for free.
    Last edited by blinkblink; 06-16-2012 at 02:16 PM.

  14. #14
    Join Date
    Apr 2012
    Location
    UK
    Posts
    269
    Mentioned
    2 Post(s)
    Quoted
    46 Post(s)

    Default

    Quote Originally Posted by blinkblink View Post
    And you think the LRC that Brandon had isn't shared around? LOL He had said if anybody wants it they can ask and anybody who still has them is allowed to share them the scripts *ONLY* if they wanted to.

    Also it isn't as if LRC isn't already FULL of bots, heck PB has like 4 Banking LRC Mining Scripts for free.
    I don't like using injection bots on my main account using colour is much safer.

  15. #15
    Join Date
    Jul 2007
    Location
    Melbourne, Victoria, Australia.
    Posts
    665
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default

    Sweet project you got here , all the best on future developments!

    Edit: hit 300 post count woot!
    Last known as Jonno.

  16. #16
    Join Date
    Nov 2011
    Location
    England
    Posts
    3,072
    Mentioned
    296 Post(s)
    Quoted
    1094 Post(s)

    Default

    Quote Originally Posted by blinkblink View Post
    And you think the LRC that Brandon had isn't shared around? LOL He had said if anybody wants it they can ask and anybody who still has them is allowed to share them the scripts *ONLY* if they wanted to.

    Also it isn't as if LRC isn't already FULL of bots, heck PB has like 4 Banking LRC Mining Scripts for free.
    Woah man you getting a tad aggressive there was just putting my point out..

  17. #17
    Join Date
    Dec 2011
    Posts
    505
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    Quote Originally Posted by tristen8878 View Post
    I don't like using injection bots on my main account using colour is much safer.
    Do you know how to read?
    I am stating the fact that there are other clients with Free LRC banking mining scripts...
    as in saying this script released to the public bringing leechers will not make any difference.

    Also if you want the color banking mining LRC script Brandon provided, just ask for it and anybody who wants to share it will PM it to you.

    @ Ollybest
    My post to you was not aggressive I am just saying the facts, now what I just replied in this post is aggressive :P
    Last edited by blinkblink; 06-16-2012 at 03:25 PM.

  18. #18
    Join Date
    Apr 2012
    Location
    UK
    Posts
    269
    Mentioned
    2 Post(s)
    Quoted
    46 Post(s)

    Default

    Quote Originally Posted by blinkblink View Post
    Do you know how to read?
    I am stating the fact that there are other clients with Free LRC banking mining scripts...
    as in saying this script released to the public bringing leechers will not make any difference.

    Also if you want the color banking mining LRC script Brandon provided, just ask for it and anybody who wants to share it will PM it to you.

    @ Ollybest
    My post to you was not aggressive I am just saying the facts, now what I just replied in this post is aggressive :P
    sweet do you recommend I try and keep it private or pm people who i can trust not to leak it.

  19. #19
    Join Date
    Apr 2012
    Location
    UK
    Posts
    269
    Mentioned
    2 Post(s)
    Quoted
    46 Post(s)

    Default

    cheers blinkblink the banking works fine

  20. #20
    Join Date
    Dec 2011
    Posts
    505
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    Quote Originally Posted by tristen8878 View Post
    cheers blinkblink the banking works fine
    You can share it with me if you want

  21. #21
    Join Date
    Apr 2012
    Posts
    3,356
    Mentioned
    34 Post(s)
    Quoted
    218 Post(s)

    Default

    Quote Originally Posted by tristen8878 View Post
    sweet do you recommend I try and keep it private or pm people who i can trust not to leak it.
    I'll run some proggies for you

  22. #22
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by tristen8878 View Post
    sweet do you recommend I try and keep it private or pm people who i can trust not to leak it.
    I think it is up to the guy who wrote the script originally, at the very least add an antileech

  23. #23
    Join Date
    Dec 2011
    Posts
    505
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    Quote Originally Posted by putonajonny View Post
    I think it is up to the guy who wrote the script originally, at the very least add an antileech
    I believe if an original script is open no antileech, if he is given permission it must remain as well *open no antileech.

    Of course that is his decision, what I explained earlier won't change & its true it won't make a difference - w84 is lag fest 24/7 - Price has been crashing for months and that won't change until Nuke.

  24. #24
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Quote Originally Posted by blinkblink View Post
    I believe if an original script is open no antileech, if he is given permission it must remain as well *open no antileech.

    Of course that is his decision, what I explained earlier won't change & its true it won't make a difference - w84 is lag fest 24/7 - Price has been crashing for months and that won't change until Nuke.
    No...?
    Since when did that rule come into account?

  25. #25
    Join Date
    Mar 2012
    Posts
    426
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by tristen8878 View Post
    Hello all I have been porting Al's LRC Fisher so that it can mine gold ore in the living rock caverns. This was a private project for me only but I have deiced to release it to public once finished. This is a port from al's LRC fisher so I can not guarantee he we let me release this yet.
    I don't mind, but in the future you might want to ask in advance before you make a thread like this. I will say if you make it public then I don't believe there should be an anti-leech. That being said, you have permission to use my code and what you do from that point on is up to you!
    - My Scripts (Beginning to Update to SRL 6) -

Page 1 of 3 123 LastLast

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
  •