//SmWoodcutter v1.0 Created by Sapmangat
//--->Version history:
// v1.0 fixed cutting procedure
// next version will have antirandoms ent, and put the axe head back on
//--->Instructions:
//Start with the axe you have equipped on to you
//go to the tree(s) that you want to cut down
//drag the crosshair over the rs2 screen
//click play and your ready to go
//------------------------------------------------------------------------------
program SmWoodcutter;
{.include si.txt}
const treecolor=1919040;
const logcolor=3892098;
procedure FindMiscRandoms;
var ax,ay:integer;
begin
if(FindColorSpiral(ax,ay,786423,10,350,150,433))or
(FindColorSpiral(ax,ay,10658466,10,350,150,433))then
begin
logout;
Writeln('Mod')
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
logout;
Writeln('Mime')
end;
if(GetColor(460,426)=0)and(GetColor(277,416)=0)and(GetColor(220,425)=0)or
(GetColor(502,305)=0)and(GetColor(379,43)=0)then
begin
TakeScreen('Maze',1);
logout;
end;
end;
procedure TalkToRand1;
var c:integer;
begin
repeat
c:=c+1;
if(FindColorSpiral(x,y,16711680,5,345,510,465))and(not(GetColor(20,434)=0))then
begin
Mouse(x,y,50,2,true);
wait(2500+Random(500));
end;
if(FindColorSpiral(x,y,16777215,5,345,510,465))and(not(GetColor(20,434)=0))then
begin
GetMousePos(x,y);
Mouse(x,y,50,2,true);
wait(2500+Random(500));
end;
until(GetColor(20,434)=0)or(c>=20)
end;
procedure FindText;
var mx,my:integer;
begin
if(FindColorSpiral(mx,my,65535,3,3,515,338))then//Find close
begin
MMouse(mx,my+15,1,1);
repeat
if(IsTextAt2(9,9,'Talk',100))then
begin
Mouse(mx,my+15,1,1,false);
ClickText('Talk',5,5,515,338);
begin
Flag;
wait(2500+Random(500));
TalkToRand1;
end;
end;
MMouse(mx,my+15,1,1);
mx:=mx+5;
wait(random(10)+10+random(10));
until(mx>=515);
if(mx>=515)then MMouse(mx+random(5),my+15,1,1);
end;
end;
Procedure Randoms;
begin
FindText;
FindStrangeBox;
FindMiscRandoms;
Uselamp('mining')
end;
procedure DropColor(color:integer);
var
x, y, Drop:Integer;
begin
Drop:= DTMFromString('78DA63B4636260E064644006FFFFFF07D3305' +
'1465BA01A5E5435300057E30A542344408D07500D0F01BBF48854' +
'C346408D19A69B31D480FCCE875F0D00B9181450');
while(FindColor(x,y,Color,548,168,761,496))do
begin
Mouse(x+5,y,1,1,false);
Wait(450);
if(FindDtm(Drop,x,y,548,168,761,496))then
begin
Mouse(x,y,1,1,true)
Wait(450);
end;
end;
FreeDtm(Drop);
end;
procedure cut;
begin
findcolorspiral(x,y,treecolor,3,3,515,336)
mouse(x,y,0,0,true)
wait(300+random(300))
end;
begin
loadinclude('iTunes')
repeat
cut;
if(invincount=28)
then dropcolor(3892098)
until(false)
end.
please help!!!
