PDA

View Full Version : [SRL][RS2]Masterdests simple autominer



masterdest
12-14-2006, 01:14 PM
This is the M.S.A.M (Masterdests Simple Auto Miner) well it's reley just a powerminer for now but will add more features in time. It doesn't have a gas finder (can't figure out how to put it in) It should switch players if you die or lose your pick. Was going to make it log out at certain intervals but not sure how. So! if you can answer any of my questions please post.
I love comments! (good or bad)

Oh and i updated it now look at the attachment.

masterdest
12-15-2006, 11:43 PM
no one likes it?

Dadeer
12-16-2006, 12:42 AM
im testing it right now ill tell you how it works
and
it doesnt work
you should use this instead
program MSAM;
{"Masterdests.simple.auto.miner"
start logged out for bes results
set up players and rock color
pick in first inventory spot
must have same pick and rock type for all players for now}

{.include SRL/SRL.scar}
{.include SRL/SRL/skill/mining.scar}
const
tincolor = fillin;
coppercolor = fillin;
thyrock = 5212121;//rock color on main screen
//********

Procedure DeclarePlayers;

Begin
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;

Players[0].Name :='username';
Players[0].Pass :='password';
Players[0].Nick :='nick';
Players[0].Loc :='location';
Players[0].Skill:='skill';
Players[0].Active:=True;


Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
End;


//********************MINING************************
procedure HitThatRock;
begin
repeat
if not loggedin then break;
//
wait(500+random(200))
if (FindColorTolerance(x, y, OreColor, MSX1, MSY1, MSX2, MSY2,1)) Then
mouse(x,y,3,3,true)
wait(4000)
FindPick;
//
findnormalrandoms;
//



until(invfull)
end;
//------------------------------------------------------
procedure Oredrop;
begin
DropTo(2,28)
end;
//------------------------------------------------------
procedure TheAntiban;
begin
Antiban;
end;
//------------------------------------------------------
begin
setupSRL;
SetupSRLMining;
DeclarePlayers;
if not loggedin then loginplayer;
FindPickHeadColor;
repeat
if not loggedin then break;
HitThatRock;
TheAntiban
Oredrop;
if (not(Loggedin)) then NextPlayer(false);
until(false)
end.

masterdest
12-16-2006, 04:41 AM
thanks for posting but not sure where you were heading

Wool
12-29-2006, 05:29 AM
Alright, well your script is decent except you should add some antirandoms in there. Also you should add some "randomness" to it lol, and if you want it to switch players you need more than one player in the setup, maby about 4 or 5. To switch players at a certain point you could do somthing like this...



var
loads : integer; //Declare loads an integer


const
switch= 10; //Number of loads droped before switch player


procedure Oredrop;
begin
DropTo(2,28)
drop:=I+27
writeln( IntToStr ( drop ) + ' ores dropped' );

Loads:= Loads+ 1 //Add Somthing like this to record the number of loads droped
end;


//In loop you should have somthing like this\\

If (loads=switch) then //If the times droped = the const switch then itll log next player
NextPlayer(true)


Any problems or if you dont understand just PM me and ill try to clear it up :D