kk ill answer these questions..
1. yes i have, a powerminer, autocoinpicker and just now made a power fisher..if you dont beleve me go to this address for the powerminer"http://www.srl-forums.com/forum/ashur2goods-powerminer-t8957.html"
(without the "")(coin haven't released on srl..yet)
2. SRL for the power miner but the coin picker im releasing now on SRL to should you should be seeing that soon, and the im selling the power fisher to that guy if he wants it..
3.nope
here is a example of my powerminer:
// A SSSSSSSSSSS H H U U RRRRR //
// A A S H H U U R R //
// A A S H H U U R R //
// A A S H H U U R R //
// AAAAAAAAA SSSSSSSSSSSSSS HHHHHHHHHHHH U U RRRRRRRRR//
// A A S H H U U R R //
// A A S H H U U R R //
// A A S H H U U R R //
//A A SSSSSSSSSSSSS H H UUUUUUUUUUU R R //
////////////////////////////////////////////////////////////////////////////
//This is my auto iron miner in varrock east mining area //
// Instructions: //
//Set up lines
//Set player(s) in the middle of the 2 iron rocks //
//Set on low detail and on v-bright //
//Set to most north and camera highest angle //
//Change the iron colour if it does not find the iron //
//Have pick axe in invent or weilded(can have 2 in first invent slots max!//
//Sit back and enojoy //
// Auto Miner History: //
//1.0:First release of beta(Credit to Marcus and JAD for Helping
ty ty //
//1.4:Big change added player and talking procedure and many more to script/
//also thanks to pennti for helping out with the script
//
////////////////////////////////////////////////////////////////////////////
program AutoMining;
{.include SRL/SRL.scar}
{.Includes/SRL/SRL/Core/Antiban.scar}
{.include SRL/SRL/Skill/Mining.scar}
var
loadz : integer;
const
IronColour=1976901;//Change this if it cannot find the iron ore
procedure DeclarePlayers;
begin
HowManyPlayers := 6; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='User Name';//Name Goes Here
Players[0].Pass :='Password';//PassWord Goes Here
Players[0].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True If Using, False If Not
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True;
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active:=True;
End;
procedure LoggingIn;
begin
SetUpSRL;
DeclarePlayers;
LoginPlayer;
end;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('E');
Wait(10000 + random(2000));
RunBack;
Writeln('Found a random!')
end;
end;
procedure Talk;
begin
SendKeys('Hey, Mining lvls?'+chr(13));//Talking to people!
Wait(10000+random(1000));
Writeln('Talking...')
SendKeys('Ah ok im 52 :S'+chr(13));//Talking about lvl!
end;
procedure RepeatClicking;
begin
repeat
if FindObj(x,y,'ine',IronColour,5)then
MMouse(x,y,0+random(2),0+random(3));
wait(1000+random(100));
Mouse(x,y,2,2+random(3),true);
DoAntiRandoms;
Writeln('Mining...');
Wait(1000+random(100));
Talk;
until(InvFull);
end;
procedure Drop;
begin
DropTo(3,28);
Writeln('Droping...');
Loadz := Loadz + 1;
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
RepeatClicking;
Drop;
until(false);
end.
NOTE: it would be better to go to the address..and dw about the sorry bit alot of people would fink im a sad noob copying people
