Results 1 to 25 of 25

Thread: VERY VERY simple woodcutter

  1. #1
    Join Date
    Oct 2007
    Location
    Gove, Australia
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default VERY VERY simple woodcutter

    ok dont dis me just cause i cant script for shat
    as the title says its a VERY VERY simple woodcutter
    if any1 has any probs with it plz tell me
    im open to any tips anyone has for me

    EDIT: ok i uploaded the updated script, when i hav more time ill add some other stuff to it like a progress report and some anti-ban stuff, ill probably hav to wait till the weekend to do that though
    EDIT: ive updated it a fare bit this afternoon to v1.2
    just tested v1.2, lol it needs major tweaking so im takin it off until i get it right

    i was bored at skewl so i downloaded my script and went to work on it and added quite a bit, though im gonna add some more when i can, like anti-randoms, anti-bans, failsafes and such before i upload the file
    oh yeh, if any1 finds a prob wid it plz tell me cause i cant see if it works at skewl since i need to be logged in as an adminastrator to install scar

    SCAR Code:
    program FirstScript;
    {.include SRL/SRL.scar}

    var
    i,x,y:Integer;
    Loads = Integer;
    Dropped = Integer;
    Prog = Integer;

    const
      TreeColor = put-color-here;//the first color of the tree
      TreeColor2 = put-2nd-color-here;//the 2nd color of the tree
      LoadMax = 10;//put the number of loads u wanna do in here

    procedure CutTree; //Cuts the Trees, obviously
    begin
      i:= 0;
      repeat
        i:=i + 1;
        if(FindColor(x,y,TreeColor,0,0,700,700)) or
        (FindColor(x,y,TreeColor2,0,0,700,700)) and
        IsTextUp('Cut') then
        begin
          Wait(1000 +random(500))
          Mouse(x, y, 3, 3, True);
          Wait(5000 +random(500));
        end;
        if not(FindColor(x,y,TreeColor,0,0,700,700)) or
        (FindColor(x,y,TreeColor,0,0,700,700)) then
        Wait(700);
      until(InvFull);
    end;

    procedure Drop; //Drops logs when inventory is full
    begin
     DropAll;
     Loads:=Loads+1;
     Dropped:=Dropped+28;
    end;

    procedure Sig;
    clearDebug;
    Writeln('/-----\ |---\ ----- |\    /| \     / ');
    Writeln('|     | |   |   |   | \  / |  \   /  ');
    Writeln('|       |---/   |   |  \/  |   \ /   ');
    Writeln('|    -\ | \     |   |      |    |    ');
    Writeln('|     | |  \    |   |      |    |    ');
    Writeln('\-----/ |   \ ----- |      |    |    ');
    Writeln('Grimy89098s PowerCutter');
    Writeln('Enjoy! and please post ur proggies on my thread! :]');

    procedure Proggy;
    Writeln('Proggy ' +IntToStr(prog));
    Writeln('/------------');
    Writeln('|Did ' +IntToStr(Loads) + 'Loads');
    Writeln('|Dropped ' +IntToStr(Dropped) + 'Logs');
    Writeln('\------------');

    begin
      SetupSRl;
      Sig;
      repeat
      CutTree;
      Drop;
      prog:=prog+1;
      Proggy;
      until(Loads:=LoadsMax);
    end.
    98% of teens surround their minds with rap. If you're part of the 2% that stayed with rock/metal, put this on your sig
    linkin park and offspring!
    http://www.stats.srl-forums.com/sigs/2954.png

  2. #2
    Join Date
    Aug 2007
    Location
    SRL! ;)
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wonder if its too simple =/

    Thx! =)

    Nice 1

    Okey...(h).png" border="0" alt="" title="(h)" smilieid="35" class="inlineimg" />

    Sticky: Attention Spammers and Leechers...
    RAM

  3. #3
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program FirstScript;
    {.include SRL/SRL.scar}
     
    var
    i,x,y:Integer;
     
    const
      TreeColor = 606775;//the color of the tree

    procedure CutTree;
    begin
      i:= 0;
      repeat
        i:=i + 1;
        if(FindColor(x,y,TreeColor,0,0,700,700)) then
        begin
          Wait(1000 +random(500))
          Mouse(x, y, 3, 3, True); //moves the mouse. and click left. the 3 = a little bit random. on the x and y vars.
          Wait(5000 +random(500));
        end;
      until(not(FindColor(x,y,TreeColor,0,0,700,700)));
    end;

    begin
      SetupSRl; //will setup srl.
      CutTree; //will cut etc.
    end.

    MoveMouseSmooth, most people prefer Mouse because thats less bannage. nice work. keep it up

  4. #4
    Join Date
    Oct 2007
    Location
    Gove, Australia
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cool thanks for that
    98% of teens surround their minds with rap. If you're part of the 2% that stayed with rock/metal, put this on your sig
    linkin park and offspring!
    http://www.stats.srl-forums.com/sigs/2954.png

  5. #5
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice try,try this tuts there very good you will learn from it:

    http://www.villavu.com/forum/showthread.php?t=6366
    and
    http://www.villavu.com/forum/showthread.php?t=6470
    ~Hermen

  6. #6
    Join Date
    Oct 2007
    Location
    Gove, Australia
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks for the links hermpie
    98% of teens surround their minds with rap. If you're part of the 2% that stayed with rock/metal, put this on your sig
    linkin park and offspring!
    http://www.stats.srl-forums.com/sigs/2954.png

  7. #7
    Join Date
    Aug 2007
    Location
    Finland
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hehe, that's really something I would call simple. Try adding AntiRandoms and AntiBan and maybe a dropping procedure.

  8. #8
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by cheetahnub View Post
    hehe, that's really something I would call simple. Try adding AntiRandoms and AntiBan and maybe a dropping procedure.
    every one needs to begin somewhere

  9. #9
    Join Date
    Aug 2007
    Location
    Finland
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rikjess View Post
    every one needs to begin somewhere
    I know that

    I wasn't saying anything negative about the script

    This is much better as a first script than the billion autotalkers ppl have made.

  10. #10
    Join Date
    Jul 2007
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, it's a sound first script. Nicee

  11. #11
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    you have all the basics, go fourth and learn more! I can see alot of potential in you.

  12. #12
    Join Date
    Oct 2007
    Location
    lisbon
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    too simple loool
    PAIN is temporary GLORY is forever!

  13. #13
    Join Date
    Oct 2007
    Location
    Gove, Australia
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i improved it by adding a droppin procedure into it but im on a different pc at the moment so when i get the chance ill upload it
    98% of teens surround their minds with rap. If you're part of the 2% that stayed with rock/metal, put this on your sig
    linkin park and offspring!
    http://www.stats.srl-forums.com/sigs/2954.png

  14. #14
    Join Date
    Oct 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    <a href="http://www.AWSurveys.com/HomeMain.cfm?RefID=dupert92"><img src="http://www.AWSurveys.com/Pictures/AWS_ad3_150by150.jpg" width="150" height="150"></a>







    <a href="http://www.AWSurveys.com/HomeMain.cfm?RefID=dupert92"> $6.00 Welcome Survey After Free Registration!</a>\




    <a href="http://www.AWSurveys.com/HomeMain.cfm?RefID=dupert92"><img src="http://www.AWSurveys.com/Pictures/AWS2_ad2_600by100.jpg" width="600" height="100"></a>





    http://www.AWSurveys.com/HomeMain.cfm?RefID=dupert92








    JOIN SCAR GETS 1.25 $ EVERY TIME YOU CLICK THIS LINK AND MAKE A ACCOUNT U DONT EVEN USE SO YEA HELP THEM OUT EVEN IF U AINT GONNA USE THE ACCOUNT!

  15. #15
    Join Date
    Oct 2007
    Location
    Gove, Australia
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    um yea ok then...
    98% of teens surround their minds with rap. If you're part of the 2% that stayed with rock/metal, put this on your sig
    linkin park and offspring!
    http://www.stats.srl-forums.com/sigs/2954.png

  16. #16
    Join Date
    Oct 2007
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Your script isn't working out for me.
    Every time I run it it freezes my game and when I stop it my account is logged out.
    Is there a specific area my account should go to?
    Should my axe be equipped?
    This would make a nice script for me judging by these comments but I need help to work it out.

  17. #17
    Join Date
    Sep 2007
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It's good, actually I think you could use it as a powerminer as well

    However I see no reason to put "DropAll" in its own procedure, just put it after "Until(InvFull);".

  18. #18
    Join Date
    Oct 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice for your first dude

  19. #19
    Join Date
    Oct 2007
    Location
    Gove, Australia
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks, and yeh u can make it into a powerminer by changin the color to the rock u wanna mine
    98% of teens surround their minds with rap. If you're part of the 2% that stayed with rock/metal, put this on your sig
    linkin park and offspring!
    http://www.stats.srl-forums.com/sigs/2954.png

  20. #20
    Join Date
    Oct 2007
    Location
    Gove, Australia
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    Quote Originally Posted by SuperRitsu View Post
    Your script isn't working out for me.
    Every time I run it it freezes my game and when I stop it my account is logged out.
    Is there a specific area my account should go to?
    Should my axe be equipped?
    This would make a nice script for me judging by these comments but I need help to work it out.
    Just go to an area with trees and make scar as small as u can
    and yes ur axe does hav to be equipped or it'll get dropped with the logs
    make sure u can see some trees on ur screen and click play

    PS: sorry for double posting
    98% of teens surround their minds with rap. If you're part of the 2% that stayed with rock/metal, put this on your sig
    linkin park and offspring!
    http://www.stats.srl-forums.com/sigs/2954.png

  21. #21
    Join Date
    Sep 2007
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Iv got a simple wc-er to with drop procedure here it is.
    SCAR Code:
    { ... WoodCutter By Craig- ... My First Script ... }

    program WoodCutter;
    {.include SRL/SRL.scar}

    const
      LoadsPerPlayer =10; // Ammounts of loads before player switches.
      TreeColor =4287628; // Fill in the tree color here.
      WaitPerTree =5000; // Wait till clicking next tree (1000 = 1 sec)
     
    Var
    globalogs: integer;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 4;
      CurrentPlayer := 0;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := 'Username'; // Your Username...
      Players[0].Pass := 'Password'; // Your Password...
      Players[0].Nick := 'erna'; // 3 or 4 letters of your username eg. user.
      Players[0].Active:= True;

      Players[1].Name := 'Username'; // Your Username...
      Players[1].Pass := 'Password'; // Your Password...
      Players[1].Nick := 'Nick'; // 3 or 4 letters of your username eg. user.
      Players[1].Active:= True;

      Players[2].Name := 'Username'; // Your Username...
      Players[2].Pass := 'Password'; // Your Password...
      Players[2].Nick := 'Nick'; // 3 or 4 letters of your username eg. user.
      Players[2].Active:= True;

      Players[3].Name := 'Username'; // Your Username...
      Players[3].Pass := 'Password'; // Your Password...
      Players[3].Nick := 'Nick'; // 3 or 4 letters of your username eg. user.
      Players[3].Active:= True;

    end;

    procedure ChopTree;
    var
      x, y, MyMark : integer;
    begin
      if not Loggedin then Exit;
      MarkTime(MyMark);
      repeat
        if FindObj(x, y, 'hop', TreeColor, 30) then
        begin
          Mouse(x, y, 0, 0, False);
          Writeln('Chopping Tree');
          if ChooseOption('hop') then
          begin
            Wait(WaitPerTree);
            Exit;
          end;
        end;
        if TimeFromMark(MyMark) > (2 * 60 * 1000) then
        begin
          Logout;
          Exit;
        end;
      until false
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      if Loggedin then Logout;
      LoginPlayer;
      repeat
        ChopTree;
        if InvFull then
        begin
          DropToPosition(2,28); // If Axe equiped change to (1,28),if not leave.
          Inc(Players[CurrentPlayer].Banked);
          if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
          begin
            NextPlayer(True);
          end;
        end;
        if not Loggedin then NextPlayer(False);
      until false
      end.

      Writeln( '***************************' );
      Writeln('');
      Writeln( 'Username   : '+ Players[CurrentPlayer].Name);
      Writeln( 'Worked For : '+ IntToStr (Players[CurrentPlayer].Worked)+' minutes.');
      Writeln( 'Wc Lvl     : '+ IntToStr(Players[CurrentPlayer].Integer1));
      Writeln( 'Logs Cut   : '+ inttostr(globallogs) + ' logs');
      Writeln( '');
      Writeln( '***************************' );

  22. #22
    Join Date
    Nov 2007
    Location
    Estonia
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I will try it out,but i think it will work...I didnt saw any bugs.
    Very simple script
    Keep going!

  23. #23
    Join Date
    Oct 2007
    Location
    Gove, Australia
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok, i got busted shuting down other ppls computers at skewl with that tut that told me how, had lots of fun doin it though!
    now this site is blocked at skewl, and its against the rules to proxy into here
    so i dont think im gonna be able to learn much and script much anymore since its easier to go on SRL at skewl than on weekends at home
    anyways i dunno if the skewl told ma mum the name of the site, but if they did and im caught on it, ill probably get grounded some more, but oh well
    would it be ok to use a proxy to get onto SRL from skewl for the reason to read some tuts and script some more? i dunno if it is, but i hope so
    98% of teens surround their minds with rap. If you're part of the 2% that stayed with rock/metal, put this on your sig
    linkin park and offspring!
    http://www.stats.srl-forums.com/sigs/2954.png

  24. #24
    Join Date
    Dec 2007
    Posts
    133
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Cool

    Now thats what you call Simple! cool (but to simple for me maybe add some stuff to it like anti randoms..keep it up.

  25. #25
    Join Date
    Apr 2007
    Location
    DUTCHIESLAND
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its not realy working for me aight?:O

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Need lvl 75 woodcutter.
    By skilld u in forum News and General
    Replies: 14
    Last Post: 02-29-2008, 02:50 AM
  2. Best woodcutter ever!
    By mstandlee in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 10-27-2007, 04:40 AM
  3. i need a woodcutter
    By anaujiram in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 07-13-2007, 03:13 PM
  4. Replies: 5
    Last Post: 03-26-2007, 07:57 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
  •