thebob142
2008-04-27 22:06:49
i made a power miner and i don't know if it works because i keep getting file acces error please test.
program Powerminer;
{.include SRL/SRL.scar}
var
Iron: integer;
procedure DTMs;
begin
Iron := DTMFromString('78DA6314666060E0614001C652820C5C409A1' +
'188FF0301A31490C1CA8006189148202D09248409A801D923CA80' +
'15C0D5B001092EFCE60000D15B050D');
end;
const
RockColour1= 111111;
RockColour2= 222222;
var x, y, Tries: integer;
Procedure DeclarePlayers;begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0
Players[0].Name := 'Username';//your username
Players[0].Pass := 'Password';///your password
Players[0].Nick := 'pot';///3-4 letters from your name
Players[0].Active := True;///are you using this player false if not
end;
Procedure AntiRandoms;
begin
if(FindFight)then
RunAway('N', True,1,15000);
FindNormalRandoms;
FindLamp('Mining');
end;
Procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(30) of
1: RandomRClick;
2: HoverSkill('Mining',False);
3: RandomMovement;
4: BoredHuman;
5: AlmostLogout;
6: DoEmote(400 +Random(90));
end;
end;
Procedure RockMining;
begin
if not LoggedIn then
Exit;
AntiRandoms;
if (not (FindObjCustom(x, y, ['Mi', 'ne'], [RockColour1, RockColour2], 7))) then
wait(100+random(100));
Tries :=Tries + 1;
if(Tries = 5) then
begin
Logout;
Exit;
end else
if FindObjCustom(x, y, ['Min', 'ine'], [RockColour1, RockColour2], 7) then
repeat
case (Random(2)) of
0: begin
Mouse(x, y, 4, 4,false);
ChooseOption('ine');
end;
1: Mouse(x, y, 4, 4, True);
end;
until (InvFull)
end;
Procedure TheRocks;
begin
if FindDTM(Iron, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Mouse(x, y, 5, 5, false);
ChooseOption('rop');
end;
end;
begin
SetupSRL;
DTMs;
TheRocks;
FreeDTM(iron);
end.
repeat
RockMining;
TheRocks;
AntiBan;
until (False)
end.