Results 1 to 9 of 9

Thread: AutoWood Cutter{Needs Help}

  1. #1
    Join Date
    Aug 2007
    Location
    Edgeville
    Posts
    178
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    AutoWood Cutter{Needs Help}

    Ok, welcome guys.. this is more like my 5th 1st script. Lol. Anyways, my script is very bad, and I was looking for some feedback, and help on it =D. I won't even make you download cause it's so bad. Here it is... I don't understand how to implement the function that checks if the inventory is full(InvFull: boolean). Any way, here it is. I will add on to it as I learn more.

    ###########DON'T USE ON MAINS OR ANY ACCS OF IMPORTANCE##############
    ###########WILL GET BANNED################

    SCAR Code:
    program New;
    {.include SRL/SRL.scar}
    //I will soon be adding a dtm of a regular, oak, and willow log =D. Antiban also coming after that.
    //I have been reading some good tuts =D
    //Credits: skilld u,
    var
    x,y: Integer;

    const
    TreeColor = 3760253;//Array coming soon

    procedure LookForTree;
    begin
      if(FindColor(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2))then
        begin
          MMouse(x,y,3,3);
          Wait(565+random(521));
          if IsUpText('hop') then
          begin
            Mouse(x,y,3,3,true);
            Writeln('Did find tree');
          end;
        end else
        Writeln('Did not find tree');
    end;

    procedure EmptyLoad;
    begin
      if(InvFull)then//Thats all you need
        begin
          DropAll; // you could make a dtm of the log
        end else  // if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then
    end;                //Mouse(x,y,3,3,false
                          //ChooseOption('rop');

    procedure MainLoop;
    begin
      SetupSRL;
      LookForTree;
      EmptyLoad;
    end;

    begin
      repeat
        MainLoop;
      until(false);
    end.

    ******Updated thanks to :skilld u . I will be adding dtms for the willow logs, and make the woodcutting more accurate =D*******

    Remember, I would like a lot of feedback. I'm going to bed, and I will read up some tuts on how to add fail safes, antiban procedures, player arrays, and WALKING!! Maybe some day this script will be able to get me to become a SRL Member... =D You never know... Remember, please no flamin, I'm a scripting noob, but I'm gonna change that real quick, all negative feedback is feedback so yea, also, when you recommend the changes, explain why.

  2. #2
    Join Date
    Feb 2007
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How don't you understand the InvFull method? It takes no arguments, and returns true if the inventory is, indeed, full. Just do something like the following:
    Code:
    if(InvFull) then
    ...
    end;

  3. #3
    Join Date
    Feb 2008
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ive been looking for a good woodcutting script... try to fix the the problem and ill test it out.. ill post any other problems

  4. #4
    Join Date
    Aug 2007
    Location
    Edgeville
    Posts
    178
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  5. #5
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    var
    x,y: Integer;

    const
    TreeColor = 3760253;//Maybe make an array?

    procedure LookForTree;
    begin
      if(FindColor(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2))then//MSX and MSY are coords of Mainscreen
        begin
          MMouse(x,y,3,3);//same as movemouse except less detectable, 3 is tolerance
          Wait(565+random(521));
          if IsUpText('hop') then
          begin
            Mouse(x,y,3,3,true); // see above
            Writeln('Did find tree');
          end;
        end else
        Writeln('Did not find tree');
    end;

    procedure EmptyLoad;
    begin
      if(InvFull)then//Thats all you need
        begin
          DropAll; // you could make a dtm of the log
        end else  // if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then
    end;                //Mouse(x,y,3,3,false
                          //ChooseOption('rop');

    procedure MainLoop;
    begin
      SetupSRL;  // you need this if you are using SRL in your script
      LookForTree;
      EmptyLoad;
    end;

    begin
      repeat
        MainLoop;
      until(false);
    end.
    {  Add banking, antiban, antirandoms and entFinding
     and it will be a pretty good script.
     if you need any more help you can pm me.
     }

    I love walking so if you ever need any walking help I can help you.

  6. #6
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    here i made you a simple anti-ban just CREDIT ME :

    SCAR Code:
    procedure P1nkyAntiBan;
    var                
      DBanMe: Integer;  
    begin
      DBanMe := Random(18);
    0: PickUpMouse;
        1: GameTab(1 + Random(33));
        2: DoEmote(1 + Random(75));  
        3: RandomRclick;    
        4: HoverSkill('random', false);  
        5: gametab(4);      
        6: AlmostLogout;    
        7: ChooseOption('cancel');
        8: MMouse(Random(MSX2), Random(MSY2), 0, 0);
        9: HoverSkill('woodcutting' ,false);

    ENJOY
    btw guys stfu its his 1st script , keep trying i like it(simple and nice)

  7. #7
    Join Date
    Dec 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    not bad for a first script but definitely can use some work

  8. #8
    Join Date
    Aug 2007
    Location
    Edgeville
    Posts
    178
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks guys =D
    @p1nky: I will use your anti ban when I learn how to put it in the script... And I will credit you. Don't worry, Lol

    Reading some dtms tuts, and player arrays, and making it more accurate =D keep the feedback coming

  9. #9
    Join Date
    Feb 2008
    Location
    Kelowna
    Posts
    94
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this could turn out to be a good script in the future , if you need any help testing it, just pm me and i might be able to help
    I'm
    A
    Master Quester

    If you need any quest help Pm me.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. need help with this yew cutter
    By david$ in forum OSR Help
    Replies: 12
    Last Post: 10-19-2007, 01:44 AM
  2. Yew Cutter
    By daddyproboot in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 07-27-2007, 02:22 PM
  3. need a yew cutter
    By fuzzball109 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 07-09-2007, 10:24 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
  •