Running now, I took a break to get some range xp luckly right before the update broke the script. Back to getting 99 mining for me. Averaging almost 28k xp for an hour now. I'm not running in the normal place, I'd have over 30k if I was.
works fine!
~~~~~~~~~~~~Almost AIO PowerMiner~~~~~~~~~~
~By BMWxi~
Tin Mined: 164 (332 P/H)
Mining XP earned: 2870 (5810 P/H)
Total Time: 29 Minutes and 34 Seconds
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
gonna keep the script running untill i get a big proggy!
Thanks for the script!
Glad you like it![]()
~~~~~~~~~~~~Almost AIO PowerMiner~~~~~~~~~~
~By BMWxi~
Tin Mined: 2544 (325 P/H)
Mining XP earned: 44520 (5688 P/H)
Total Time: 7 Hours, 49 Minutes and 26 Seconds
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
from around 33 to 46 mining
altho that 7 hours would do more .. but my connection went done for an hour or so.
but still your such a great Guy for the great script, i hope we could see more coming from you ;D!
Thanks, and I will be releasing an AK smelter soon, but I'm holding off because isn't very stable yet. When that is released I'll probably make a cooking script, but I want to see where a good place is besides AK, because the oven there is filled with bots and places like that are being targeted.
Would this work on a private server? Thanks in advance!
i dont think because of a different source code?( the newbie speaks)
My first 25 hour proggy, forgot my varrock chest so I gave up some xp.
Iron Mined: 18410 (735 P/H)
Mining XP earned: 644350 (25725 P/H)
Total Time: 25 Hours, 1 Minutes and 54 Seconds
BMW when will the drop bug be fixed ?
thnx for the reply![]()
How it work mijn won't work. he doesn't open wen he loged in
Pls help i he logged in he won't does someting pls help
Nice script mate next try to work with arrays they will help reduce repeating lines of code for example your mining and proggy procedures repeated alot when you could of just easily of turned the exact procedures into an universal one's instead with the use of arrays.
Here's a quick altered version to show you.
Simba Code:Program AIOPowerMiner;
{$DEFINE SMART}
{$i srl/srl.simba}
Const
Rock = 'iron'; //What rock to mine. Valid options are: 'clay', 'copper', 'tin', 'iron', 'coal', and 'gold'.
//If you'd like me to add more options, PM me or post in the thread you downloaded this script from.
Pick = 'store';//Wield your pick or have it in your inventory? Valid options are: 'wield' or 'store'.
Gems = 'drop'; //Drop Gems or keep them in your inventory? Valid options are: 'drop' or 'keep'. Dropping is reccomemded to mine longer.
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; // Player username
Pass := ''; // Player password
BoxRewards := ['XP', 'ostume', 'mote', 'oins', 'une', 'ssence'];
LampSkill := Skill_Mining;
Active := True;
end;
end;
{Created this object to store info for each ore}
type
OreObj = record
Col:array of integer;
Uptxt:array of string;
end;
Var
OreInfo:OreObj;//Stores info of ores Defined in your MineOre Proc
OreMined:integer;//Counts Total of ores Mined( just liek before but you use one variable
OreXp:extended;// Xp Per ore Defined in your MineOre Proc
Procedure StartLogin;
begin
ClearDebug;
{$IFDEF SMART}
{$IFDEF SIMBAMAJOR980}
Smart_Server := 10;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ELSE}
SRL_SixHourFix := True;
Smart_FixSpeed := True;
{$ENDIF}
{$ENDIF}
DeclarePlayers;
LoginPlayer;
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
end;
Procedure CheckFriends; //An Antiban Procedure by BMWxi
Var
NCx, NCy, ONx, ONy :Integer;
begin
if not LoggedIn then LoginPlayer;
if (not LoggedIn) or (InvFull) then Exit;
gametab(tab_friends); //Goes to friends tab
If FindColorTolerance(NCx, NCy, 16683035, 546, 246, 722, 451, 5) Then // Checks if they have changed names,
begin // if they have, It hovers to find their new name.
MMouse(NCx, NCy, 5, 5);
Wait(RandomRange(1000, 2000));
end;
If FindColorTolerance(ONx, ONy, 6619135, 546, 246, 722, 451, 5) Then //Checks to see if friends are online
begin //hovers the names of online friends
MMouse(ONx, ONy, 5, 5);
Wait(RandomRange(1000, 2000));
end else
begin
Wait(RandomRange(500, 1000)); //I added this so It doesn't spam-exit when you have no friends :)
end;
FTab(tab_Inv); //Returns to inventory
end;
procedure Antiban;
begin
if not LoggedIn then LoginPlayer;
if not LoggedIn then Exit;
FindNormalRandoms;
case Random(90) of
0: HoverSkill(skill_mining,false);
1: CheckFriends;
2: PickUpMouse;
3: RandomMovement;
4: BoredHuman;
5: ExamineInv;
6: MakeCompass('rand');
7: SetAngle(SRL_ANGLE_HIGH);
8: Wait(5000+random(2000));
9..15: HoverSkill(skill_mining,false);
end;
end;
{ made you mining procedure Universal}
Procedure MineAll;
Var
x, y, OreCounter, PlusOne: Integer;
begin
if not LoggedIn then LoginPlayer;
if (not LoggedIn) or (InvFull) then Exit;
FindNormalRandoms;
If FindObjCustom(x, y, OreInfo.Uptxt, OreInfo.Col, 3) Then
Begin
ClickMouse2(False);
WaitOption(OreInfo.Uptxt[0], 500);
Flag;
MarkTime(OreCounter);
PlusOne:= InvCount + 1
Repeat
wait(100);
Until(InvCount=PlusOne) Or (TimeFromMark(OreCounter) > 10000);
OreMined := OreMined + 1
SendKeys('1', 12+ Random(12), 12+ Random(12)); //Thanks Laimonas!
End;
End;
{made your proggy universal to fit your new/old mining procedure}
Procedure Proggy;
var
MiningXPPH,PH:Integer;
begin;
if not LoggedIn then LoginPlayer;
if (not LoggedIn) or (InvFull) then Exit;
PH := Round((OreMined * 3600) / (GetTimeRunning / 1000));
MiningXPPH := Round(PH * OreXp);
ClearDebug;
Writeln('~~~~~~~~~~~~Almost AIO PowerMiner~~~~~~~~~~');
Writeln(' ~By BMWxi~ ');
Writeln(Rock+' Mined: ' + IntToStr(OreMined) + ' (' + IntToStr(PH) + ' P/H)'); //
Writeln('Mining XP earned: ' +ToStr(OreMined * OreXp) + ' (' + IntToStr(MiningXPPH) + ' P/H )');
Writeln('Total Time: ' + TimeRunning);
Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
Procedure DropGems;
begin
if not LoggedIn then LoginPlayer;
if (not LoggedIn) then Exit;
case Lowercase (Gems) of
'keep':
begin
WriteLn('Inv Full of Gems');
end;
'drop':
begin
DropAllExcept([1]);
end;
end;
end;
Procedure MineOre;
begin
if not LoggedIn then LoginPlayer;
if (not LoggedIn) or (InvFull) then Exit;
case Lowercase (Rock) of
'copper':
begin
OreXp:=17.5;
SetLength(OreInfo.Col,3);
OreInfo.Col:=[5083645, 4423387, 4489182];//Copper
OreInfo.Uptxt:=['ne Co'];
Repeat
MineAll;
Proggy;
Antiban;
Until(InvFull);
end;
'tin':
begin
OreXp:=17.5;
SetLength(OreInfo.Col,2);
OreInfo.Col:=[9935006, 10921645];//Tin
OreInfo.Uptxt:=['ne Ti'];
Repeat
MineAll;
Proggy;
Antiban;
Until(InvFull);
end;
'clay':
begin
OreXp:=5;
SetLength(OreInfo.Col,3);
OreInfo.Col:=[7383241, 7251654, 7647184];//Clay
OreInfo.Uptxt:=['ne Go'];
Repeat
MineAll;
Proggy;
Antiban;
Until(InvFull);
end;
'iron':
begin
OreXp:=35;
SetLength(OreInfo.Col,3);
OreInfo.Col:=[3557756, 3491704, 2832994];//Iron
OreInfo.Uptxt:=['ne Ir'];
Repeat
MineAll;
Proggy;
Antiban;
Until(InvFull);
end;
'gold':
begin
OreXp:=65;
SetLength(OreInfo.Col,3);
OreInfo.Col:=[5099773, 5099773, 4304853];//Gold
OreInfo.Uptxt:=['ne Go'];
Repeat
MineAll;
Proggy;
Antiban;
Until(InvFull);
end;
'coal':
begin
OreXp:=50;
SetLength(OreInfo.Col,2);
OreInfo.Col:=[2895406, 2105633];//Coal
OreInfo.Uptxt:=['ne Co'];
Repeat
MineAll;
Proggy;
Antiban;
Until(InvFull);
end;
end;
end;
begin
SRL_SixHourFix := True;
SetupSRL;
DeclarePlayers;
Repeat
StartLogin;
CheckFriends;
Repeat
if not LoggedIn then LoginPlayer;
MineOre;
DropGems;
Until(not LoggedIn) or (InvFull);
LoginPlayer;
Until(InvFull);
end.
Pls make a video for me i dont't get it how it works with "Fill out the contants on line 8 and 11 with the rock that you want to mine and if you want to wield or store your pick in your inventory"
I'm dutch and don't know what to do ???
There are currently 1 users browsing this thread. (0 members and 1 guests)