Right most of u know i took some parts of other scripts and put them into mine
BUT i have delted them and scripting properly i have JADS antiban and decided not to take his randoms i used whiteshadows random guide here it it is.when it has a full load it rune away then runs back to the mine then it carrys on minning and dont drop please help even ask JAD i pmed him asking
SCAR Code:
program MyPoperAutoMiner;
{.include SRL\SRL.scar}
//JAD antiban and randoms all credit for antiban and randoms goes to him!
const
RockWait = 2000;
StartPlayer = 0; // The Number of the player that has to start.
NumberOfUsers = 1; // How many players you are using.
RockColor = 4351629;
RudeboiProggy = true;//True for proggy report
DirToRun = 'N';
Loads = 1;
FindGas = True;
Procedure DeclarePlayers;
Begin
HowManyPlayers := NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure Miner;
begin
repeat
FindColorSpiral(x, y, RockColor, 3, 3, 515, 336)
MMouse(x, y, 3, 3)
IsTextAt2(9, 9, 'Mine', 20)
Mouse(x, y, 2, 2, True)
Wait(RockWait + Random(700))
until(InvFull)
if(InvFull = True)then
end;
function Randoms: Boolean;
var
i: Integer;
begin
for i := 1 to 16 do
begin
case I of
1: CloseWindow;
2: if FindTalk then
Result := True;
3: if FindDead then
Result := True;
4: if FindMod then
Result := True;
5: if FindMime then
Result := True;
6: if FindMaze then
Result := True;
7: if FindQuiz then
Result := True;
8: if FindDemon then
Result := True;
9: if FindScapeRune then
Result := True;
10: if FindTalk then // Call it twice
Result := True;
11: if FindLamp(LampSkill) then // Maybe we missed it?
Result := True;
12: if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleNewBox;
end;
13: if FindTrade then
Result := True;
14:
begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
15: SaveToChatLog;
16: if RC then
Result := True;
end;
Wait(1);
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 dropallores;
begin
If(invfull)then
begin
dropto(2,28)
end;
end;
var
LoadsNum: Integer;
Ores: Integer;
procedure rudeboireport;
begin
if (RudeboiProggy = False) then
Exit;
if (RudeboiProggy = true) then
begin
ClearDebug;
Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
Writeln('0o0o0o0o0o0o--RudeboiProggy--o0o0o0o0o0o0o0o0o0');
Writeln(' Worked For : ' + ScriptTime2(2) + ' ');
Writeln('--------------------------------------------');
Writeln(' did ' + IntToStr(LoadsNum) + ' Loads' + ' ');
Writeln('--------------------------------------------');
Writeln(' Mined ' + IntToStr(Ores) + ' ores' + ' ');
Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
end;
end;
begin
SetupSRL;
repeat
Miner;
randoms;
until(False)
end.