hey here is the draynor willow cutter and banker you asked for =)
// Draynor Willow Cutter By ---cocoapuff---
// > Version History
// v1.0 - Initial release
// v1.1 - Added anti-randoms and fixed up a lot of stuff
// > Setup
// Start in Draynor bank or between the willows.
// Have axe equiped or in inventory, go to the setup of this
// script, fill it in and press start.
// > Known Bugs
// The axehead fixer isn't working properly
// > Note
// I am not responsible in any way if you get banned.
// > Copyright
// You are allowed to copy pieces out of this script and use
// them in your own scripts. Just give me some credits.
program WillowCutter;
{.include sslibrary.txt}
{.include par.txt}
{.include boxbreaker.txt}
var mx,my,axecolor,WillowEnt1,WillowEnt2:integer;
const
// > Setup
username = '';
password = '';
EquipAxe = false; //I suggest to keep it false, but true will work
SearchHead = 5; //How many times should it look for axe head
LampSkill = 'woodcutting';
// > End Setup
TreeColor1 = 1857608;
TreeColor2 = 1978416;
BankSymbol = 3060683;
procedure ToBank;
begin
if(FindColorSpiral(mx,my,BankSymbol,606,5,725,118) )then
begin
Mouse(mx,my+2,2,2,true);
Flag;
end else
begin
Logout;
Writeln('Logged out - Couldn`t find bank symbol');
end;
end;
procedure ToTrees;
var rand: integer;
begin
rand:= random(3);
if(rand=1)then
begin
Mouse(617,116,4,4,true);
Flag;
Wait(100+random(200));
end;
if(rand=2)then
begin
Mouse(638,143,4,4,true);
Flag;
Wait(100+random(100));
end else
begin
Mouse(637,119,4,4,true);
Flag;
Wait(100+random(100));
end;
end;
procedure CheckLeveled;
begin
if(GetColor(54,418)=3030098) and (GetColor(213,439)=16711680)then
begin
Writeln('Congratulations, you just advanced a woodcutting level');
Mouse(252,439,4,4,true);
end;
end;
function HeadGone:boolean;
begin
if(EquipAxe)then
begin
GameTab(5);
if(not(GetColor(597,295)=axecolor))then
begin
result:=true;
end;
end else
begin
if(not(GetColor(591,221)=axecolor))then
begin
result:=true;
end;
end;
end;
function FindEnt:boolean; //From HatlessCow's Seers Maple Cutter (Modified)
var wx,wy: integer;
begin
if(FindBitmapToleranceIn(WillowEnt1,wx,wy,5,5,514, 336,10)) or (FindBitmapToleranceIn(WillowEnt2,x,y,5,5,514,336, 10))then
begin
Mouse(648,84,0,0,true);
result:=true;
end;
end;
procedure GetHeadColor;
begin
if(EquipAxe)then
begin
GameTab(5);
if(not(GetColor(588,301)=942206))then
begin
GameTab(4);
Wait(100+random(50));
Mouse(582,216,11,6,true);
GameTab(5);
Wait(100+random(50));
axecolor:=GetColor(597,295);
end else
begin
axecolor:=GetColor(597,295);
end;
end else
begin
GameTab(4);
axecolor:=GetColor(591,221);
end;
end;
Procedure PickUpHead;
var hx,hy,i: integer;
begin
if(not(EquipAxe))and(GetColor(619,222)=65536)then
begin
Mouse(622,224,10,10,false);
Wait(150+random(100));
GetMousePos(hx,hy);
Mouse(hx,hy+42,0,0,true);
end;
if(EquipAxe)and(GetColor(577,222)=65536)then
begin
GameTab(4);
Mouse(579,223,10,10,false);
Wait(150);
GetMousePos(hx,hy);
Mouse(hx,hy+42,0,0,true);
Wait(150+random(100));
end;
repeat
FindColorSpiralTolerance(hx,hy,axecolor,4,4,514,33 7,10);
i:=i + 1;
if(IsTextAt2(9,9,'Take Axe Head',100))then
Mouse(hx,hy,0,0,true);
until(i >= SearchHead)
if(EquipAxe)and(GetColor(577,222)=65536)then
begin
Mouse(622,224,10,10,false);
Wait(150+random(100));
GetMousePos(hx,hy);
Mouse(hx,hy+42,0,0,true);
GameTab(5);
Wait(100+random(50));
Mouse(584,296,8,8,true);
Wait(100+random(50));
end;
end;
Procedure AttachHead;
var mousex,mousey: integer;
begin
Mouse(617,232,1,1,true);
Wait(100+random(100));
Mouse(580,228,1,1,true);
Wait(250);
MMouse(581,226,1,1);
Wait(150);
if(IsTextAt2(9,9,'Wield Rune axe',100))then
begin
GetMousePos(mousex,mousey);
Mouse(mousex,mousey,0,0,true);
end;
end;
Procedure AxeHead;
begin
if(HeadGone)then
begin
PickUpHead;
AttachHead;
end;
end;
function Dead:boolean; //From HatlessCow's Seers Maple Cutter
begin
if(FindColor(x,y,12657153,619,89,667,126))and(Find Color(x,y,12657153,615,31,669,63))then
begin
result:=true;
Logout;
Writeln('Lol youre @!#$ing dead bud, dunno how but better luck');
end;
end;
function Fight:boolean; //From HatlessCow's Seers Maple Cutter
begin
if(FindColorSpiral(x,y,65280,216,115,284,171))then
Result:=true;
end;
procedure Randoms;
begin
Dead;
if(Fight)then
begin
Run(true);
ToBank;
Wait(7000+random(3000));
ToTrees;
Run(false);
end;
Check4Randoms;
Check4Lamp(LampSkill);
CheckLeveled;
AxeHead;
FindBox;
FindEnt;
Login(username,password);
end;
procedure CutTrees;
var px,py: integer;
begin
repeat
if(FindColorSpiralTolerance(px,py,TreeColor1,4,4,5 14,337,5))then
begin
Randoms;
MMouse(px,py,1,1);
if(IsTextAt2(9,9,'Chop down',100))then
begin
if(IsTextAt2(9,9,'Chop down Tree',100))then
begin
ToBank;
ToTrees;
end else
begin
Randoms;
Mouse(px,py,0,0,true);
repeat
Randoms;
Wait(1000+random(500));
until(not(IsTextAt2(9,9,'Chop down',100)))or(InventoryCount=28)
end;
end;
end else
begin
if(FindColorSpiralTolerance(px,py,TreeColor2,4,4,5 14,337,5))then
begin
Randoms;
MMouse(px,py,1,1);
if(IsTextAt2(9,9,'Chop down',100))then
begin
if(IsTextAt2(9,9,'Chop down Tree',100))then
begin
ToBank;
ToTrees;
end else
begin
Randoms;
Mouse(px,py,0,0,true);
repeat
Randoms;
Wait(1000+random(500));
until(not(IsTextAt2(9,9,'Chop down',100)))or(InventoryCount=28)
end;
end;
end;
end;
until(InventoryCount=28)
end;
procedure CheckStart;
var cx,cy: integer;
begin
if(FindColorSpiral(cx,cy,3060683,637,82,653,93)=tr ue)then
begin
ToTrees;
CutTrees;
end else
CutTrees;
end;
procedure LoadBmps;
begin
WillowEnt1 := BitmapFromString(20, 6,
'827A306068265058305058303840263840266070255058223 84026' +
'20201938402650583038402670802A2020195058302028194 04031' +
'30301E404031827A3070802A20201970802A6068266068262 02019' +
'50583050583050583050583060682670802A6068266068265 05830' +
'3840197B742C2028193840193840263840269090685058303 84026' +
'6068265058306068266068267880562020191818163840266 06826' +
'50583070704D60682638401920281930301E3840266068266 06826' +
'50583038402638402620201950583050583038402640482A1 81816' +
'18181640482A3038221818163038227E772E2028193840192 02019' +
'3840266068266068263840263840265058303840265058303 84026' +
'20201918181630382240482A3038221818163038223038223 03822' +
'5858415058307880565058309090683840265058302020195 05830' +
'20201938402638402620201930382240482A40482A3038227 8785B' +
'1818163038227E772E');
WillowEnt2 := BitmapFromString(23, 7,
'78804F20200950600E7078416068215058244048245860245 86040' +
'40480E30401948483468704020200988905B70784F8090497 08024' +
'48582428300048580E48481F4858242830006870344858246 87040' +
'80805D6870346068215060324048246068217080247888217 8804F' +
'68702488984B88984B8090496068212830004048244048245 86024' +
'656B1C5060324850346878366070346870342830003040194 8481F' +
'50603278882180904968704040402660682178804F8090496 87034' +
'78883678884670804148503478884680805D6878366870404 85034' +
'50603268783650600E58604068703440402660701F5050377 07841' +
'40482440482460684178882178882160701F60701F3040194 04824' +
'78882178804F40400958602460682158602460701F6068215 05824' +
'78804F60603260682168703458604068704058681F4858247 08036' +
'88984B60701F40482448481F7080246068343040195060325 06032' +
'58602460682178804F28300088984B80904948481F3040196 0701F' +
'70783670704F88984B48582460683490A05388984B4040264 85034' +
'70800960703460703490A0687080244858244850344858246 06841' +
'68704068703450600E4040094048242020095860405050374 04824' +
'88905B80884A88984B68703470783628300040482468781F' );
end;
begin
LoadLibrary('MSN Messenger (BETA)');
LoadBmps;
Login(username,password);
SetChat('off');
SetBrightness('vbright');
GetHeadColor;
CheckStart;
Randoms;
repeat
ToBank;
OpenBank;
Deposit(3,1,0);
CloseWindow;
Run(true);
ToTrees;
GameTab(4);
Randoms;
CutTrees;
Run(false);
until(false)
end.
Awesome Tank - Beast !
Hey
Awesome Tank - Beast !
