SRL Archive - SRL Archives

ClickContinue Fast Fix


Nadeem

2009-07-25 02:13:02

It just checks to see if the scroll bar in the chat area exists, and if not then it clicks continue. Its fast and it works.


function ClickContinue(Click, Wait: Boolean): Boolean;
begin
Result := GetColor(509, 449) <> 4346972;
if (Result and Click) then
Mouse(219, 459, 139, 9, true);
if Wait then ChatWait;
end;



~NS

Smarter Child

2009-07-25 02:30:03

:p, i shoulda thought of this!

ZephyrsFury

2009-07-25 19:13:51

But what if the Click to Continue text isn't there?

Nadeem

2009-07-25 20:16:29

From: ZephyrsFury
But what if the Click to Continue text isn't there?


AFAIK, the click to continue text only shows up when there is no scroll bar, so if there is no scroll there's gotta be a click to continue text there :)

If this isn't good enough then probably a TPA with CTS 0.



~NS

Smarter Child

2009-07-25 22:45:44

Tbh, i don't think it requires a tPointArray. But maybe use FindColorTol?

Nadeem

2009-07-25 22:52:30

No need for tolerance, or my bad i was thinking a bit back to date… we can probably just use something like:


function ClickContinue(Click, Wait: Boolean): Boolean;
var x, y: Integer;
begin
Result := FindColor(x, y, clBlue, 219, 139, 223, 143);
// Result := FindColor(x, y, clBlue, 219, 139, 223, 143) and (GetColor(509, 449) <> 4346972);
if (Result and Click) then
Mouse(219, 459, 139, 9, true);
if Wait then ChatWait;
end;

~NS