i made it compile im not to sure how well it will work
remember to freebitmaps and DTMs to prevent memory leaks also movemoussmoothex was outdated and so is clickmouse look through mouse.scar to see the available commands, also try to learn standards it makes your script look neater
rep++ if this helped
if u dont understand anything that i did just ask and il try to explain to to u
SCAR Code:
program LoginPlayer;
{.include SRL/SRL.scar}
var
login,login2,x,y :integer;
procedure LoadBmp;
begin
login := BitmapFromString(11, 13, 'beNp1kMEKgDAMQ/dlCuJhDtT' +
'LUPC6//8GDQTCbFjJoXSvJGupudRlPSA0+/lcd6PQj6QVbVGv1TRv' +
'YAKQ/gXGAbrQiACNBPBVjFK5O+bolTxkwERfpjxDOEgP6AgjQLdyo' +
'K8+JJWs8geKqrVV');
login2 := BitmapFromString(11, 15, 'beNp9UEEKgDAM67sUFMSDDt' +
'SLJ///j9kZCKUZljC6Ns2ylntZz620M8IrhFZS67geXOsXSiBAMDM' +
'KejLNuwOVREjdqND1nJ4AfHwYV/UAZXSjbVXAlBLiT/8JUKDPKgEn' +
'YGLEJKjmC8fOmaRWF43wApsRvoE=');
end;
procedure LoginProcedure;
begin
MMouse(x, y, 2, 2);
Wait(50);
ClickMouse(x, y, true);
SendKeys('BLAH');
wait(50)
SendKeys(chr(13));
wait(50 + random(20))
SendKeys('SOMETHING')
wait(100)
if (findBitmap(login2, x, y)) then
MoveMouseSmooth(x, y);
ClickMouse(x, y, true);
freebitmap(login);
freebitmap(login2);
end;
begin
loadBmp;
LoginProcedure;
end.