hmm, why dont you just find the dtm of the tuna itsself, instead of finding its color and checking the uptext?
i dont know how that would fix the problem, but give it a shot
also, you didnt post the actual opening bank procedure
hmm, why dont you just find the dtm of the tuna itsself, instead of finding its color and checking the uptext?
i dont know how that would fix the problem, but give it a shot
also, you didnt post the actual opening bank procedure
<TViYH> i had a dream about you again awkwardsaw
Malachi 2:3
I tried with tuna DTM 2... wast as good as this.
Posted bank opening before... and it works... kinda good actually.
I havent been able to open bank and then bank shit... i think you could help me there... i think i mess up some loops or something... and i dont know alot of commands.
Did u add me to msn yet?
I think that peace of code was the one i was testing yesterday... dont remember cause i was tierd and high and got frustrated lol.Code:program New; {.Include SRL-rsc/SRL_rsc.scar} {.include srl/srl/misc/Reports.scar} const banker_col = 65536; //color of the banker fish_col = 7368816; function Guptext(uptext : string; var x, y : integer): boolean; var dtm : integer; begin case lowercase(uptext) of 'banker' : DTM := DTMFromString('78DA639CC9C0C0C0C98001F8819811CA66EC0' + '612EC0C58015CCD2A20C14B40CD444C35FFFFA3A959896917BA1A' + '00E57C074F'); 'talk' : DTM := DTMFromString('78DA63CC6664603060C000FC40CC086533466' + '257C380ACA60AC8D225A0A602C832C1AF0600DE010293'); 'answer' : DTM := DTMFromString('78DA635CCBC0C0C0C98001F881981188FF030' + '1E37220839D012B6084D10F885033014870E3570300C57A06FA'); 'tuna' : DTM := DTMFromString('78DA634C626460B8CE8002162F5ECCC00FA41' + '9A17CC63820EB0EAA9A90504B881C4C4D25907501554D414101AA' + '9A1020EB2A7E350042900A6C'); 'deposit' : DTM := DTMFromString('78DA637CC3C0C0C0C7C8800EF8811824FA1F0' + '818B7810430D53040D580692146C26A8E020951026A98812C1EFC' + '6A00BFE406E6'); end; result := finddtm(dtm, x, y, rssx1, rssy1, rssx2, rssy2); freedtm(dtm); end; procedure DepositAll1; var cts, a, x, y : integer; tpa : TPointArray; begin cts := getcolortolerancespeed; colortolerancespeed(3); findcolorsspiraltolerance(rsscx, rsscy, tpa, fish_col, rssx1, rssy1, rssx2, rssy2, 2); if length(tpa) < 50 then exit; for a := 0 to 50 do begin mmouse(tpa[a].x, tpa[a].y, 0, 0); if Guptext('tuna', x, y) then begin mouse(tpa[a].x, tpa[a].y, 0, 0, false); wait(100 + random(200)); if Guptext('deposit', x, y) then begin MoveMouse (427, 295) wait(300 + random(200)); ClickMouse (427, 294, True); end else wait(10 + random(100)); end; wait(10 + random(100)); end; wait(2000 + random(500)); end; procedure IFintalk; var x, y : integer; begin if not Guptext('answer', x, y) then exit; while Guptext('answer', x, y) do begin wait(1000 + random(1000)); mouse(x, y, 0, 0, true); wait(10000 + random(500)); end; wait(700 + random(453)); DepositAll1; end; procedure TalkBanker; var cts, a, x, y : integer; tpa : TPointArray; begin cts := getcolortolerancespeed; colortolerancespeed(3); findcolorsspiraltolerance(rsscx, rsscy, tpa, banker_col, rssx1, rssy1, rssx2, rssy2, 2); if length(tpa) < 50 then exit; for a := 0 to 50 do begin mmouse(tpa[a].x, tpa[a].y, 0, 0); if Guptext('banker', x, y) then begin mouse(tpa[a].x, tpa[a].y, 0, 0, false); wait(100 + random(200)); if Guptext('talk', x, y) then begin wait(100 + random(200)); mouse(x, y, 20, 5, true); break; end; wait(100 + random(100)); end; wait(100 + random(100)); end; wait(3000 + random(500)); IFintalk; end; begin setuprsc; repeat TalkBanker; wait(10 + random(20)); until(false); end.
Im not at failsafes yet... all these ifs and thens are confusing me lol.
Copy paste coding sucks... but atleast im trying ^^
Last edited by r4it; 11-29-2009 at 04:35 PM.
add in some writeln's so you know exactly where it messes up, also make a "while (not bankscreenopen) do wait(100 + random(10));" function right after you finish talking, and before you deposit. also add in the fail safe before you deposit
<TViYH> i had a dream about you again awkwardsaw
Malachi 2:3
There are currently 1 users browsing this thread. (0 members and 1 guests)