Simba Code:
Function IsVein(var x,y:integer) : Boolean;
var
ItemX, ItemY : Integer;
TPA : Array Of TPoint;
ATPA : T2DPointArray;
i : Integer;
PlayerBox, MBox: TPointArray;
Begin
PlayerBox := TPAFromBox(IntToBox(MSCx - 15, MSCy - 25, MSCx + 15, MSCy + 20));
FindColorsSpiralTolerance(ItemX, ItemY, TPA, Colour, (MSCX - 40), (MSCY - 40), (MSCX + 40), (MSCY + 40), TolR)
ClearTPAFromTPAWrap(TPA, PlayerBox, {var}TPA);
SortTPAFrom(TPA, IntToPoint(MSCx, MSCy));
Begin
ATPA := SplitTPA(TPA, 10);
For i := 0 To High(ATPA) Do
Begin
If MiddleTPAEX(ATPA[i], ItemX, ItemY) then
Begin
MMouse(ItemX, ItemY, 1, 1);
End else
Continue;
If WaitUptext(Desc, 200) Then
Begin
x := ItemX;
y := ItemY;
SMART_ClearCanvasArea(IntToBox(MSCX - 40, MSCY - 40, MSCX + 40, MSCY + 40));
SMART_DrawBoxEx(True, False, IntToBox(ItemX - 10, ItemY - 10, ItemX + 10, ItemY + 10), ClPurple);
Result := FindColorTolerance(x, y, Colour, ItemX - 10, ItemY - 10, ItemX + 10, ItemY + 10, TolR);
Exit;
End;
End;
End;
End;