I've edited the script to just test some of the bitmaps. Total there will be 50 words. You are supposed to let the qualified scholars(correct spellers=UP ARROW) through the gate, and to send away the unqualified Neopians(bad spellers=DOWN ARROW).
The game can be found here: http://www.neopets.com/games/play.ph...r&quality=high
SCAR Code:
{Directions: Run in 800x600. Let game load, specify target, then start script.}
program ImperialExam; //by uncfan1119
var
x,y,i:integer;
words:array[0..2] of integer;
{procedure StartGame;
begin
ClickMouse(112,240,true);
Wait(500);
ClickMouse(79,95,true);
Wait(300);
ClickMouse(446,330,true);
Wait(300);
ClickMouse(295,438,true);
end; }
procedure LoadBitmaps;
begin
words[0] := BitmapFromString(219, 31, 'beNrtW+1RYzEMTAfQAXQAHUAH0E' +
'HoADqADqCD0AF0AB1AB9ABdHC3Ew+avdXHMy+54Q6sH0zwe5at9Vq' +
'S5eTXryFDhgwZMmTIkCFDhgwZ8oXy/v5+e3t7dXV1f3+/ubbX19eb' +
'mxtoe35+/oFgAkPYDgQGr2bL/v7+Yi27u7ug04ZsXHzI4eHhT0Py7' +
'OzMzN/K7v6BwhSCYHdvog2elrU9Pj7+zK0NOT4+/n4GYn2P1/L3Qg' +
'ACK1Now4HQnbVtK2oDh9PTU+CAD1+7ItiwbUVC0xBizHZM+HvvOGR' +
'6f2kUQNeQRJDdcBT4WyxWmzDi19Z9+NemAez/Ly4uQrq2JQOe3y+F' +
'fnh4YG/z5c7hX6ABZMMsd1spIoj3vwD49PT08CH4bO1vb29owd+ej' +
'i8vLxICeEvCjz2upa0ONuPjh8jG5EeZ94OS8AXryyOaFDlA/YINl8' +
'2ZBU8lDYA/B0VZf4FG7fAz3JpC7ttamJBtRXBy8R1tJllNo9P2efi' +
'LTzs4OFj8KTs7O3d3d6vVyv7Fa56KvuPR0REiVJgk8xpxWLfD8v1a' +
'mM9FGMUS+4AIBEyzH6KNAm2y4txLghoeWUQLteGprCO6LHKxpWQ0v' +
'MlhbMWCMraMmzlk/GvrjvZsGrDIQLCZhPUKtGAyoQZ/JJ+HfxFhC1' +
'kul9wRdO3pxYRcbCBy+gPm/JTToR5tggn3koE8ASYVSrDODJnUKdm' +
'OmFxPxgdrL1aaKCoMMMpvlqK+MQ9/DsdwfZ1mnpycsG/s7LgtQkqJ' +
'TLyQwdgJiLgg8SRZHthpqQRrETvGTioEE2zVJokRDmFBJBQrTfCmE' +
'4LVGnxRYh7+Jufn553d9/b2OLFEXO7syAb2WNe5QAKjORMpB9WS0d' +
'vClhASIx6TCEOMBtCW+VUuCPSgYXaFQTOLxcYQfMhozFkQK+f2IuK' +
'LUVk5rhN/E/Zy+Iyg3M4mcIbSFwGa3aNw9fLysnXE58Kt+e0D81v+' +
'L7jhX6CER9KF641WqBHa+wVCr5ZRcxcJT2G7lN+l2snppc++hOS+U' +
'iqmtVRQ4rLZxfi0NKxZ5Fnt8zrhlT+PZBmLKDcTOFH0Oufh77NHkK' +
'oI5dwRb/IjPuyITkBXZEEMnXgAJlhWtuV2TrfYaikAygQMENnXTC3' +
'BsPnGK5LsZJqNlb1gy812tcaMpWEoD8uM9QtMPPaQrFnOleJ7M0fR' +
'iX9IHinscFDG54yQOGWLdWEUq08iHjQOzWyg7V9RxTs085y+l3GJR' +
'5dNhJkIJ70HCGutk3XIYne0tTYOyJtyHAjx+VQdMvPk9YbKcJ6Bf0' +
'jIVkI04XpOQUjEaH4EJf3nxM5dHAIuFaQeoIoJZC6CHYLdA4b89Jf' +
'pk36pXp3+N7MiWydji+hQZwLZUWgG/uGIYKBx8vr6WgBn/ylMRsLZ' +
'zju+LClWsNMQR1T4+RDPolDDoUQAkfPvJIYtS8RTsFRswcJJiiU8E' +
'UJ6vk0yNlsp4GPa/Inel1PYOu8hC5Jwoij3s+L/2fPMwN9EDi/IG+' +
'EMfa270ZU52VnzkaM9J4oFi8RHhQbyajLIcgyRQJNxgJeMR5f3W/Z' +
'olw5ylJax/BEV7zMgUiScvLiX5ByTCc/y/mbfn9D5+x6F+5WO0NwM' +
'L3bBPPyzCFvLarWyjnaDM1moyXYcr3vx1Z0sV5Tlzgo1tdcyGBl5p' +
'ven6lT+9BreRoUbbfJLX7LQn6qoh325SJX17RyUl3Ie/iyd1PKZ5H' +
'K57OnFeyQ7FxdWZJ4wK4zLfVxdAMmu2HhFOm9qQkaFZUAbNDuldn5' +
'b41OTCftOZoM9hW4pDs/D319J+xCMFnCVk0muCxVk3l2LvzBl68QK' +
'rl0ImGyCYGVujbuwqvBbu3zTGpbZpVd9l20l0+I7CbzcbHiGRv21C' +
's9wtIBvzITQcOnLoBnI4UygLauu+y9YzsY/dJWXHwIe2gEHRxi0cG' +
'FcLh/xsnVsr2GSrUbnZ9va/dbAm+0nLWF5JPy5h2kTu+znIaG9bW5' +
'4KgNZe80HrkB6JYVz84AUaHRqkzk0oIrfIGDEBrIHrf49Edol423l' +
'7vDlefgPGTJkyJAhQ4YMGTJkyP8tvwH2jB0u');
words[1] := BitmapFromString(161, 20, 'beNrtmu9RG0EMxekAOoAOoAPTAX' +
'QAHUAHcQfQAXRgOsAdQAemA+iA/IadKG+ednXLJJN8sT6d77Q6rZ7' +
'+7vnzc0972tOeCnp6ejr4orOzs7e3tz8R9fHxcXJygqijoyPE7m2r' +
'dH19jVkwzu3t7T9+9fn5+cEvenx8/BNR6/U6RIH1Htag7Xb7Hy3TX' +
'KvR5eXl34IYIqj34FqqbPT6+rq45OHh4YfQ8/Nzu//y8sJPnnZXvb' +
'+/x0LguL+/JzOTQBYdDA3XQm3h4kZw3czDQpMGFVtGyDoREhb9xxb' +
'WS3iUX5RrDcq3R6Q7rrGD8nOz+woeqZGbnbnD/a4ym83m8PDwINFq' +
'tbq7u4ufV1dXthA3OD4+zgspwfozo2YMQdQU2xFI1RBjBE0atTQsM' +
'GJuBEPX01CjqzMlacTfWojFJYbUSCvzioI5V0aC9GCOcAPDd3JhAV' +
'mmnNgLiJFWQ8bTQNlyfkHWvUTLN2lV+Ec+nDcyqRLRHfK5LjhxITN' +
'gNwy7BGes2u123cDvGvlbe88W00fq/0ir8bUQmGEO0oy6GGjqSNZt' +
'LgIxr1V4BfaZ90/Nw4v4Eu+xkKQ9uVCdynRjd+dfZLhr+baoLzqxR' +
'Yj1LVxrycMsamquw5cW045FmTa6M2aZSdQZO67NkTAad/L0dHp6qm' +
'wgTvvUTcI80hbL0I9mLJtdM4xppVl39Mgspspr8gSU6K9GrSbbL1p' +
'QMMUDm8tpGrFVINLQt+wd2zTIQhT8XbNY1kVmtFi8SB3PMrBV5NFw' +
'qjzWTVmcagibA1izbWVLU+sI+myxCD21gO2xu0GrzhhcbZKzYnP+R' +
'src9T2bDhDYdNZ2SPlDoFUoriOxmw+b46k0274t7M4aZqWYkhoxBI' +
'3CxyCet0mtki4Mo2laKCBupdPybYYMA9aFEoVtrulqpXYuQGlpE/d' +
'T71V86zTVlTZqukbjm7ZMYFpEcUvg3SZcfcNaINOqTizdKFaIMc7o' +
'gIW1ltPqU7WYo3GDDLqiRoc/8rHI4dwPCys/KummuAYXw2IeYnMwq' +
'4mjnV5cXChboGwhbLXYfIPrm5sbgMZulqUtjjRZafXMJSxCqfBVNW' +
'aYmpujo2xENTeAzULPCqUObqYAW0A+uNj9bmWJJbzRClMXKZ0+clD' +
'UEI8OSTabzfwcAXMsBNOZJZaobfvsqIWSgaU7tYZWY9PaKhWYfTsf' +
'F8BMGHYV0GjtVvBiounytxeF/2uRKrJEDXG31c8SoNVqNQkxnNpUT' +
'87FGlPfnWRzArdcvTiBxtsnkeomn8XpzAy7yK/1q6hrBnFuLbrbz7' +
'EMWPMo27HYzLGJ4ZVDL6e1nGBHOrCdGmV9O7EzgzIelc8kbXQyhbN' +
'VC35zCXXg3D/UMd7d/qi1JvFaVPKT8ooDxOxs/VhzD6vmURC7xz5h' +
'6tEZF4hkfo397jG7NdIFWIjCYfJhS2iej7X13MY6DYSMKmyXP2yim' +
'S2Og7rfa7QZG2Gn7pQDxPB6FrIpSedio91u15boBLH9otH/ATBjnD' +
'PETFp8G0JOIS0+6xjVX46azElmtXnQd/lHNqkVwCzze/nN9hPNX+z' +
'U');
words[2] := BitmapFromString(165, 22, 'beNrtWe1RYzEMfB2EDqAD6CB0QD' +
'qADqCDpAPoADpIOkg6gA6gA+iA20GDZm8ly4YfN5m5p1/h4Q9ZK60' +
'k+/NzlllmmWWWWSDv7+/L5XL6ku122xp2c3NzcnKCMXd3d8d5EChm' +
'p1itVjOsLVmv19O3XF9fp2MOh4OPOTs7O8JTfHx8mDeavL29zcimc' +
'nt761ZaLBbpmN1uN5G8vLwc2ymgEmv48PDwnzDz/f39+lvw+/n52f' +
'4FosaX/X7vg19fX/HFmdzk/PwcDvD4+OjDNpsNmJzHIMDxBd/TKAM' +
'VbP4WeIsMQ/TZv56envAb6PB4fMQ6xTFlio2HVq4h1EsnYiRvBFXd' +
'W2wd4TQfZgPqQ0VKlPH1oTD+R3ZgWmYBfGBp/9OhxI+pISBGC2EYd' +
'mqL2AdT2OYsl5eXTLDiP6mk7gSBTZi3XWHeGttFgoqzbCQWjH4CO1' +
'9cXNQaYsEUdNghnStG4BjBv9ItcCj3SRYE8jQmV1dXNgU/utZmU6T' +
'6s85d+7jmg6pGToZWIxMFbqH6GsFYrtTjBQ7hmW6MjDi/eD5oeRoW' +
'r8c45KOY30K3YgxX6S3/TFFIA632kFhCFCLFeW1/iaZfeAhTbhc7G' +
'T/owHycOk5ZkKmR3z3RYyKSteRujOHcDUwFStgEXxjrwVhwuEfIPH' +
'rUOGocDjVBybm4Ch3fzil90EmctaShGIEbqPH309NTBytmc6/cXCS' +
'DgyjS0uhHdOQDcJz0mAIBDOtlCfZiC7iHSGjjuwd+JBZGTVIMtraN' +
'ootK7gBFyI4Oqyjj3uW9v1cClqyF4X0jIU+uMFltJisU2zyFAxMC9' +
'Os+S1yi23cLwUaDt6od/HYSkwWls+PVHG4hPa55xBvlZqBlz+ilog' +
'bviDWlSE7hZs1FDShpiDPzyBapYl42p3ALENxn4XeEkhMBmLxVDPM' +
'WsTvgYxr9wm/ZnxnrCHd3NbFMLLwLTAtHFRcqysJ6R4961jx2FtbQ' +
'tbaAiWJVL1hDwM+8NXfWEt0pml1/6JpFeE96Ivx2/vwF3G40djmpd' +
'mQ1aY44NQgEEt2i5Djc7kVsB5niPI/vvpHEkQCNKWnjBpZmxrarb6' +
'vEurmb4cZc8ZYU7tj+x3IImltL2/Uf731qnpQqyLzIriak2pHSQlK' +
'wLxhLYtGWvU5K/VZ2i/DB90zJkUNxGVxcsPBFaC0AVIqxtGGXKEgL' +
'TvZeqa+ch7GORzoTaREFLbhj0dUSIfPx9k2YoaCFFtypHeruMh4Kx' +
'sF27mwxKSCQOcBrQW3WnWt5pOXqKft1+0duqdgm8Ymthd1guxdpee' +
'ROQHxPPFwShGjCfNK1g7h391ARC8vgnKbr1ntk7shFn1Q+0oYUx+T' +
'kHtu6IvYx+KfhU99StjpcqfZjDi1iv7CDlKyDh2q9j8RkjfIM7A1A' +
'LYQ9sxev3nbNXr8pt7xOCvLW9bL3m+lzKjt8bPrijTQWh4f4x5gdX' +
'Hmxql2BcsPIwHkhlz64eBRL3diyA7Yo3ula1+zF24FfqO6/hQszAI' +
'ov6S0Kh7lNrF+jDl9S1BKHIDE66kVw/HoLG8CL22NcPcvHmNRdkg+' +
'uj1k/cqV7jRzK5Ajfmmf5R/IHYttBlg==');
end;
procedure FindBitmaps;
begin
Wait(1000+random(1000));
repeat
if findbitmaptolerancein(words[i], x, y, 307, 115, 406, 167, 50) then
KeyUp(38);
Wait(30);
KeyDown(38);
until(False);
end;
begin
LoadBitmaps;
// StartGame;
FindBitmaps;
end.