SOLVED -
why wont it do the ismining thing.. it works on other function but i tried to put this new function in n it just doesnt seem to want to wait after clicking..
Code:function addycolor begin end; Function FindAddy: Boolean; var // B: TBox; TPA: TPointArray; i,CTS,X,Y, Addycounter, q: Integer; ATPA: T2DPointArray; begin Result := False; if (not loggedin) then exit; CTS := GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(0.08, 0.51); FindColorsSpiralTolerance(MSCX, MSCY, TPA, AddyColor, MSX1, MSY1, MSX2, MSY2, 15); SetColorSpeed2Modifiers(0.02, 0.02); ColorToleranceSpeed(CTS); if (Length(TPA) < 1) then Exit; ATPA := TPAToATPAEx(TPA, 10, 10); filterTPAsBetween(ATPA, 10, 100) SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY)); smart_debugATPA(true,ATPA); for i := 0 to High(ATPA) do begin MiddleTPAEx(ATPA[i], X, Y); HumanMMouse(x, y, 2, 2); Wait(RandomRange(50,150)); if WaitUpTextMulti(['ine','damantite'], 600) then begin Mouse(x, y, 0, 0, true); StatsGuise('Mining Addy'); Result := true; makecompass('w'); While IsMining Do begin if InvCount = AddyCounter then exit; if TimeFromMark(q) > MineRuneFor then exit; StatsGuise('waiting for rrune ore'); MouseAntiBan; end; end else begin StatsGuise('No Addy left'); GetEmAlls := GetEmAlls + 1; BotherWalking := BotherWalking + 1; end; end; end; begin repeat findaddy until(false) end.



Reply With Quote
