ok i've screwed up a repeat in my powerminer to be banker somewhere in the mineing section and i can't get it right can someone please edit. thx.
by the way anti ban and randoms aren't mine havn't put in credits yet. this script isn't done so will get all that sorted soon. thankyou very much.
SCAR Code:
//////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
// THE NOOBIEST //
// POWERMINER //
// BY RKROXPUNK //
// //
////////////////////////////////////////////////////
///////////////////////////////////////////////////
program PowerMiner;
{.include SRL/SRL.scar}
{.include srl\srl\skill\Mining.scar}
////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
// LOGIN AND SETUP //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
const StartPlayer = 0;
VersionNumber = '2';
OreeColor = 4484245; //put the colour of the ore you want to mine here
WaitTime = 7000; //how long before it clicks again
RunDirec = 'N'; //Direction you want to run in case of fight
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer := StartPlayer;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Loc := 'Loc1';
Players[0].Skill := 'Mining';
Players[0].Active := True;
writeln(inttostr(HowManyPlayers) + ' Players');
end;
////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
// RANDOMS AND ANTIBAN //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
procedure FindRandoms;
var
TimeMark: Integer;
Talk: Integer;
begin
if FindGas(x, y) then
begin
RunAwayDirection(RunDirec);
Wait(5000 + random(1500));
RunBack;
end;
for Talk := 1 to Time do
begin
Wait(500 + random(100));
FindTalk;
FindNewBox;
Wait(40)
SolveBox;
Wait(30)
end;
begin
MarkTime(TimeMark);
Wait(1500 + random(100));
FindNormalRandoms;
if (TimeFromMark(TimeMark) > 30000) then
Exit;
end;
if (FindFight = true) then
begin
RunAwayDirection(RunDirec);
Wait(10000 + random(2000));
RunBack;
end;
end;
function DoAntiBan: Boolean;
begin
AntiBan;
wait(50 + random(100));
BoredEvery(3 + random(3));
wait(100 + random(100))
RotateEvery(7 + random(4));
wait(750 + random(250));
LeaveScreenEvery(5 + random(7));
wait(500 + random(150));
end;
////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
// MINEING AND DROPPING //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
function FindOre: Boolean;
begin
if FindColorSpiral(x, y, OreeColor, 0, 0, 515, 336) then
begin
Result := True;
Status('Found Ore :D');
end else
Status('Did not find Ore :(');
wait(5 + random(5));
end;
function MouseToOre: Boolean;
begin
repeat
if (FindOre) then
begin
MMouse(x, y, 0, 0);
Result := True;
Wait(20 + random(150));
Exit;
end;
until (false)
end;
procedure ClickRock;
begin
if (MouseToOre = true) then
begin
Mouse(x, y, 0, 0, True)
Wait(WaitTime + random(100));
end;
end;
procedure Drop;
begin
if (InvFull) then
DropTo(2, 28);
end;
////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
// MAIN LOOP //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
begin
SetupSRL;
SetupSRLMining;
DeclarePlayers;
LoginPlayer;
begin
LoginPlayer
MakeCompass('N');
HighestAngle;
SetRun(true);
end;
repeat
FindOre;
MouseToOre;
ClickRock;
while (MouseToOre) do
begin
FindRandoms;
DoAntiBan;
end;
Drop;
until (false);
end.
also suggestions about what's unnecessary, could change and would like to see be added.