SCAR Code:
program MyWorkingPowerMiner;
{.include SRL\SRL.scar}
//JAD antiban is in here credits for that goes to him
//Ore Color needed on line 23
//Mannal ore color is better
//Must were weildable pick
//CopperColor = 4286610;
//TinColor = 9277080;
//ClayColor = 4553880;
//IronColor = 1910851;
//SilverColor = 12434885;
//CoalColor = 2834753;
//GoldColor = 1881051;
//MithrilColor = 7359564;
//AdamantColor = 6322272;
//RuniteColor = 8681306;
const
RockWait = 6000;//Time to hit rock again change if to fast
NumberOfUsers = 1;//can only do one 1 at the moment
StartPlayer = 0;//Cant be anything else at the moment
RockColor = 4747162;//use ore color above for what u want to powermine
Loads = 2;//How many loads to do
DropCeptPick = false; //if set to true then it will drop everything except
//pick. if false will use DTM's to only drop ores.
RunDir = 'S'; // RunDirection, choose it wisely.
{--------------------------------------------------------
Procedure DeclarePlayers;
--------------------------------------------------------}
Procedure DeclarePlayers;
Begin
HowManyPlayers := NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
// delete the player forms you are not using or it wont work
Players[0].Name :='Username';//Username here
Players[0].Pass :='Password';//Password here
Players[0].Nick :='3-4letters of youre username';//3 Lowercase letters of youre name
Players[0].Active:=True;
Players[1].Name := 'UserName';
Players[1].Pass := 'Password';
Players[1].Nick := '3-4 letters of UserName';
Players[1].Active := True;
Players[2].Name := 'UserName';
Players[2].Pass := 'Password';
Players[2].Nick := '3-4 letters of UserName';
Players[2].Active := False;
Players[3].Name := 'UserName';
Players[3].Pass := 'Password';
Players[3].Nick := '3-4 letters of UserName';
Players[3].Active := True;
Players[4].Name := 'UserName';
Players[4].Pass := 'Password';
Players[4].Nick := '3-4 letters of UserName';
Players[4].Active := True;
Players[5].Name := 'UserName';
Players[5].Pass := 'Password';
Players[5].Nick := '3-4 letters of UserName';
Players[5].Boolean1 := True;
end;
procedure Miner;
begin
repeat
FindColorSpiral(x, y, RockColor, 14, 19, 495, 325)
MMouse(x, y, 3, 3)
IsTextAt2(9, 9, 'Mine', 20)
Mouse(x, y, 2, 2, True)
Wait(RockWait + Random(300))
until(InvFull)
if(InvFull = True)then
end;
procedure Randoms;
begin
TalkToRand;
FindNormalRandoms;
if (FindFight) then
begin
RunWhere(RunDir, false);
Wait(10000 + random(200))
RunBack;
end;
begin
RunWhere(RunDir, false);
Wait(2000 + random(1000));
RunBack;
WriteLn('Waiting For Gas to Stop ..');
Wait(10000 + random(2000));
end;
if (FindNewBox) then
begin
writeln('Found Strange Box Trying To Solve..')
OpenBox;
SolveBox;
wait(1000);
end;
if (FindNewBox) then
begin
GambleNewBox;
end;
if (FindNewBox) then
begin
LogOut;
Writeln('Unable To Solve Box....Terminating');
TerminateScript;
end;
begin
LoadSandArray;
LoadSWBitMaps;
SetupSandwich;
ReleasesandWich;
GetSandQuestion;
SolveSandwich;
SolveFrog;
end;
end;
procedure ProgressReport;
var
clicks: integer;
begin
ClearDebug;
Writeln('[]========================================[]');
Writeln('---------------->Thanks for using my scripty<----------------');
Writeln(' did ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('[]========================================[]');
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;
procedure Dropore;
begin
DropAll;
end;
begin
SetupSRL;
repeat
DeclarePlayers;
Miner;
LoadSandArray;
LoadSWBitMaps;
SetupSandwich;
ReleasesandWich;
GetSandQuestion;
SolveSandwich;
SolveFrog;
ProgressReport;
Dropore;
until(False)
end.
Mine wont work help please +rep