Code:
{Bow Cutter, JiveTonto@Gmail.Com
Start in any bank
Have logs in first bank slot
Kife in first inventory slot
Do setup below!
}
program BowCutter;
{.include si.scar}
const
BowToMake = 5000;//Number of logs you want to be made into bows
CutType = 3;//1. Shafts 2.Short Bow 3.Long Bow
AccountSet = 1;//Account set from Si
NormalLogs = false;//are you cutting plain old logs?
var cutx,cuty:integer;
BowsMade,sst,cst,wst,wet,awt,srt,tih,tim,tis:integer;
procedure ProgReport;
begin
Writeln('----===Bow Cutter By JiveTonto@Gmail.Com===----');
Writeln('------=====Progress Report=====-------');
cst:=getsystemTime;
srt:=(cst-sst)/1000;
tih:=srt/3600;
tim:=(srt/60)-tih*60;
tis:=srt-tim*60-tih*3600;
awt:=wet-wst;
Writeln('Worked for '+inttostr(tih)+' Hours '+inttostr(tim)+' Minutes '+inttostr(tis)+' Seconds');
Writeln('Average Time Cutting Logs '+inttostr(awt/1000)+' Seconds');
Writeln('Fletched '+inttostr(BowsMade)+' Bows');
Writeln('Making Approximately '+inttostr(BowsMade/(srt/60))+' Bows Per Minute');
Writeln('Making Approximately '+inttostr((BowsMade/(srt/60))*60)+' Bows Per Hour');
Writeln('------=====Progress Report=====-------');
end;
procedure SetCutCoords;
begin
if(cuttype = 1)then begin cutx:=106; cuty:=406; end;
if(NormalLogs)then
begin
if(cuttype = 2)then begin cutx:=260; cuty:=406; end;
if(cuttype = 3)then begin cutx:=413; cuty:=406; end;
end else
begin
if(cuttype = 2)then begin cutx:=144; cuty:=406; end;
if(cuttype = 3)then begin cutx:=375; cuty:=406; end;
end;
end;
procedure Bank;
begin
Openbank;
DepositArea(564,257,734,458);
DepositArea(610,215,734,458);
Withdraw(1,1,28);
CloseWindow;
end;
Function AllCut:boolean;
begin
if(GetColor(708,443)=3885652)then
result:=true;
end;
Procedure CutLogs;
var AntiFucked:integer;
begin
UseItem(1);
UseItem(28);
repeat
wait(350);
antifucked:=antifucked+1;
until(getcolor(255,369)=128)or(antifucked>=35)
antifucked:=0;
wait(450);
Mouse(cutx,cuty,4,4,false);
ClickText('X',9,343,528,498);
repeat
wait(350);
antifucked:=antifucked+1;
until(getcolor(255,409)=8388608)or(antifucked>=35)
Speak('27');
wait(1500);
repeat
wait(500);
until(AllCut)or(CheckRandoms(AccountSet,'fletching','N',true,false,[rtAttack, rtBox, rtLamp, rtLeveled, rtLogout, rtText]))
end;
begin
LoadInclude('Fletching Guide',true);
SetCutCoords;
ChatsOff;
sst:=getsystemtime;
repeat
Bank;
wst:=getsystemtime;
repeat
CutLogs;
until(AllCut)
wet:=getsystemtime;
BowsMade:=BowsMade+27;
ProgReport;
until(BowsMade>=(BowToMake-27))
end.