Results 1 to 9 of 9

Thread: Need help.!

  1. #1
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need help.!

    Well, Im done with my Oak power chopper. The only thing is my tree finding.... It works, But it find the color cords, and keeps click there in the same spot, i use FindColorTolerance, Does any1 have a better tree finding procedure? heres the script...

    SCAR Code:
    {------------------------------}
    {       OakCutting             }
    {------------------------------}
    Procedure OakCutting;


    begin
      repeat
     if FindColorTolerance(x, y, 3180672, 10, 10, 766, 501, 2)then
    begin
        Mmouse(x, y, 1, 1)
        if(IsUpText('Oak'))then
    begin
        Wait(3000 +Random(249))
        Mouse(x, y, 0, 0, true)
    end;
    end;
        Until InvFull;
    end;


    Someone: 'Who the hell is TooManySitUps?'

    Boreas: 'Switch the first and last letter of my name, what do you get?'

    Someone: 'Um, SoreAb?'

    Boreas: 'And how do you get that?'

    Someone: 'From Too Many Sit Ups!! Haha, Boreas you are so clever!'

    Boreas: 'Ya he's like my evil twin that takes over when I'm being really sarcastic, or playing devil's advocate.'

  2. #2
    Join Date
    Apr 2007
    Posts
    220
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You can let it randomly click around the coords. Like this: MMouse(x, y, 20, 20) The two 20's mean that they mouse moves in a box around the x and y coords. A box of 20 pixels.. You can change it to 40 or what ever you want. But don't make it to big cuz then it will move the mouse next to the tree

  3. #3
    Join Date
    Apr 2007
    Posts
    186
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure ChopTree;
    begin
    if(FindColor(x,y,2256992,MSX1,MSY1,MSX2,MSY2))
    or(FindColor(x,y,866352,MSX1,MSY1,MSX2,MSY2))
    or(FindColor(x,y,3305568,MSX1,MSY1,MSX2,MSY2))
    or(FindColor(x,y,1919048,MSX1,MSY1,MSX2,MSY2))then
    MMouse(x,y,10,10)
    If(IsUpText('ak'))then
    Mouse(x,y,20,20,true)
    Flag;
    Wait(800)
    FindNormalRandoms;
    MarkTime(ChopMark)
    repeat
     if(TimeFromMark(ChopMark)>=10000)then
      Break;
    wait(50+random(50))
    until(InvFull)
    end;

  4. #4
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow ty guys, Insane that helped me alot.


    Someone: 'Who the hell is TooManySitUps?'

    Boreas: 'Switch the first and last letter of my name, what do you get?'

    Someone: 'Um, SoreAb?'

    Boreas: 'And how do you get that?'

    Someone: 'From Too Many Sit Ups!! Haha, Boreas you are so clever!'

    Boreas: 'Ya he's like my evil twin that takes over when I'm being really sarcastic, or playing devil's advocate.'

  5. #5
    Join Date
    Apr 2007
    Posts
    186
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Np, i just want that helper cup but i will help even if i dont get it

  6. #6
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well it has en error, Line 84: [Error] (14855:10): Unknown identifier 'ChopMark' in script


    Someone: 'Who the hell is TooManySitUps?'

    Boreas: 'Switch the first and last letter of my name, what do you get?'

    Someone: 'Um, SoreAb?'

    Boreas: 'And how do you get that?'

    Someone: 'From Too Many Sit Ups!! Haha, Boreas you are so clever!'

    Boreas: 'Ya he's like my evil twin that takes over when I'm being really sarcastic, or playing devil's advocate.'

  7. #7
    Join Date
    Apr 2007
    Posts
    186
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by kooldude View Post
    Well it has en error, Line 84: [Error] (14855:10): Unknown identifier 'ChopMark' in script
    Set it as Global variable:

    Var ChopMark:Integer;

    EDIT: If anymore errors just post them here!

  8. #8
    Join Date
    Feb 2007
    Location
    USA
    Posts
    667
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    or

    SCAR Code:
    procedure ChopTree;
    var
    ChopMark:integer;
    begin
    if(FindColor(x,y,2256992,MSX1,MSY1,MSX2,MSY2))
    or(FindColor(x,y,866352,MSX1,MSY1,MSX2,MSY2))
    or(FindColor(x,y,3305568,MSX1,MSY1,MSX2,MSY2))
    or(FindColor(x,y,1919048,MSX1,MSY1,MSX2,MSY2))then
    MMouse(x,y,10,10)
    If(IsUpText('ak'))then
    Mouse(x,y,20,20,true)
    Flag;
    Wait(800)
    FindNormalRandoms;
    MarkTime(ChopMark)
    repeat
     if(TimeFromMark(ChopMark)>=10000)then
      Break;
    wait(50+random(50))
    until(InvFull)
    end;

  9. #9
    Join Date
    Apr 2007
    Posts
    186
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by omgh4x0rz View Post
    or

    SCAR Code:
    procedure ChopTree;
    var
    ChopMark:integer;
    begin
    if(FindColor(x,y,2256992,MSX1,MSY1,MSX2,MSY2))
    or(FindColor(x,y,866352,MSX1,MSY1,MSX2,MSY2))
    or(FindColor(x,y,3305568,MSX1,MSY1,MSX2,MSY2))
    or(FindColor(x,y,1919048,MSX1,MSY1,MSX2,MSY2))then
    MMouse(x,y,10,10)
    If(IsUpText('ak'))then
    Mouse(x,y,20,20,true)
    Flag;
    Wait(800)
    FindNormalRandoms;
    MarkTime(ChopMark)
    repeat
     if(TimeFromMark(ChopMark)>=10000)then
      Break;
    wait(50+random(50))
    until(InvFull)
    end;
    Yeah the same

Thread Information

Users Browsing this Thread

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

Posting Permissions

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