Results 1 to 7 of 7

Thread: Fletcher

  1. #1
    Join Date
    Mar 2006
    Location
    Rural New Zealand
    Posts
    688
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Fletcher

    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
    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.
    Come Add A Few Hits To My Site
    Cakemix lives on

  2. #2
    Join Date
    Feb 2006
    Location
    Aussie
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    standards?

  3. #3
    Join Date
    Mar 2006
    Location
    Rural New Zealand
    Posts
    688
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ......thanx and i do not see any thing wrong with it lol
    Come Add A Few Hits To My Site
    Cakemix lives on

  4. #4
    Join Date
    Oct 2006
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  5. #5
    Join Date
    Aug 2007
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default error

    i keep getting 'begin expected in script' error

  6. #6
    Join Date
    Aug 2007
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    failed while compiling...

  7. #7
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    05-12-2006, 04:41 AM

    Stop bumping pl0xzor.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Help with fletcher
    By Richard in forum OSR Help
    Replies: 0
    Last Post: 02-09-2008, 02:09 PM
  2. SRL Fletcher
    By Jens in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 02-26-2007, 12:52 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •