this is a complete draynor willow cutter banker, just need fixes =)

hey this is an auto wc script at draynor willows ive come across. it seems like a great script but alls it does is turn the map in circles... any fixes???

i give all credit to hatlesscow its a great script, i just found it.




////////////////////////////////////////////////////////////
// Ultimate Willow Cutter and Banker SETUP IS DOWN //
// By: HatlessCow ___ //
// |#| //
// <Features> |#| //
// -Full Anti-Randoms |#| //
// -Cuts Willows in Draynor |#| //
// -Banking ~~~~~~~ //
// -Progress Report \#####/ //
// \###/ //
// <Setup> \#/ //
// -Start At Willow Trees In Draynor ' //
// -Hatchet In First Inventory Slot //
// -Extra Hatchets In First Bank Slot //
// -Facing North //
// -I Suggest Running For 6 Or Less Hours Straight //
// //
// <Versions> //
// 1.0 - Release! //
// //
////////////////////////////////////////////////////////////

program UltimateWillowCutter;
{.include osi.txt}
{.include boxbreaker2.txt}

const
//////////////////////////////////////////////////////////// it says setup btw.
// //
// ##### ##### ####### # # ##### //
// # # # # # # # //
// #### ### # # # ##### //
// # # # # # # //
// ##### ##### # ##### # //
// //
////////////////////////////////////////////////////////////
BankSymbol = 6282738; // Color of banksymbol on mini-map //
TreeColor = 3168336; //Color of leaves on tree //
Username = 'irmoathlete'; // Your Username //
Password = 'december650000440024'; // Your Password //
FHHTries = 5; // Number of time to look for head //
////////////////////////////////////////////////////////////

var
iLamp,TalkW,TalkY,BNorth,EB1,HeadColor:integer;
Stop,HeadFO:boolean;
Talked,Ran,Banked,Ents,Broke,Lamps,xx,yy,TempTree:integer;

procedure ProgressReport;
var RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt; Time:String;
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
+inttostr(RSeconds)+' Seconds';
end;
Writeln('Worked For '+Time);
Writeln('Banked '+inttostr(Banked)+' Time, '+inttostr(Banked*27)+' Log');
Writeln('Talked '+inttostr(Talked)+' Time');
Writeln('Ran '+inttostr(Ran)+' Time');
Writeln('Ran From '+inttostr(Ents)+' Ent');
Writeln('Got '+inttostr(Lamps)+' Lamp');
Writeln(inttostr(Broke)+' Hatchet Broke');
end;

function EntFound:boolean;
begin
if(FindBitmapToleranceIn(EB1,x,y,5,5,514,336,20))then
begin
Stop:=true;
Result:=true;
Ents:=Ents+1;
end;
end;

procedure AxeDamaged;
begin
if(GetColor(593,222)=65536)then
begin
Stop:=true;
HeadFO:=true;
Broke:=Broke+1;
end;
end;

procedure HeadGone;
var SFH:integer;
begin
if(GetColor(589,220)=4345174)then
begin
Stop:=true;
repeat
wait(10);
SFH:=SFH+1;
if(FindObjColorTol('Take A',HeadColor,20))then
MouseFlag(x,y,0,0);
until(SFH>=FHHTries)
HeadFO:=true;
Broke:=Broke+1;
end;
end;

procedure LoginifNeeded(Username,Password:string);
begin
if(notlogedin)then
begin
Mouse(461,295,9,9,true);
wait(600);
Mouse(373,255,0,0,true);
wait(200);
Say(username);
wait(400);
Say(password);
wait(200);
Mouse(302,320,9,9,true);
repeat
wait(50);
until(GetColor(457,62)=8421504)
wait(500);
Mouse(457,62,1,1,true);
Stop:=true;
end;
end;

procedure CheckLeveled;
begin
if(FindColor(x,y,16711680,114,358,494,454))or
(FindColor(x,y,16777215,114,358,494,454))then
begin
Mouse(x,y,0,0,true);
wait(500);
Stop:=true;
if(FindColor(x,y,16711680,114,358,494,454))or
(FindColor(x,y,16777215,114,358,494,454))then
begin
Mouse(x,y,0,0,true);
wait(300);
end;
end;
end;

