program New;
{.include si.scar}
const
     bowtype = 'long'; //long or short
var
   b1,b2,X : integer;

procedure bankbows;
begin
     OpenBank;
     Deposit(1,2,27);
end;

procedure makeshortbows;
begin;
  X := BitmapFromString(12, 13, 'z78DA33753135313137A519E9860' +
       '4881127C61C0330C02F4EBC69982650CB1C4AC28A5497E0770F25' +
       '2EA13C8491FD3250F14EDDF4832B76C88B35624800FC35D4AD');
      MouseItem(1,true);
      MouseItem(2,true);
      wait(2000+random(1000));
      movemousesmooth(105, 408);
      wait(200+random(100));
      clickmouse(143,414,false);
      wait(500+random(100));
      findbitmap(X,b1,b2);
      movemousesmooth(b1,b2);
      wait(100+random(100));
      clickmouse(b1,b2,true);
      wait(2000+random(100));
      sendkeys('27');
      wait(100+(100));
      sendkeys(chr(13));
      CheckRandoms(1,'woodcutting','n',true,false,srtAll);
      GameTab(2);
      movemousesmooth(653,377)
      CheckRandoms(1,'woodcutting','n',true,false,srtAll);
      wait(10000+random(1000));
           CheckRandoms(1,'woodcutting','n',true,false,srtAll);
      wait(10000+random(1000));
           CheckRandoms(1,'woodcutting','n',true,false,srtAll);
      wait(10000+random(1000));
           CheckRandoms(1,'woodcutting','n',true,false,srtAll);
      wait(10000+random(1000));
           CheckRandoms(1,'woodcutting','n',true,false,srtAll);
      wait(10000+random(1000));
      GameTab(4);
      bankbows;
end;

procedure makelongbows;
begin;
  X := BitmapFromString(12, 13, 'z78DA33753135313137A519E9860' +
       '4881127C61C0330C02F4EBC69982650CB1C4AC28A5497E0770F25' +
       '2EA13C8491FD3250F14EDDF4832B76C88B35624800FC35D4AD');
      MouseItem(1,true);
      MouseItem(2,true);
      wait(2000+random(1000));
      movemousesmooth(380, 408);
      wait(200+random(100));
      clickmouse(143,414,false);
      wait(500+random(100));
      findbitmap(X,b1,b2);
      movemousesmooth(b1,b2);
      wait(100+random(100));
      clickmouse(b1,b2,true);
      wait(2000+random(100));
      sendkeys('27');
      wait(100+(100));
      sendkeys(chr(13));
      CheckRandoms(1,'woodcutting','n',true,false,srtAll);
      GameTab(2);
      movemousesmooth(653,377)
            CheckRandoms(1,'woodcutting','n',true,false,srtAll);
      wait(10000+random(1000));
           CheckRandoms(1,'woodcutting','n',true,false,srtAll);
      wait(10000+random(1000));
           CheckRandoms(1,'woodcutting','n',true,false,srtAll);
      wait(10000+random(1000));
           CheckRandoms(1,'woodcutting','n',true,false,srtAll);
      wait(10000+random(1000));
           CheckRandoms(1,'woodcutting','n',true,false,srtAll);
      wait(10000+random(1000));
      GameTab(4);
      bankbows;
end;

procedure bowselection;
begin
if(bowtype = 'long')then
makelongbows;
if(bowtype = 'short')then
makeshortbows;
end;

procedure getlogs;
begin
     OpenBank;
     repeat
     FixBank;
     Withdraw(1,1,27);
     CloseWindow;
     bowselection;
     until(false)
end;

procedure setup;
begin
LoadItems;
GameTab(2);
GameTab(4);
MakeCompass('n');
ChatsOff;
getlogs;
end;

begin
     setup;
end.