//this script is great as only one color is needed, the only downside is 50%
//of the time the anti-randoms don't work, feel free to fix this, but it got
//me up 10 levels//
program willowcath;
{.include si.scar}
var
m1,m2,b1,b2,c1,c2,chopwillow : integer;
const
banklogo = 3257822;

procedure towillows;
begin
     movemousesmooth(584,110);
     wait(200+random(80));
     clickmouse(584,110,true);
     Flag;
     wait(1000+random(1000));
     movemousesmooth(605,105);
     wait(200+random(80));
     clickmouse(605,105,true);
     Flag;
end;

procedure tobank;
begin
     movemousesmooth(710,70);
     wait(200+random(85));
     clickmouse(710,70,true);
     Flag;
     wait(1000+random(500));
     findcolor(m1,m2,banklogo,560,20,715,150)
     movemousesmooth(m1,(m2+10));
     wait(210+random(100));
     clickmouse(m1,(m2+10),true);
     Flag;
     wait(1000+random(500));
     OpenBank;
     wait(500+random(500));
     Deposit(2,2,27);
     CloseWindow;
     towillows;
end;

procedure prefixaxe;
begin
     GetHead(true);
     FixAxe;
end;

procedure choptree;
begin
     wait(500+random(100));
     CheckRandoms(1,'woodcutting','n',true,false,srtAll);
     findcolor(c1,c2,5337208,0,0,517,343)
     movemousesmooth(c1,c2);
     wait(500+random(500));
     CheckEnt;
     BrokenAxe;
     if(brokenaxe=true)then
     prefixaxe;
     InvinCount;
     if(invincount=28)then
     tobank;
     wait(2000+random(1000));
end;

procedure findwillow;
begin
  chopwillow := BitmapFromString(52, 10, 'z78DAED95490EC02008' +
       '45AFE442D30B34DEFF486D174D4810FC802C3AFC050BA40CAF44D' +
       'BDE6ADDDAA36C29FDD46D2FF96290786B9EB772A3FE55DCBA203D' +
       '123FEDAA22DC380D7DDE4214E146FBA73911024836899B5EC5C74' +
       'DF264EC1B32A9EEA753E35F716EBEBBC8C72D63DFAC9B23C9F717' +
       'BEC38D6F4E1EB7D144928DDE6391778157A7F1FC54F7AFE236A33' +
       '7EE39831B7F6BA4EA3CDEEA47DE380B3D4FCF780F91DE7E4BED01' +
       'B198BD4F');
       if(findcolor(m1,m2,5337208,0,0,517,343)=true)then
       movemousesmooth(m1,m2);
       wait(400+random(200));
       clickmouse(m1,m2,false);
       wait(500+random(200));
       if(findbitmap(chopwillow,b1,b2)=true)then
       movemousesmooth(b1,b2);
       wait(200+random(100));
       clickmouse(b1,b2,true);
       choptree;
       if(findbitmap(chopwillow,b1,b2)=false)then
       findwillow;
       if(findcolor(m1,m2,5337208,0,0,517,343)=false)then
       wait(5000+random(1000));
end;

procedure bankorwillow;
begin
     if(findcolor(m1,m2,banklogo,560,20,715,150)=true)then
     towillows;
     if(findcolor(m1,m2,banklogo,560,20,715,150)=false)then
     findwillow;
end;

procedure setup;
begin
LoadItems;
setrun(true);
GameTab(4);
MakeCompass('n');
ChatsOff;
AxeColors;

bankorwillow;
end;

begin
setup;
end.