///////////////////////////////////////////////////////////////////////////////
//MADE BY COWMAN                                                             //
// Notes:                                                                    //
//                                                                           //
//Parts of code taken from cowman power miner                                //
//Start by trees east of castle courtyard, look at help file.                //
//Hold Extra Axes or wield axe                                               //
//TESTED WITH SCAR 2.02                                                      //
//TY FOR HELP PWND                                                           //
//Tested with scarscape 32 bit color                                         //
//More detailed progress report coming soon.                                 //
//TY for buying (or leeching) my script.                                     //
//Please report bugs to msn samfrench@gmail.com                              //
//Verified by: shawn of fagex (recommeneded by jensen                        //
//LOOK AT HELP FILE BEFORE RUNNING                                           //
///////////////////////////////////////////////////////////////////////////////
//Versions
//
//v1 First working tested version
//v2 beta added autologout + changed drop
//2.1 fixed clicks after logout

program cowmansvarrockpowercut;
{.include Si.scar}
var
c: integer;
logoutnum: integer;

//DO NOT CHANGE IF USING SS...If using regular rs then change.
const treecolor=4347992; //PICK THE BASE OF THE TREE FOR COLOR AND COLOR T The color of the tree in the main Runescape screen..
const treecolorT=3428424; //The tree color in the main runescape screen
const logcolor=3166569; //The Log Center
const waitt=5000; //The time to wait before clicking the tree again.
const logoutnumset=2; //Times to click trees before auto-logout (if you set 10 he will cut about 6 trees)
//Remember on the wait there is a +random of 1000 that you can set lower in the script.

procedure PrintProgressReport;
begin
      WriteLn('Cowman Varrock Chop');
      WriteLn('Cut ' + inttostr(c) + ' logs.');
end;

procedure Drop;
begin
Dropcolor(logcolor);
end;

Procedure Randoms;
begin
CheckRandoms(1,'mining','n',true,false,srtall)
end;

procedure chop;
var x,y : integer;
begin
if(findcolorspiral(x,y,treecolor,3,3,515,336)) Then
Wait (waitt+random(500))
movemousesmooth(x,y)
wait(1000)
if(IsTextAt2(9,9,'Chop down',100))
then clickmouse(x,y,True)
c:=c+1;
Randoms;
end;

procedure chopt;
var x,y : integer;
begin
if(findcolorspiral(x,y,treecolorT,3,3,515,336))Then
Wait (waitt+random(500))
movemousesmooth(x,y)
wait(1000)
if(IsTextAt2(9,9,'Chop down',100))
then clickmouse(x,y,True)
c:=c+1;
logoutnum:=logoutnum+2;
randoms;
end;

begin
loadinclude('winamp',false)
c:=0
repeat
chop;
chopt;
if(invincount=28)
then dropcolor(logcolor)
printprogressreport;
until(logoutnum=logoutnumset)
logout;
end.