corl455
2007-09-15 01:04:09
this is my power miner, its my 2nd script. it not to complicated.
here is a proggie i made:
~~~~~~~Corl45s Auto miner~~~~~~~~~~~~~~~~
|time ran: 0:8:6
|old mining lvl: 26
|new mining level: 27
|Loads done: 2
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if you dont want to download…..
all anti randoms go to WT-Fakawi.
here is a proggie i made:
~~~~~~~Corl45s Auto miner~~~~~~~~~~~~~~~~
|time ran: 0:8:6
|old mining lvl: 26
|new mining level: 27
|Loads done: 2
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if you dont want to download…..
program Corl45spowerminer;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
//**************************corl45's Power miner!***********************
{1.LOG ON to your guy
2.have pick weilded or un-weilded (if it is not. it wont drop 2 extra ores)
3.it doesnt drop last row, i think its srl not me
4. set color, loads, random time, and wait time.
--------------------------------------------------------------------------------
i plan on addid 2 or colors (two ores)
if it cant find the color, it will freeze, so if he mines to fast it will freeze
for now, just pause and un-pause and it should work (if ore came back)
this only works with old rocks (non-dirt covered); i tested in dwafen mine.
_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=
Thanks to:
streX for giveing me the idea of a power miner.
Srl team
}
//*************************User Defines***********************************************************
//<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
const
color1 = 2832734;// color of ore you will be mining
// ^current, iron. you might need to chose color every time you get on(even if you save)
loadstodo = 5;// how many load before scrip terminates
waitore = 10000;//how much time to wait before clicking on next ore(in miliseconds)
randomtime = 500;//random time added to wait (in miliseconds)
//<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
//***************************END USER DEFINES****************************************************
var
oldlvl: Integer;
currentlvl: Integer;
H: Integer;
M: Integer;
S: Integer;
i: Integer;
x,y: Integer;
loads: Integer;
function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for I := 1 to 11 do
begin
case I of
1: if FindDead then
begin
Result := True;
wait(200);
end;
2: if FindMod then
Result := True;
3: if FindMime then
begin
Result := True;
wait(200);
end;
4: if FindMaze then
begin
Result := True;
wait(200);
end;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
writeln('No GameTab');
wait(200);
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
writeln('InBlack');
wait(200);
end;
end;
9 : if RC then
Result := True;
10 : if clicktocontinue then
result := true;
11 : if FindFight then
begin
Result := True;
RunTo('N', True);
Wait(15000 + random(5000));
Runback;
end;
12: if FindTalk then
Result := True;
end;
Wait(1);
end;
end;
procedure progress;
begin
ConvertTime(gettimerunning, H, M, S)
writeln('~~~~~~~Corl45s Auto miner~~~~~~~~~~');
writeln('|time ran: ' + inttostr(H) + ':' + inttostr(M) + ':' + inttostr(S));
Writeln('|old mining lvl: ' + IntToStr(oldlvl));
Writeln('|new mining level: ' + IntToStr(Currentlvl));
Writeln('|Loads done: ' + IntToStr(Loads));
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
procedure miner;
begin
Findfastrandoms;
repeat
if(FindColor(x,y,color1,4,28,517, 336))then//168,114,414, 316
begin
Mouse(x,y,5,5,true);
wait(waitore+random(randomtime));
end;
until(InvFull);
end;
procedure drop;
begin
Dropall;
Findfastrandoms;
Loads:=Loads+1;
end;
begin
ActivateClient;
SetupSRL;
cleardebug;
i:=0;
ORECOLOR1:=0
ORECOLOR2:=0
ORECOLOR3:=0
ORECOLOR:=0
oldlvl:= GetSkillLevel('Mining');
repeat
currentlvl:= GetSkillLevel('Mining');
progress;
i:= i + 1;
miner;
drop;
until(i >= loadstodo);
end.all anti randoms go to WT-Fakawi.