program CjsSuperCrafter;
//Have hard leather in first bank slot and needle in first
//inventory slot and thread in second set hides to do to your hides in bank
{.include sslibrary.txt}
{.include boxbreaker2.txt}
Const
HidesToDo=10000;

var
leathersmade:integer;

procedure GetStuffStarted;
begin
loadlibrary('CJs Program');
setbrightness('VBright');
setchat('off');
BoxOpenerSetup;
end;

procedure openbankwithdrawclose;
begin
openbank;
deposit(3,1,0);
withdraw(1,1,0);
Mouse(440,38,2,1,true);
end;

procedure makestuff;
begin
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
mouse(585,224,5,5,true);
mouse(710,448,5,5,true);
end;

Procedure ProgressReport;
begin
Writeln('')
Writeln('')
Writeln('        ----------------------------------------')
Writeln('                          CJs Hide tanner')
Writeln('                 Made '+inttostr(leathersmade)+' out of '+inttostr(hidestodo)+' leathers.')
Writeln('        ----------------------------------------')
Writeln('')
Writeln('')
end;




begin
getstuffstarted;
repeat
openbankwithdrawclose;
makestuff;
FindStrangeBox;
leathersmade:=leathersmade+26;
ProgressReport;
Until(hidestodo=leathersmade)Or(hidestodo<leathersmade)
Logout;
end.