SRL Archive - Help

a script not rs


bolshak25

2011-04-23 19:18:29

i know you are a helpful group, so i was wondering how to tackle a script. its not rs so im not sure what to do, and ive never made any scripts so i am in need of lots of help.

its adventure quest. i have pictures of everything i want to click, but not sure what i need to do with them to make a script and get it to click each thing, then wait and search for more. thanks for all you can do.

Sex

2011-04-23 19:26:51

http://villavu.com/forum/showthread.php?t=47374

Brandon

2011-04-23 19:58:15

I used to play this game.. I hacked so badly in it.. I think im like lvl 125 now or something I havent even seen my account in 7-9 years or so.. I used:

AQelite lore 3541

bolshak25

2011-04-26 22:46:08

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.

KingKong

2011-04-27 01:57:46

one thing i can suggest is to reduce the size of your bitmaps, it reduces the memory it uses and also its far easier to read the script

bolshak25

2011-06-07 23:21:38

okay being school is almost out, ive had a bit of time to try to fix this.

program poke;
{$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(32, 11, 'meJytk70NhDAMhQdjknQZg5oZUm' +
'QAqnTUlJSIFZAo0mYFnyWffE8xhBT35Mp2PvwH0VdpuaIb2JIbKM/' +
'iLERxnCvnyU43SfIZBgJpaOV82jCkKLay+Cc+plVwLJL2iYzWnSR6' +
'jPzwsvw2nBXDdlu86MjM95iA/JLnNhznptbPj6NvwHv4djs4EDRd0' +
'L/qlxZS+D23G2wcT8985H5kg7cQ5eMxo/S6nu6nGoKmibBZ213n/W' +
'Obdte2Qht6/X8J/pRq1/hp8X8AXHkHmg==');

If (FindBitmap(pokeback, X, Y)) Then
Mouse (X, Y, 0, 0, True);
FreeBitmap(pokeback);
wait(2000);

poke := BitmapFromString(50, 14, 'meJy1lE2OgkAQhQ8qwiUaxJ85gp' +
'PZDM4FQISVs5JE2eICV8oJMCYu4QI9ZSrp9HQX0EwylbeR/rreq+r' +
'E1HfuscO1unOe+l+p78hq8zed1CuNL8pFFGmkwMgkM7ve2jpcv442' +
'cIrKZjZ/fptEwqqecH0lrqNIo2R7EUD1AcDDMNXYSF3B+lPJLvCT3' +
'zb9Pdt8NTYSVpY/zFPJMepoSjc8PRJvCjp7AJR0bG+JTAYMtczXwr' +
'0NMiDSK4lKOGpPy8EZ5W4kL0cSIneOpv2pujajlFiUiVe/6fnGB4C' +
'oJN9CqeLKd66FylyLP/cKAJvcuYFghAqAtf6w1Z27QKCOrEH3wUgm' +
'RrIGR/hDqgauv+/Hjv9/qV77YRapgnWkYgsdzlhHKhYgUIemqbryG' +
'BqNGoFMBd2qdYB/6YapQPwaELOEpU5Wa0tpzn8/BJkKWzXHhfwxZp' +
'N+Nce53go2ELO5QvLrp07GYSmAOpx0AQe4Lj3KDziqoK8=');

If (FindBitmap(poke, X1, Y1)) Then
Mouse (X1, Y1, 0, 0, True);
FreeBitmap(poke);
end;
begin
i:=0;
repeat
i:=i+1;
Findpoke;
until(i>=50);
end.


i get it to compile, but it doesnt find the bitmaps or click them. anyone have a facebook to check if they can get better bitmaps, or am i missing something?

Dgby714

2011-06-07 23:31:45

Your defining SMART so it is targeting Smarts window.

Undef Smart, Uninclude Reflection and Paintsmart and Stats.

Then retry after targeting Adventure Quest with Simba.

x[Warrior]x3500

2011-06-07 23:33:49

take off :


{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i Reflection\Reflection.simba}
{$i SRL\SRL\misc\paintsmart.scar}
{$i SRL\SRL\Misc\Stats.simba}

you dont use it anywhere, so no need to have those. :) also, why not make findpoke a boolean? if you do, your main loop can look like:


