Log in

View Full Version : a script not rs



bolshak25
04-23-2011, 11:18 PM
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
04-23-2011, 11:26 PM
http://villavu.com/forum/showthread.php?t=47374

Brandon
04-23-2011, 11:58 PM
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
04-27-2011, 02:46 AM
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' +
't0kSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZ IkSZ' +
'IkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZI kSZI' +
'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+Wij iO/R' +
'qRLxm995y0cbRXyPTpWI3/zOWz7aKOJ7dKpE/OZ33vLRRhHfo1Ml4' +
'je/85aPNor4Hp0qEb/5nbd8tFHE9+hUifjN77zlo40ivkenSsRvfu' +
'ctH20U8T06VSJ+8ztv+WijiO/RqRLxm995y0cbRXyPTpWI3/zOWz7' +
'aKOJ7dKpE/OZ33vLRRhHfo1Ml4je/85aPNor4Hp0qEb/5nbd8tFHE' +
'9+hUifjN77zlo40ivkenSsRvfuctH20U8T06VSJ+8ztv+Wiji O/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+Gk Rf0X' +
'EJz7xiU984qdF/BURn/jEJz7xiZ8W8VdEfOITn/jEJ35axF8R8YlP' +
'fOITn/hpEX9FxCc+8YlPfOKnRfwVEZ/4xCc+8YmfFvFXRHziE5/4x' +
'Cd+WsRfEfGJT3ziE5/4aRF/RcQnPvGJT3zip0X8FRGf+MQnPvGJnx' +
'bxV0R84hOf+MQnflrEXxHxiU984hOf+GkRf0XEJz7xiU984qd F/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+MQnfiXiJ2914hNfY8QnP vErE' +
'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+MQnfqX3Kv4bntXz4 8epc' +
'/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+MQn fiXi' +
'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' +
'mSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEm SJEm' +
'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' +
'3AhoHAJKGtFMALhAbEA6shbaNLcBLblM4LrIIj2YwIlxBPXuK nfVP' +
'uf5r2cA8J6q+sE3n/3xGwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAA' +
'AAAAAAAAAAB+Tf/89A8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAA7MjvAQAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAA' +
'AAAAAAAAAAAAAAANiNJ3d+B9Dip/O4rWNv/hv35M7nHeb/5gCQT/E' +
'B4AgUHwCOQPEB4AgUHwCOQPEB4AgUHwCOQPEB4AgUHwCOQPEB 4AgU' +
'HwCOQPEB4AgUHwCOQPEB4AgUHwCOQPEB4AgUHwCOQPEB4AgUH wh48' +
'7e4bftP1LF2cRk3/YSwIMUHAhQ/YYrPWIoPBCh+whSfsRQfCFD8hC' +
'k+Yyk+EKD4CVN8xlJ8IEDxE6b4jKX4QIDiJ0zxGUvxgQDFT5j iM5b' +
'iAwGKnzDFZyzFBwIUP2GKz1iKDwQofsIUn7EUHwhQ/IQpPmMpPhCg' +
'+AlTfMZSfCBA8ROm+Iyl+ECA4idM8RlL8YEAxU+Y4jOW4gMBi p8wx' +
'WcsxQcCFD9his9Yig8EKH7CFJ+xFB9qu/3xFG/uxW3b25gP2xb25N' +
'6/wi5ufxy2ba86xPf8+7dhsw4Vv7afzuOmFf/25x3m/+awA4qv+JS' +
'j+ECA4is+5Sg+EKD4ik85ig8EKL7iU47iAwGKr/iUo/hAgOIrPuUo' +
'PhCg+IpPOYoPBCi+4lOO4gMBiq/4lKP4QIDiKz7lKD4QoPiKTzmKD' +
'wQovuJTjuIDAYqv+JSj+ECA4is+5Sg+EKD4ik85ig8EKL7iU4 7iAw' +
'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+c4rt9lK b4O+' +
'bNaaT4jVN8t4/SFH/HvDmNFL9xiu/2UZri75g3p5HiN07x3T5KU/w' +
'd8+Y0UvzGKb7bR2mKv2PenEaK3zjFd/soTfF3zJvTSPEbp/huH6Up' +
'/o55cxopfuMU3+2jNMXfMW9OI8VvnOK7fZSm+DvmzWmk+I1TfLe P0' +
'hR/x7w5jRS/cYrv9lGa4u+YN6eR4jdO8d0+SlP8HfPmNFL8xim+20' +
'dpir9j3pxGit84xXf7KE3xd8yb00jxG6f4bh9DnJ9dm+Lybty U4p/' +
'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+O8VXfMXvnOIrPhNPheK3U3zF V/zO' +
'Kb7iM/FUKH47xVd8xe+c4is+E0+F4rdTfMVX/M4pvuIz8VQofjvFV' +
'3zF75ziKz4TT4Xit1N8xVf8zim+4jPxVCh+O8VXfMXvnOIrPh NPhe' +
'K3U3zFV/zOKb7iM/FUKH47xVd8xe+c4is+E0+F4rdTfMVX/M4pvuI' +
'z8VQofjvFV3zF75ziKz4TT4Xit1N8xVf8zim+4jPxVCh+O8VX fMXv' +
'3OTi//m3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAOzHnwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAA' +
'AAAADYj4cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAA' +
'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
04-27-2011, 05:57 AM
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
06-08-2011, 03:21 AM
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' +
'QAqnTUlJSIFZAo0mYFnyWffE8xhBT35Mp2PvwH0VdpuaIb2JI bKM/' +
'iLERxnCvnyU43SfIZBgJpaOV82jCkKLay+Cc+plVwLJL2iYzW nSR6' +
'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+p78hq8zed1CuNL8pFFGmkwMgkM7ve2jpc v442' +
'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
06-08-2011, 03:31 AM
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
06-08-2011, 03:33 AM
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
06-10-2011, 01:48 AM
ive edited it, but it compiles and doesnt do anything. just sits there