procedure FindText;
var counter,c:integer; Talked2Rand:boolean;
begin
if(FindColor(x,y,65535,5,5,514,337))then wait(100)
if(FindColor(x,y,65535,5,5,514,337))and(LogedIn)then
begin
repeat
counter:=counter+2+random(1);
if((x+counter) < 515)and((y+18) < 338)then
MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15,20,20);
wait(5);
if(FindColorSpiral(x,y,65280,180,90,320,230))then
break;
if(IsTextAt2(9,9,'Ta',100))then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,false);
Wait(200+random(100));
if(FindBitmap(TalkW,x,y))or(FindBitmap(TalkY,x,y))then
begin
Mouse(x,y,40,5,true);
MapFlag;
wait(1000+random(1000));
while((FindColor(x,y,16711680,5,345,510,465))or //Replaces TalkToRand
(FindColor(x,y,16777215,5,345,510,465)))and
(not(GetColor(20,434)=0))and(c<=10)do
begin
Mouse(x,y,50,2,true);
wait(2000+random(1000));
c:=c+1;
end;
Talked2Rand:=true;
end;
end;
until(counter>=250)or(Talked2Rand);
Talked:=Talked+1;
Stop:=true;
end;
end;

Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100)) do
begin
Mouse(x+random(2),y+random(2),10,10,true);
wait(3000+random(1000));
Mouse(157+random(2),220+random(2),12,12,true)
wait(3000+random(1000));
Mouse(248+random(2),255+random(2),10,2,true);
wait(3000+random(1000));
Mouse(226+random(2),442+random(2),10,3,true);
wait(3000+random(1000));
Stop:=true;
Lamps:=Lamps+1;
end;
end;

procedure Run;
begin
SetRun(true);
MouseFlag(706,87,1,1);
StandStill;
MouseFlag(595,85,1,1);
Ran:=Ran+1;
end;

function Fight:boolean;
begin
if(FindColorSpiral(x,y,65280,216,115,284,171))then
begin
Result:=true;
Stop:=true;
end;
end;

procedure FindMiscRandoms;
var ax,ay:integer;
begin
if(FindColor(ax,ay,786423,10,350,150,433))then
begin
GetScreenshot('Mod',1);
LogOut('UHOH, A MOD!!!');
end;
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
GetScreenshot('Dead',1);
LogOut('You are dead!');
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
GetScreenshot('Mime',1);
LogOut('Mime Found');
end;
end;

procedure Randoms;
begin
LogInIfneeded(username,password);
if(Fight)then
Run;
if(EntFound)then
StandStill;
AxeDamaged;
HeadGone;
CheckLeveled;
FindMiscRandoms;
FindText;
FindLamp;
FindStrangeBox;
end;

Procedure FaceNorth;
begin
If (not(FindBitmapIn(BNorth,x,y,561,4,571,17))) then
while(not(FindBitmapIn(BNorth,x,y,561,4,571,17)))do
SendArrowSilentWait(1,2+random(2));
end;

Function FlagGone:boolean;
var flagimage:integer;
begin
flagimage:=BitmapFromString(2,2,'FF00005D3311C656045D3311');
if(not(findbitmapin(flagimage,x,y,570,5,725,162)))then result:=true;
freebitmap(flagimage);
end;

function FindObj(objtext:string; objcolor,tol:integer):boolean;
var ax,ay:integer;
begin
repeat
wait(10);
ax:=random(514); ay:=random(336);
if(FindColorTolerance(x,y,objcolor,ax-10,ay-10,ax+10,ay+10,tol))then
begin
MMouse(x,y,1,1);
wait(350);
if(IsTextAt2(9,9,objtext,100))then
Result:=true;
end;
until(result=true)
end;

function FindTree:boolean;
begin
if(FindObj('Chop down W',TreeColor,5))then
begin
result:=true;
TempTree:=GetColor(x,y);
end;
end;

function TreeChopped:boolean;
begin
if(not(FindColorTolerance(x,y,TempTree,xx-30,yy-30,xx+30,yy+30,5)))then
Result:=true;
end;

