FreakyMonkey
2008-05-12 23:49:39
Hey guys I've been working to try and find out as much as i can about TPAs but im having some problems. THis is a basic function i made. would this procedure work correctly?
function FindNatureRune: boolean;
var
Some,slot: Extended;
NatCol: Tpointarray;
NatBox: TBox;
begin
Gametab(4);
for slot:=1 to 28 do
begin
NatBox:=Invbox(slot);
Int(some);
if FindColorsSpiralTOlerance(x,y,Natcol,1411601,natbox.x1,natbox.y1,natbox.x2,natbox.y2,1)then
begin
Quick4:=GetArrayLength(natcol);
if Quick4>=2 then
begin
MiddleTPAEx(natcol,x,y);
MMouse(x,y,1,1);
Wait(1000+random(200));
end;
end;
if IsUpText('ature')then
begin
Result:=True;
Exit;
end;
if some=10 then
begin
Result:=false;
Exit;
end;
end;
end;