Porting Al's LRC Fisher to LRC Miner

Printable View

Show 40 post(s) from this thread on one page

06-15-2012, 07:58 PM
tristen8878

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 :)

http://scapecenter.webs.com/mning.png

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 :spot:
06-15-2012, 08:07 PM
Benny

Ah weird thing is i just asked Al about it.

Does it work well?

Good work!

Quote:

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;

06-15-2012, 08:16 PM
tristen8878

Quote:

Originally Posted by -Benny

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
06-15-2012, 08:44 PM
Benny

ah well i'm really looking forward to this. :) lemme know if i can help
06-15-2012, 08:45 PM
putonajonny

Quote:

Originally Posted by tristen8878

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?
06-15-2012, 08:57 PM
tristen8878

Quote:

Originally Posted by putonajonny

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.
06-16-2012, 12:23 PM
Benny

bump
06-16-2012, 12:28 PM
Ashaman88

Did you ask permission before posting about this?
06-16-2012, 12:57 PM
Olly

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

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

Quote:

Originally Posted by tristen8878

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;

06-16-2012, 02:13 PM
blinkblink

Quote:

Originally Posted by Ollybest

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.
06-16-2012, 03:14 PM
tristen8878

Quote:

Originally Posted by blinkblink

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.
06-16-2012, 03:17 PM
Ezio Auditore da Firenze

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

Edit: hit 300 post count woot!
06-16-2012, 03:21 PM
Olly

Quote:

Originally Posted by blinkblink

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..
06-16-2012, 03:21 PM
blinkblink

Quote:

Originally Posted by tristen8878

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
06-16-2012, 03:31 PM
tristen8878

Quote:

Originally Posted by blinkblink

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.
06-16-2012, 03:39 PM
tristen8878

cheers blinkblink the banking works fine :)
06-16-2012, 03:53 PM
blinkblink

Quote:

Originally Posted by tristen8878

cheers blinkblink the banking works fine :)

You can share it with me if you want
06-16-2012, 04:38 PM
Benny

Quote:

Originally Posted by tristen8878

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 :)
06-16-2012, 04:41 PM
putonajonny

Quote:

Originally Posted by tristen8878

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
06-16-2012, 05:15 PM
blinkblink

Quote:

Originally Posted by putonajonny

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.
06-16-2012, 05:18 PM
Sin

Quote:

Originally Posted by blinkblink

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?
06-16-2012, 05:27 PM
iBlank

Quote:

Originally Posted by tristen8878

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!
06-16-2012, 05:42 PM
blinkblink

Quote:

Originally Posted by Shay

No...?
Since when did that rule come into account?

Did I say it was a Rule? I said I believe, as in my own beliefs :P

Either way alevere4 just responded
"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!"
06-16-2012, 09:08 PM
tristen8878

Quote:

Originally Posted by alevere4

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!

thanks
06-16-2012, 09:10 PM
Benny

Quote:

Originally Posted by tristen8878

thanks

how's script coming along?
06-16-2012, 09:18 PM
tristen8878

Quote:

Originally Posted by -Benny

how's script coming along?

Changing paint so it's for mining and testing the run paths when you are attacked.
06-16-2012, 09:20 PM
Benny

Quote:

Originally Posted by tristen8878

Changing paint so it's for mining and testing the run paths when you are attacked.

sweet looking forward to seeing some mean proggies
06-16-2012, 09:23 PM
iBlank

Just my opinion, but I don't like the new poll. I think you should either make it public or keep it to yourself. The whole "limited amount of trusted people" is not very fair in my opinion and devalues the community. If you become a SRL member and release it in the member's section then that is fine but the "limited amount of trusted people" is too arbitrary and there is no fair way to decide who receives the script.
06-16-2012, 09:24 PM
tristen8878

Quote:

Originally Posted by -Benny

sweet looking forward to seeing some mean proggies

It's almost done but I do think it still needs a lot of work if am going to release it soon. Ill pm you the script once i think it's done so you can do some testing aswell.
06-16-2012, 09:25 PM
Benny

Quote:

Originally Posted by tristen8878

It's almost done but I do think it still needs a lot of work if am going to release it soon. Ill pm you the script once i think it's done so you can do some testing aswell.

Have you implemented any fail safes and sounds good with me man
06-16-2012, 09:25 PM
tristen8878

Quote:

Originally Posted by alevere4

Just my opinion, but I don't like the new poll. I think you should either make it public or keep it to yourself. The whole "limited amount of trusted people" is not very fair in my opinion and devalues the community. If you become a SRL member and release it in the member's section then that is fine but the "limited amount of trusted people" is too arbitrary and there is no fair way to decide who receives the script.

good point
06-16-2012, 09:32 PM
imnewhere

can some1 help me with this error compiling there is an error : Running MSI...
[Error] C:\Simba\Includes\srl/srl/misc/paintsmart.simba(560:12): Unknown identifier 'TPAFromEllipse' at line 559
Compiling failed.
[Error] (41:3): Unknown identifier 'SmartSetDebug' at line 40
Compiling failed.
[Error] (41:3): Unknown identifier 'SmartSetDebug' at line 40
Compiling failed.
Running MSI...
[Error] C:\Simba\Includes\srl/srl/misc/paintsmart.simba(560:12): Unknown identifier 'TPAFromEllipse' at line 559
Compiling failed.

thanks
06-16-2012, 09:33 PM
Benny

Quote:

Originally Posted by imnewhere

can some1 help me with this error compiling there is an error : Running MSI...
[Error] C:\Simba\Includes\srl/srl/misc/paintsmart.simba(560:12): Unknown identifier 'TPAFromEllipse' at line 559
Compiling failed.
[Error] (41:3): Unknown identifier 'SmartSetDebug' at line 40
Compiling failed.
[Error] (41:3): Unknown identifier 'SmartSetDebug' at line 40
Compiling failed.
Running MSI...
[Error] C:\Simba\Includes\srl/srl/misc/paintsmart.simba(560:12): Unknown identifier 'TPAFromEllipse' at line 559
Compiling failed.

thanks

wrong place to post... try the MIS section thanks
06-16-2012, 09:36 PM
ABC!

I have looked at the poll, and when you say give it to a limited number of people, do you mean just SRL members? or are you going to add anti-leech and release it to the public?
06-16-2012, 09:38 PM
tristen8878

Quote:

Originally Posted by ABC!

I have looked at the poll, and when you say give it to a limited number of people, do you mean just SRL members? or are you going to add anti-leech and release it to the public?

Am probs going to make it public still deciding atm
06-17-2012, 10:22 AM
ABC!

Quote:

Originally Posted by tristen8878

Am probs going to make it public still deciding atm

Ohh, okay, are you going to add anti-leech?
06-17-2012, 07:11 PM
tristen8878

Quote:

Originally Posted by ABC!

Ohh, okay, are you going to add anti-leech?

Not sure yet?

Show 40 post(s) from this thread on one page