pizzownage
2008-01-09 20:10:18
Hello everyone, this is my first script, and i really need some help with anti-randoms. when i tried, it didn't work so well…..
please help, and without further waiting….
pizzownage
please help, and without further waiting….
// Pizzownage \\
/////////\\\\\\\\\\\
////superminer\\\\\\
/////////1.3\\\\\\\\\\\
//________________\\
//how to use: setup right below, that explains most of it :)\\
// note that this power/autominer won't work well in all mines\\
{------------------------drops every 25 ore------------------------}
{have pick equipped and inventory empty, don't wear anything you like}
program superminer;
const
startupwait = 10000;//how long before script starts after compiling
rockcolor1 = 856870;// set 3 rock colors, default iron.
rockcolor2 = 659229;// set 3 rock colors, default iron.
rockcolor3 = 856870;// set 3 rock colors, default iron.
mininginterval = 25000;// time before mining each ore
rockstomine = 100;//how many rocks to mine
{.include SRL/SRL.scar}
procedure superminer;
var
i, x, y: integer;
begin
cleardebug;
writeln('super miner will begin soon, please post comments bugs and ')
writeln('sugestions on site you got this script from')
writeln('superminer 1.5 will include better progress report and form use')
wait(startupwait+random(1000))
repeat
if (FindColor(x, y, rockcolor1, 0, 0, 517, 337)) or
(FindColor(x, y, rockcolor2, 0, 0, 517, 337)) or
(FindColor(x, y, rockcolor3, 0, 0, 517, 337))then
mmouse(x,y,2,2)
mouse(x,y,1,1,true)
i:= i + 1
if (invfull = true) then
writeln('dropping')
dropall;
cleardebug;
writeln('mined: ' + inttostr(i))
writeln('dropped: ' + inttostr(i))
writeln('script has been working for ' + timerunning)
wait(mininginterval+random(1000))
until i = rockstomine
writeln('script has worked for ' + timerunning)
writeln('ores mined ' + inttostr(i))
writeln('ores dropped ' +inttostr(i))
end;
begin
setupsrl
superminer
end.
pizzownage