From: 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:
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:
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:
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;
