Breaking down from my current project I'm working on "East Varrock Miner and Banker" I coded a Power Miner.
Simply it mines the ore you choose, drops when its a full inventory and repeats. If the bot is being attacked, it runs away.
I find this script a little more risky than anything though, because it makes it pretty obvious you're botting when the bot just drops the ore and keeps mining. This is just to skill up mining.
Simba Code:
program SimplePowerMiner;
{$I SRL/SRL.Simba}
{$I P06Include/P06Include.Simba}
// **Simple Power Miner 0.1**
// By Sneakdella
// Mines, Drops and repeats
//
//
// Version 0.1 contains - Mining the rock
// dropping the inventory except slot one
// choosing the rock you want to mine
// Runs Away When Attackted
// ********* SETUP ***********
const
ROCK_COLOR = 1910335 ; // Set the rock color with the color picker and enter it.
var
X, Y: Integer; // Don't touch this
Procedure P06_DeclarePlayer;
Begin
P06_PlayerName:='username';
P06_PlayerPass:='password';
End;
// ********* END OF SETUP ******
// DON'T TOUCH ANY OF THE BELOW AND MINE AWAY MY FRIENDS!
procedure MineOre;
begin
if P06_InvEmpty then;
begin repeat
if findcolortolerance(X,Y,ROCK_COLOR,0,0,515,338,5) then
begin
MMouse(X,Y,5,5);
If (P06_IsUpTextMultiCustom(['Mine Rock','ine Rock', 'ne rock'])) Then
ClickMouse2(mouse_left);
wait(7000 +random(200));
end;
until (P06_InvFull);
end;
end;
Procedure DropOre;
begin
P06_DropAllExcept([0]);
end;
procedure AntiRandom;
begin
if findcolortolerance(X,Y,65280, 245, 130, 285, 195,5) then
begin
writeln('Attacker detected.');
mouse(675,125,3,3,true);
wait(12000+random(5000));
mouse(617,8,3,3,true);
writeln('Ran away from attacker.');
end;
end;
begin
P06_DeclarePlayer;
SetupP06Include;
ActivateClient;
If (Not P06_LoggedIn) Then
begin repeat
P06_LogInPlayer;
until P06_LoggedIn;
end;
repeat
MineOre;
DropOre;
until false;
end.