Results 1 to 3 of 3

Thread: Yew chopper

  1. #1
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default Yew chopper

    Hi i just made a few fixes to my script and i havent had the time to test it fully (kinda umm sleepy lol)

    so im asking u guys to test it for me and tell me if theres any bugs etc (like there would be any)

    thank you lol

    SCAR Code:
    program Yewchop0r;
    {.include srl/srl.scar} {
    **************************************************************
    ***********\\****//************\\**********************//*****
    ************\\**//*** _____*****\\********************//******
    *************\\//****/ ____|*****\\******************//*******
    **************||*****||____*******\\******//\\******//********
    **************||*****| ____|*******\\****//**\\****//*********
    **************||*****||____*********\\**//****\\**//**********
    **************||*****\_____|*********\\//******\\//***********
    **************************************************************
    ************CREDITS Goes To:****************
    IronTeapot: For Using HIS banker... -Villu-reborn.com
    Home: for giving me alot of help in my scripting career -Villu-reborn.com
    }

     
    //Start Script inside bank //Setup lines at 9-35
     
    var Cutted,street,redlol,gretre,C,i,WA,WC:Integer;
    var cst,srt,tih,tim,tis,awt,banked,gained,sst,wet,wst:integer;//for progress report
     
    //********SETUP BELOW********** const
    tree1 = 3297352; //tree colour
    tree2 = 870456; //tree colour different
    tree3 = 4223370; //Tree colour different more :O
    Loads = 2; //how many loads do u want to do?
    MMbankcolor = 6087405; //MM yellow colour of bank
    MMstreetcolor = 4671311;
    MMTreecolor = 293378;
    MMRedWeird = 131478;
    MMMudcolor = 928314;
    Procedure Declareplayers;
    begin
    NumberOfPlayers(2) //--------------------Player 1--------
      Players[0].Name  := '';//Your Username
      Players[0].Pass  := '';//Your Password
      Players[0].Nick  := '';//3 or 4 letters from your Username
      Players[0].Loc  := 'Goldshire';//DONT TOUCH
      Players[0].Skill  := 'prayer';//The skill for when you get a lamp
      Players[0].Active  := true;//Will You Be Using This Player? //--------------------Player 2---------
      Players[1].Name  := '';//Your Username
      Players[1].Pass  := '';//Your Password
      Players[1].Nick  := '';//3 or 4 letters from your Username
      Players[1].Loc  := 'Elwyn forest';//DONT TOUCH
      Players[1].Skill  := 'prayer';//The skill for when you get a lamp
      Players[1].Active  := true;//Will You Be Using This Player? end; //********Dont Touch Below********* procedure declarebmps;
    begin
    Street := BitmapFromString(10, 1, 'z78DA33B33433343332238B0' +
           '4007BD30C6D');
    redlol := BitmapFromString(8, 1, 'z78DA3330200D0000DCB00901' +
           '');
    Gretre := BitmapFromString(7, 7, 'z78DA7DCE410AC0300804C02F' +
           'ED5283F46834FDFF930AB1D0401B2F8BE8A0C25AC785A14A609CA' +
           '4EE33CDBF643321E88E775B2967A2BCBE97E5B729679A7458080E' +
           '6164BD4A97803FFDAF5CA737564D3FF8');
    end;
     
    procedure progressreport;
    begin
      cst := getsystemTime;
      srt := (cst - sst) / 1000;
      tih := srt / 3600;
      tim := (srt / 60) - tih * 60;
      tis := srt - tim * 60 - tih * 3600;
      awt := wet - wst
    writeln('')
    writeln('')
    writeln('')
    writeln('*=======================================*')
    writeln('*=Cutted about: ' +inttostr(cutted) + ' Yew''s ================*')
    writeln('*=Banked about: ' +inttostr(banked) + ' Load''s ===============*')
    writeln('*=Exp gained about: ' +inttostr(gained) + ' ==================*')
    writeln('*=Worked : ' + inttostr(tih) + ' Hour''s ' + inttostr(tim) +    ' Min''s ' + inttostr(tis) + ' Sec''s =*');
    writeln('*=======================================*') end;
     
    procedure BankToTree;
    begin
    status('Walking to Tree')
    Setrun(true)
    wait(2000+random(1000))
    FindMMColor(x,y,MMMudcolor)
    mouse(x,y,15,15,true)
    wait(2000+random(1000))
    FindMMColor(x,y,MMRedWeird)
    mouse(x,y,4,4,true)
    wait(2000+random(1000))
    FindMMColor(x,y,MMtreecolor)
    mouse(x,y,3,3,true) end;
     
    Procedure TreeToBank;
    begin
    Status('Walking to Bank...')
    Setrun(false)
    FindMMColor(x,y,MMBankColor)
    mouse(x,y,3,3,true)
    wait(10000+random(3000)) end;
     
    Procedure Cutyew;
    begin
    Status('Cutting Yew...')
    setrun(false) If(FindColorSpiralTolerance(x, y, tree1, MSX1, MSY1, MSX2, MSY2, 5))or (FindColorSpiralTolerance(x, y, tree2, MSX1, MSY1, MSX2, MSY2, 7))or (FindColorSpiralTolerance(x, y, tree3, MSX1, MSY1, MSX2, MSY2, 10))then Begin
    MMouse(x, y, 0, 0);
    Wait(100+Random(50));
    If IsUpText('Chop') or IsUpText('down') and IsUpText('Yew') then
    Mouse(x, y, 0, 0, False); Wait(100+Random(50)); ChooseOption(x, y, 'Chop down'); Flag; end;
    Cutted:=Cutted + 1;
    FindNormalRandoms;
    end;
     
    procedure OpenMyBank;
    begin
    WC:=1
    WA:=1 repeat if(FindObj(x,y,'ank',5066840,5))then begin
          mouse(x,y,1,1,false);
          if (ChooseOption(x, y, 'quickly')) then begin
                  Flag;
                  repeat
                  Wait(100);
                  i := i + 1 until (BankScreen) or (i >= 50);
             end; end; if (not(BankScreen))then begin case WC of 1:MakeCompass('W');
               2:MakeCompass('E');
               3:MakeCompass('S');
               4:MakeCompass('N');
               else Writeln('Can not find the bank at Highest Angle.');
               end; end;
          WC:=WC+1;
          if (WC=5) and (WA=1)then begin
             WC:=1
             WA:=2 end; until(BankScreen)or (WC=5)and (WA=2);
    if (not(BankScreen))then
       Writeln('Can not find the bank at all.');
    end;
     
    Begin
     Setupsrl;
     ClearDebug;
     getsystemTime;
     declareplayers;
     activateclient;
      NextPlayer(True);
      Repeat
       SetRun(True);
       banktotree;
        Repeat
         Cutyew;;
        Until(Invfull);
        SetRun(False);
        treetobank;
        MakeCompass('N');
        HighestAngle;
        status('Opening Bank...')
        OpenMyBank;
        status('Depositting all...')
        Deposit(2,28,2)
        banked:= banked + 1;
        gained:= gained + 4900;
        c:= c + 1;
        progressreport;
        status('Closing Bank...')
        CloseBank;
        MakeCompass('N') If (LoggedIn) and (c=Loads)then Begin
         status('Changing Player...')
          NextPlayer(True);
         End; If(not(LoggedIn))then NextPlayer(False);
      Until(False);
    End.

  2. #2
    Join Date
    Sep 2006
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Where does it cut the yews...?

    Also if home taught you how to script ( Like he did me ) then you dont need testing :P Hes really good. Also you should add anti-randoms and anti-ban.

  3. #3
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    well he taught me pretty much srl, and some other small stuff.

    ah ..yes.. i knew i missed something lol

    btw its cutting yews at: edgewille. start in bank.

    im not sure if the walking to trees works. just have to test & edit it until it works ...lol..

    SCAR Code:
    program Yewchop0r;
    {.include srl/srl.scar} {
    **************************************************************
    ***********\\****//************\\**********************//*****
    ************\\**//*** _____*****\\********************//******
    *************\\//****/ ____|*****\\******************//*******
    **************||*****||____*******\\******//\\******//********
    **************||*****| ____|*******\\****//**\\****//*********
    **************||*****||____*********\\**//****\\**//**********
    **************||*****\_____|*********\\//******\\//***********
    **************************************************************
    ************CREDITS Goes To:****************
    IronTeapot: For Using HIS banker... -Villu-reborn.com
    Home: for giving me alot of help in my scripting career -Villu-reborn.com
    }

     
    //Start Script inside bank //Setup lines at 9-35
     
    var Cutted,street,redlol,gretre,C,i,WA,WC:Integer;
    var cst,srt,tih,tim,tis,awt,banked,gained,sst,wet,wst:integer;//for progress report
     
    //********SETUP BELOW********** const
    tree1 = 3297352; //tree colour
    tree2 = 870456; //tree colour different
    tree3 = 4223370; //Tree colour different more :O
    Loads = 2; //how many loads do u want to do?
    MMbankcolor = 6087405; //MM yellow colour of bank
    MMstreetcolor = 4671311;
    MMTreecolor = 293378;
    MMRedWeird = 131478;
    MMMudcolor = 928314;
    Procedure Declareplayers;
    begin
    NumberOfPlayers(2) //--------------------Player 1--------
      Players[0].Name  := '';//Your Username
      Players[0].Pass  := '';//Your Password
      Players[0].Nick  := '';//3 or 4 letters from your Username
      Players[0].Loc  := 'Goldshire';//DONT TOUCH
      Players[0].Skill  := 'prayer';//The skill for when you get a lamp
      Players[0].Active  := true;//Will You Be Using This Player? //--------------------Player 2---------
      Players[1].Name  := '';//Your Username
      Players[1].Pass  := '';//Your Password
      Players[1].Nick  := '';//3 or 4 letters from your Username
      Players[1].Loc  := 'Elwyn forest';//DONT TOUCH
      Players[1].Skill  := 'prayer';//The skill for when you get a lamp
      Players[1].Active  := true;//Will You Be Using This Player? end; //********Dont Touch Below********* procedure declarebmps;
    begin
    Street := BitmapFromString(10, 1, 'z78DA33B33433343332238B0' +
           '4007BD30C6D');
    redlol := BitmapFromString(8, 1, 'z78DA3330200D0000DCB00901' +
           '');
    Gretre := BitmapFromString(7, 7, 'z78DA7DCE410AC0300804C02F' +
           'ED5283F46834FDFF930AB1D0401B2F8BE8A0C25AC785A14A609CA' +
           '4EE33CDBF643321E88E775B2967A2BCBE97E5B729679A7458080E' +
           '6164BD4A97803FFDAF5CA737564D3FF8');
    end;
     
    procedure progressreport;
    begin
      cst := getsystemTime;
      srt := (cst - sst) / 1000;
      tih := srt / 3600;
      tim := (srt / 60) - tih * 60;
      tis := srt - tim * 60 - tih * 3600;
      awt := wet - wst
    writeln('')
    writeln('')
    writeln('')
    writeln('*=======================================*')
    writeln('*=Cutted about: ' +inttostr(cutted) + ' Yew''s ================*')
    writeln('*=Banked about: ' +inttostr(banked) + ' Load''s ===============*')
    writeln('*=Exp gained about: ' +inttostr(gained) + ' ==================*')
    writeln('*=Worked : ' + inttostr(tih) + ' Hour''s ' + inttostr(tim) +    ' Min''s ' + inttostr(tis) + ' Sec''s =*');
    writeln('*=======================================*') end;
     
    procedure BankToTree;
    begin
    status('Walking to Tree')
    Setrun(true)
    wait(2000+random(1000))
    FindMMColor(x,y,MMMudcolor)
    mouse(x,y,15,15,true)
    wait(2000+random(1000))
    FindMMColor(x,y,MMRedWeird)
    mouse(x,y,4,4,true)
    wait(2000+random(1000))
    FindMMColor(x,y,MMtreecolor)
    mouse(x,y,3,3,true) end;
     
    Procedure TreeToBank;
    begin
    Status('Walking to Bank...')
    Setrun(false)
    FindMMColor(x,y,MMBankColor)
    mouse(x,y,3,3,true)
    wait(10000+random(3000)) end;
     
    Procedure Cutyew;
    begin
    Status('Cutting Yew...')
    setrun(false) If(FindColorSpiralTolerance(x, y, tree1, MSX1, MSY1, MSX2, MSY2, 5))or (FindColorSpiralTolerance(x, y, tree2, MSX1, MSY1, MSX2, MSY2, 7))or (FindColorSpiralTolerance(x, y, tree3, MSX1, MSY1, MSX2, MSY2, 10))then Begin
    MMouse(x, y, 0, 0);
    Wait(100+Random(50));
    If IsUpText('Chop') or IsUpText('down') and IsUpText('Yew') then
    Mouse(x, y, 0, 0, False); Wait(100+Random(50)); ChooseOption(x, y, 'Chop down'); Flag; end;
    Cutted:=Cutted + 1;
    FindNormalRandoms;
    end;
     
    procedure OpenMyBank;
    begin
    WC:=1
    WA:=1 repeat if(FindObj(x,y,'ank',5066840,5))then begin
          mouse(x,y,1,1,false);
          if (ChooseOption(x, y, 'quickly')) then begin
                  Flag;
                  repeat
                  Wait(100);
                  i := i + 1 until (BankScreen) or (i >= 50);
             end; end; if (not(BankScreen))then begin case WC of 1:MakeCompass('W');
               2:MakeCompass('E');
               3:MakeCompass('S');
               4:MakeCompass('N');
               else Writeln('Can not find the bank at Highest Angle.');
               end; end;
          WC:=WC+1;
          if (WC=5) and (WA=1)then begin
             WC:=1
             WA:=2 end; until(BankScreen)or (WC=5)and (WA=2);
    if (not(BankScreen))then
       Writeln('Can not find the bank at all.');
    end;
     
    Begin
     Setupsrl;
     ClearDebug;
     getsystemTime;
     declareplayers;
     activateclient;
      NextPlayer(True);
      Repeat
       SetRun(True);
       banktotree;
        Repeat
         Cutyew;;
        Until(Invfull);
        SetRun(False);
        treetobank;
        MakeCompass('N');
        HighestAngle;
        status('Opening Bank...')
        OpenMyBank;
        status('Depositting all...')
        Deposit(2,28,2)
        banked:= banked + 1;
        gained:= gained + 4900;
        c:= c + 1;
        progressreport;
        status('Closing Bank...')
        CloseBank;
        MakeCompass('N') If (LoggedIn) and (c=Loads)then Begin
         status('Changing Player...')
          NextPlayer(True);
         End; If(not(LoggedIn))then NextPlayer(False);
      Until(False);
    End.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Pro Chopper
    By Cazax in forum RS3 Outdated / Broken Scripts
    Replies: 28
    Last Post: 01-26-2009, 09:36 PM
  2. Yew Chopper
    By shaman in forum First Scripts
    Replies: 17
    Last Post: 10-13-2008, 07:26 AM
  3. Yew Chopper
    By shaman in forum First Scripts
    Replies: 2
    Last Post: 07-29-2008, 02:49 PM
  4. Chopper help
    By ZaSz in forum OSR Help
    Replies: 1
    Last Post: 12-24-2007, 08:04 PM
  5. My First Power Chopper
    By destroyface in forum First Scripts
    Replies: 4
    Last Post: 09-12-2007, 11:35 AM

Posting Permissions

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