okay i need help. i have no idea how to script, and i used your tutorial thing, but im lost. please help.
heres the script. its just for poking back in facebook.
{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i Reflection\Reflection.simba}
{$i SRL\SRL\misc\paintsmart.scar}
{$i SRL\SRL\Misc\Stats.simba}
Var
i: Integer;
Procedure Findpoke;
var
pokeback, X, Y:Integer;
poke, X1, Y1:Integer;
Begin
pokeback := BitmapFromString(678, 362, 'meJzt17FtHckShtHAGAk9hiFb' +
'MazBAGTJk01TpqAUBMiQuyncpzUGaGD1iGnW9N2/WedDByBOdde5u' +
't0kSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZ' +
'IkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZI' +
'kSZIkSZIkSZIkSZIkSZIkSZIkSZIkSR37/mvyfHiaOrfbz/kjSbq+' +
'P2519Yn4ktQk4jeP+JLUJOI3j/iS1CTiN4/4ktQk4jeP+JLUJOI3j' +
'/iS1CTiN4/4ktQk4jeP+JLUJOI3j/iS1CTiN4/4ktQk4jeP+JLUJO' +
'I3j/iS1CTiN4/4ktQk4jeP+JLUJOI3j/iS1CTiN4/4ktQk4jeP+JL' +
'UJOI3j/iS1CTiN4/4ktQk4jeP+JLUJOI3j/iS1CTiN4/4ktQk4jeP' +
'+JLUJOI3j/iS1CTiN4/4ktQk4jeP+JLUJOI3j/iS1CTiN4/4ktQk4' +
'jeP+JLUJOI3j/iS1CTiN4/4ktQk4jeP+JLUpD9u9efHh9XnZfLcbl' +
'8nj05FfG3U7HV9fnyaP8u33+y5ffs4d6T/E/GbR3xtFPGJr0rEbx7' +
'xtVHEJ74qEb95xNdGEZ/4qkT85hFfG0V84qsS8ZtHfG0U8YmvSsRv' +
'HvG1UcQnvioRv3nE10YRn/iqRPzmEV8bRXziqxLxm0d8bRTxia9Kx' +
'G8e8bVRxCe+KhG/ecTXRhGf+KpE/OYRXxtFfOKrEvGbR3xtFPGJr0' +
'rEbx7xtVHEJ74qEb95xNdGEZ/4qkT85hFfG0V84qsS8ZtHfG0U8Ym' +
'vSsRvHvG1UcQnvioRv3nE10YRn/iqRPzmEV8bRXziqxLxm0d8bRTx' +
'ia9KxG8e8bVRxCe+KhG/ecTXRhGf+KpE/OYRXxtFfOKrEvGbR3xtF' +
'PGJr0rEbx7xtVHEJ74qEb95xNdGEZ/4qkT85hFfG0V84qsS8ZtHfG' +
'0U8YmvSsRvHvG1UcQnvioRv3nE10YRn/iqRPzmEV8bRXziqxLxm0d' +
'8bRTxia9Kf3wmd1jRL9/mzvcPD1MHNCcjvjZq9XV9041d/Cd4dLou' +
'4je/85aPNor4Hp0qEb/5nbd8tFHE9+hUifjN77zlo40ivkenSsRvf' +
'uctH20U8T06VSJ+8ztv+WijiO/RqRLxm995y0cbRXyPTpWI3/zOWz' +
'7aKOJ7dKpE/OZ33vLRRhHfo1Ml4je/85aPNor4Hp0qEb/5nbd8tFH' +
'E9+hUifjN77zlo40ivkenSsRvfuctH20U8T06VSJ+8ztv+WijiO/R' +
'qRLxm995y0cbRXyPTpWI3/zOWz7aKOJ7dKpE/OZ33vLRRhHfo1Ml4' +
'je/85aPNor4Hp0qEb/5nbd8tFHE9+hUifjN77zlo40ivkenSsRvfu' +
'ctH20U8T06VSJ+8ztv+WijiO/RqRLxm995y0cbRXyPTpWI3/zOWz7' +
'aKOJ7dKpE/OZ33vLRRhHfo1Ml4je/85aPNor4Hp0qEb/5nbd8tFHE' +
'9+hUifjN77zlo40ivkenSsRvfuctH20U8T06VSJ+8ztv+WijiO/Rq' +
'RLxm995y0cbRXyPTpWI3/zOWz7aKOJ7dKpE/OZ33vLRRhHfo1Ml4j' +
'e/85aPNor4Hp0q/Vfi/5g8L48fp87t9nX2zD7D58en+fMwdV4mzx3' +
'+6jssn9lfg58fH2bP7denqRN4N1b/yf+cvN6B+LPX+/f58dfD1HnD' +
'h/385efUmb2ubzjLb/h8s2w9P36cP2u/6vcvH/99iB+y1YlPfOKPE' +
'Z/4xCc+8YlPfOITn/jEJz7xiU984hP/lYh/JuITn/jEJ/7dIj7xiU' +
'984hOf+MQnPvGJT3ziE5/4xCf+KxH/TMQnPvGJT/y7RXziE5/4xCc' +
'+8YlPfOITn/jEJz7xiU/8VyL+mYhPfOITn/h3i/jEJz7xiU984hOf' +
'+MQnPvGJT3ziE5/4r0T8MxGf+MQnPvHvFvGJT3ziE5/4xCc+8YlPf' +
'OITn/jEJz7xX4n4ZyI+8YlPfOLfLeITn/jEJz7xiU984hOf+MQnPv' +
'GJT3zivxLxz0R84hOf+MS/W8QnPvGJT3ziE5/4xCc+8YlPfOITn/j' +
'EfyXin4n4xCc+8Yl/t4hPfOITn/jEJz7xiU984hOf+MQnPvGJ/0rE' +
'PxPxiU984hP/bhGf+MQnPvGJT3ziE5/4xCc+8YlPfOIT/5WIfybiE' +
'5/4xCf+3SI+8YlPfOITn/jEJz7xiU984hOf+MQn/isR/0zEJz7xiU' +
'/8u0V84hOf+MQnPvGJT3ziEz9T/NkL9v3Dw9T5cfs5e2ZHc/s2fxZ' +
'/pdnN8PssX6G/fs6el8enqfOG3zmBPzhn78Y7sO8NBf70Wg3ZfSwL' +
'bPXvor9vt9nz/OHT1LmDEbP98ZkQn/jEJz7xif8fRvwVEZ/4xCc+8' +
'YmfFvFXRHziE5/4xCd+WsRfEfGJT3ziE5/4aRF/RcQnPvGJT3zip0' +
'X8FRGf+MQnPvGJnxbxV0R84hOf+MQnflrEXxHxiU984hOf+GkRf0X' +
'EJz7xiU984qdF/BURn/jEJz7xiZ8W8VdEfOITn/jEJ35axF8R8YlP' +
'fOITn/hpEX9FxCc+8YlPfOKnRfwVEZ/4xCc+8YmfFvFXRHziE5/4x' +
'Cd+WsRfEfGJT3ziE5/4aRF/RcQnPvGJT3zip0X8FRGf+MQnPvGJnx' +
'bxV0R84hOf+MQnflrEXxHxiU984hOf+GkRf0XEJz7xiU984qdF/BU' +
'Rn/jEJz7xiZ8W8VdEfOITn/jEJ35axF8R8YlPfOITn/hpEX9FxCc+' +
'8YlPfOKnRfwVEZ/4xCc+8YmfFvFXRHziE5/4xCd+WsRfEfGJT3ziE' +
'5/4aRF/RcQnPvGJT3zip0X8FRGf+MQnPvGJnxbxV0R84hOf+MQnfl' +
'rEXxHxiU984hOf+GkRf0XEJz7xiU984qdF/BX9n2ey9s7/PrOCzy6' +
'f6X04vxLn9+H0Spz9E2at/H2+//o6dWb358vjw+xZbeUbPmyaGm84' +
'mYNYPbjA3zmZq+kdvIhZU97wn5FAIy65foHTIT7xiU984hOf+JWIT' +
'3zi77jfiE984hP/kusXOB3iE5/4xCc+8YlfifjEJ/6O+434xCc+8S' +
'+5foHTIT7xiU984hOf+JWIT3zi77jfiE984hP/kusXOB3iE5/4xCc' +
'+8YlfifjEJ/6O+434xCc+8S+5foHTIT7xiU984hOf+JWIT3zi77jf' +
'iE984hP/kusXOB3iE5/4xCc+8YlfifjEJ/6O+434xCc+8S+5foHTI' +
'T7xiU984hOf+JWIT3zi77jfiE984hP/kusXOB3iE5/4xCc+8Ylfif' +
'jEJ/6O+434xCc+8S+5foHTIT7xiU984hOf+JWIT3zi77jfiE984hP' +
'/kusXOB3iE5/4xCc+8YlfifjEJ/6O+434xCc+8S+5foHTIT7xiU98' +
'4hOf+JWIT3zi77jfiE984hP/kusXOB3iE5/4xCc+8YlfifjEJ/6O+' +
'434xCc+8S+5foHTIT7xiU984hOf+JWIT3zi77jfiE984hP/kusXOB' +
'3iE5/4xCc+8YlfifjEJ/6O+434xCc+8S+5foHTIT7xiU984hOf+JW' +
'IT3zi77jfiE984hP/kusXOB3iE5/4xCc+8YlfifjEJ/6O+434xCc+' +
'8S+5fmn/yDeU+axW/xV3EH/2K33+8nX2/PjrYerc43rk3Y2evQPxf' +
'8yfl8ePU2f6Uf/6+vnxaercfn2aO4GzJj7xw6ZJfOJrjPjEJ34l4i' +
'dvdeITX2PEJz7xKxE/easTn/gaIz7xiV+J+MlbnfjE1xjxiU/8SsR' +
'P3urEJ77GiE984lcifvJWJz7xNUZ84hO/EvGTtzrxia8x4hOf+JWI' +
'n7zViU98jRGf+MSvRPzkrU584muM+MQnfiXiJ2914hNfY8QnPvErE' +
'T95qxOf+BojPvGJX4n4yVud+MTXGPGJT/xKxE/e6sQnvsaIT3ziVy' +
'J+8lYnPvE1RnziE78S8ZO3OvGJrzHiE5/4lYifvNWJT3yNEZ/4xK9' +
'E/OStTnzia4z4xCd+JeInb3XiE19jxCc+8SsRP3mrE5/4GiM+8Ylf' +
'ifjJW534xNcY8YlP/ErET97qxCe+xohPfOJXIn7yVic+8TVGfOITv' +
'xLxk7c68YmvMeITn/iViJ+81YlPfI0Rn/jEr0T85K1OfOJrjPjEJ3' +
'4l4idvdeITX2PEJz7xKxE/easTn/gaIz7xiV+J+MlbnfjE1xjxiU/' +
'8SsRP3urEJ77GiE984lcifvJWJz7xNUZ84hO/EvGTtzrxia8x4hOf' +
'+JWIn7zViU98jRGf+MSvRPzkrU584muM+MQnfqX3Kv4bntXz48epc' +
'/s2fyb7/OXn1Jm18vcJtO/5r69T5+8vT7PnHdyNnr0D8V++TZ/vHx' +
'7mTqJl081uv9mv9Pft5+x5/vBp6gTuAeInb3XiE19jxCc+8SsRP3m' +
'rE5/4GiM+8YlfifjJW534xNcY8YlP/ErET97qxCe+xohPfOJXIn7y' +
'Vic+8TVGfOITvxLxk7c68YmvMeITn/iViJ+81YlPfI0Rn/jEr0T85' +
'K1OfOJrjPjEJ34l4idvdeITX2PEJz7xKxE/easTn/gaIz7xiV+J+M' +
'lbnfjE1xjxiU/8SsRP3urEJ77GiE984lcifvJWJz7xNUZ84hO/EvG' +
'Ttzrxia8x4hOf+JWIn7zViU98jRGf+MSvRPzkrU584muM+MQnfiXi' +
'J2914hNfY8QnPvErET95qxOf+BojPvGJX4n4yVud+MTXGPGJT/xKx' +
'E/e6sQnvsaIT3ziVyJ+8lYnPvE1RnziE78S8ZO3OvGJrzHiE5/4lY' +
'ifvNWJT3yNEZ/4xK9E/OStTnzia4z4xCd+JeInb3XiE19jxCc+8Ss' +
'RP3mrE5/4GiM+8YlfifjJW534xNcY8YlP/ErET97qxCe+xohPfOJX' +
'In7yVic+8TVGfOITvxLxk7c68YmvMeITn/iViJ+81YlPfI0Rn/jEr' +
'0T85K1OfOJrjPjEJ34l4idvdeITX2PEJz7xK71X8d/Q7DJ5fnyaPw' +
'9T52Xy3G5fZ0+g+Ks5/n1mfyEE3o3ZM63Gh4fAPfAOBjH7qN/0rqe' +
'b/Zm9+iv986H+epo6d1hN7+D6ff/y8d8n8KXfocBpEp/4l7104mcM' +
'gvhnPxTxV+wB4h8FTpP4xL/spRM/YxDEP/uhiL9iDxD/KHCaxCf+Z' +
'S+d+BmDIP7ZD0X8FXuA+EeB0yQ+8S976cTPGATxz34o4q/YA8Q/Cp' +
'wm8Yl/2UsnfsYgiH/2QxF/xR4g/lHgNIlP/MteOvEzBkH8sx+K+Cv' +
'2APGPAqdJfOJf9tKJnzEI4p/9UMRfsQeIfxQ4TeIT/7KXTvyMQRD/' +
'7Ici/oo9QPyjwGkSn/iXvXTiZwyC+Gc/FPFX7AHiHwVOk/jEv+ylE' +
'z9jEMQ/+6GIv2IPEP8ocJrEJ/5lL534GYMg/tkPRfwVe4D4R4HTJD' +
'7xL3vpxM8YBPHPfijir9gDxD8KnCbxiX/ZSyd+xiCIf/ZDEX/FHiD' +
'+UeA0iU/8y1468TMGQfyzH4r4K/YA8Y8Cp0l84l/20omfMQjin/1Q' +
'xF+xB4h/FDhN4hP/spdO/IxBEP/shyL+ij1A/KPAaRKf+Je9dOJnD' +
'IL4Zz8U8VfsAeIfBU6T+MS/7KUTP2MQxD/7oYi/Yg8Q/yhwmsQn/m' +
'UvnfgZgyD+2Q9F/BV7gPhHgdMkPvEve+nEzxgE8c9+KOKv2APEPwq' +
'cJvGJf9lLJ37GIIh/9kMRf8UeIP5R4DSJT/zLXjrxMwZB/LMfivgr' +
'9gDxjwKnSXziX/bSiZ8xCOKf/VDEX7EHiH8UOE3iE/+yl078jEEQ/' +
'+yHIv6KPUD8o8BpEp/4l7104mcMgvhnPxTxV+wB4h8FTpP4xL/spR' +
'M/YxDEP/uhiL9iDxD/KHCaxCf+ZS+d+BmDIP7ZD0X8FXuA+EeB0yQ' +
'+8S976cTPGATxz34o4q/YA8Q/Cpwm8Yl/2UsnfsYgiH/2QxF/xR4g' +
'/lHgNIlP/MteOvEzBkH8sx+K+Cv2APGPAqdJfOJf9tKJnzEI4p/9U' +
'MRfsQeIfxQ4TeIT/7KXTvyMQRD/7Ici/oo98GfxJUmSJEmSJEmSJE' +
'mSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEm' +
'SJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJKlv/wNYnahC');
If (FindBitmapToleranceIn(pokeback, X, Y, 0, 0, 10000, 10000, 15)) Then
Mouse (X, Y, 0, 0, True);
FreeBitmap(pokeback);
wait(2000);
poke := BitmapFromString(678, 362, 'meJzt1022VsUVx+FpJvJhPmaQ' +
'3AhoHAJKGtFMALhAbEA6shbaNLcBLblM4LrIIj2YwIlxBPXuKnfVP' +
'uf5r2cA8J6q+sE3n/3xGwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAB+Tf/89A8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAA7MjvAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAANiNJ3d+B9Dip/O4rWNv/hv35M7nHeb/5gCQT/E' +
'B4AgUHwCOQPEB4AgUHwCOQPEB4AgUHwCOQPEB4AgUHwCOQPEB4AgU' +
'HwCOQPEB4AgUHwCOQPEB4AgUHwCOQPEB4AgUHwCOQPEB4AgUHwh48' +
'7e4bftP1LF2cRk3/YSwIMUHAhQ/YYrPWIoPBCh+whSfsRQfCFD8hC' +
'k+Yyk+EKD4CVN8xlJ8IEDxE6b4jKX4QIDiJ0zxGUvxgQDFT5jiM5b' +
'iAwGKnzDFZyzFBwIUP2GKz1iKDwQofsIUn7EUHwhQ/IQpPmMpPhCg' +
'+AlTfMZSfCBA8ROm+Iyl+ECA4idM8RlL8YEAxU+Y4jOW4gMBip8wx' +
'WcsxQcCFD9his9Yig8EKH7CFJ+xFB9qu/3xFG/uxW3b25gP2xb25N' +
'6/wi5ufxy2ba86xPf8+7dhsw4Vv7afzuOmFf/25x3m/+awA4qv+JS' +
'j+ECA4is+5Sg+EKD4ik85ig8EKL7iU47iAwGKr/iUo/hAgOIrPuUo' +
'PhCg+IpPOYoPBCi+4lOO4gMBiq/4lKP4QIDiKz7lKD4QoPiKTzmKD' +
'wQovuJTjuIDAYqv+JSj+ECA4is+5Sg+EKD4ik85ig8EKL7iU47iAw' +
'GKr/iUo/hAgOIrPuUoPhBwqOL3/FDb63/EVXtjp5yKX8xZuQN5tOJ' +
'/+D6u3N+34n9MZu3J+au42fFV/GUfWMVX/KUOpOIrvuJviq/4iq/4' +
'p6/cgVR8xVf8TfEVX/EV//SVO5CKr/iKvym+4iu+4p++cgdS8RVf8' +
'TfFV3zFV/zTV+5AKr7iK/6m+Iqv+Ip/+sodSMVXfMXfFF/xFV/xT1' +
'+5A6n4iq/4m+IrvuIr/ukrdyAVX/EVf1N8xVd8xT995Q6k4iu+4m+' +
'Kr/iKr/inr9yBVHzFV/xN8RVf8RX/9JU7kIqv+Iq/Kb7iK77in75y' +
'B1LxFV/xN8VXfMVX/NNX7kAqvuIr/qb4iq/4in/6yh1IxVd8xd8UX' +
'/EVX/FPX7kDqfiKr/ib4iu+4iv+6St3IBVf8RV/U3zFV3zFP33lDq' +
'TiK77ib4qv+Iqv+Kev3IFUfMVX/K1y8R/fujnF5b24KcV/fO9ZXMc' +
'Ptb3+Oq5jF6/j8r/sz662Lezxra/DLm7dDOt5J6cc5quHN8N6TuPl' +
'uw73/hp2qAPZcxpn/WWf37oZtr17Ftexxw9fBU2KteIrvuIrvuLv7' +
'EAqvuIrvuIrvuIr/hEOpOIrvuIrvuIrvuIf4UAqvuIrvuIrvuIr/h' +
'EOpOIrvuIrvuIrvuIf4UAqvuIrvuIrvuIr/hEOpOIrvuIrvuIrvuI' +
'f4UAqvuIrvuIrvuIr/hEOpOIrvuIrvuIrvuIf4UAqvuIrvuIrvuIr' +
'/hEOpOIrvuIrvuIrvuIf4UAqvuIrvuIrvuIr/hEOpOIrvuIrvuIrv' +
'uIf4UAqvuIrvuIrvuIr/hEOpOIrvuIrvuIrvuIf4UAqvuIrvuIrvu' +
'Ir/hEOpOIrvuIrvuIrvuIf4UAq/iGK/8mNKS6/jJtT/C+fhV18ciN' +
's21526DiWD16GlfsnyqxbMOufc8+/extz9eBGWM8fuKf42+tnYbNe' +
'jJ5D9eG7z2J6PlDF2xf+oWb9VrN+qCEUX/EVX/Ebp/gJIev5QBVvn' +
'+JnUnzFV3zFb5ziJ4Ss5wNVvH2Kn0nxFV/xFb9xip8Qsp4PVPH2KX' +
'4mxVd8xVf8xil+Qsh6PlDF26f4mRRf8RVf8Run+Akh6/lAFW+f4md' +
'SfMVXfMVvnOInhKznA1W8fYqfSfEVX/EVv3GKnxCyng9U8fYpfibF' +
'V3zFV/zGKX5CyHo+UMXbp/iZFF/xFV/xG6f4CSHr+UAVb5/iZ1J8x' +
'Vd8xW+c4ieErOcDVbx9ip9J8RVf8RW/cYqfELKeD1Tx9il+JsVXfM' +
'VX/MYpfkLIej5Qxdun+JkUX/EVX/Ebp/gJIev5QBVvn+JnUnzFV3z' +
'Fb5ziJ4Ss5wNVvH2Kn0nxFV/xFb9xip8Qsp4PVPH2KX4mxVd8xVf8' +
'xil+Qsh6PlDF26f4mRRf8RVf8Run+Akh6/lAFW+f4mdSfMVXfMVvn' +
'OInhKznA1W8fccs/qO/XJ/i8ou4cPF7PlPFPXrwMq7j424/fhXUsX' +
'//GDfrFsR/qEm/1dWD62E9f+BZe9/h0RdP46rdPmtfuWdqCMVPmOI' +
'vfpUUf/Epvg1fuWdqCMVPmOIvfpUUf/Epvg1fuWdqCMVPmOIvfpUU' +
'f/Epvg1fuWdqCMVPmOIvfpUUf/Epvg1fuWdqCMVPmOIvfpUUf/Epv' +
'g1fuWdqCMVPmOIvfpUUf/Epvg1fuWdqCMVPmOIvfpUUf/Epvg1fuW' +
'dqCMVPmOIvfpUUf/Epvg1fuWdqCMVPmOIvfpUUf/Epvg1fuWdqCMV' +
'PmOIvfpUUf/Epvg1fuWdqCMVPmOIvfpUUf/Epvg1fuWdqCMVPmOIv' +
'fpUUf/Epvg1fuWdqCMVPmOIvfpUUf/Epvg1fuWdqCMVPmOIvfpUUf' +
'/Epvg1fuWdqCMVPmOIvfpUUf/Epvg1fuWdqCMVPmOIvfpUUf/Epvg' +
'1fuWdqCMVPmOIvfpUUf/Epvg1fuWdqCMVPmOIvfpUUf/Epvg3f5Gf' +
'qbI7Lu3Hh4nfd37tP4yb9yLO8f/FpzJR79P+rNOmHmlX85y/exlzd' +
'vx7W8we+fBf3/sVXYT1/5lkH0u1jQYq/Y96cRorfOMV3+yhN8XfMm' +
'9NI8Run+G4fpSn+jnlzGil+4xTf7aM0xd8xb04jxW+c4rt9lKb4O+' +
'bNaaT4jVN8t4/SFH/HvDmNFL9xiu/2UZri75g3p5HiN07x3T5KU/w' +
'd8+Y0UvzGKb7bR2mKv2PenEaK3zjFd/soTfF3zJvTSPEbp/huH6Up' +
'/o55cxopfuMU3+2jNMXfMW9OI8VvnOK7fZSm+DvmzWmk+I1TfLeP0' +
'hR/x7w5jRS/cYrv9lGa4u+YN6eR4jdO8d0+SlP8HfPmNFL8xim+20' +
'dpir9j3pxGit84xXf7KE3xd8yb00jxG6f4bh9DnJ9dm+LybtyU4p/' +
'ffRo36Ucu93HDX/ZnV9sWdn7297Afzq6FbdvLsCmH+er+tbCeoPQU' +
'/4ezO2E9H6jn73t+/2XYlNt3tKe15yJ8++JtzPSHfUoUFH99iq/4i' +
'q/4O35aFT8tCoq/PsVXfMVX/B0/rYqfFgXFX5/iK77iK/6On1bFT4' +
'uC4q9P8RVf8RV/x0+r4qdFQfHXp/iKr/iKv+OnVfHToqD461N8xVd' +
'8xd/x06r4aVFQ/PUpvuIrvuLv+GlV/LQoKP76FF/xFV/xd/y0Kn5a' +
'FBR/fYqv+Iqv+Dt+WhU/LQqKvz7FV3zFV/wdP62KnxYFxV+f4iu+4' +
'iv+jp9WxU+LguKvT/EVX/EVf8dPq+KnRUHx16f4iq/4ir/jp1Xx06' +
'Kg+OtTfMVXfMXf8dOq+GlRUPz1Kb7iK77i7/hpVfy0KCj++hRf8RV' +
'f8Xf8tCp+WhQUf32Kr/iKr/g7floVPy0Kir8+xVd8xVf8HT+tlYv/' +
'0RSXd+MKHss5P3I5U07FL+as3IG8uh/X80P1FP/87HbYrL/vlH++f' +
'nv2Udj27mncwdZR/PlPdK23vdwDezSKv/iBVHzFV/zOKb7iM/FUKH' +
'47xVd8xe+c4is+E0+F4rdTfMVX/M4pvuIz8VQofjvFV3zF75ziKz4' +
'TT4Xit1N8xVf8zim+4jPxVCh+O8VXfMXvnOIrPhNPheK3U3zFV/zO' +
'Kb7iM/FUKH47xVd8xe+c4is+E0+F4rdTfMVX/M4pvuIz8VQofjvFV' +
'3zF75ziKz4TT4Xit1N8xVf8zim+4jPxVCh+O8VXfMXvnOIrPhNPhe' +
'K3U3zFV/zOKb7iM/FUKH47xVd8xe+c4is+E0+F4rdTfMVX/M4pvuI' +
'z8VQofjvFV3zF75ziKz4TT4Xit1N8xVf8zim+4jPxVCh+O8VXfMXv' +
'3OTi//m3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAOzHnwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAADYj4cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AMCifgMAAADswP8A674j8A==');
If (FindBitmapToleranceIn(poke, X1, Y1, 0, 0, 10000, 10000, 15)) Then
Mouse (X1, Y1, 0, 0, True);
FreeBitmap(poke);
begin
i:=0;
repeat
i:=i+1;
Findpoke;
until(i>=200);
end.