Results 1 to 6 of 6

Thread: wcing help please

  1. #1
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default wcing help please

    well i need if a trees gone sorta function so far i have this

    SCAR Code:
    Procedure CutWillows;
    var CBx,CBy : Integer;
    Begin
      for Colors := 1 to 6 do
        begin
        CBx := MSCx;
        CBy := MSCy;
        if FindColorSpiralTolerance(CBx, CBy, WillowColors[Colors], MSX1, MSY1, MSX2, MSY2, 15) then
          begin
            Mouse(CBx, CBy, 0, 0, True);
            If FindText('your axe at') Then
            Writeln('Cutting willows');
            Repeat
            Wait(100);
            Until FindText('get some willows.');
          End;
        End;
     End;

    That will just get 1 willow then stop correct? i want it to keep cutting until the trees gone then it moves on to the next tree

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

    Default

    yes it will click on one willow. (fixed some other things)

    SCAR Code:
    Procedure CutWillows;
    var
      CBx,CBy : Integer;
    Begin
      for Colors := 1 to 6 do
        begin
        CBx := MSCx;
        CBy := MSCy;
        if FindColorSpiralTolerance(CBx, CBy, WillowColors[Colors], MSX1, MSY1, MSX2, MSY2, 15) then
        begin
          MMouse(CBx, CBy, 0, 0);
          If FindText('your axe at') Then
          begin
            Writeln('Cutting willows');
            Mouse(CBx, CBy, 2, 2, True);
            Repeat
              Wait(100);
            Until FindText(TreeGone);
          end;
        end;
      end;
    end;


    This is just a little thing lol. (i would not use it when i was you ) anyway, make the findcolorspiral in a little box around the player. and ad a time mark in the repeat loop in the cutwillowprocedure.
    SCAR Code:
    Procedure TreeGone:Boolean;
    var
      Colors : Interger;
    Begin
      for Colors := 1 to 6 do
        begin
        CBx := MSCx;
        CBy := MSCy;
        if FindColorSpiralTolerance(CBx, CBy, WillowColors[Colors], MSX1, MSY1, MSX2, MSY2, 15) then
          Restul:= False;
      end;
    end;

  3. #3
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Fixed a typo for you rikjess:
    (I didn't make this)

    SCAR Code:
    Procedure TreeGone:Boolean;
    var
      Colors : Interger;
    Begin
      for Colors := 1 to 6 do
        begin
        CBx := MSCx;
        CBy := MSCy;
        if FindColorSpiralTolerance(CBx, CBy, WillowColors[Colors], MSX1, MSY1, MSX2, MSY2, 15) then
          Result:= False;
      end;
    end;
    I've thought about something. If you cut one willow it will stop because it finds that text 'you get some', right?
    If you do it again, it will stop immediately because 'you get some' is already existing...Am I wrong there?

    Just a thought

    -Knives

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

    Default

    Quote Originally Posted by rudeboialex View Post
    well i need if a trees gone sorta function so far i have this

    SCAR Code:
    Procedure CutWillows;
    var CBx,CBy : Integer;
    Begin
      for Colors := 1 to 6 do
        begin
        CBx := MSCx;
        CBy := MSCy;
        if FindColorSpiralTolerance(CBx, CBy, WillowColors[Colors], MSX1, MSY1, MSX2, MSY2, 15) then
          begin
            Mouse(CBx, CBy, 0, 0, True);
            If FindText('your axe at') Then
            Writeln('Cutting willows');
            Repeat
            Wait(100);
            Until FindText('get some willows.');
          End;
        End;
     End;

    That will just get 1 willow then stop correct? i want it to keep cutting until the trees gone then it moves on to the next tree
    alex, dude, failsafes? rofl
    rikjess ones is cool
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

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

    Default

    Quote Originally Posted by King of Knives View Post
    Fixed a typo for you rikjess:
    (I didn't make this)

    SCAR Code:
    Procedure TreeGone:Boolean;
    var
      Colors : Interger;
    Begin
      for Colors := 1 to 6 do
        begin
        CBx := MSCx;
        CBy := MSCy;
        if FindColorSpiralTolerance(CBx, CBy, WillowColors[Colors], MSX1, MSY1, MSX2, MSY2, 15) then
          Result:= False;
      end;
    end;
    I've thought about something. If you cut one willow it will stop because it finds that text 'you get some', right?
    If you do it again, it will stop immediately because 'you get some' is already existing...Am I wrong there?

    Just a thought

    -Knives
    haha ty .
    but yes your write. when he want to use the ''you get some''. it will be:
    FindBlackChatMessage('you get some') //that search on the last chat line. but as far as i know. you get more then one logg from a willow. so its a bit botty to click on the tree whole the time.

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

    Default

    Quote Originally Posted by the scar noob View Post
    alex, dude, failsafes? rofl
    rikjess ones is cool

    have made this in 10 mins no way am i doing failsafes ect.. until its finished the main procedures then ill build on it

    EDIT: i dont get the treegone procedure

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Taking in wcing requests
    By hardman in forum RS3 Outdated / Broken Scripts
    Replies: 13
    Last Post: 08-20-2007, 09:11 PM
  2. wcing procedure
    By macromacro123 in forum OSR Help
    Replies: 2
    Last Post: 02-27-2007, 03:11 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
  •