Negaal
01-27-2008, 06:37 PM
In case if you got problems with connection you should add it to script's random finding part...
Credits: Login.scar
Just for peoples who don't know scar well...
procedure ClickThat;
var
ClickHereToPlay, cx, cy : integer;
begin
ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888 443D' +
'26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F43 65B7' +
'067D37AC3D95AADF2F50962C79');
if (FindBitmapToleranceIn(ClickHereToPlay, cx, cy, 250, 270, 530, 390, 5)) then
Mouse(CHx, CHy, 50, 20, True);
FreeBitmap(ClickHereToPlay);
end;
Edit:
Originally Posted by mels
Hrm, after it clicks the 'Click Here to Play' button, it makes the players false ;/
procedure ClickThat;
var
ClickHereToPlay, cx, cy, Mark : integer;
begin
ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888 443D' +
'26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F43 65B7' +
'067D37AC3D95AADF2F50962C79');
if (FindBitmapToleranceIn(ClickHereToPlay, cx, cy, 250, 270, 530, 390, 5)) then
begin
Mouse(Cx, Cy, 50, 20, True);
MarkTime(Mark)
repeat
Wait(100)
If LoggedIn then
Break;
until(Timefrommark(Mark) > 30000);
end;
FreeBitmap(ClickHereToPlay);
end;
Credits: Login.scar
Just for peoples who don't know scar well...
procedure ClickThat;
var
ClickHereToPlay, cx, cy : integer;
begin
ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888 443D' +
'26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F43 65B7' +
'067D37AC3D95AADF2F50962C79');
if (FindBitmapToleranceIn(ClickHereToPlay, cx, cy, 250, 270, 530, 390, 5)) then
Mouse(CHx, CHy, 50, 20, True);
FreeBitmap(ClickHereToPlay);
end;
Edit:
Originally Posted by mels
Hrm, after it clicks the 'Click Here to Play' button, it makes the players false ;/
procedure ClickThat;
var
ClickHereToPlay, cx, cy, Mark : integer;
begin
ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888 443D' +
'26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F43 65B7' +
'067D37AC3D95AADF2F50962C79');
if (FindBitmapToleranceIn(ClickHereToPlay, cx, cy, 250, 270, 530, 390, 5)) then
begin
Mouse(Cx, Cy, 50, 20, True);
MarkTime(Mark)
repeat
Wait(100)
If LoggedIn then
Break;
until(Timefrommark(Mark) > 30000);
end;
FreeBitmap(ClickHereToPlay);
end;