SRL Archive - Research & Development Lounge

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!

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;

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

From: U L T R A
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!

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:

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 :p

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

Find obj uses IsUpText so it should be:

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;