SRL Archive - RS Scripts

Ello since i dont like srl i write my scripts how i liek them o well heres a fletcher it works fine for me and im happy with it psot progress reports

also if any oen wants to srlise it for me go ahead thanx

{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.

looks good, unfortunately i am not a member, and cannot test it.

standards?

……thanx and i do not see any thing wrong with it lol

everything is pretty clean, im having problems with it not hitting the right spot in the bank though

i keep getting 'begin expected in script' error

failed while compiling…

05-12-2006, 04:41 AM

Stop bumping pl0xzor.