begin
i:=0;
repeat
i:=i+1;
wait(200+random(100));
until((i>=5)or(Findpoke));
end.

bolshak25

2011-06-09 21:48:09

ive edited it, but it compiles and doesnt do anything. just sits there

x[Warrior]x3500

2011-06-09 23:01:59

post it? plz :)

masterBB

2011-06-10 05:46:28

The procedure Mouse is from srl. So correct script is:

program poke;
{$i SRL\SRL.scar}

Var
i: Integer;

function Findpoke:Boolean;
var
pokeback, X, Y:Integer;
poke:Integer;
Begin
pokeback := BitmapFromString(32, 11, 'meJytk70NhDAMhQdjknQZg5oZUm' +
'QAqnTUlJSIFZAo0mYFnyWffE8xhBT35Mp2PvwH0VdpuaIb2JIbKM/' +
'iLERxnCvnyU43SfIZBgJpaOV82jCkKLay+Cc+plVwLJL2iYzWnSR6' +
'jPzwsvw2nBXDdlu86MjM95iA/JLnNhznptbPj6NvwHv4djs4EDRd0' +
'L/qlxZS+D23G2wcT8985H5kg7cQ5eMxo/S6nu6nGoKmibBZ213n/W' +
'Obdte2Qht6/X8J/pRq1/hp8X8AXHkHmg==');

If (FindBitmap(pokeback, X, Y)) Then
begin
writeln('found first bitmap');
Mouse (X, Y, 0, 0, True);
end;
FreeBitmap(pokeback);
wait(2000);

poke := BitmapFromString(50, 14, 'meJy1lE2OgkAQhQ8qwiUaxJ85gp' +
'PZDM4FQISVs5JE2eICV8oJMCYu4QI9ZSrp9HQX0EwylbeR/rreq+r' +
'E1HfuscO1unOe+l+p78hq8zed1CuNL8pFFGmkwMgkM7ve2jpcv442' +
'cIrKZjZ/fptEwqqecH0lrqNIo2R7EUD1AcDDMNXYSF3B+lPJLvCT3' +
'zb9Pdt8NTYSVpY/zFPJMepoSjc8PRJvCjp7AJR0bG+JTAYMtczXwr' +
'0NMiDSK4lKOGpPy8EZ5W4kL0cSIneOpv2pujajlFiUiVe/6fnGB4C' +
'oJN9CqeLKd66FylyLP/cKAJvcuYFghAqAtf6w1Z27QKCOrEH3wUgm' +
'RrIGR/hDqgauv+/Hjv9/qV77YRapgnWkYgsdzlhHKhYgUIemqbryG' +
'BqNGoFMBd2qdYB/6YapQPwaELOEpU5Wa0tpzn8/BJkKWzXHhfwxZp' +
'N+Nce53go2ELO5QvLrp07GYSmAOpx0AQe4Lj3KDziqoK8=');

If (FindBitmap(poke, X, Y)) Then
begin
writeln('found second bitmap');
Mouse (X, Y, 0, 0, True);
Result := True;
end;
FreeBitmap(poke);
end;

begin
SetupSRL; //or else the mouse doesn't work
i:=0;
repeat
Inc(i);
if(Findpoke) then
writeln(function succeeded);
until(i>=50);
end.

Also don't forget to drag the green cross hair to the web explorer you use.

bolshak25

2011-06-10 12:34:48

i used what you have posted, and it still doesnt move the mouse.

masterBB

2011-06-10 12:46:06

What does the debug box say?

bolshak25

2011-06-10 13:20:20

[Hint] C:\Simba\Includes\SRL/SRL/core/SRLlog.scar(17:3): Variable 'THEFILE' never used at line 16
Compiled succesfully in 889 ms.
then it does nothing

x[Warrior]x3500

2011-06-10 13:47:43

that means it doesnt find the bitmaps. possibly change them?

anonymity

2011-06-10 13:50:33

You can ignore the "THEFILE" error. It is just a piece of the library that is not being used. You can edit that if you go to:

>Simba\Includes\SRL\SRL\core

