Whilst trying to figure out how to withdraw some coins i discovered that findcoins is broken....so I took some time...and I made a new one...using some functions...I wouldn't even have heard of yesterday...but it seems to do a good job... at this current stage it should work, and I do have a backup uptext check...but with some expert tweeking, that I am yet unable to do...it shouldn't need it...so without anymore rambling....
SCAR Code:
Function CoinFinder(var Tpoint:Tpoint):Boolean;
var
i:integer;
Tpnt:TPoint;
TPA:TPointArray;
ATPA:T2DPointArray;
begin
Result := False
Findcolorstolerance(TPA, 1540000, MBX1, MBY1, MBX2, MBY2, 10)
ATPA := TPAtoATPAEx(tpa, 20, 30)
for i:=0 to high(ATPA) do
if high(ATPA[i])>10 then
begin
TPnt := MiddleTPA(ATPA[i]);
MMouse(Tpnt.x, Tpnt.y, 5, 5)
If isuptext('oins') then
begin
result := true
TPoint:=TPnt
exit;
end;
end;
end;
Currently working for the bank only...but should be able to be modded for invo use also...but I am tired... so I am going to bed...school starts day after tomorrow...so if I don't make it work with it by this time tomorrow, don't expect me to do it...sorry...