Yeah, looks like a good script. All you have to do now is add auto-colour (I'm english) so people down't have to set the colour of the rocks.
Good job.
DR
EDIT: I'm bored so I decided to put the script in scar tags for you and did some editing to make it look nicer (I really am bored...):
program PowerMiner;
SCAR Code:
(.include SRL/SRL.scar)
Const
rockcolor1= '';//set the color of the rock
rockcolor2= '';//set 2nd color of the rock
Var
x,y: integer;
Procedure DeclarePlayers; // this procedure is used to log players in
Begin
HowManyPlayers :=1; //set the Number of players here.
NumberOfPlayers(howManyPlayers); //sets the players array length;
CurrentPlayer:=0 //currentPlayer = array index
Players[0].Name :=Rune_Minorz;//USERNAME
Players[0].Pass :=password1;//PASS
Players[0].Nick :=orz;//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
Players[0].Active:=True;//PLAYER IN USE OR NOT
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Procedure Randoms;
Begin
FindTalk; //finds talkin randoms
FindNormalRandoms; //finds normal randoms
SolveChatRandom; //sloves chat randoms
FindLamp(mining); //solves lamp and then choses a skill to update
SolvePinball; //solves pinball random
DwarfItem; //dropes dawalf items
If(FindFight)Then //runs away from fight
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
RunBack;
End;
End;
Var
x,y,randomm: integer;
Procedure antiban;
Begin
randomm := Random(4)
case randomm of
0: Begin
Wait(3591+(random(287)));
RandomRClick;
Wait(3591+(random(287)));
HighestAngle;
RandomlyChosenSkill;
Randoms
end;
1: Begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
2: Begin
Wait(3294+(random(873)));
Randoms;
HoverSkill('Woodcutting' ,false);
Wait(3294+(random(873)));
end;
3: Begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
end;
end;
Procedure minerock;
Begin
If not LoggedIn then
Exit;
Repeat
if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
begin
Mouse(x,y,0,0,false);
Wait(500+(random(150)));
ChooseOption('ine')
randoms
antiban;
writeln('found rock');
end else
writeln('couldnt find rock');
randoms;
antiban;
antiban;
antiban;
Until( InvFull )
end;
Begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
Repeat
minerock;
Drop;
Until (IsFKeyDown(3));
end;
end.