Results 1 to 5 of 5

Thread: ULTRATreeCutRandom & ULTRARockMineRandom

  1. #1
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default ULTRATreeCutRandom & ULTRARockMineRandom

    Hey i made two procedures, first one finds and clicks a tree, and second one finds and clicks a rock. Please post feedback and comments. If you wanna use it in your script, please do credit!

    SCAR Code:
    program UsefullStuff;
    {.Include SRL/SRL.Scar}

    {procedure: ULTRATreeCutRandom('TreeName', TreeColor, TreeTolerance, RandomX, RandomY);}
    {description: Clicks A Tree.}
    {author: U L T R A.}
    procedure ULTRATreeCutRandom(TheTreeName: String; TheTreeColor, TheTreeTolerance, RandomTreeX, RandomTreeY: Integer);
    var
    TheTreePositionX, TheTreePositionY: Integer;
    begin
      MouseSpeed:=15+random(5);
     if(FindObj(TheTreePositionX, TheTreePositionY, TheTreeName, TheTreeColor, TheTreeTolerance))then
      begin
     MMouse(TheTreePositionX, TheTreePositionY, RandomTreeX, RandomTreeY);
    if(IsUpText(TheTreeName))then
     begin
      Mouse(TheTreePositionX, TheTreePositionY, RandomTreeX, RandomTreeY, True);
     end;
    end;
     end;
     
    {procedure: ULTRARockMineRandom('RockName', RockColor, RockTolerance, RandomX, RandomY);}
    {description: Clicks A Rock.}
    {author: U L T R A.}
    procedure ULTRARockMineRandom(TheRockName: String; TheRockColor, TheRockTolerance, RandomRockX, RandomRockY: Integer);
    var
    TheRockPositionX, TheRockPositionY: Integer;
    begin
      MousSpeed:=15+random(5);
     if(FindObj(TheRockPositionX, TheRockPositionY, TheRockName, TheRockColor, TheRockTolerance))then
      begin
     MMouse(TheRockPositionX, TheRockPositionY, RandomRockX, RandomRockY);
    if(IsUpText(TheRockName))then
     begin
      Mouse(TheRockPositionX, TheRockPositionY, RandomRockX, RandomRockY, True);
     end;
    end;
     end;
    Woot woot.

  2. #2
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Pretty go. Btw you could use FindObjCustom. anyway good effort

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

    Default

    Quote Originally Posted by U L T R A View Post
    Hey i made two procedures, first one finds and clicks a tree, and second one finds and clicks a rock. Please post feedback and comments. If you wanna use it in your script, please do credit!

    SCAR Code:
    program UsefullStuff;
    {.Include SRL/SRL.Scar}

    {procedure: ULTRATreeCutRandom('TreeName', TreeColor, TreeTolerance, RandomX, RandomY);}
    {description: Clicks A Tree.}
    {author: U L T R A.}
    procedure ULTRATreeCutRandom(TheTreeName: String; TheTreeColor, TheTreeTolerance, RandomTreeX, RandomTreeY: Integer);
    var
    TheTreePositionX, TheTreePositionY: Integer;
    begin
      MouseSpeed:=15+random(5);
     if(FindObj(TheTreePositionX, TheTreePositionY, TheTreeName, TheTreeColor, TheTreeTolerance))then
      begin
     MMouse(TheTreePositionX, TheTreePositionY, RandomTreeX, RandomTreeY);
    if(IsUpText(TheTreeName))then
     begin
      Mouse(TheTreePositionX, TheTreePositionY, RandomTreeX, RandomTreeY, True);
     end;
    end;
     end;
     
    {procedure: ULTRARockMineRandom('RockName', RockColor, RockTolerance, RandomX, RandomY);}
    {description: Clicks A Rock.}
    {author: U L T R A.}
    procedure ULTRARockMineRandom(TheRockName: String; TheRockColor, TheRockTolerance, RandomRockX, RandomRockY: Integer);
    var
    TheRockPositionX, TheRockPositionY: Integer;
    begin
      MousSpeed:=15+random(5);
     if(FindObj(TheRockPositionX, TheRockPositionY, TheRockName, TheRockColor, TheRockTolerance))then
      begin
     MMouse(TheRockPositionX, TheRockPositionY, RandomRockX, RandomRockY);
    if(IsUpText(TheRockName))then
     begin
      Mouse(TheRockPositionX, TheRockPositionY, RandomRockX, RandomRockY, True);
     end;
    end;
     end;

    Ok, my spacing is bad, but you got worst... it should be this:
    SCAR Code:
    procedure ULTRATreeCutRandom(TheTreeName: String; TheTreeColor, TheTreeTolerance, RandomTreeX, RandomTreeY: Integer);
    var
    TheTreePositionX, TheTreePositionY: Integer;
    begin
       MouseSpeed:=15+random(5);
       if(FindObj(TheTreePositionX, TheTreePositionY, TheTreeName, TheTreeColor, TheTreeTolerance))then
       begin
          MMouse(TheTreePositionX, TheTreePositionY, RandomTreeX,    RandomTreeY);
          if(IsUpText(TheTreeName))then
          begin
            Mouse(TheTreePositionX, TheTreePositionY, RandomTreeX, RandomTreeY, True);
          end;
       end;
    end;

    Good your are tring to improve yourself, but evryone can use findobj etc...try make your own obj finder
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  4. #4
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well iam not sure that everyone can use find object some new people dont even know about it . And yeah the spacing, i will edit it tommorow, have to go for today.
    Woot woot.

  5. #5
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Find obj uses IsUpText so it should be:
    SCAR Code:
    procedure ULTRATreeCutRandom(TheTreeName: String; TheTreeColor, TheTreeTolerance, RandomTreeX, RandomTreeY: Integer);
    var
    TheTreePositionX, TheTreePositionY: Integer;
    begin
       MouseSpeed:=15+random(5);
       if(FindObj(TheTreePositionX, TheTreePositionY, TheTreeName, TheTreeColor, TheTreeTolerance))then
         Mouse(TheTreePositionX, TheTreePositionY, RandomTreeX, RandomTreeY, True);
    end;

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
  •