program New;

{.include si.scar}

////////////////////////SETUP///////////////////////////////

               const
               Strings=1000 ; //How many bowstrings do you have??
               LampSkill='fletching'; //Use lamp with what skill
/////////////////////////// End Setup //////////////////////


               Var
               banked,a:integer;

Procedure Report;
var time,times,timem,timeh,StrSecZero,StrMinZero:string;
    Hours,Minutes,Seconds,avtime,ST,trips:LongInt;
begin
  clearreport;
  Seconds:=(GetSystemTime-ST) div 1000;
  if(Trips>0)then
  avtime:=Seconds/Trips;
  Hours:=Seconds div 3600;
  Seconds:=Seconds - (hours*3600);
  Minutes:=Seconds div 60;
  Seconds:=Seconds - (Minutes*60);
  if(minutes<10)then StrMinZero:='0';
  if(seconds<10)then StrSecZero:='0';
  if(hours>0)then timeh:=inttostr(hours)+':';
  if(minutes>0)then timem:=StrMinZero+inttostr(minutes)+':';
  times:=StrSecZero+inttostr(seconds); time:=timeh+timem+times;

ClearReport;
AddToReport(' Leet Bowstringer');
AddToReport('     By JaC');
AddToReport('~~~~~~~~~~~~~~~~~~~~~~~~~~');
AddToReport('Hauled ass for '+ Scripttime2(2));
AddToReport('Strung ' + inttostr(Banked*14) + ' bows');
AddToReport('Glad you did not have to do this shit yourself?!?');
AddToReport('~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;


Procedure Randoms;
Begin
    CheckRandoms(1,LampSkill,'NA',false,false,[rtText, rtLamp, rtLogout, rtBox, rtdead, rtMod, rtPlant]);
   end;

Procedure GetShit;
Begin
   Randoms;
   openbank;
  depositall;
   Withdraw(1,1,14);
   Withdraw(1,2,14);
  CloseWindow;
 end;

Procedure StringBows;
Begin
randoms;
    wait(250)
    MMouse(585,226,1,1);
    wait(250)
    HoldMouse(585,226,true);
    wait(250)
    MMouse(665,445,1,1);
    wait(500)
    ReleaseMouse(665,445,true);
repeat
    mouse(671+random(5),443+random(5),1,1,true);
    mouse(711+random(5),446+random(5),1,1,true);
until (InvinCount=14);
randoms;
  end;

begin
loadinclude('Lazy Man',false)
chatsoff;
repeat
GetShit;
stringbows;
Banked:=Banked+1
a:=a+1*14
report;
until(a=strings-14)
if (a=strings-14) then closewindow mouse(758,-17,1,1,true);
end.