elite*gold: 0
Join Date: Jan 2015
Posts: 2
Received Thanks: 0
|
what is this man..............................
program InfinityEditedbydelemojo;
var a, b, t, xx, x, y, my1, yy, i, hx, hy, rx, ry, bx, by, red, green, sunk, conectando, verbinde, ok, quarter, HPgreen, HPred, brilhoroxo3, brilhoroxo2, azulobs, brilhoverde, brilhoverde2, brilhoroxo, schliessen, brilhoroxo1, test, posix, posiy, chat, countclick, schiffe_inaktiv, counter, glitzimap, skx1, skx2, sky1, sky2, mmx1, mmx2, mmy1, mmy2, wrackmini, minijackpot, farbea, farbeb, BrilhoNormal, repair : Integer;
Procedure LoadBMP;
begin
SetDesktopAsClient;
farbea:= 2568961; // 2568961 für grün, 4598791 für blau
farbeb:= 7172198; // 7172198 für grün 7630438 für blau
counter:=0;
SetDesktopAsClient;
//////////////////////////////////////////////////////////////////////////////////////////////////
skx1:= 190;
skx2:= 832;
sky1:= 180;
sky2:= 668;
//HPbar, Repbutton und zurück zur Schlacht button eintragen.
hx:= 756;
hy:= 911;
rx:= 1146;
ry:= 991;
bx:= 860;
by:= 613;
//////////////////////////////////////////////////////////////////////////////////////////////////
red:= 331749;
green:= 29440;
schliessen := BitmapFromString(1, 9, 'beNpLNM5NxIEAfi0JCg==' +
'');
BrilhoNormal := BitmapFromString(9, 9, 'beNoB8wAM/2BRSFszT' +
'F4zTVsrUmAsTl8uRVcwPlMyN0sxMUcyU14rX2YmcHIieHoidH cjZG' +
'wnTl4tPlEwNkoxYm4teXwmjYgdm5IamI8ag4AfZG0oRVYuOkw veYA' +
'zko8ropcZuaYTtqQTl48bcnclTlwrPEssdHknjYohpZkZuqYR uKQR' +
'mY8ZdHYhTl0sPFIzcXUlhIIhl5AbopQVnpQYioYeanEmRVgwO kwvc' +
'HQldnkkgYAfh4QfgoIgcXclV2QsQlc0OVI4d3kkbHInanAldX 0xZG' +
'0nVmIqSFkuPVU3R2FMeHokZm0oYmsnZnM1VmEpTFoqQVMvOVM 5RK6' +
'8UVI=');
conectando := BitmapFromString(29, 20, 'beNpLCwz2duivS6' +
'c66qlOlRbmjAp0Ton2zIz3yU70pQrqKE+UFuGODrKdPbF88Yz qZX' +
'NqqYJaimOlRblNdcV8nZTCvNWjA7SoguryIuXEeW2MpYBmJob ppk' +
'cbUAVVZATLS/Lam0kDrQBycxONqYKKkvxoYWxOjAepxt444/jxqS' +
'scTWg2x1STGuZEkrEQo+BcoJnIXDiKC7Al3lhchgDR5uU2EBu BDC' +
'A3wsucKsbCxSGMIBcjyo1FFoeEtq+9LlXCFs21HtaaVEkJaGH rYq' +
'5Gi3TraKJMi8zrYKxIi6LG3khRmJ9dWoxHQZpPRU5ATUGQKij Y1Y' +
'ibg4Wfm02Ij11YgINayMXWqDQtkMoIANdGQ9I=');
brilhoroxo3 := BitmapFromString(5, 13, 'beNrTbfPRmR2it9RPb5a9fr' +
'OFSXma4c4SvaOpuhv9tPoczKrzDA426V7K1dsWrD3J0agiVm9 Nuu' +
'7mBN2lQfr9Tnrl7rqTA/Wm++v0exk2u+qV2+i0OOm0uuk0u+nWee' +
'hXWuk0O+m2ueq0uOvWA7nWeq0grm6rh16Du16lpV6rp96EYL2 pIX' +
'r9nro1jnr9kbqLM3TXpeguCdHpcdGdnKK7sV73dInuzmjt6Y4 6fT' +
'E6a4t0D+TobgnTmWqoVeOuPTVYZ2GQzixnAMsiRgs=');
ok := BitmapFromString(16, 11, 'beNqLNshNNKYb+vjUFYLQBMlj41' +
'KAVRkeSzHV45El0nxS3U9G+BCJ0qMNSEAAABrQzQ==');
azulobs := BitmapFromString(5, 13, 'beNoBwwA8/5t7D3t0EZiCEa' +
'CEEJR5DXxlD49+FLSTF8qdFbaNEJJxEpiDFr+ZGt6oFr+REZh zFZ' +
'F/Fq6MFbiOE6yBEJNtEHtuEI92EZh4EZRwDoRhC3NnDX1qDoJoDo ' +
'JjDoBdD3hsDoBsDYNpDoJkDoFeC3JmDHtoDYBnDoNkDoJgCmp gDH' +
'VkD4tuEZdyEZZvCm1mD4dyEqWCFbeKFbCCC2llDot3FLWOGte hF8' +
'iSCWJhDYNyE6qIF8aZFr2PCGBiCm5nD413EZ6AERqTR+s=');
Brilhoverde := BitmapFromString(7, 7, 'beNqrs1IONlKPMjLONjAvMDD' +
'JMtKKN1OPMVcP1bcq1PPq1A6YqO3dqWNfaWCYbWmYqufeph2z UCN' +
'tg3rcYi3fXn2bclPTXEOfHt3EFRolB9VS1moHTzNwbDQzzDB2 azU' +
'Im6WTsFwnapGB/xRTxyYb3URjyyJD1xYD334jn34T13ZL+1pL7Rg' +
'j/WQj02wjmzIT2ypzuzorewA05i6W');
brilhoverde2 := BitmapFromString(8, 16, 'beNoVj1tLAkEA' +
'hV8rdXdnLzO6ZheNHupJ19mZnZ3dxKiMxCXtQmpe8p5BZRRUD 0VE' +
'EUS9RO9BP7Tp5cA5Bz7O8T1p15crLqgy9ZCDXRcEOVBaB8VNt eaY' +
'EzdxS8xLqtawXKZS4MpBLjomi6/28reVfMWxcwyqVNl3BCE2YakP' +
'vPqbXvrMzt4Qo+WqdQaOODrz5h9p8g3PP+HYZdboEL1FtaYLj v3o' +
'mWtOSOyCwL4Nexh2sNEmoOaLVm9TNKBoRNCYwgGBPQLqa1rD0 0/+' +
'LTq10VioIwhaI6+3fL2JYRejbhqNbDQkaMSVA09v+mhom1c4P rHQ' +
'2IYCOORiKuzzxB1OvlkLz1b8Ghs9B3a5VMnBAVt8wSs/GfEucW+J' +
'XGv+50aHzj1kl78yqfdM/NrSGhQcskiRK3uOWCIIpvjVxkqZyAEL' +
'bXFRyWWmHjlKJSsFLFygoQ13ejMf3s5FdrhU4uGCLRW9mTyb+ gO1' +
'Blm+');
Brilhoroxo := BitmapFromString(8, 7, 'beNqzDTA2SbG2yHIzSwu0yPS' +
'xSPK0TnS1jnKyDrM2TQ+wLc13balxbyt2ro62TfexiHA1D3a0 zst' +
'0aZ4QMGtZ8JJJPn1FTsVBZqHeJn4BHtVFnp2zAuftilw/J2BqpWt' +
'ZmGWYv5lfkHd1lmdzm3fPNL9J3V5tRS75sTaRIVYBrna5QXZ5 WS4' +
'V5a5VRc6FKQ5J8baRkdZBTqapAeYZ0Xa5SfZZqfbpQPFE26gE AJU' +
'lPDs=');
BrilhoRoxo1 := BitmapFromString(12, 12, 'beNoFwVtvmlAAAOD/0+xhp' +
'p2tEgFBLudwRBQOSh0KiDfkIgcqSrs2i63dku6Sps/L+rws2cOS7' +
'SfsYf9hf2XfR7OV+oBrOioIsBrrygJKLsviBqXW67BaFSpV7k WVa' +
'zBjrEQzYxcNrgK8sTshEoc8rdENRNWk0xpfOWVBy/d6xXa4P3gPl' +
'69vApwOoCMxGs8glhLpOked0UiczfDuZvTucf5459yuzWyoOK Cpw' +
'SZSaB7RDUDVZGHiG5vi/O2te7i2r1OcOsgzJMMUYJ9jLY7CzCux5' +
'draOumXxfBNcb6N9MhBjguxD+BEZCbcyYSrAMEzldW0l0XmRW ySZ' +
'Xc5V71Fux8qSiLTRDxOWkdI8K126OskMPMIp4kRR71Z0rEIQj lgC' +
'vl4Kx51pLmtxku8SQdlZm3yPiF4RbqjTO3mkCfSWSy81OTFWE tDs' +
'9x7959nD5/8w87KM91PO/0IgoXEONxJFwSOll2ND8/rL7/Kbz/y5' +
'6fp+xSvAtWegs5IFHpMvS0ubI0c/I8/y+//Pvz5u//9NXy6GBBPd' +
'S1Z7/JQ+A/r5pwK');
brilhoroxo2 := BitmapFromString(7, 7, 'beNpTszdSc7FRd3dT8whSdYt' +
'XdYtQcw5WdbBQc3NV94jT8G5S85uo7tem7pWl5myj5uap7lGt GbB' +
'CI/SgZvhqTf9WdTdbNTdfdY8mjYAtmuE3taK3awb1arhZqbp6q7u' +
'XavrO1QzYoBm4WN27VdXZQh2o0j1B3b1G3atb3atVzaVUzc5K w8N' +
'X3S1O1TVL3b1I3aVMzakUABJPKtk=');
verbinde := BitmapFromString(64, 16, 'beNrllj0KhDAQhS+' +
'iAck1bANewT5dOkFkywUrYY/haexs0+wdPIA7EJDHZmKxa1iGfdX' +
'kieM3P0icK4piGIZxHKdpeghUWZZ936/r6r1/CpRSqq7rtm2ttU6' +
'gqqoyxhB813U3gdJaN01DhVB8F6g/59+2bQfN8yyIPzAfR4LH47V' +
'KZf6Y/4R2WZZQGgVYKdaLg0s5Oyf06ZUc/AhwBGG14kdxNqIKheN' +
'Cst8i83J+9E+wjxkRLR7RxPwY46Ry7D/b/1Qbg8N2I8WP2XL8f9j' +
'9j2mx1W+p2P7H+/89/88l/f4g+/72AgM7sVU=');
chat := BitmapFromString(36, 8, 'beNrz04rwIw19fOpKqhY4SgjXw' +
'4OAJkMQsgh+LXhQaowhLgQ0FpONLEiMRmSUEW+SkWCEiYDqcY lDEK' +
'YgmgJMEzITTDMTjTFJoEr84iAGqixcBJfe1BhjsAfRSVg44BQ HM4z' +
'hbAjCrzcuVA8XAmrBZJPEQEMRftr4UzgEYaZ5NEFMZei5AwD7 1D6r' +
'');
wrackmini := BitmapFromString(1, 10, 'beNoz0heXELS1t3Z1d46' +
'Pj92+ffuOHbt6evrqO/o9I5N0AJ2qC/4=');
minijackpot := BitmapFromString(17, 18, 'beNoBlgNp/EVZKyYtK' +
'iUsKiUpMS0sHRoTNzUoj45829rIjIp7dXNndXJtgn5/ioiLdnR1Z2' +
'dnWlpaBQUFHBceHhkgQz5CNjIxR0Q9YmBTmZiG7+7avLupeHZ qq6i' +
'jrqqrrauupaOkoKCggICAS0tLKyYsSURKOzc4WVVSQ0A3ZGJT ubik' +
'wcCrvbyolpSHoJ2WqaWkpaOkpqSln5+fmJiYYmJiGhUZQDs/Yl5fY' +
'19ciIV8h4Z0vbyn19bB3NvH0tDBvruyysbD0c/Q0tDRvr6+kJCQra' +
'2tPTg8TUhMSUVERkM+TUs/bGtXrKyU5+fP6+rV/fvsq6mdq6ijuLe' +
'1wL6/ysrKbm5utra2LiorR0NES0dGVVJLTEo9enllzs628fHZ4ODI' +
'5+bUyMa6rKmktLOxuri5t7e3nJycn5+fOzc4XFhZZ2NgdHFob mxdi' +
'4p1t7ed6+vRvr6mzs25q6mcwr+4u7q2ysnH2NjYbW1tsLCwPD g3Xl' +
'pZbWpld3Rrc3Fijo14rKyS2Ni8vLyit7aiuLap5OHa4uHd6un n7Oz' +
'sampqpqamKiYjSUVCVlNMVlRIUlE/eXlhuLicyMmq4eHFvbyn6+na' +
'7+zj///7///98PDwn5+fiYmJHBgVPTk2T0xFSkg8SEc1aGhQxsaq1' +
'9i58fHV3NvG7+3ezsvC6Ofi+Pf1////tbW1lJSUGxcURkM+YV5XXF' +
'pNYF9Lb29Vxcan9fbW29y98fHZwL+tpaOXp6ah1tXT////iIiIxcX' +
'FHBkUSEVAZ2RdXlxPZGNPgoJowMGi/P3d0tO05OTMrKuZqKaamZmR' +
'xMPB3NzcWFhY4ODgFhURPzs4WFdSSkg8TE09j456vb+p7u7W4 OLMy' +
'8q4vr+xxsO6urm0xsbEk5OTTU1NxczSGBgWNDMxMDAuWFdTc3 RurK' +
'umy8zE7e3l8/TsqKei///77Ovnnp6cq6urgYGBn5+fR15tMzMzKSk' +
'pR0dHTU1NW1tbpqamq6urzMzM2trakpKStbW1xMTEzc3Nrq6u Ozs7' +
'ycnJDjFHQFdlFxcXODg4SEhIQkJCdnZ2paWl19fXv7+/lpaWqKios' +
'bGxsLCwgYGBSEhIbYGOJEFVAB4zCQ4SIyMjUVFROTk5ZmZmsL Cw5e' +
'XlrKysrq6uurq6qampe3t7S0tLY2dqFzVKJ0RZSl5tUWFwCAg ICAg' +
'IJiYmb29vo6Oj0dHRmZmZoaGhk5OThISEa2trPDw8KUhcJkVZ Jsdx' +
'7ug=');
glitzimap := BitmapFromString(14, 16, 'beNoNjulP2nAAQH+ZW5x' +
'OjcNriegcQycih1wFFFBUVKBYSqGllKMwcHig8yREEXV4IocM ZYho' +
'MrM4TZYl7ojJ/N9G8r695OXVPSFg6DAaWJgad5MSmpJQNpHd0ufEI' +
'LdV6SVUJAItBy2xsB8Zk6/MIEGX1o1Jpr0qv0eOm3kr8zBNKOyImE' +
'SkTos8QA2HfPD2mp+2Kb0Y5HfIbSYOgXBJlH9/e3CWCFn1fNwotBk' +
'EtLXfqOXA2l6XRYrruwN2yGMTUxZR5CP6+Ct3f5Pwk+oyAYeG gAU+' +
'YqDcD9FDU3YZNclzIKKyuilu/7lNP9xl9iMen1VpN/Df2xV+UklMC' +
'uc86vWQIbFJfc1FrvOxv3fZfz/zjz/Ovhd2rk7Cl5nleITcWEIIE3' +
'fWPRAgxKVMqJBYvMxunCfWHm5zv79lSqnw9en66f7M6cFU0N0 foOT' +
'YGNtp5ho1zEJyOX8UvkhvXmW3S8loKRMtpSJbq2RHM2C9AhC/0mkR' +
'eHAhomNpodazRLiQjJ6ndorJ+HkyfpGOtdSAmgrQVAvM+g7aL nWgX' +
'EzfNR+YuPwcLZ18KqZ280fxYmrvy/EW8yVgMYHPJZ/299MEhMOcWa' +
'9mfQm7yEay+6uH0cXjWHljr5TbFbxjIBO9oQ8jpE2IGXrNuq4 grdr' +
'doLKHc6ZhQf1T8KapisYN6b3w+CDXrOeTVqkZ7sFgIWWReHBZ eMGo' +
'lDCqK8CLCsCoAs8BYLdWK8UdAzKmm1ShsNA4ynVhCp9T5bD2N deDx' +
'log5TV7iFE7OtjZXlMJgELcRhEateJtD7tOLXtdLhOoUK1sgs e7bY' +
'jMS+locgxH1JN6CBK164b4PezG9pZn/K4GFdRmmuAQWJ/NLMZRqZc' +
'awVE1YRk06MTDKl4nq4HxH0L14uw=');
schiffe_inaktiv := BitmapFromString(18, 16, 'beNotkulTUlEYx' +
'g+hopCpqbRoCZalF0VAFoktXLuxb/fWZQ3EWDS11HAqs91RURaJRW' +
'OopskclMSMqawPzfR/dVpmng9n3jnP8/7O+55qioDDCPpwpL1Or+Y' +
'GfehkUIPpeHq004YJnXjP2IjCgfEGJKdNmq6pgPaWT2/W9irEHd4b' +
'FsYZqkjQPOZTBbyD1009hJnntkmvm7rdhGBmfMiBdQc9cr9H6 XP3T' +
'fi0gRG1gN0sv8TmsE6OulH7NcmQkukiem/ekPldil/fU7j24qidH/' +
'CIPVa+zcwZVrbo0S4XcRnXyxinqbxOut+DQircwB21S62m7sL 7J1/' +
'2wpDQgXGL289hDiwa1YgdF+1sLdtxGXL+2KD8vMMsthuFTgPf S0iL' +
'718EXLLS7lolCXwtbhzsrl8zCWEgZuzeL6x8ePcYM3DZ7bXqv ou4m' +
'jPuHAhalfnsI79V7rPLfhykDj+99jrU+/k0rRw4Cem30rrbIc5mZi' +
'rIgIM02CySKa8qFNDt5p5Nea7AjrXl4PNOpBKACR/289sWhQQK2yt' +
'GLctpFb7Jzp2ig67247heOEIodl6/yGef7L1dLOUj+9vLhwep0sdX' +
'X4q5z4XNYn79sJQpbC8loreS8UnYC2mrM6sFI4TSjcn99v5qE rAZB' +
'F6bzGYRV5EBJBwfNUFC3CigVQCXVTY1pqUfB22tNauLt5OR2f RqKL' +
'M6uxkJvU3Pp6LTych0KnY/m3waD99NRudymYXoykRuYz6TCK0tT55' +
'tohquimJLd17F5nOJh9n4g2R4OhWdScVC2dTj6BK03IOKh2eg MbI0' +
'+TIS0qI9Jxor4JapZLARX4gvTm9GHyTCs9CSjN5NrM2lYw/TMOevE' +
'QrmQFrKEVBTDZhNNLmo7SgZ0MgAzg2qmgIqywAcXeURAF8HD3 8E/g' +
'tWWlrqW5pqOi/Q+ySsqr+WOiqoIP0RtPy7Ty0DR8sB5IF7ryIBdns' +
'zi8WsoYGmRkov55zyEmLRXB6Us806KWFRWnRi3CCGn1w7zFcN 8NA+' +
'nkKE9CBMxqk6JrOez7vQUFtGry1DWhv7JWzVoEghZek0vQa1U IdyN' +
'cNcPSo0qsRDcm4H48SxctDwG0JHD88=');
repair := BitmapFromString(40, 39, 'beNo9l2lwG+d5x5cgcV+7C' +
'+x9YBdY7AEsgMV9EAQB3gRv8RRJkRIlSpSowyKpWzItWbIsWY ctW7' +
'Vj2bI1rjKO44zHycTt9Is77Ydm3C/t5HLkZNLIGdtx5bj1NE7iccO' +
'+tDId/PHMSwxnfvs+z/t/9n0UIiyQIusPBaiIFpSCfCgkSJKoqmFN' +
'k6NaOBoJ6WpQVwIxVYhrQkwTo0oAKBENAT1cgx8fKh4JAj1c6 6oAJ' +
'IVYVRFUhQ8FqWhEBDFpKIrMahrbWc07vU4X7HIjTo/P4UatbtTixS' +
'wwbkUIC8m7gRDCBkSwsJ9y2z0mC9boIO0uwm71mBDc7fN7HbY mivD' +
'hftiPenx+F4w5vLjdiZsdeKODaoR9EJDXZwJy+RpRxBqJcOPD 3W7U' +
'7vU7YcyF4E4Ed6Ck3UfZMMZBBVwE5wBcWvB+IyQQxpUYT8uYz Wf2c' +
'V5axHAGJUgfDDsRxOV2WlGfkyA9FAMzIsqEEH/A5SRMGN7kxxp9uB' +
'n1WxDMQlNewJ0arcOYHSWcGAMomwI4JuhmQx5O8gY1Px+GacE tRYh' +
'EVhIV3OKCXLjNQzp8tNuJWsB+AdoLOykaIyiEZv0kDfswB0G7 2CDC' +
'Br04a6cpKwXShVn8mBX1WzkWBdz5mSGUNGOMjRKcgMWHPYLiC WqwF' +
'EU1gwBRjuF6mo0kWVHxB1UsmhTCEZ4VMYz2BiRqYmbLYxdOH1 jZOz' +
'k72tXXVmsvZvO6GmFZ3oOTFhw340RTgHJyhJ3ymf1wE+JtlGU KcKc' +
'n6hjbSAlWPuwKRjySDisJREv6Iim/kvDpGTKR46IpRjMYWae4EAxK' +
'4PPbhSBx8dL62+98d2HvNjZENHkaIDNkcTdYXZAXbaIYJ0vZK bwpy' +
'Drjsl9hvEHSxfnshMfsc5lCIRycq+H+KiWaubA1FHWrBhpNY7 Esns' +
'iTySID0PEcDbiaQYUiWEjDZZ1R49zKwd3nzh4fn+i3uU1QE9T ghAD' +
'U7rfAtAsmbX7CSpJWFjfzmDnCuwsROsH7dcYn4W4esVMem6bR gDs3' +
'3c/LtmDEBaCxLAFw6WYu2xLIVYRSm6wmcDVBJvNSSCPBURmZqN9+7 ' +
'flvPXcFRx2mBohm0SYnZIZNmIA2+Rpg1ulnHYivwe2ASC9kBD y1GN' +
'eVEDICkeRwnUJlzCOibkUhH3JFzS3HUZDSZJHLlIV8a6hQlUo 11cg' +
'LlU4jlhaApxRd2Lm0bfX4oanZCRxxmiHIYYe8iNWD2by0CxE8 QoLh' +
'NX80xWkRIkBZdN5Vz0sjJbVNxvM8keEwg/JFcUTBEFUlAHd+pk9UE' +
'VDBZEHMV8Ll9kihVc1XlFpPOpENVruyQYVhRfzQ2vLK0RVVV3 PFAu' +
'BaGyGvx0pQXk4i9LzMqlihI5Fr1bQYoSmIKtgHW7SpWmyqHKm JcCX' +
'ElkNsUaBSDKZiwERUPMJvn+2XoriRD6aKUiInZstKrkU1ciEA 7R4o' +
'UzxKcmimkBLDIk6RfYODZ88/cWjfHthlCYYYYBnwVLlKvH+yLZ4Xc' +
'yVJj+GFNNORF7bVM5Mt2mQ+PBClOyNiTebArjXUQVsgXWfiEX bHXD' +
'+wJ0hmuiinCuFKR7Krv9jSnsqUNDUeAJZR9FBXvaPa3tZcqez cvbS' +
'4tO/ms9dlWURQRyKplNvSrZ2ZoYlaT3+urV1Xwg6RglKiY6goDmX4' +
'sawwlRG7dbEtwhdFIoZ7BFdjLM4kotzC/AAjwsCVAArQxVY9U1KAZ' +
'XjJt3piHzhI49NDC3vmQkoIaoC66/Ur168vH1p++c6tgMQUWlLRuN' +
'DbX+obLFUrajnPRUP2AAzxLijDmLojvsmcMF0MdRvBroTYpge aVTo' +
'fpvQYbeg84IKGoMaZeEbMNMsgycCqoE1pCba5Fge7ZoM+h7cJ JTzA' +
'Mna3fX7n/Knzjx45dfTO67dB60jn1FrNqLZoA10JmWmsN4tTXdF6h' +
'm6VHEMpalslvK0s1bOb6kpLHclgNS5EdQpwd24flGOkEqciST rTLI' +
'FDBQybKgodfZljj+5xIBDAgV4NTMQFcY/P5oTNiyvLB44dXjm1evX' +
'GRS6AJHS2YLClBFVL0gdn288uj6zNVLe3R5YHs0u9xmyL1F+S 6wWp' +
'MxOsGUJZZyNRMhkLLGzt09ObzSGeZY08D6wE2hRoXJEUjvMm4 F9wt' +
'tUEzUsIqIUUYZyISS9lD5xcPfrY8Rfv3Ky1Z1MJThNcOmtZW+ h9bN' +
'/wqYXuk/Od+4ezq5Plpf7kzm59sKLUi+GOdKACchhlEjqZigs7p8F' +
'5RhN5Bjg3VwmWO2TQMUAPAZ0E9C6jwIIuDdCgBODVAMoB9g66 09Dc' +
'xJH1YzuWZt/+wV1dxjIqdu7wzMWV6bNLQ6tTlTM7ugBxoSs616asT' +
'DSPd8aHWtXOnAi4JVDcGJWK87tm+6GaG66gmTaxtyJvadMrVa l5Mi' +
'NviVDtVLo73N8RGTT4mWokl0KJjN2UgUJuwgWZjy4fPbt+8cD hI6+' +
'9/u0z62uPHBw/vq9nbTZ9dCJybal8YS43nfUdG81tb5FGmqUt5TCI' +
'gwWxnuGScToRZRa3DXiz7mCFqtajg/3J3g69byjTPpLu3d5aHjZau' +
'tW+jmjNoNoMorXARNJeWIJyASnJhjC759jqyfVz51eOrN1+5b nJkf' +
'Kxpfr+0cTxycTV3ZX1qczJ8dwj/dn5ijrWGgEarWhDpXA9G0wbLOD' +
'umR+K675Mmu6qJ7oGU32j+f7hQqEYrLYoW8fK5XygtSS0FPhc 3D/V' +
'k1yeajt/cGJlenyyvdUOQbIQePzcuT1Li09dfuyZSyfGO2Lri73nt' +
'lcvLrSvb21datcXWmJ7OvMTvbmRjnRvOVpNBwtROpPkAHdp+2 AlgJ' +
'VVuqMSBYd5aKpa60z0tscHq/Fc2G9ISDtI/nB+tC+ztq3vUHfx4lh' +
'9dbY+013szOmuJqi/p+3s+qmFuYlbN544tXf6yEz3yZmOo1taHp8b' +
'PDHWvau9OKBLQz2Fzko8G+flgJf1WwHX0Nm9O4bSmKemCeV0q LUlW' +
'iirnOBSw0iYcw50pKaGWgY6k+0leagSW53o3Z6P7yukZjqjOw cKCy' +
'PVfCwAXhA7tk0eeWTfoV1zd5+9MttZWhmvn5rdMtuc3NVRGUn Hpyu' +
'lZEpSNYZlYQQxO50Q4CbjgDuQ1gLxMCOSrrwRkgRY1fBIjFKj mB4j' +
'S/lQ0eC7svJIKTFeMkZzsR0dzQuDxtZufW6wMNydF8Gtg/avHVw+c' +
'fDAsb27X7r0RE7gSAiSnJYD48OjpYIPggjai5FuFHMgfjuIoL 7Aeo' +
'f3jocTQbMLiiUkWaV53ivLgEgnU4HmYjhncOkI3Z5Vaim5ltG 2jXZ' +
'3lOJTvVp/i7g4Vds21rFj64ijqSEZ0Vf3H5oZGXv6/IWsLBPWRgF2' +
'oiaIAt1YIKiAj+RRgkNApAX/X7n7RtEgRseF+3/6+KM/fvzVxhdff' +
'nF/4w+fbPzh040H9zf+/GDjL59vfP3gf/748f9ufPH73/9moLc60K' +
'7MjzWP9eWnhmocCVtNDSaooaezd+/ufdOTW197+RWewkH+edoDsqf' +
'J/ng2rMYFUQHXJAwI5Dlt8IDLybyd8/7y60/+Y+M/P/7Thxtf/u7u' +
'4YP3rj1z7+rT712/8tzpQ1/95dNP/vzbz77+dGPjy1rOKKYFWXDDd' +
'sjcAJooZILAG6OhAbJsm981O79j++KuM4+ftjihQBiVI/50gUukg8' +
'UWPZULSyoBlEsH0onAyvJYAFRE4X782Qefbnz+0Sc/27h/77yefpa' +
'Nvqpkrhq5vfnkF7/7xf3P3v/Ngw/u/+onpNnkcUK2pk2iebN5b6ph' +
'89MIWR2zi4ttg30rZ4+19Jd8gj1koKkyW26NFMuKnqBFySsp/nxGA' +
'NzV/aM+AhHkwC8//PnHH/786w9+vPGTn32/2vcaEfk2Gb0VjN/uH9' +
'z49b2N//rowf33v/r8E3/T5t5M0F+5DwX+3Py1sTHR0jy7vKd1S/f' +
'u44uBBIGFGrW8L5MTcoUgiHqcFEOeYi6YMYS1A2P+ECXJ/Ge/+Okb' +
'J46//9TT9x45/k8dQ2+GjLu0/DIdfqdj8EcHVv7l0lO3jx357Ffvm' +
'zd3B5kbG8BxcjdCsAXy2U0uawPANtgtkNue66xVR+s9W+uLa3 OBKB' +
'zLk4CYzYtAgMsLjv/nIhFaCtH//d57a5J+J1u9grJ3wvoNgn09Gn+' +
'JFt/S88/SyjWjuJRI/vbf3zNbIWuTxWOz+h0W1muJMXAmTKk86vNY' +
'Nh/IZoFcjraRgfrk8J7DO/u3tLKCK1eU4klWjeIBMIYE/so9cnDcG' +
'UBkkXzw7rsn5NjzauomJ93RY7ei6otK+CbN3WJCr8rGVS150E i9/+' +
'7fe70mzAPzmE9jsHyYHMgpE9V4a4xnUQu42brAPOD0kKHw2Ox sT3/' +
'Prp2zGUOhA05WdKsxSonSFOcC3GxSPLA4wghYJED++u9+sBKL nRZD' +
'z6jqNZF7MSY/F+ZfVEM3guLfJJLnYvH9mdRPf/gW52kKs7QRDjRrf' +
'HdC2NoSmWuPtSg+FNxGGiC7zWZxwC6YEIKRmcm56eGxw7v3iC rpZ5' +
'yCQmiGgHPudIwE3MVtvZEgI/vd//rdu30EOmpvPOhzH/danw8HXpA' +
'Ct+LKeYEZh6ABe1MPjt575+0UDms8nZGFssq2a/hwmh3NcRmmyQtB' +
'AczT1GBiOKnJDNssaHu5e7h9YPfE3NzuSV4mLB4I4zx+1p0zG MB9Z' +
'GnMzaKEwr3wnZfeePvuP37vO//28p0VPnY1VLjAGNcLPRMB6Z/feP' +
'2dH7751jtvfuuVF2ieTIlwXibyKtuajFZAqUifxQS5nCYYsYA xEGf' +
'dYJh1ITYEQ5KZDHD01NaxR9dPutw2u8McDPEt+c08HzmwlZZY hMfO' +
'PnP+3KUzL1178ke3X1nT809oRaDHc+3bk5m3bj1/8YkzZ5989MKlx' +
'0nSl+DdKRHNymwxGo5LAua2ATt7wczlt+OUE3BxxgtuYjaXTV KUkb' +
'GJ3XsWrl2/PDhU92OwqREyIhh42EN7RmkG99HwsQsnVk4fWj95+I1' +
'rl8fEcJfJMWRHUhBUFfhXb1578tL6ydNrZ04fUQOczjiitNsA 9+Eg' +
'Q3md1gYIfFHEhuFOP2EHczQd8IGRHzgcxbBya21++wyYjhubI KutE' +
'UHdXdUo4C7vHAKWZDns6GNHjp5d23948aVnLv/tk+f/4caN71++/L' +
'3rV+7efPrZG08eXt376Pqx02uHaLtDI+0hzBrh0BCJODcHUMj jaIK' +
'9FjBuA66PcnyTaqfJAtmcDlGSQ1Jgs599008dTksxzYN+dWp1 PswQ' +
'XqfZDlusmNXkhkB1wNsNboBYtxmxQW6Xye4xNdogMBMF/UgYgWXSJ' +
'vrMYdLNwHYrBFkgCHFbnS6TF7FgpAMBJ8hv9vrtTq/dYrc5PR6AA/' +
'ZmOfLhlkGekzEOXH2DtCWjk7EwUkqzCXUzpnUsG8fyBlFIkrk EDtY' +
'PlU9gxSTRnKZKKRKsweUnn8CLSRKoAP55U1QxSQOBRS5OZBN0 Jk6B' +
'DQIWiKVMQA26QYz+H1Sf118=');
HPgreen := BitmapFromString(42, 8, 'beNoLYOBxYORzYuZxZOB2YACSvE6' +
'MvI5MvI7MvE7MEJLPiYXPmYXfmZUPiMBsIMnrhCDBIsx8zsyY JMgo' +
'JwgbpAbChpkM0stQzDCKRhG9UcBIRQBUMYYg');
HPred := BitmapFromString(20, 8, 'beNqz0nBRk6txs6vzcKhxt612sw' +
'WStR52te72te4OtR4OELLOw7HO07He06kOiMBsHx0VezWZRw3 VZKL' +
'GGvL1Dk20oaRgUm4WqQioCxhWLcmxpGqcnJfVnZ6cDgC56QW1 ');
sunk := BitmapFromString(59, 59, 'beNodl3dY4ne69rPve87JOdvO' +
'brYks8mmTMpMJtP7qOM0HdvYe0UFAaWKIF0QRAFBsSAKKEVp0 gQFC' +
'8XesHfHsYx1eiaZbJJJ9WVfru/Fdf1+/3Bzfz/P/TzP3/5RrayXty' +
'pV7a26LrO+xyqS86vEZUa3TddlbGrXIBv4Rm3tTGfzVH/7ZF/b0/2' +
'Fx7vz80OWsR6NkgnoUNBHu5TutoZ+q3TAWj/uaB7pVk44NRN9ek+v' +
'fsylfTDvnuhvVgrSdRKUlA8yKen65mKFqKCEhdKr2BY1QyEm2 XWl/' +
'dYKu5HT217nNAuqWBAmDZycDy0oxVO5NCKHXMAioBiFKAomj4 SAYm' +
'H1apncrG3tNLV2W5ut6qo6RrPV0NrToes0yTs08CqOTlG64NR P9Fq' +
'318ZePrt/f9o519/W3Vqh4oAc+vJhu9zdVj/Qrug113bp2ENdyim3' +
'wePWe/qMow718oRtab5L00ThF6dIKnPaNLRWJUUtwamlhDZNqaGZa' +
'tOW9JkqXMYKR1u1y1Jn15c1VkAZVFAiGorl4ElcMrmMkF+Cy6 OgYe' +
'R8CAmWh4c1mtQtdoO226LpttYpq2qknFZnl6bTrOs2K22aXH5 Jc1P' +
'ZYm/bypTjy2f39zamZgZMc0Ntxga8oQbpNlQO2xUuU61Xdo+Ob5YR' +
'x7uaply6iV6Dp9cw4miZHTI+3BgzNZfRUHcVdQirlm5sJrQqC g0td' +
'Jue365l2bUlblO101TrNNc5TBXdRrZGhCYUAKLzgNiyQkpFEZ lPQT' +
'JwMGoBlIKCkuBQMkxp1zbbdS1dJkW7hisobO7WqR0mZYe2xdb aZNW' +
'AyosMWsnmZM/Tg4WnjxYezPVO97dO9hlaazF6EcKp5w20N/aZ6zxO' +
'rb2lpENZPOXWTvZpvY8eh8or2OPU7G1NWrTcEsxdg5xkVheZ1 TRDC' +
'9mq5Xa31TpMArepsr/Nq1boMtc5DfweU7m6rqAQnRiPAOaXYknlRA' +
'KXmM8koJl4ZFE+jIZFUHCKDo3MqpLZWquVAn4TR+PuUHXpm20 6lV3' +
'H1ysyaITxHt2rx0svn69tLg7Oj7TPDBpHuptba5CmekyXhu2l d9Qu' +
'm3CqOlTF3a3cCVfLRK/W49Z434w7VRM9yo3l/gFXUwM31dhCMDaTu' +
'owVFjWro5XXZap2G6vd5upeS52rrdbdJnTq+d4rk/JyiwqTY8FAOJ' +
'2ALyfhOHgUE4cswXs1/5tkOlbWrlbYtHKbpqwCL2lTKTq9xqqa23U' +
'qmx5Rw8XT4U/Xx779dmdzeWhuyLow2jE73NbfLtLXIM2Swh4dd9jW' +
'NNguHrJJe83VLoNgwqGc7NNPDpgmB42TfboJR8vqhHVuurtdw 7G1l' +
'lp1LLe1zm7gGNUMm47bba60G3nder7DKHAYKu2aUqe+olGQV8 UExO' +
'cAckhYEteLBC2fRYLSClAleCQTiyrGNLVpmruMNU38igamrEP b1K7' +
'+t+FWNU3ekIxIn3Brf/31+aPd2flhy9Jk59J458KI1W0StNYjLTKy' +
'y1g71CHxlsxIp3zE3tSt40+4VFODhjFni6dP53Eqp/s0y6OmhRlnh' +
'6HcpqVZtSU9bZXeyrJo2R06rsNU2W2odLeJBmxSd1uNuZkxYp dpGj' +
'BNfBAUnZ2CRRA4JGI5hcwmY1lEDJOIKSGh6AUNZpWoTVXMhks taql' +
'FKbeovUiXaeQJaKC5iXr468HXLzfvTzmWpzs3lvoXRtsXRq2O Vrap' +
'EdeupDkNFQ4936ZieKH1cuL2wtyr8fRqXSbBYGfTQEfdpLtle dSwO' +
'u+2W2sszaR2HcNhrXRaqpzW+h4vBtY6Z1tdn/eCOps6DRUaKWmovV' +
'5ei2jkZhNJOZHw3AI2vtCruYxUQMejKTjvN4ZFElt1jFoaq66 osV0' +
'rbpNJzLJynSwiH1rOzP7p6wevXz9+tDW7MtG5udq/NtWz6OmYHjRa' +
'm+ltMlJHM82uZhokOG/JDNq88hqHO2VDdtmArXGgvWG4Szbc1TjhU' +
's4Pah8u9Y6Nmu2tXksrvAz3dtR3t1V3mwUuq8jRJuzrkI50Kw zyYm' +
'V9Yb9F1CzKlwsgpcU5IcBsNA3rTQk8n5hf4kUCk1+MQRVjG9t NTDa' +
'iwSSXt7c0WWTlekkKHYuCRz6+7/7l15ePD1Y2l/rvL3RtrQx6YVid' +
'dYw75F6RFjnZbRS0inFWJcPj0o50KQat9UO2RrdF7K2GsR7Fm KPZ4' +
'2ye6ddMupRLQ61rK4Mum2igQ2TTs3ttki5TZZep3OuwwxsRFu FgZ6' +
'NKQtLLaX3W+hYRztyEF1bCIyGZICwMzyagvVJZ+egyLJKOhFH RfDm' +
'HLWXUGlViU4tA15JZys2BRawMNh4evn7+Yv3hg8mVGfvGWv/O+uja' +
'nGN9oXfAUmWS4mzN9L42YaeGN2xrnHCoxnqUIzbJaJfM06fv1 JZ4X' +
'IrJfq2nVzU90DrVr/Z0SbeXnJMjrS5zRbuO1d1W022u6vk3NhJ3e3' +
'2bmmU3VraISF4wO/WVtVx4RzNVLcGkI0EJMGA+HQOjYJFFWAQZk0t' +
'C5ZERtCokXyfkacSclkZgWUUkIHGkjXH4y6tX3z7e3Vt4sOBc W3Ls' +
'b08e7ExuPxi+P+dw6XkOHcfSROxvE413extcpbfixrrkA+2iX kvtz' +
'IDR+8YbGrNDrZ5e9VivdnZYP93bvDyq314bcFkrOlu5XaYaR4 eX4e' +
'qBTqlFW6aSFhqbi5tq8G0txW1qDp8FsTaT25UEKBZ8MTo6DQM FFxU' +
'C8WgoCePtd3lkeKmULTDIyrWS3EpGJCTNLMX8+uOzHw7/tfd4eePB' +
'yOpi9/bW6JMni3tbEzvrIwvjJm+hmWVUfQN6okc+3i3rNQvGuuVeb' +
'73X7e3UXm/HncqhduHcoHZu0OuwenpANzPU6mVjZ8U9N2W1qr3tuM' +
'xlbbAbyts0LHUjSa+g6RVF0hqMWUExN7OEXIRJTrEq8CUMRGh CeEx' +
'y2J27vkQyBFdKBhNxeeT8ap2svFmOqCqJQCTLeFm//LD38+HrZ99u' +
'7O7Nry+7Ntf6Dx7NPn26tLM+tvdwYtIt61KXNHCytELUTJ/Km7rjD' +
'qXHi6tDMeFW9rcJhu3ihRHjYEfNkKNpvLdlalAzPaBZGDOMuB snHU' +
'3722N9PUKNBGPTVdhbOQYFvake36qgGRVFslqMXIQzyIrqeCi NFNf' +
'AhiiqkaWkFGhiEC03Kp+Q47Ua6qWCWMDXilHVzFAUoLwo7bsX K4eH' +
'P31zuPfk1ebu9uT6fffDndGnL1YeH8zuP/Qc7E13qRkOLadTz7EoS' +
'NOulhG7dMrd4nVvtlczO6AZ75EMWoXeWBi0Nzht9aNuxZBTNu JWzI' +
'+2zoy29ttqFkc1u9vDFh1N0+gFgC6uQbMYYKkQ2yoj1fHQJAK wgY/' +
'm0iC6pkK1BKttJBST0nMSQ0UleTlYcCw0DYrPg+AQODEnPD+d QYh+' +
'uT97eHj4w+HTF98/fPbVg+3tka2tgYOnC09frj3am3m8P3N/vtMgR' +
'vZ31E4NmLxOTg+ohu2iCad8dkC75Gn3poHLxLerGIO2+hkvD8 P6la' +
'n2BY95or9lzC2fGWxxdgj00vzJXsnD9b52PUtZmy+rKZAJsRo pUVm' +
'HrWYjiohADg3MK8715ptShFHWFQjKoAhghJAJhmDAkcB4KB4M J6Bj' +
'CzF0fOTahNar9tV3B11jHTtP5l+9Wt3aHHj0dPqr17tPv1rd2 R7Z3' +
'RyZ6ld0qukDnZLpPt1Mb/P8cOuoXeztyAO2utlhk8cpXxlr9Z77k6' +
'atBcvcsHyos9Y7ALfKCCoxRlEHk9ZCivERvKJ7vVbu3sO+YYd Swsc' +
'21WBk1biKMnhJUU4xJYtFhZZQIIIyWEs9rllYIK9BYeFxAjKA QIUF' +
'ZCRmYqHZBQgQOHDF82+1P/3y9ei8u6icNjhmf/Rs5uuvl9d2JkYX3' +
'XuPxjc3evd2JuZGDNNDhulBw7BNPOGSex/7va3KxJ9wNj1e63+xMb' +
'gxoXW0ltUwgOC0ayx6Ynb61YqSZFkNVC3GaBuxrXJ8QzWSVwa pYmV' +
'UcYBN9WRSfgIVl85n5xcRsyiFABoBUFSQRcRk0gkZwvK8xqoC tbig' +
'CJ9OhyfSaXkBgLRkNDQdC+vU4b1qX//68tXPu7tPlxfvj3f0GrcPp' +
'r778eHS5nD/uOngYHx/37O/O7063eON4tkB3XiPfLhTMjNiXBozPJ' +
'zpeLzmHnNJBCWg+JBTwT5/PffFfx47+n9KGRl0WvqQSzLsks6MaL0' +
'MTw3Kq8qh8Ly4zLTAtNgLdEJsDa8Ai0wj46GFyHQ8PL0QllYI T8HA' +
'UnHwZAomtZSaXVOeW0JNJ+fGlJGAwZkZifBsQEHuT6+//PHw25c/b' +
'/90+Pzw8JuFjfG17f4XX80fPJ999ur+86+W9g+m9x9PPdwcebDg Wp' +
'ntmho2L4yaH06anq907c63u3SczIjT/mf/eOaT35z85M3rl/8MTr8' +
'mFaC7TGWrk/qJQaVVXyJgZ2EQdynYSGphBKcks74aaW4hz3pUtdWY' +
'AkQKuQBIxaXRCZklpMxSKqCUmknBpOVDklG5ieR8ABwag8mJq KSkh' +
'2bE3wOlpqPB3hD78vvNr3/c3H02h6bC2l0tP/zw8Nmr5SffrD55tf' +
'r42cLu3sSjZwub94c2Vka31kefbvS9XLUv9iuFYgYcGV+AjiI gIgW' +
'UBED4MWjyxci7H4tZ2V1aBrcki01LRef4FROCqtmp6kZij6V8 qKe2' +
'u43lsLCmRpRORyMKebe6AiwXwRQNsBYx3HskArCAkcGmAmjYV O8hI' +
'FPQkGRBGYpPTY1OiwsFZqehgS9ePXj61dqr77e2n87JDJIX32 28+m' +
'H74Mulx9/cf/Tl4v7B1Nb+5LMvl/c2xp9uT7/a6R2z8+vqyLkc2j1' +
'QdCQgBIIH8OuLa/iwvPjT0KTzNy+/Fe7/fsSddzOSPy+nxUwOtT68' +
'3//AO4qsds2MqLy2WzWUbiNzfsrULMMrxTltOqxWBhcLcqpYWSxiB ' +
'hmdQETGMfGplUxgPRfSVAOTVMN4xTmglOCYEP/g0JtJUMDLb7e++n' +
'735ffb37ze+fHnJy/+9WD3ydT+85lHLxcPXizt7HkOni28ejm/OWc' +
'1G9gYBjQ0NzujhAylgnNwaUA6Gk5DKBppXA46IuhTcOr56rI0 cXm6' +
'01K5PGl6sOB4+WTl8d704lx3m56tVeL7bPzeDp6nr9HV3YgCB WTE+' +
'UeH+IDTwouwKYXIeDImqZIDlNUj5SJ4gwBczQFUMgCZybcuXT gWG+' +
'JfzcwLjguNg2R89f3j56/Wv3q9/fybdW8C7z+f3d4fPXgx/+ir1Ud' +
'fLmzvjH334870YEs4IOJkUtwNOBhAI4FJmBxUEqWKWlQKY1KT aymR' +
'jdwsASNmzCXaWXUuTba9OFjY3Rybn+xYXxva3fb09VS165gr4 60Lw' +
'3K7kfxwvdtiKGcTk6PCrmclhTRUwJpq8/IhkZD00Mzku0lRt6JDro' +
'fc9YuNCIiPCAgJ9AMk3uOSoHYdOwGSHpSeNLI0PXV/5Ltf9r15++y' +
'7jd0nk9u7w0++vv/01druk+mt3cl/fbdRUc364G5YWC4ARIXRWQgR' +
'DyKrym6TYbpVhc5W2rRb5moTWNTFa7NdI32alYXeB4vupRn74 kLP9' +
'tbY6px5xi3amTVuzhoHewTzo5LV++6UlICc9ICctKDMuKDk6F v37v' +
'qmxASlJYUlx4empUYCAHF5kCRIZlxGYggakkjDZIsrsZpaFJk Ouxw' +
'Z9c3ht1++fvHNT3tPvl59+t0DLwm7B1OPXiw+frG4tTP6+OuV 5cVO' +
'DiO1uhLSZymZ66kcby/rN9AcOtr8kO5gtX+mVzXYIVTVY4e6JBODu' +
'tEh4/x019KcfWWhx9trDnbGlj2q1VHl0njLkFMw7qr+1/NhdiX1+J' +
'l3kXlhVaU5tWwMlw4vIoLJeDAGnQUFJ+eBkzHwxCJcWlpSKCw zthQ' +
'P8jLcJMB6g0IpJtxMSny1P+zN4a9+fvTImwkvlw+ezm5tD+49 ntzZ' +
'n9jcHnv1emd2TNtvpEy7hNMuycaUebRHPGCvG7bXT/aqvMdprDDKK' +
'e3qEpe1vrezwTOsmx7Vznp095d6vL1mb8ezOqNbnlBOj0iG3T WzQ+' +
'LX361BYTFUXIZKRus2Vtk01Q0CMp0ExqBSs7OjcfkZHAa0gpm TC4o' +
'BpUdxSTlscmYlE1zFglUWA/RSFAAOGmhJev5k+fXhD89/WH/6fP7J' +
'I8/6/a7dR5Nee3cfzXz51drMoGJ53GhvLbVpi2aH1EOddQO2mm69d' +
'9/h9VtqDHK6XIRyWmo7dByXVTDYI17wqJZmresPevf3Jrc3+7fW7 D' +
'vr9vtz3t4h2Vgw/HL4VNGA5RZly8Tk5qYSSS2Fw0R6HYaCE/EF6UY' +
'5USHC5mVHJ0cHlxGyWcTs8uJMSQW4uhSoEOYamnJJVLC46PTy AO/p' +
'i92fDr/dfTY7MWHeWGrf2/ds74498U4RO6NuE2vc7V2ji+xauncp6' +
'7OJvPNDj6nS6V1zWjmyamS7qsTeyh53Nbnba6ZHtGtLXfeXnF sbQ4' +
'8eTW9tuPa2+3c3e6ZGJQM9/Ed7/QuLZqOGyuMAvW1a1kiqq8JwGEg' +
'sOgsNSxcL4E1CZDExKysxrLIYyKVnMSmZLXWo1kaYog7SLM5t VyJE' +
'fFAxOtDVkrQ4pv358NudZyvtnfKdjT7vb+0/mn75r83ZEU1vG9871' +
'nbpyzoNPJu6zCijOswC734x2inp1LGdJp5ZQfb0ij29srEB9f KSc3' +
'mpe3WlZ293dP/x5NaGc393cHVBOzfZuDyrfvJs2qQt0CnwvJJsTnG' +
'OSk5ViAm8kjxuCaRFAqviQlCwNBo2vYIOrGBlF5HStdJ8mQgJ QydD' +
'8hKTUkIysoLLidFsak4x4uyQHj7er/35l58O9ice709tbw3t70+8f' +
'PWgQ03yuORLE5Z+a3WPgWtTs9wW/vywanlMM9knZ+JiQm+/j4PfWP' +
'NoxtyN87Pdi4s9i/PWB+v9B08md/fHH6wPPHw49HC94+GqcfO+de/' +
'JqF4Ft+pZ4jpkeUmOpBYrrEQrpdgeE0MtQZcVgQWlUDYNyC8F 0Qnp' +
'dVxYj47A52QhkNGp6SHhMQFB8eERmfFgSAypII4LO0pOe/9f/9r87' +
'vWjRwfTqwudq/P22XGjsgoy2dvcaxXKBWCVME8nLnAZ+XWMjJR7x/' +
'7xtz/cuPCX5lrkWLfQ46z3DLQsr/TNz7StLtl2tsf2no5743Hj4fD' +
'W7tD8in16XLm11flgx61phmjVNHkTvqEOVctHNArz++xct7WM U5TN' +
'Z4Jp+CxhRSa7GFBGy+xtJQmr0NHwzFQ8OC0/PR2RmoIGp2By48FJq' +
'PwMFi4q5vIbEkbMi2cLW6uucUd9n7WyQ0W2KGlby+7pPmWfud yuLm' +
'EWRoNTriaGfp4de7aODVqf1C8OtQx3Szxu2eJM+9KKc2basLb m2to' +
'e3d4bXXs4+HB/bGtv0DHQ0mGteP6lZ3pO11iXYTGVqJppfBagqS6/' +
'01zi6atp09CxiDQYJAWLTNE0wsto2ToJstfMyKPkAsgwbFlhL hEOL' +
'czNLERk4mG5LMq9+DtMGjjC9683T77zYtv57TcH3313cHj47T dPpr' +
'7aHXm0t9DbKSGiYnzO/OGuz7s01D0WLry7tXx5VNdnr+0x8vttwul' +
'BxdqSdX5Kvbxs2dn1bO4MPtzp39ge3Nkf3tztdffLbW2cV6/WevtE' +
'kpqEuUGh0VBaWBikrC/oNJeOOisr2QhIdnQ+LLFRhDaoimorQH1tx' +
'Q2NjCQssICbX8DCwAkIGBEGJqLBRGRBFTMxKyI2KRgNDDj999 9oql' +
'K/ebH89dOtjeVedVNpASrt6um//PNvb9y69mlVMWC4vcasoDn0ZcO' +
'2KlMTYahD1G8TDXU1zXiMcyOyhQnV3sHk7oFna9O5sz+wvT+0 td21' +
's987Oal291T/8P0TW0c5tfDGcBdnqLeySgD0FlSnkWlUUyiEVCo+R' +
'VgFsxmZllZGh5rgauPAyDAAEUKsJKDKChBUVB4hF0JGQ8nwAh YeCI' +
'mKh2SA0ABMpm+Ez5/IeTdiA8+f+Pj3b/z/T/Stsy11hV9u9S32NUm' +
'4ub0d0mlHo1GMHnfItrycD6snh/Xe4B131izOWvaeLq1v9W1tubZ2' +
'BjZ33Q/WLetbXWOe5sER2a+/fq1oKkDl+tVXg1dnGq0mRpMQrpUTa' +
'uty2ezM+jq0TEb02tuhpYx0cYRC78Icj+cV0KoIOB4+j4LMJe Z6v2' +
'E0FAyTmkfHJCOA2bnJRETkF5/9/g+/fePN37xx9tjbpWRoT0ft/nL' +
'H948nO7UsGjLIaa59uDo00SP19EhXJtqm+lum+xWzgy2L49ph R83s' +
'uGZzc2h5yerlYefR0Pp6+9KcemnV4hmXray2/Xr4UlgNhOVcLCKFT' +
'wwJRger6ysgXGamXFagVpEVcqJGVWQ3MTs1hXoTD4yFFBBAzF pqaQ' +
'0JV4aEkqFewbnUXAQdDqIV5PK4qfCsqNsfn//kP4/87xvv/f6NE++' +
'8QUo/e/jj2uEPBw5TQ30ZhAQJbGtmby32jzlVo11Sh55rUVC7dcwJ' +
'R8P8gHLJo54ZlEw4hfMe9fy4cnnJ9HDHuX7fOj1Sf3+1fXJC9 uT58' +
'A+HzxRSMDLXH1cQ0KxA2WylzOIMBjFZ3oCxGBhGXXF7a7HLSB t3Vx' +
'ULS3NwEB6/gFVNpfLwaGYuioFAFaPzaHkoOiK1ABYeefXO2T8Gn/4' +
'Pv/N/iQg+iUm5+tk/3jz36X9bG7LmnDKzsrycmiblQGf6dWPdskG7' +
'ZLS7acRWO+VqXBxuWR5Vr4xr788YFjzNs0PSuTHZv89409Kcd uNBx' +
'7CDP+21d6F176D3y9erkvr0cnYGoyimgpMulqCljSQmI9WbtP Y2Vr' +
'eVY9VSBu1MR78uC5tLE1DY5fl0Tn5RBaGwHIugwkE4KAgPQjI QEZf' +
'fCjz3+/CQ88kxPnGgDGgpA50X+fHff/PO+3+kgM9IKKFdrRWzAy0T' +
'zpa1Cetcn3JpUD3RJR7rqB7rEIzbq6d7aie6a8Y6K8e6BB5nz WRf3' +
'WS/aNRRNTUi3d52Tww1dBkoK/O62amWjd0evQbLpEYQsUFMcnhVZY' +
'5WVdRQ701jiM1Q4rCybXrC+k5PUQU9D5vJEtFLeAUMFrykmlp cW4R' +
'lIfK8VNBQuFJcZMzNpNyMFAoRiEckwSDJBGxieujNE/91/KP/unTi' +
'f+vJt8L9jzRXQIc65fMjxtVB9bStvk/Hc7XQmwUwGiKIXRiqqgIOm' +
'mieLvZoJ3usmzvh4k26KybcFevLrUtTKpu2cLy3ana8eXWjw2 qi1v' +
'JSUaibBeg7ZaUAhYKglpHK6GmtCoKhGeclxzJkTgFHUUpRxZV EAhV' +
'KJWVxxYxqtaBKSmeL6YU8Gr6cBKDjIwHRCfk5eSVkuLfTUAqy EenJ' +
'Nz+88NnvPnrvv8vR/iSQHybpvEYAqWGjCuGx8Sl3w7Ni7sbeCEwJi' +
'gfHJsLSQdkhtbUlVEo2CRlQUZrNZ6XVV0EsKtxQJ2O6r2Komz XWU7' +
'YyKds/6DcaiK0qHJUax6QlsRhpXB6Ix8sBZAQRCuNq+EBxAx5bVoD' +
'GZ5CLcui8QhqPQCFm84UUqaWhoaVCoq/mtfBLpAwQA5WGzYyKvpxD' +
'RkKJaJA3ohlUZG7c9VN/+vC9N0Ou/aNTmEwG+kqLQgf1NAQVj+Jzg' +
'OT827F3IxFZGdAoKItQQIZQ2SQgOAaVdlYtKqAgQmNSwy7cun 7r7i' +
'VlLbyaD1KI4SM95a+eudWGIlE9QiJC4dBxdVUQXjmIUATMzIu DwCL' +
'zMNkICoLAxZNZSDw6hVSKYdbRaCxEGa9QbG4QNpeLDdUiS3W1 nptR' +
'CM8qwsXF305IDcmh5kOp2LRCdDwOlnLvTPildz58939yok/e7yBg4' +
'r/Q0C+LqdEUBoGUe4+MjiMWwamIkOKixDJaIpMBLC3ObBXEDcizO k' +
'WxproUKT+LQszo66iiFCanpd0ND/fBo2OVckIO9AazFJydFcbmZjC' +
'KY/PxyZm5kfmoqAIymFpFp9UwaHwyDh5LoEEZQnqZgFhWihK11tWq ' +
'ePX6SkWXWGYVZeLR6Th0KhkfD0pISL8HpGCzyJhoPDoZGIUK+/T00' +
'd+9+Z9vmKoyF4dNSQH/dIvjWmsQwNjL5JzbhHQfaNgX4JiTVaXRMX' +
'c//OzIGyeOvnnknTfOfPHb3NTPwYnv84g32xrBtvoYLTtQWZ0jqEC ' +
'6rGx47o34rKBUQBAg5zogxR+NC04BBYOAoXBECkVAYUpKixuK 8/Pj' +
'YMBQEhfLbmCyWIhaNb9OW9lkqVd1KzWdChApP60QkYZHAQiYp JzEB' +
'FB0JhWTRC+Mw+UhE86Gnf7TH//wH6ePvfvLt8s1AlKo3z8mdSglPx' +
'uR5YNOv0rJvK3iAWcGeWM9AhrIP9z/3dToU/zi1L7uciw2vE4AKUA' +
'HFBHvUhDnuQTfSXfp68e2ee8goSaTSakxsVdDg32zMy5nQW+l ZoUC' +
'syPRRXBGQwm5hphPyoRmh5ZUkesNovLKQoG4uE4raLTWN1qFj WYhE' +
'JufSUBnUfMzSfkQBgGAycrKCsujwsKp+FhgTPbtD46+94f/efONqs' +
'LgzaGqyLtf3PL5AJ3tX0JKKKMmkPMCOhpAFgnYoae4W2lccmR TJaB' +
'Dmb85LtidqTr8oefrLeXGdP3kQA0Z7R/k92dQ6gU0PMBloerlqMrS' +
'bKm4qE6ISUm4ct3vTFR0AJwAogmZRD4Zz4Bj8pPLG1kig4hXT WVzM' +
'IKmMompTmIS1psFWThYNhUNomFANCSYjgaXYlOAUaDUWyn4XA gODL' +
'j7+cWPf+/34ZsFUR/aykMGJOn+vh//39+9kRBzPgd408fn6NtHfnf' +
'uvHeGDyoiAWMiQs6f/iIx+k5clN8Nn7PREWchOZfs2vzDL+1j1jxD' +
'Q1zs3SOQlM95tFAYxDcfHqJswHz7ytHfV5WVERAd7BMbdQdVU kBhI' +
'wgVVAwOhClILxYWl9QxSspQ/FqqyFgjs0il5noIFZlFRwCKENk0r3' +
'JoFgUBKStMwgAj00IUzMSMiPNnjv/t9Nv/p7k8fXtF38ENG24GRUX' +
'4+N84ffHSEd9rHyfeu4wH3cQAfeiYEEphXCU9rZ6dioDcDAs+ 73Px' +
'43sR5zr1JO+2e39WfrBSD8s4YZGkN5TFVjCj8+FBKTG+LFqso 5Nm0' +
'dIqWLmZyXcSY27nZITiScD8vChEdiCOieTIy9H4bEhOrLSzUd nT1G' +
'KXIlmF8DICtLgAWowC02GQYnh+OR7MpaThwAl+7yPjT0cFnPr r735' +
'Dgwf8+m2PtiSmqyZxWI9PTwk7c+nop5/+TsFKLMjyR2TdwEH9QoM+' +
'NTeiNZVpfGooKONCeOA/W6S5jh4umxr780+vHu16NBL4+pwiNdUnK' +
'fYclxZRTosqIoSW0kJFHEABJA6TG0NCxxMRcXnpAXlZIRhEeH ycHw' +
'adyqaDw29fJNUWN1hFym5pcUMRU0ovbWKWNnDYYnZlC6dcxmS rODg' +
'm9OKnb9279Vn43WPvvffbzMgz+924fmlmuwimZsf1NEJqmAAc JICY' +
'eS0x8oqyBpme5JsYfLyhNJ2ICMtJuXTd920sIsiqQAT4HwEln hq34' +
'EzijDp6xDe7baOdHBE3i8fKoOAia9jpIk4Kqyg8FxxQhIvF5k UXou' +
'NK6ABEblJU5B3/ayfvXP0cDQ7Jz75z3f/ilfCYOwmJlc2sKnWZ0MQ' +
'TmxrUTlVLZ5PS0qAdMOQhki9/8ueYwNO+vif+euS3Phfe3+rAacqi' +
'Z23MDhG8LPfauDJzsYuVfu8UOMV3old47sT7ZiFazc26evFIa PBn4' +
'lrI4eFMu5Vy9cpbGhHE1IhGp5/PS7n8ck0rqwRVMZLbFIWNAnCnjq' +
'JpQHj/WkKUT05GELEgHJxxJynqBiwrPC3mTmTI9XshvslJAfk5wdc' +
'vfvH7D8+9fewSr7G0VsUXtwlNLq2uWyHVVfJEdL60LOj651c+ +0vY' +
'7c9Dbl/+4Ojf3n33jyp65JgKlRV/qY4W21SakhF+XES911IaIyYEt' +
'FVl5yZecapJTg2BS0tw6LDbD5qbRdBrPm8DYo/vLCgODx8vDTe1CE' +
'CbQ3UtNVBRWXotO4tKSBCUZtaWpXLo8YXo0IyEOxBAKDAtIC7 cNyH' +
'CLzbMLzbyVmTYDX//SwG+Jy9fPX8uKDQ4LbZOy1W0C1W2el5dkVDB' +
'dS31SI01QGBUavJt39Pv+F/5MODm+Q8+/Ptb7/wuwf+jg9mmqVHxh' +
'dPv8PChZn4CIPpU+J1jWdFnCKBrDfQ4fV22Q4NdHajQN8Au+R 255P' +
'dPNORmQ2ncaAdtf1H9aFG35Kp0a+kNrBR3M6JNijRJUYrqXGp BFAF' +
'7j4QNR4DCQOmB0aE+sff8wYCgkLsXQ+9cTAi/HnT70o2Lx6/cvHIj' +
'NeJOWjicAmHWEvk1OBots3NYPb8zPPGgp6NfweLjzx/787kT/zhz8' +
'uOjR/925L0/3Dj/nq4G/t39Bj0/8+zZj/Mzrlj4MTJaaHTg57f9Pr' +
'57/bMgv4+uX/1n4O33vzj9l9zs64oaaCM/s0OK6DNSrY3wJZdgtbf' +
'K014mwIepeQnlxHv6qjRzA1TCBUoqs4swCbCsaEByYEyIT3SI X0rs' +
'7Zgwn/DAq9HBvrf8Tt+4eOyiz5ljt/1O3fH95MzFM343/IOD4zJTo' +
'IUoGB6FpuSTKxgpGXFnPv7z8U+OnDz57qkv3n3vvb8c/eCvXFTIqB' +
'LVXpFSAAq6HXgpJeZKEdS/BhfKyw/Epl8uRYZJeTnKKnBzRc6IlkC' +
'EB5MQdz025ngHc9patDVY/aCf77HQ1NxkbUUKBxtWS41uKE2m5Iej' +
'IGFQYAABkUBCpSO8lxtzKy7M597dS6GBl4NvX/L1PXnb9+SFK1/84' +
'+zpo+dOHbtw+YNTlz65eP3TKzc+vXj982s3T1y98fm1O59d8r 1y7s' +
'SlUx+eO/23yxePXzp3/Pd//F9AtM+cmYYF3kQDbyKBIaicyOyUgMJ' +
'Mf2FhIAV4jYMKFFFjavBRfXoSvzguJeKUpCSlgQd6Oiv7eaXu u2n2' +
'l2Mla5347sYcUy1IysqoL0mtLUlmFIbBwUEZmVcykm6nJQRnp gaC0' +
'sIigq8G3jofcOtC4O2L/r6nbvud+OTzj9766JO3Pzp6zufapZs3zt' +
'24ecb/1tnrNy/evnM1LMonPPZSSMyFc8fPnvjz6ZP/vH7ttN/Vzz/' +
'84MhN3+NNjEQBNjIj1heWGZSTcis3405q6ElQ1OlCgB8o4J+K 8owH' +
'D8xjnaUUeGBW1AVAyvUbNz6JjTgHSPXDQAKFxbHtwkx7fYa1L l3DT' +
'WsqTW3kZAjoiRhoOA4bBEi5HR96MznqdnSYX4D/ueDAK7dunff3Oe' +
'N/5Yvjxz74w5H33nr/g79+8MF5nyu+Af63wgLvRoVFpMXFApLjstP' +
'istLvpaZfPP/Ruc//cuH0Z1cunwj0P3vqxNGTJ95PDDtdT4yoK81E' +
'AsNSY65kxFwqgd6j5gQrhUho/JkqPuzpj57x8ZreUTkyzTc+5PQ13' +
'6PX/Y5dvPiB/43jvn4nbly/mJF4m4IOFjJiJOx4ISeusiyJgUspxi' +
'RAMsPi7t2ICvYLDbgUG+Lje+Xk2QufXbpw/NKpj//0zt/feOvI/7z' +
'97m//H9urv4E=');
test:=1;
end;
procedure healthbarcheck1;
begin
MoveMouse(hx, hy);
wait(500+random(100));
if (FindBitmapTolerance(HPred, hx, hy, 30))then begin
wait(500+random(100));
MoveMouse(rx, ry);
HoldMouse(rx,ry,true);
wait(500+random(100));
ClickMouse(rx,ry,true);
wait(100+random(100));
end;
end;
procedure healthbarcheck2;
begin
MoveMouse(hx, hy);
wait(500+random(100));
if (FindBitmapTolerance(HPgreen, hx, hy, 30))then
begin
MoveMouse(rx, ry);
wait(100+random(100));
ReleaseMouse(rx,ry,true);
wait(100+random(100));
end;
end;
//Im a comment...
procedure mousesafe(var x,y:Integer);
begin
MoveMouse(396, 383);
wait(100+random(10));
ClickMouse(396, 383,True);
wait(100+random(10));
end;
procedure mouse(var x,y:Integer);
begin
MoveMouse(x, y);
wait(100+random(10));
ClickMouse(x,y,True);
wait(200+random(10));
end;
Procedure getvariable;
begin
if (FindBitmaptolerance(schiffe_inaktiv, a, b, 35)=true) then begin
a:= a + 4
b:= b + 5
mouse (a, b);
wait (200)
end;
if (FindBitmaptolerance(glitzimap,a, b,35)=True)then begin
mouse (a, b);
mmx1:= a- 38;
mmx2:= a +51;
mmy1:= b- 100;
mmy2:= b- 13;
end;
end;
|