PDA

View Full Version : ULTRATreeCutRandom & ULTRARockMineRandom



Ultra
12-16-2007, 03:46 PM
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;

Naum
12-16-2007, 05:17 PM
Pretty go. Btw you could use FindObjCustom. anyway good effort :)

Negaal
12-17-2007, 06:39 AM
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

Ultra
12-19-2007, 03:17 AM
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.

MylesMadness
12-20-2007, 01:19 PM
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;