procedure CutTree;
var TreeLoop:integer;
begin
Stop:=false;
if(FindTree)then
begin
Mouse(x,y,1,1,true);
repeat
FindColorTolerance(x,y,TempTree,x-30,y-30,x+30,y+30,5)
wait(10);
until(FlagGone)
for TreeLoop:=0 to 10 do
begin
FindColorTolerance(x,y,TempTree,x-30,y-30,x+30,y+30,5)
wait(10);
end;
xx:=x; yy:=y;
repeat
wait(150);
Randoms;
until(TreeChopped)or(InvinFull)or(Stop)
end;
end;

procedure ToBank;
begin
Randoms;
FaceNorth;
SetRun(true);
if(not(FindColor(x,y,BankSymbol,573,8,723,160)))then
MouseFlag(669,51,4,4);
if(FindColor(x,y,BankSymbol,573,8,723,160))then
MouseFlag(x,y,2,2);
wait(500);
SetRun(false);
end;

Function OpenBank2:boolean;
var c:integer;
begin
if(rcmQuickBank=0)then
LoadBankBmps;
if(FindObj('Use Bank',2710643,15))then
begin
Mouse(x,y,1,1,false);
wait(75+random(25));
if(FindBitmap(rcmQuickBank,x,y))or(FindBitmap(rcmQuickBankY,x,y))then
begin
Mouse(x,y,5,2,true);
MapFlag;
end else
MMouse(5,5,60,60);
while(not(IsTextAt2(185,36,'The Bank of RuneScape',100)))and(c<30)do
begin
wait(50+random(25));
c:=c+1;
end;
end;
if(IsTextAt2(185,36,'The Bank of RuneScape',100))and(not(GetColor(476,76)=5531254))then
Mouse(472,81,4,10,true);
wait(200+random(100));
if(IsTextAt2(185,36,'The Bank of RuneScape',100))then
result:=true;
end;

procedure Bank;
begin
Randoms;
OpenBank2;
Deposit(0,0,0);
Withdraw(1,1,1);
CloseBank;
HeadFO:=false;
Banked:=Banked+1;
ProgressReport;
end;

procedure ToTrees;
begin
SetRun(true);
Randoms;
FaceNorth;
MouseFlag(637,114,4,4);
MouseFlag(643,97,2,2);
Randoms;
SetRun(false);
end;

procedure LoadBmps;
begin
TalkW := BitmapFromString(17, 10,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000000000' +
'000000000000000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000000000000000000000000000000000000000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
'000000000000000000000000000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000000000000000000000000000' +
'000000000000000000000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000000000000000000000000000000000' +
'000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000000000000000000000000000000000000000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
iLamp := BitmapFromString(17, 6,
'000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
'9291128C8A1275740E000001000001000001000001000001D0CE18' +
'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
'99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
'9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
'88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
'79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
'000001000001C2C118');
BNorth := BitmapFromString(8, 11,
'640000640000640000000001640000790E00640000640000640000' +
'790E00640000640000790E003F00003F0000790E00790E003F0000' +
'3F0000790E00851B003F00003F0000851B00851B003F00003F0000' +
'3F0000790E003F00003F00009622009622003F00003F00003F0000' +
'790E003F00003F00009622009622003F00003F0000790E003F0000' +
'3F00003F00009622009622003F00003F00009622003F00003F0000' +
'3F00009622009622003F00003F00009622009622003F00003F0000' +
'9C36009C36003F00003F0000AB4601AB46013F00003F00009C3600' +
'AB46013F00003F00009C3600AB4601AB4601AB4601AB4601AB4601' +
'AB4601AB46010000019C3600BA5604BA5604BA5604');
EB1 := BitmapFromString(7, 6,
'805F2F805F2F805F2F805F2F805F2F805F2F805F2F805F2F805F2F' +
'805F2F805F2F805F2F805F2F805F2F805F2F805F2F805F2F805F2F' +
'805F2F805F2F805F2F805F2F805F2F805F2F805F2F805F2F805F2F' +
'7D5B2D805F2F805F2F805F2F805F2F805F2F805F2F7D5B2D805F2F' +
'805F2F805F2F805F2F805F2F805F2F805F2F');
end;

begin
Setuposi
BoxOpenerSetup;
LoadBmps;
LoginifNeeded(Username,Password);
ChatFixer;
HeadColor:=GetColor(589,220);
FaceNorth;
repeat
repeat
CutTree;
until(InvinFull)or(HeadFO)
ToBank;
Bank;
ToTrees;
until(false)
end.

 

As I said on your other thread, it's outdated.