SCAR Code:
program Hoi;
var
Tokkul : integer;
Tok : Integer;
x,y : Integer;
I,II : integer;
begin
tokkul := BitmapFromString(101, 79, 'beNrFnGmsXkUZx4uJgRhaA' +
'Vti623sRqG0pXTfbl/a0ha6Ad2EtrRQSoG2CNhCQC2b8sEioIXK2r' +
'IVFQnIByAEo3FBSDRoCOGLfsEYEzQxoSSoiYni77z/23+fzlne9Ur' +
'y5GTeuXNmzvzmeZ55ZuacO3/alAmjeoZ97qvXbbznzmv33XW9hZ97' +
'b70aGTDguI8++Pe777yDfHj4z//6x6/JoTyye8cG0uSQ/967L/3pv' +
'b9Skpzhw3uQNSsWLls0B5k3e8qcGWePGzuShpCtG5Z/fdfmu762TZ' +
'VTUg2R842bLle1x59w/PoDl1seefnQlFvmIOSrZsvK83tpYsn8qbR' +
'CE0OHDKKJS9cupR41QUeQkz570h27P+BRkdf/8Nt9T35kueym/zo9' +
'bObff/LCX1SM8txFc+qFOjL4lBN3XbNWNZuSmnAX6BQowPWrV54wM' +
'bN6+29ZPn+lTGRVhmvDmnO517ggQBohEaV5XIhwjR09QrhoYufW1T' +
'y5BoJeX7nmbUEwijwuWJF+9rXnXIy7uFe9UBPUL1xWJ1HSVbhEBhq' +
'MC2RIfPj+G+RwJf3ck98qZJXJ8rm0cu7cyfOmjz9t1FDhIl99oXLf' +
'AoffrF/z83OXSPi5cO9Syz337avWLg2KcdGumpBE1ZIA544H/ikBE' +
'VexUv7Lr/y0UMGES2OdF7WF4VAA3aZr775+mKogRg1idei+nZmdvn' +
'7YHWdk3Re3Mn3yhDwuGyMQDAqBWyGu066ZEHEBKsFFEwkumoi4eGa' +
'xinrFFVZQUmY1LiqXdoEFMSIPjXBJREysoPTd27YmrHAaxmUdxhKP' +
'wVXvi3yLboRPlKcmTszjglXEJRukfl1RYDVhXHhINRFxQSYvuJeZa' +
'/6TlwSXmqByHl6sqN8JpQ0KoRhX7v3j738IpTu/vO77z/8MVjNOH2' +
'pWSKJaMnkawlKsXfRFxITrhd5ZFnDdP3pcIa6hl3wx4nIT6gv2ftQ' +
'YQxP0wrh4bDx5Zn27P7AxQgbt4mqA+37wy5eef6oQlxyvRJWLlWao' +
'CEraZVYHH3tQmrZ24STyj2G1fK47khjjyOFDZIwSbkQKcclZSW7fc' +
'wOsjCuZFAq0KzTBYxf6Lrsv6RLEnFNojGpCNUctSkQ9kojVDZsWw4' +
'phEitCCHl+S8RFK6kx1od+++aVwlWmXWW4kNnnPRmFHOOyvdOEFAx' +
'XU4qrrmPWK3kwWEm1Ii7qj7ii5DXq8LcHf/z2Mvmry1b1YhpmddtN' +
'X8EYs5Ds/TcoQ0kRiKoFronjRse+oIeqvwKXnJVk++07jSthddr4Z' +
'VK5qF20i9Vs23SRO5UQ04QoaOCSXolYnpVw0ZHJE8/ACZThiiYjYr' +
'C6ec/dsFI3ueK+yCE/sjIuq1bERT641BeVx7dbmBnLcBWyKsNFE2g' +
'XraDGXCMunh9Bi2yMtkG8Vj5MlWrJpVCzqk2gWaTVJmZW8u2aKwtZ' +
'9XngeivRUjT0rrZJXCcvGJZl1vlIqnHJ5C08at4k4YOASwnrVV613' +
'BFmLuHSQNjkIy46tX/Rp0xMfeR56DVps1IZs/KciKDGERcqzb2iTV' +
'XwsXQLF00oqtEcJMkTQ8AVQRWyspnQKVWlIYgjYgUQB1mftUiTYMx' +
'JiNk9YomJMQq1bi/DJWcluXzjqoa48k1IConloRlUZOVe2KWQpk4T' +
'q2CliF1zn4Mf/1SOy/cp8PTxUq3CvpDI48Lbd4IrGqOaiNw0RtAwt' +
'ET0p4SVO5LgSkS4oqdSu4mDij8X1Wb5FpoQqES7sFD1QriQPC4yC3' +
'FNmDDVAi665seLuNREhVBeZBJRVdEGqUqshMsPHyUqsPUqRuwxoo5' +
'eHaUloVtshsi4sSMJUIWLfB4AsMbVoYgVMvwLnxcu9Y4niRqinwm0' +
'vGR8Zk+hME9oM5wyYZR6ocnRoiVY5FaBSBX2DUGdFRzUlm1QrURc5' +
'ERihc/cqrgJ4aIJWqcJP57GMY/Of5U4HWdD94JFVqZg9T4aqXoR6U' +
'UViloqPhpKjUIUg0IwE4ZeuPip7mTQ6u1K4ZG+Z64nktqiqLBbUUN' +
'qQrjUhMbFEHSX73UNLTUx+JQTXSbi7av5iNrUZk0oJBO9UyICxYio' +
'I8hnTvg0Qo6GSd1JCOtaUW1hK0kT/HQTGpeGT1vdhHsBLudTmyXpj' +
'nKSrkUpfJJIjF6MO20YImL6U0tkCkXwqT/fhFrppPKkCYwdXB6IpJ' +
'vuUfXIFpYxKLkUJOsLmcf2Jd6ery0+RmG+6kHcxMRxPbGJpJV8bUl' +
'OYX5sgvohVlhnHDgVjiLlR5KcfEIGEmEqp/D2wpwyyTehKayNJho2' +
'eqQJZuEeEvLDnYuqjaJe5CVfsm0prL8/mjAudMySzS9DMyER8/1Xp' +
'08eeDz3ckX4Ke9hrU4ePs5Nceop62wb4ppJz5wypos1R1wLZp+VhV' +
'tHdqK0jbPjihWIVkMxveVLi4jHli4cz/NYzh4/HFB16+6zuIasyqR' +
'tgNXVdmUshEsDwU/t5wjOrmvW3njVMlO6YsMi5Wex6/K5hBOxKk1J' +
'xpU0RP16ZsblmOCtaYaJ5iQ5bYh1L+FZ9lNiXApl16/uFRaBUuKbG' +
'09fu3yaenr+/Gmw4sq9BGMgMq4jc0efvy1sLgmt20NXITySnpNrTC' +
'AqMH/GRKS9yqnNuGhINCQK40ksmT9VtkYxrtITrmNGnHrmmIwP18z' +
'JDx2kk4syA7FeUWcFNHGrLiAIyU9LUsY5eYzJSMVK9FexNW2uwqXV' +
'1qiegfJmXDNfNHYkTCSeZzUFIIn/j6qVZ+UHEysPSgJBR97JzySzU' +
'CijkXXNiTSsoWwgImFrl6I7MnHy2zev1DENVombwjxXLZmmW+TVhZ' +
'TyYDS6eiWjK/SqrDtkWvTTPOOfxCQp5iFoRvwYppdPJOK7LBEXXYs' +
'HHHt2ZKdOcvWCJs2EmMp7k0ErqUIzjEOT9bTWoFMRaUMUFerUUMpQ' +
'lyEtxKX3JXwo73N/ggc8PMTw+Zo1IrFqXFbpsgfrRDohVoYxX6fRm' +
'ZVwQWb/3t06O/O7JaBDzcAlsVWaWB5X4rXKOvXxxwO4Dhhw3ILeXt' +
'LInBkzJNmhST0nFrbESjQldR1adAjOL8OFDR7YdwtpZN9d15NPDt4' +
'MgRi1VeDKsyrEpY5rR5TEvNmzlRAuJZTjW1yYa9cRVWi+f5qVcT16' +
'741Sqqce/iasgAYuvaKjkN46Vo0rOskK7RKB+/Y/wnXROecoZ9nix' +
'QgJcYtwrJD9yqdMzAoh9ILJPXdey3XvrVcLl7RLADFJ5kotl+oh7m' +
'gFXYW4+uy90rcb18FDP5KyiRJXoXOB5JZ+Va0K647aJVwwQYuAJly' +
'wMjH9SdqliEKRahWu+U3hWr1wwZYLVsrQFs+auXD6tNqUyWcOGayc' +
's0eM6FfVal7izAgu0WBmBBG4TAxhisR9YYzaw8fWhMvalSx8CuPSM' +
'lzrFi8C1+YVy5UjXGNOOQmJ6pRXrf7w89W+KwYS2BpMcPXGJYePbc' +
'rbS7UiriPa1dOJdpHYetGFEDMuEgmuT1y18riY+AgbgAOlqF3CpWl' +
'x/QW93KjDDi2gynA1dFz2ThuXLlVaJintSnxXP3mt/DTk9XIFLoQ+' +
'QgOvZdVCZIngwnGBCztFA7U6kIJ14rt8tAql69ZfrPTSuXNsjMqx7' +
'2oDV9L3Zoy32tVHXJeuXWpQCS59I6DJUXWiYKzEdfrWnjGKAKyQGz' +
'au33nxuqtWr1oxrxdvb1ywirgsTTqfClVpzxjpsvZnFHcluGyMmhk' +
'R7aYqlijDFYOulnBtX7vmwvnnSMF6Bg1MVMsxvyLYlhSjKyJWWgMW' +
'4lKYKlxMAX45B1xoFzY4ZsSpXdEujNGsUC1YRVwkCPsjrjyx7ipSo' +
'Whry9qFa9IXLg639OWLX4TWmzlaB9UD+9GF2qW9i+ZxEULIEjHDOZ' +
'POEivjUsBvefShfU43Y5idOKu8dkXfNXniGQraM6m/8u0PVeTYk81' +
'57Q3qLQ7l+wUDpJkHiLiIJcpwsUqKxJ448CDXGVOnSjo3zKOFa1Vr' +
'oiRMRX+kWpghCdaPClC1L7F980q9VkqdcTM20S67r4a7W83jIux/8' +
'cXXJH3EDj782KPfe/zgI8l00N++K2oXNPT9FLgISvVFlTZXtYfDLZ' +
'QBPjZI+Z6hg/K+S/v5Bb6rVorL7qgM1yXnLcFUBZYyh57AIu994Dt' +
'3J9NBdGJSmA4jh2SeVQcFTYsg7QqiV6T11R7ctGG4fnUWzGfaNX8a' +
'4RZYZIllM2MzqhVNzGJPbiGOtYK99dZb2KZk05YrV627JBpjEmW1g' +
'KvCFmrTIi7PjPo2E4ESSsX16f0379mxWhvR2rfJ4q5aY1z57dM8q2' +
'd//HJ0StqIsFOKsyF6JQVDu5g6tQxHiM2kYCJWqFQNiTXv5SIutIu' +
'JT9rFtIg6aX6EFQC5SruIu7gKF8ZYGNXrvK/62WRi0SlZZ668eidq' +
's6C3F4FYDCG09er85E8Vhl+hac3jilE9fdy26SJ9RYUxJrjQLlaLw' +
'hWNsQxXw110eoeqQAwPH3VGK2t0JpqnFA+VA0veePmrtFFOrP8CsG' +
'QRJN8FKFw9V+2mkoAYVxljxDV0SLF2xUPYhmtGolNsTZE8fh5W0p/' +
'8bAiTqZMmJfYbSfqt/ib3SMu8VsNAAqGMZkbF9tq3Fy59bC5cxGOU' +
'LNMux135Y+tE7ZWjiS/Kjut2CYUV78EDT997/0NQ2rJtO1r3+DPPk' +
'RaovLtrKaLQ8xQ+XgUuxZxy41G7tI0j7cKh4bsUSBT5rp4El58hWq' +
'WHPtE9BU5Ch/9/+PFntHtvxZOdKrpA67Q5pqDC9usleWNQtWmFY1c' +
'9LSZ79axc0By7epyVdnL8Fa0iLsoYV5gZi482WnUOjhnefPN3r776' +
'C/t/BwwSrZhEUvabrDELPVhpwFBLAVrZkmGNuBRTOe4i3NKaEW76O' +
'htXDyI5/DJcyalZG+7UDi3x/6aRt19LS+F9s49Xol02Rh2fQUm4CM' +
'A0OeoIO8FVfXDW5lqjDiT6/8gqsd9EKoKE6KCa91dlB2cRl4xRgYQ' +
'+0yafORGDjb6rbGZsSbvKHrglzWmmrWPK1IoX1/lYN+405nHpnBEn' +
'L98lbmgXCyJMlYBK82Mz2tUwsG84shWaE3vR3kZN9Y2Ffy3ULtRJL' +
'gtWcmII+VhlFkjUNwab1K6GxLq+N9WkVueVqplRiIEEEPBL0i4F84' +
'q74MYSG1xoVzYz1s9km5wZW3Jf+rKpw/PBhgPUyZs/xnXmmCHgkjH' +
'CR5Tku1Aq/SeT7IXn2ngHEpCJuOLk2PxefVdUpZ01YK21hlRnol02' +
'RsddmhmNSwYrXNwYjLFgR6L5ybGsWMPDyrL4qqLdJmEWzpvJC0vCJ' +
'VAxkBAuonpmRu1LCBeqdWR7sAvG2PYpaufT5dGStQINdEcKXb2iev' +
'xVgguvleGqx131/flMu44cbXQz7urKGw6lBCrNMP+zbGa0dunlLmZ' +
'DBRLaeVZUrzLSLm7JvrWsH3C0F0j0k0Nu6KkKV6/NGGmiXbhxXL0W' +
'QcyMcvXCBcMrNmQbg4LWT2vGfn2XpuJ5km8Kykom2gUubQ/GmVEfv' +
'MDQrl6BRKGrz78f/snjqnVNYwuNUaDyrl7bzpSRdun1m+S9+v8/rm' +
'SpkvdgnTxGhe8SCr1sk+C68apl2u/KNnnqi6BRPQP9HVDhjoRwlb3' +
'H25WDhsJONWyuobNq0tXHo41kR8KuXv7NgQTXsnck2sbVXafU3XEp' +
'CySYGXVwJjXTllcyMwqXZ8ZuRfWtrptaur3ir80Ma9n2oHDpWFa4s' +
'pOg1b00p5VjfkeiPxZBrYasnTRXaAgxh3SCS8aoIzNrl/4VoY5ltd' +
'8VcVW/KF7xUn2HOxKNx+LIQqbqAWppPX3fcNUaaxfFhEun2D5nPKp' +
'dF/Qm24P6jLHizeeyTvXfi1iFNVdHXPEh/TmAoUXaCS6fM+ZPsX3o' +
'nxzLCpe+WC/D1aqNdMWE86eNZQ9TuA6KnwXlcbH0s+/ywZlx6TDo6' +
'DsS4VjW70iU+S5bRCduvyvamLKqVSlYYdMJLu/VE9Vrk9Da5WNZHD' +
'59b7j5XDFG/bSPWlWg8CW3ElylE+7/ALvstUg=');
DisplayDebugImgWindow(120,80);
SafeDrawBitmap(Tokkul,GetDebugCanvas,0,0);
tok := DTMFromString('78DA637460606038C0800618914820ED0624F' +
'61350E305240E1150E30B244E1250E30324CE1250E341841A90BF' +
'CE13506343841A0B20719A801A5320718A801A4320718C801A63C' +
'26108005DE00C82');
SetTargetDc(GetDebugCanvas.Handle);
iF FindDTM(Tok,x,y,0,0,115,70) then
Writeln('Found');
For I := -20 to 20 do
For II := -20 to 20 do
if pos('1337',GetTextAtEx(x-I, y-II, 0, statchars, False, False, 0, 1, 65535, 5, true, tr_AlphaNumericChars)) > 0 then
begin;
Writeln('x - ' + inttostr(I));
Writeln('y - ' + Inttostr(II));
Writeln(GetTextAtEx(x-i, y-II, 0, statchars, False, False, 0, 1, 65535, 5, true, tr_AlphaNumericChars));
end;
end.
Try this?