D
Denial
Guest
current version 1.0
please do not leech post comments!
please do not leech post comments!
Code:
// ~ boom ~ \\
//////denial\\\\\\
////tree hugger\\\\
/////////1. 0\\\\\\\\\
//____________________\\
//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 treehugger;
const
startupwait = 10000;//how long before script starts after compiling
treecolor1 = 3567717;// set 3 tree colors.
treecolor2 = 1452326;// set 3 tree colors.
treecolor3 = 538158;// set 3 tree colors.
choppinginterval = 9000;// time before chopping each log
drop = true;// do you wanna drop? if false set logs to chop to 28
logstochop = 100;//how many rocks to mine
{.include SRL/SRL.scar}
procedure treehugger;
var
i, x, y: integer;
begin
cleardebug;
writeln('tree hugger will begin soon, please post comments bugs and ')
writeln('sugestions on site you got this script from')
writeln('treehugger 1.4 will include better antirandoms, form use and ability to chop better trees')
wait(startupwait+random(1000))
repeat
i:= i + 1
if (drop = true) then
dropall;
cleardebug;
writeln('chopped: ' + inttostr(i))
writeln('dropped: ' + inttostr(i))
writeln('script has been working for ' + timerunning)
if (FindColor(x, y, treecolor1, 0, 0, 517, 337)) or
(FindColor(x, y, treecolor2, 0, 0, 517, 337)) and
(FindColor(x, y, treecolor3, 0, 0, 517, 337))then
mmouse(x,y,2,2)
mouse(x,y,1,1,true)
wait(choppinginterval+random(1000))
until i = logstochop
writeln('script has worked for ' + timerunning)
writeln('logs chopped ' + inttostr(i))
writeln('logs dropped ' +inttostr(i))
end;
begin
setupsrl
treehugger
end.

