Naike
02-12-2008, 10:02 PM
Hi,
This is my first Function! Just starting to script agian after some minor problems ^^.
Its my newby tree finder!, Finds any tree in Rs with right setup.
FindaTree('TreeName', TreeColor1, TreeColor2, Tolerance, HowLongInSec);
TreeName, Name of the tree!
TreeColor1-2, TreeColor ( Pick a pretty rare color )
Tolerance, Use 3-10 ( 10 is very high. )
HowLongInSec, How long it will look for tree until it gives up.
Procedure FindaTree(TreeName: String; TreeCol1, TreeCol2, Tolerance, HowlongInSec : integer);
Var
Time, x, y, i, Count : integer;
TreeColor : Array[0..1] of Integer;
Begin
TreeColor[0] := TreeCol1;
TreeColor[1] := TreeCol2;
MarkTime(Time);
Repeat
For i:= 0 to 1 do
If FindColorSpiralTolerance(x, y, TreeColor[i], MSX1, MSY1, MSX2, MSY2, Tolerance) then
begin
MMouse(x, y, 0, 0);
If IsUpText(TreeName) then Mouse(x, y, 0, 0, False);
If ChooseOption('hop') then Exit;
end else Count := Count + 1;
Until(TimeFromMark(time) > 1000*HowLongInSec) or (Count = 3);
end;
This is my first Function! Just starting to script agian after some minor problems ^^.
Its my newby tree finder!, Finds any tree in Rs with right setup.
FindaTree('TreeName', TreeColor1, TreeColor2, Tolerance, HowLongInSec);
TreeName, Name of the tree!
TreeColor1-2, TreeColor ( Pick a pretty rare color )
Tolerance, Use 3-10 ( 10 is very high. )
HowLongInSec, How long it will look for tree until it gives up.
Procedure FindaTree(TreeName: String; TreeCol1, TreeCol2, Tolerance, HowlongInSec : integer);
Var
Time, x, y, i, Count : integer;
TreeColor : Array[0..1] of Integer;
Begin
TreeColor[0] := TreeCol1;
TreeColor[1] := TreeCol2;
MarkTime(Time);
Repeat
For i:= 0 to 1 do
If FindColorSpiralTolerance(x, y, TreeColor[i], MSX1, MSY1, MSX2, MSY2, Tolerance) then
begin
MMouse(x, y, 0, 0);
If IsUpText(TreeName) then Mouse(x, y, 0, 0, False);
If ChooseOption('hop') then Exit;
end else Count := Count + 1;
Until(TimeFromMark(time) > 1000*HowLongInSec) or (Count = 3);
end;