SCAR Code:
program Logmein;
var
x,y,i:integer;logged:boolean;scr:string;
procedure checkstate;
begin
scr := BitmapFromString(52, 49, 'beNrtmc9rHGUYxyvMobQDIu4mZ' +
't22pJ020Q49rJs2TXaN4sZaGyxV6tJD0FLBWAJaAlIvoohSKBRFz+' +
'JBD9aevHmxIBRvrQfxJF79N/zMfLePb96ZeXcSNb0ID5N333nnfT/' +
'z/HzfyZ5oujH3v+y87Nr1UFHiOOZaOj6ZOLljYGB00/0ms+2mpPVY' +
'M46iB8gG2PCF7jtn5q++Nfzo3Te+uHYVob16bnmll6aN+AEaFM18M' +
'lz66ebGj99/g9y9cxuhAeHNT9eHC7Pbm/Zf0S02vbw0Cxvy7ZefCU' +
'9st64/b3qztWiE19XdscNqvt3knpHqxPbnH/e4fr5xHmZbKKCN/9r' +
'9kkaGZy7H1cACq+9AULAElj0+tZsgJTYlpQBe29PqNuDrmB42LIvM' +
'xJkQIIF1A4Z21yqu6z0SfjXrh01Ub87sRYCsH4aByauw6yjNZZPSA' +
'Du9b7f0VsedtupyReA6mQQ2kGRZKweaqso0VYvWzDNjfVV3xWaWha' +
'1YTANB4aW1mq8z9k2NDSTwiFZEqit13TpuVj/z1EkCYuve97dMdXE' +
'89tWqkGoatOYYSOBBY5c7UwiNOI7CMVXMJGG8cEoprXRqiw2NAcY1' +
's2kch2ECevDScnHponNWuQ1CIVAUdPOrG6rFCu6tVQUQtm/RLYtzS' +
'ppx7OUQ199KI2hswQpXjbAnuMPQm3KIsTU3s1Ulh7F59Z/HSKsxyh' +
'uKCK6l+W2rBqqPERiPlgAjClRPrWzVD6ht7JeqVOrZSJ4G0vBYi50' +
'beIqFotuXRsG2MepoNXP+XG8fD46A140jY6u5Z/BGBnS+pdKvA6n0' +
'lu0wnZIqrwsk3vCKY19tdBbOskLmVfqjze1TyT6dSWkXj8906riKN' +
'8ohbR4NqPK6sSlL2V4MR5MJVul1DiODXroySNfOznAm5YzA9fVXFu' +
'nk1uled2UwRxuhTQ9H1+GLfQYw/tXlJxE6mYoJxZwnwqjUD0uTs0n' +
'ajl/qT7OQlAMSq9x4e5HDHfLL9aGOfhJOoxyvfr/3NVcduOiRcJfB' +
'eorzF6/DtHoXIG2TXJVaXTk8tYDQ6CYNgk7ndOYUj5DU+PWH13T0M' +
'zaR0FCPfkrsXQSpu8yc5GfYUr1hd8EYkrW59WzyqCYxMBqoDmYJk8' +
'OmMRz9JLyOsa1dOIXmMS4OoElM7b/9/CGG4Hxd1I857ROtxVLhFg+' +
'iMVOUqDCK4LEL3oiPwcCwl4cL126tIzTUg8lwJ6aSFVafyQxhkExL' +
'wvHYvIAKsJ14vCk2ZsOfeX13gIKFYTg8w2ZOTpwYHuCKNmADrJkPc' +
'B8hHETIhEW2YrCH2d6/2PnqvXlmK94VG2ECA5HisuHnFNnVc8vZl6' +
'449p69cunMxvAIVkCZ6J8euVN9NkQZtfSWrMnCAGBcbCe2QS/hp/r' +
'XL55XoiuuosRCEvn7Te+na7XjPIF7Tx2d7hfF+tVgOSUBABAiAi0h' +
'mAxt9JM2aZmIYAz8+k4YsI7/zTOvgJLSRwDoHBogLqF+yo5cWZ10g' +
'bMRqtJhlv0uPX082QstSqPz7p3bpr2aYKPd6Wa2opaQ9OCyXQWGky' +
'PKHlpaeQNdQYV7E8hSmgbQhh8beXgeVRY4ufLFVvQ3Y/OMaD6WuVn' +
'nAGCW/7liVq4AMIaUqHSNxQGjX8JPjGtxsfnDdcTL5uWscagdawud' +
'tKMbazOBWPCEyYlc1GK1SXioDnH9HKOjTLFpZKa9Yy1m8MGiCB7Zg' +
'gZ6o+fU/CNZkvnuufpsUos+ohqb1nXtRT7hp74Au2POdh4umhIY1N' +
'XrttNkdCAifqGiIPL4ltiwCps0+4jKitKMYsESMlZ2DZpZfGHWA4M' +
'KRQGWbWO6bVmTvAcVgmmYoQpDhcnrkWXBsxoKHpPQkOq0W+OnqzSS' +
'LY+4bEyCekmGubDVaQCGxlwwZvZIvEapkMGwrLHpw7j8XIHsuhlj+' +
'mnbBcvryBxuSfggQKK0pXTkY/rYzoNXViZtC+ptk1RHSkXRSg3Vxk' +
'PKoZNHuKIHA0PYirhKIyohGXQP0o9Qo6lcaR6VKrIG9sGF/a4PeIT' +
'ejs4FRhXKY8ZGbMpYqMJlI3uoViprKYlleL0EMDwtaUSQULVhk5di' +
'XHoo5V7gVOnKA8Zw2nmaWZVgISSfyMpKdNAyXt8lxAYkVwITNwMMa' +
'6I0RLma4iIw+rPBceT9Cy9MKLMSeraZVJYDQCWDn+qnM8l3QaMylB' +
's0qxE5G9t+2LAdYHiIa01UN/kX1DGXpg==');
/|\
|
|
ERROR(before the "pg==")
if findbitmaptolerancein(scr,x,y,0,0,500,500,50) then
begin
writeln('Not logged in...')
writeln('Performing login')
logged := 'false'
end;
procedure login;
if logged = 'false' then
begin
movemousesmoothex(354 + random(50)-25,260 + random(10)-5,30,100,0,3,2);
wait(random(50)+10);
getmousepos(x,y);
clickmouse(x,y,true);
wait(random(70)+30);
if rand = 1 and rand = 1 then
begin
movemousesmooth(x+random(100)-50,y+random(100)-50);
end;
wait(random(250)+40);
sendkeyswait(username,30,100);
movemousesmoothex(351 + random(50)-25,359 + random(10)-5,30,100,0,3,2);
wait(random(50)+10);
getmousepos(x,y);
clickmouse(x,y,true);
wait(random(70)+30);
if rand = 1 and rand = 1 then
begin
movemousesmooth(x+random(100)-50,y+random(100)-50);
end;
wait(random(250)+40);
sendkeyswait(userpass,30,100);
end;
procedure presslogin; // omg!!!!!
movemousesmoothex(random(54)+351,random(14)+359,100,450,0,0,10);
getmousepos(x,y);
clickmouse(x,y,true);
repeat
wait(50)
i := i + 1
if i = 200 then
begin
addtoreport('Login Failed')
addtoreport('If your computer takes over 10 seconds to login then you have a problem.')
terminatescript;
end;
until(countcolortolerance(0,20,20,110,40,4) > 20 OR i = 200)
repeat
wait(100)
until(countcolortolerance(0,20,20,110,40,4) < 20)
writeln('Logged in sucsessfully')
end;