Open "SRLlog.scar" with your simba.

At the top of the page, change:
"
var
TheFile: Integer;
"

to : comment it out.
"
//var
//TheFile: Integer;
"

tom99

2011-06-10 13:51:03

The bitmaps you are searching for are they dynamic? else i would use getcolor.

bolshak25

2011-06-10 19:42:13

i have no idea what dynamic is. but this script is just to poke people on facebook, so if anyone else has a facebook, they can check it. ive tried many times to get a different bitmap, but none have worked

anonymity

2011-06-10 20:11:09

Wait, can you start to end explain what it is you are trying to do?? Because it sounds like it should be pretty simple.. and no, I don't think doing bitmaps is optimal for this sort of thing. =] there are lots of different minor pixels changes that you don't see.

x[Warrior]x3500

2011-06-10 20:27:13


program poke;
{$i SRL\SRL.scar}

Var
i: Integer;

function Findpoke:Boolean;
var
pokeback, X, Y:Integer;
poke:Integer;
Begin
pokeback := BitmapFromString(17, 4, 'meJx1jjEOAiEQRQ+2h7CmNNkzcAR' +
'6OzsaIvb2S7yAWxpCJR0NV/i+ON0mTgjF4/359JIkdSm69VO3mw+z' +
'bpC9joc/T43ow7sk7v0e4M/Srm7hRLdgmiYNnqZEnCXICOYz+ZL6r' +
'8XmX+RFi1ut/RBBQzDCBzLVakbYlt1JavAvn6ibng==');

If (FindBitmap(pokeback, X, Y)) Then
begin
writeln('found first bitmap');
Mouse (X, Y, 0, 0, True);
end;
FreeBitmap(pokeback);
wait(2000);

poke := BitmapFromString(15, 9, 'meJyNj70OgjAURt8T+fEhCoWHEPU' +
'JdGzLBibgAgNdcYK4YgJzA4MMDPVKhYRBY/Ol7WlPb9vA2wZ/R65b' +
'24rAtb4FhEHKwD1eXWvsH799JTN8YNgU1QVQ9APDHscmTJcbeXZj7' +
'5VJdvbMMUQVKZk7LoyjlMk5ShxD3cizQsnU9rmtq1L3qv6c6gZqY2' +
'rrCttGrP8neVpQpItylhEGbFNfIfRPKQnyCdosaeZdgjCgKEPAZqo' +
'8yTuCtCU50tSb41MYI23satDytHgB9uEpWg==');

If (FindBitmap(poke, X, Y)) Then
begin
writeln('found second bitmap');
Mouse (X, Y, 0, 0, True);
wait(2000);
Result := True;
end;
FreeBitmap(poke);
end;

begin
SetupSRL; //or else the mouse doesn't work
i:=0;
repeat
Inc(i);
wait(100+random(100));
until((i>=50)or(Findpoke));
writeln('function succeeded');
end.

this works for me

bolshak25

2011-06-10 20:29:10

im trying to poke my friends back on facebook.

mat_de_b

2011-06-11 11:32:41

My idea:

Just get it to click the X,Y of the Facebook poke back slot, then the second poke will move to spot one and you can just keep clicking one spot. keep doing that until it doesn't find a certain colour where the X,Y of the click is (or in an area around that click).

Alternatively, download mozilla firefox and then get an autopoker AddOn.

http://mac.softpedia.com/get/Internet-Utilities/Facebook-Autopoker.shtml

Smarter Child

2011-06-20 20:36:07

Just curious why you were using bitmaps, and mouse[from srl] for your script.

Since you're not in Runescape you need not fear "banning" etc.

Just use Coordinates and ClickMouse/MoveMouse

bolshak25

2011-06-20 22:03:13

well i guess the picture doesnt show it, but my friends names are very long and very short. therefore i cant just use coordinates. thats why i tried bitmaps

Smarter Child

2011-06-21 23:07:27

From: bolshak25
well i guess the picture doesnt show it, but my friends names are very long and very short. therefore i cant just use coordinates. thats why i tried bitmaps


Umm, you could try MouseBox in SRL, it clicks in a box shaped area of coordinates.