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;
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;