if you can improve repost an improved version post any problems or improvements
ive just put this together in bout 30 mins it will have bugs and faults
if any admins wanna make it better and shove it into srl quickly for an emergency release
im gunna make some more stuff now to patch up damage
ek left my user and pass in for my main thank god i noticed that quick
SCAR Code:
function loginplayer2:boolean;
var
PX, PY,trys,clickheretoplay,time:integer;
click:boolean;
begin
activateclient;
if loggedin then exit;
if getcolor(402, 204)=0 then
begin
mousebox(336, 400,421, 409,1);
wait(100+random(100));
end;
click:=false;
clickheretoplay := BitmapFromString(3, 41, 'beNq7UX13ETME/X' +
'40G4L+PFkCRc9WoSO4IEwNXBdC+4OpEPT7bjcU3W6GIG1VyaGCfhy' +
'1gqCfJ5wh6NdpHwj6eTYEgn5fiIGgX5ezEehaMQq6UY2CAOcHroc=' +
'');
mousebox(358,165,403,177,1);
repeat
wait(500+random(100));
click:=getcolor(402, 204)=0;
inc(trys);
until (trys>=15) or click=true;
if click=false then
begin
writeln('failed to login');
exit;
end;
click:=false
mousebox(310, 250, 452, 267,1);
wait(100+random(100));
TypeSend(Players[CurrentPlayer].Name);
Wait(100 + Random(100));
TypeSend(Players[CurrentPlayer].Pass);
Wait(100 + Random(100));
mousebox(336, 400,403, 371,1);
marktime(time);
repeat
wait(10+random(100));
if findbitmap(clickheretoplay,PX,PY) then
begin
mouse(PX, PY, 2,2,true);
click:=true;
exit;
end;
until click=true or (timefrommark(time)>=180000);
if click<>true then
begin
writeln('failed to login');
exit;
end;
FreeBitmap(ClickHereToPlay);
end;