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
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;
Players[0].Name :='Yanan06';//Username here
Players[0].Pass :='killppl90';//Password here
Players[0].Nick :='nan';//3 Lowercase letters of youre name
Players[0].Active:=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;
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;
var Ore, x, y: Integer;
begin
if (not (loggedin)) then
Exit;
Ore := DTMFromString('78DA63AC64666078CBC8800EFEC36820604C0' +
'7AAF98CAE86118904D2B94035CF08A8A903AA7944404D2B11E694' +
'02D5FC22A0A604A8E63E7E3500A8CD0ECB');
GameTab(4);
if (DropCeptPick = false) then
begin
repeat
if FindDTM(Ore, x, y, 820, 471, 995, 733) then
begin
MMouse(x, y, 0, 0);
wait(200 + random(100));
Mouse(x, y, 4, 6, false);
if (ChooseOption(x, y, 'rop')) then
end;
until (not (FindDTM(Ore, x, y, 820, 471, 995, 733)));
if (DropCeptPick = true) and (Players[CurrentPlayer].Boolean1 = false) then
begin
DropTo(2, 28);
end;
if (DropCeptPick = true) and (Players[CurrentPlayer].Boolean1 = true) then
begin
DropAll;
end;
end;
end;
begin
SetupSRL;
repeat
DeclarePlayers;
Miner;
LoadSandArray;
LoadSWBitMaps;
SetupSandwich;
ReleasesandWich;
GetSandQuestion;
SolveSandwich;
SolveFrog;
DropAll;
until(False)
end.
Reply With Quote
