Page 1 of 2 12 LastLast
Results 1 to 25 of 27

Thread: Skys Shadows Tree Eater

  1. #1
    Join Date
    Dec 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Skys Shadows Tree Eater

    Simple color setup and chops untill you reach the desired level. Please post any bugs that you get. Thanks for reading!

    Next Update: I don't know. What should I add?

    I posted it for people who are too lazy to download it.

    SCAR Code:
    {
     ~~~~~~~~~~Skys~~~~~~~~~~
     ~~~~~~~~~~~§§~~~~~~~~~~~
     ~~~~~~~~~Shadow~~~~~~~~~
     ~~~~~~~~~~~§§~~~~~~~~~~~
     ~~~~~~~~Presents~~~~~~~~
     ~~~~~~~~~~~~~~~~~~~~~~~~

    ~ The Skys Shadow Tree Eater!
    ~ Made by me, Skys Shadow.
    ~ Credits to all the SRL team for the wonderful SRL include.
    ~ Setup lines 42-47


    Instructions:
     Setup Colors and Goal Level
     Stand by the Trees you want to cut
     Watch it once to make sure that all is well
     Enjoy!
     
    Update Info:
    Alpha: Cut and Dropped
    Beta: Added Goal Level
    1.0: Changed Dropping Procedure
    1.1: Added AntiRandoms
    1.2: Changed Droping Procedure again
    1.3: Fixed some bugs
    1.4: Changed some antirandoms, Added Custom WaitTime, Added Progress Report
    }




    program Skys_Shadow_Powercutter;
    {.include SRL\SRL.SCAR}
    {.include SRL\SRL\skill\WoodCutting.scar}
    {.include SRL\SRL\extended\xAntiBan.scar}

    var Loads: integer;

    const
    ///////////////Set These Up//////////////////////////////////
    TreeColor1 = 0000000; //First Tree Color                   //
    TreeColor2 = 0000000; //Second Tree Color                  //
    GoalLevel = 99; //The level you want the script to stop at //
    Wieldaxe = 2; //1 for wielding axe 2 for axe in inventory  //
    TimetoWait = 2500; //Milliseconds between clicks on tree   //
    RunDirection = 'E'; //Uppercase direction that you run away//
    /////////////////////////////////////////////////////////////


    Procedure StartTheSRL;
    Begin
      SetupSRL;
      Loads:= 1;
    end;

    Procedure ChatandReport;
    begin
      ActivateClient;
      FixChat;
      SRLRandomsReport;
    End;
     
    Procedure FindandChop;
    begin
      if(findcolorspiral(x,y,TreeColor1,15,15,615,457)) or
      (findcolorspiral(x,y,TreeColor2,15,15,615,457))then
      MMouse(x,y,1,1)
      if(isuptext('Chop')) then
      clickmouse(x,y,true)
      wait(Random(2000)+(TimetoWait))
    end;

    Procedure Dropping;
    Begin
      Repeat
        FindandChop;
      until (invfull)
       If (invfull) then
        begin
         If wieldaxe = 1 then
          begin
           DropAll;
          end
         If wieldaxe = 2 then
          begin
           DropTo(2,28);
          end
         Loads:= Loads + 1;
        end
    end;

    Procedure AntiRandomsandAntiBan;
    begin
      If (findfight) then
      begin
      RunAwayDirection(Rundirection);
      wait (4000 + random(1000))
      Runback;
      end
      FindMod;
      FindFight;
      InConvo;
      FindMime;
      FindHead;
      DontBanMe(3);
      Antiban;
    end;

    Procedure ProgReport;
    begin
      ClearReport;
      Writeln('===============================')
      Writeln('||       You Are Using       ||');
      Writeln('||                           ||');
      Writeln('||      The Skys Shadow      ||');
      Writeln('||                           ||');
      Writeln('||        TREE EATER!        ||');
      Writeln('||                           ||');
      Writeln('||       ' + inttostr(Loads) + ' Loads done        ||');
      Writeln('||                           ||');
      Writeln('||       Happy Cutting!      ||');
      Writeln('===============================');
    end;

    Begin
      StartTheSRL;
      Repeat
      ProgReport;
      AntiRandomsandAntiBan;
      ChatAndReport
      FindandChop;
      Dropping;
      until(GetSkillLevel('Woodcutting')=GoalLevel);
      Logout;
    end.

  2. #2
    Join Date
    Nov 2006
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    good work but why not just usethe standard drop dropto(2,28) instead?

  3. #3
    Join Date
    Dec 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Dadeer View Post
    good work but why not just usethe standard drop dropto(2,28) instead?
    because it was 12 at night and well...i was tired

    thanks for reminding me i changed it

  4. #4
    Join Date
    Nov 2006
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just one more thing i beleave

    in this part
    SCAR Code:
    Procedure FindandChop;
    begin
      if(findcolorspiral(x,y,TreeColor1,15,15,615,457)) or
      (findcolorspiral(x,y,TreeColor2,15,15,615,457))then
      MMouse(x,y,1,1)
      if(isuptext('chop')) then
      MoveMouseSmooth(x,y)
      clickmouse(x,y,true)
      wait(Random(15000)+(15000))
    end;

    it should just be
    SCAR Code:
    Procedure FindandChop;
    begin
      if(findcolorspiral(x,y,TreeColor1,15,15,615,457)) or
      (findcolorspiral(x,y,TreeColor2,15,15,615,457))then
      MMouse(x,y,1,1)
      if(isuptext('chop')) then
      clickmouse(x,y,true)
      wait(Random(15000)+(15000))
    end;

    becouse your mouse is already there you dont need to move it again and very nice job i havent tried it yet but it looks like it will work perfectly

  5. #5
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Um, is the first letter of the chop capitalized? I mean is it chop or Chop? And does that matter ?

  6. #6
    Join Date
    Dec 2006
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Procedure FindandChop;
    begin
    if(findcolorspiral(x,y,TreeCol1,15,15,615,457)) or
    (findcolorspiral(x,y,TreeCol2,15,15,615,457))then
    MMouse(x,y,1,1)
    if(isuptext('Chop')) then
    clickmouse(x,y,true)
    wait(Random(15000)+(15000))
    end;

    Gof is right, chop does need the capital.
    Very simple script , but works a treat !

    Keep up the good work matey.

    l0p0lz

    "Hold these two sheep, while i count them"

  7. #7
    Join Date
    Oct 2006
    Location
    England
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    PHP Code:
    Procedure FindandChop;
    begin
    if(findcolorspiral(x,y,TreeCol1,15,15,615,457)) or
    (
    findcolorspiral(x,y,TreeCol2,15,15,615,457))then
    MMouse
    (x,y,1,1)
    if(
    isuptext('Chop')) then
    clickmouse
    (x,y,true)  << Change that to Mouse(xy11True)
    wait(Random(15000)+(15000))
    end

  8. #8
    Join Date
    Dec 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok i changed it to Chop and took out the movemousesmooth

    Quote Originally Posted by Arr0w View Post
    PHP Code:
    Procedure FindandChop;
    begin
    if(findcolorspiral(x,y,TreeCol1,15,15,615,457)) or
    (
    findcolorspiral(x,y,TreeCol2,15,15,615,457))then
    MMouse
    (x,y,1,1)
    if(
    isuptext('Chop')) then
    clickmouse
    (x,y,true)  << Change that to Mouse(xy11True)
    wait(Random(15000)+(15000))
    end
    why? don't they work the same?

  9. #9
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    No they don't. Look in mouseflag.scar. Mouse moves in a path humanly.

  10. #10
    Join Date
    Dec 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Boreas View Post
    No they don't. Look in mouseflag.scar. Mouse moves in a path humanly.
    ya but i already have a MMouse on there so it should already have moved humanly

  11. #11
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    So then do getmousepos(x,y) mouse(x,y,0,0,true).

  12. #12
    Join Date
    Dec 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Boreas View Post
    So then do getmousepos(x,y) mouse(x,y,0,0,true).
    ya i understand what everyone is saying i'm just asking if what I have could be improved with you guys are saying?

  13. #13
    Join Date
    Dec 2006
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I ran it for a few minutes, seems to work pretty well. I was doing normal trees with a noob account...

  14. #14
    Join Date
    Dec 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by bod1977 View Post
    I ran it for a few minutes, seems to work pretty well. I was doing normal trees with a noob account...
    I tested on willows and it worked for me but it should work for any tree

  15. #15
    Join Date
    Dec 2006
    Location
    The Underground
    Posts
    134
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey,
    Im going to test it out right now, ill get back to you

  16. #16
    Join Date
    Dec 2006
    Location
    The Underground
    Posts
    134
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice, gets the job done but its very slow. You should let the user choose the amount oftime between the clicks on the tree's, so they can ajust it to their skill lvl.
    But other than that, very nice

  17. #17
    Join Date
    Dec 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sweet thanks

    i'll look into adjusting the wait time for the next version

  18. #18
    Join Date
    Dec 2006
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I just get alot of lag and end up being logged out.

  19. #19
    Join Date
    Dec 2006
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I ran it for about an hour, chopping Oaks and normal trees, and it worked fine.. A little slow, and i got killed by that evil tree thing, but didnt loose anything..

  20. #20
    Join Date
    Dec 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by sceltor View Post
    I just get alot of lag and end up being logged out.
    thats just your computer

    Sonikk i'm gonna add the findfight antirandom

  21. #21
    Join Date
    Jan 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    is this one a banker too?

  22. #22
    Join Date
    Jan 2007
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default nice

    script is nice man good work

  23. #23
    Join Date
    Jan 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help plz

    i'm not sure why but the macro won't drop the logs after ur inventory is full. It will try, but then it will bring out the list that list the options of actions, but wont proceed to click on drop to drop the logs. Is it something i've done wrong with setting up SRL?

  24. #24
    Join Date
    Nov 2006
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    got it, set it up, failed when compiling, i have srl and everything so wtf am i doing wrong ,, im about to smash my comp to bits cos of this shit adn scripts just not fucking working

  25. #25
    Join Date
    Dec 2006
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I just downloaded it, I'll post up a progress report after I make a new account (mine got banned )

    ~~~~Yesiammanu

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Shadows-Collide powercutter
    By shadows-collide in forum First Scripts
    Replies: 12
    Last Post: 03-16-2008, 11:13 PM
  2. Lord of the rings: Shadows of Angmar!
    By darky in forum Gaming
    Replies: 3
    Last Post: 10-03-2007, 09:20 PM
  3. an update of Skys guildminer
    By Czepa in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 09-05-2007, 08:18 AM
  4. Skys Shadows Edgeville Yew Cutter
    By Skys Shadow in forum RS3 Outdated / Broken Scripts
    Replies: 45
    Last Post: 02-03-2007, 04:22 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
  •