x[Warrior]x3500
06-10-2011, 03:01 AM
post it? plz :)

masterBB
06-10-2011, 09:46 AM
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' +
'QAqnTUlJSIFZAo0mYFnyWffE8xhBT35Mp2PvwH0VdpuaIb2JI bKM/' +
'iLERxnCvnyU43SfIZBgJpaOV82jCkKLay+Cc+plVwLJL2iYzW nSR6' +
'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+p78hq8zed1CuNL8pFFGmkwMgkM7ve2jpc v442' +
'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
06-10-2011, 04:34 PM
i used what you have posted, and it still doesnt move the mouse.

masterBB
06-10-2011, 04:46 PM
What does the debug box say?

bolshak25
06-10-2011, 05:20 PM
[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
06-10-2011, 05:47 PM
that means it doesnt find the bitmaps. possibly change them?

anonymity
06-10-2011, 05:50 PM
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
06-10-2011, 05:51 PM
The bitmaps you are searching for are they dynamic? else i would use getcolor.

bolshak25
06-10-2011, 11:42 PM
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
06-11-2011, 12:11 AM
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
06-11-2011, 12:27 AM
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' +
'24rAtb4FhEHKwD1eXWvsH799JTN8YNgU1QVQ9APDHscmTJcbe XZj7' +
'5VJdvbMMUQVKZk7LoyjlMk5ShxD3cizQsnU9rmtq1L3qv6c6g ZqY2' +
'rrCttGrP8neVpQpItylhEGbFNfIfRPKQnyCdosaeZdgjCgKEP AZqo' +
'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
06-11-2011, 12:29 AM
im trying to poke my friends back on facebook.

mat_de_b
06-11-2011, 03:32 PM
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
06-21-2011, 12:36 AM
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
06-21-2011, 02:03 AM
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
06-22-2011, 03:07 AM
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.