PDA

View Full Version : my boneburyer



derek9456
11-01-2006, 12:45 AM
hi i am making a bone buryer that pulls bones out of the bank... burys them and then repeats for how many you have. i need to make a progress report and i never have... can someone help me?



also if there is anything i should fix or improve here is my script:
program BoneBuryer;
{.include srl/srl.scar}

const
pinnum = '0'; //leave if you dont have one
username = 'derek9456';
password = 'derek9456';

var
scriptstart : integer;
login,Existing,sword : integer;
logoutwait : array[0..3] of Integer;
waiting : array[0..15] of integer;

procedure arrays;
begin
logoutwait[0]:= 300000+random(300000); //5-10 min
logoutwait[1]:= 600000+random(300000); //10-15 min
logoutwait[2]:= 900000+random(300000); //15-20 min
logoutwait[3]:= 1200000+random(300000); //20-25 min

waiting[0]:= 1000+random(100);
waiting[1]:= 1000+random(200) ;
waiting[2]:= 1000+random(300) ;
waiting[3]:= 1000+random(400) ;
waiting[4]:= 1000+random(500) ;
waiting[5]:= 1000+random(600) ;
waiting[6]:= 1000+random(700) ;
waiting[7]:= 1000+random(800) ;
waiting[8]:= 1000+random(900) ;
waiting[9]:= 1000+random(2000) ;
waiting[10]:= 2000+random(100) ;
waiting[11]:= 2000+random(200) ;
waiting[12]:= 2000+random(300) ;
waiting[13]:= 2000+random(400) ;
waiting[14]:= 2000+random(500) ;
waiting[15]:= 2000+random(600) ;
end;

procedure antibaning;
begin
RandomChatEvery(10 + Random(5));
HoverEvery(5+random(10),'prayer');
PickUpMouseEvery(3+random(2));
LeaveScreenEvery(5 + Random(5));
RandomRClickEvery(15 + random(5))
end;

procedure clicky(x,y:integer);
begin
holdmouse(x,y,true)
wait(100+random(100))
releasemouse(x,y,true)
end;

procedure setup;
begin
setupSRL;
cleardebug;
begin
Existing := BitmapFromString(103, 19, 'z78DABD9A4B6EC3300C4' +
'4AF54D84ADA2E53B4B9FF910AC45ED0183D7A28B9CD820814 EA63' +
'73321C516A4B6BEDA7A9FD688F5BDB2DB5A8FF777BDE1EBBD 55FC' +
'3F7DBFDF67E5F377BE8B5D93897FE4A1656B83ED6AFD676FB B33E' +
'DB67A3A736EC36C23EDAB2AEEBD76EEFEB477B3BD8AD3DCCB B7F8' +
'FBFAA8DAB55AB33D23855EBAC4D57E8F8BF7C3AA8505C11BA A27D' +
'8D73408EF652E4504B6CD79538563076C1988AE10D3FD16A1 4087' +
'B6A371FC595624CECF2B93C96E7054833E6EAAC939E37B43B 9C10' +
'6314B9081989C64C2335157D425A1C9FFE415574E95B15B6B 4109' +
'84750FBE6F1AD622F8E46CC9CA2BA8AED327288AFFC386A3E 75B2' +
'15653D679C7C3D0ECB69DE948C4C16B197E753C2956F0DCC5 4315' +
'6B511933EC69EC6C7C289A3F77CF558652A477D81A2231FF2 A437' +
'D019C7CF50AAFAAAD8B3796926236B5F5F6F4744BDA59F3C9 A65D' +
'5AD2C015C74C0BCAFB2F208429624EE2A3C976FF56D8C21D0 C889' +
'D7F258B43348CB75518719142146C6F4E3D8592130613EE63 E6FC' +
'4D8D08E15B32729B1FFB1B44F19D260BEFF8912F39166EB2E F5A7' +
'FCEBE0218E798234996B905B6055273997109573E6447EC42 C7C6' +
'D6DC4E0340B69C0181D6CBCFCB7F74359ECD02E731DF26F68 3F51' +
'8680A25C3DC6B9B6F79FCFA235877C46DC2F48C40FBD027F1 EDA8' +
'5E14F562BD1FF0BCFC22EC3D1698013D566BAB3A035ABA223 DC56' +
'9561EEDFE1B4F07FA7753AFE71166B7F14F0A6E32896F276F A289' +
'2699DB41EED35C3728A2EAA7BE4D993F6B0B8E69065F2917D A6A2' +
'E8101B3828F5FD29B279A6237F54023E97129261DEFC3DE0D E81E' +
'A72BE4E737604A2BE1C4E53F582480BB3236FA4ACEBEF1AE6 DB31' +
'B26975B48058F9D78C71949F5F88C7C62AB70EC636FC201E4 21CF' +
'DEC19F1768234D97790BFB36729F4BD0A81A4D3441739D9B3 539D' +
'4B11EE64DB1D0F34AF5315C94FDCF434CA465ACE579686012 54F5' +
'13BF93FA6D97606A56359CC8914C517F35791A37C66A31D41 E4D8' +
'42150EEA27859B1292C5727D4EB55C556B9A0BA81DABC472B A449' +
'E3A66ECEBB4AB16CA751DD654635CD227CD6774FCAD5E0115 CE2E' +
'80B227E5D62AD2AC5B3DCE39A3DC21C13A95739E553D811AA B04C' +
'2F9C5C9AE245445F0DE91532BF33D9D9ADB8CBF81BACE1981 FFFE' +
'73CCD02D20FAD53ED18EB7922CB4E73791864E45F39D45AE3 9AD7' +
'B14F9CD0A8A7BEE39864C0787D573CF5CA7E57730AEE23DFF 4C61' +
'8C7B8BB7984EEE9E89B62FE825AADEEB1901C5343F11706E6 2CC3' +
'3E1C4EDCAC2BDA0F9983A9C7915A2C6D620E74AB873349464 0709' +
'C6A941AEE5ACF3FA798C0DDDD640B4BF5A7E01906E322A');
login := BitmapFromString(76, 24, 'z78DABD5A4B6EEB3010BB526' +
'0CB79ED3245EBFB1FE901911723D0A438925A2F0681228FED A138' +
'3FE9781EFF9EFBF196E5BB9CC7AB911FE575944BE2BF4CC6B BB65' +
'2CA4F95FB6BFF2AE5923FFB593EE3BF5959355CDAB67DDFBF 2EF9' +
'DC3FCAA391753C3CF7FA1DFF4519DF16253E91E9C94AE7DDE 00D1' +
'BCB6B04E3882F01C1053A71855474A28C36D7C8A2AC731035 4410' +
'E4F6B9BDB673018EC6B3E27BA21DA66CCB708CFAABFDE7B14 38C8' +
'0E916BED23E37F722CA525B07D9A88D7915B966AA44FB74FC 18F3' +
'878E1E8D91C350F4A8E0AB99A4C86A4FCB50F3A5814816419 4D4F' +
'E1A17C2913166D1A84722299BC366B27578A347F385AD9C31 6481' +
'5333BE3A914BE00A273C3AC395886EDA3EC47F32DE25BECB9 7688' +
'D317C0D6F998DAA163B92568A383EDE1763B1D6793D372238 94E5' +
'52BFCA22E0DF48967DD93CF571F4AD1D91EAE0C8EC99E5057 9AB8' +
'E37664FD47C9FF09CD43F2FAD566E6A0D5D0FEAC8C8F8A859 CF22' +
'14E69F5005686F19DF2491B506EE2772A75FC3C8C2D1C9301 D866' +
'A1C65843AC9C5224E673E58FB112E7CC31B3DD53E4E96EB70 D6C7' +
'D4AF1C514644B21CB4E323FB6A9C59AF1B1EF9F3830763AB0 2B1B' +
'BD103D562C793643D30E28B9E4762DA444FA74277F025F92A E3A3' +
'66EEFC38C3BD7EB5B31EE2FC9BCEDEAA7C8978486766D3077 0FA3' +
'9C91E1A8D8FF6CCC47816DFF737FAF8FA39FC825C2832CBC0 31A2' +
'D9E99E0DF5D02C1C6546348F63968F0C5FDD2B5E56B320A6C 98E9' +
'046907A5D99179DC61535B3394D7E42D06777D5AF4EF091CD FFCB' +
'8A7228C3B9F8587DA6512D7622298C3C8CCB99CFD64C27AE0 59B3' +
'06D713CB2A01967765ED50798998F7D00A32F7D93D3EA3DCA A11C' +
'C9CF8AAD0C59E7FCB8D7A0771F9855F5CC31DC1D9493FD9C8 66BF' +
'E6EB2BFD76CF706FD7A2451A1637F4CFB3A1DDD9CDD8AB591 94E1' +
'B8162F9F89B2C3968DA71D3BEB2C85718AF4781319E62FC4C A98A' +
'FD2731DF3673C92ECF3258BA70D0A9A65DAFE78177478684F 4057' +
'167EDF005720D19640611AB5A93339FE9E978C3589BBF41C3 FABC' +
'CF65A9DC88EE7731C8F97CD6DE4299DA9731D495E7718E7D4 80FE' +
'799EB5E7AC929AD35CD0DCF4ED3CD3FDC3F339A4FF9940567 B600' +
'74D9FAD8EFF4CEAECAC73E2C712676FF0DFB14A449E915B76 7E12' +
'F0B2F63BD69ED51962F77FC5AD5D22');
sword := BitmapFromString(67, 77, 'z78DAD59DD97223B912437FA' +
'9AC5D8F5EFFFF93C6ADAC8E01E71029946447DCFBD00C4559 5D52' +
'11B920C124B57F5BF6CB72B82CBBBFE31E576AFCFEB75B5E7 65FF' +
'BE37E7939BF9C97D7BA5263BDE7785C4E7F5FEB7DF47A7F85 D739' +
'EA7BF8BF8EAF2FC7E5A2DFE1CEFBF94D6E77E03CE89D6B3C7 D7E3' +
'FFA91DFED747CF9F3523E4BAFD79D4F6F2FEFCBB59F930491 E372' +
'FC387E1EDE0FD7FDC1E15277C81159BFEDEDE9F419DD3749F EAAF' +
'7C9D14FDE59B8E89CAF9F789B61458DE8ACCF58EFD4FF7B7B 0FEF' +
'D95BA922A2B828228A8B9DFF7AA2DB77DBEA1189BFD02AD6E 7BA7' +
'DAE7B7F7D9FF3D77EB7DBD5756751F59AEF1C3CC27C96FD74 E353' +
'FD336AD43A5DCEE7F3C1F90BBDBBBFFF061B4644727FD5991 97C4' +
'79EBD66759D5BB513895A8A948E6AD5777C4AAE288EFA7FCB 6B6A' +
'D4E7EA9FB166BB66BE10515C0AA9DE53926836B13758B2CB5 3F44' +
'4B5558D1BBCBF4370FD5F12F37B4BD6D8ABF774B8D38AF874 FA5A' +
'6740679B9E92E0E23E3D894EFD77E6A7D40CF477769E584F4 D56D' +
'0E72CB57FC571F04444397203F70DFB6C529E5228D05F8608 D6CE' +
'461F6126760EBBE29CAC51C53CA9CB9E931968FD45F3BBB30 A7EE' +
'7495EABFB48D4CAF967DD8D9E72395DDE2E7BC52589608C45 1BF2' +
'A078BDF302BE47678F8C944C2F8F51BDB527597E4544B8314 7874' +
'8DD4767BB50780617F5E83E3EE4958BAD298005E76D62AB26 2BA9' +
'850FF6007ECBFC4E86CC2CD923D2B32F22C208E662481F4B1 3CE9' +
'630379DA59E390C9C0151859962A838C0E5C8A3E88FCC35C9 6CF0' +
'A9D5FE6BFE890B6B1662612339EC99AF13A4FA28444F513B6 7059' +
'720ABCCCA3DDD1A736EEFB9BE1FBEF61FAC31F327D2A720FB 222E' +
'ACEED5C61CE3EDC73BF3AC0C135E40DBAE39AC99618D60ED4 43E8' +
'5CC6AE06CE024755DB1530FCA2B6566B1C1FE6F1EE13C851C 2CC9' +
'E6392E43E54BB66F9840EE5F64088A1DEB4D32492238C96E1 B117' +
'1959AE252886CCDF51B663E8875D4B5FA0A68509CD462E129 E46C' +
'C31DC42A86BA83AA976094678D9EA5281370AC38C185D1957 14CF' +
'34EC516A790D4C86890AB372E264C942BB06BF7FD275E63AA 9EAD' +
'28A825909B5169B99EAE1FAF03132307632D3958173EB767E 6CA2' +
'DC99AC8BB86D7EA59D0780785563918341357090EDF019693 D7EF' +
'771424F0E1DC53C88D0736D5467E8B209E8B516EE5369C6D3 00D6' +
'6F6BEFAAB1926CBD5A8459DD3ADBF2488243E4E56AC9EA2E8 F411' +
'ACE7158C726AC3F4B249F58128E7748CA13687E2A1CCCA715 755D' +
'B1C07485847A22A240A5821425C18C1A8722B7B9CACEF986A 9A56' +
'EAAA1BEA60D4379C8AA87F751155BD8FB558AE6A32836F7D0 F3DE' +
'5F5EBEDED6D45A7AF2289C8A04803B589B2872AACAFA973FE A951' +
'688D7E40DCA99A13E5443E5D2358324E7878BB0A597F554F2 9BF2' +
'85C9208461F712B442EE650AF702B478CF3FC2BEF433427AB 5AE2' +
'4D5A994EEE165422C98A86ABD4EAFEAC1F0B11E2E23818ED7 CD0B' +
'10D07BBB3B21FE4D0C43E271E017F64DD4ABECA4AC769A7C9 CC3B' +
'5559E386F314E2D273307E4F6681C99AB5E620A3BA5367638 C724' +
'A63E27D93688955DD44D366A5E3AE3387F6AB2A85C5C7E573 FF79' +
'66CDD257F74315667A3F888BD537A0E20EA3590161BE9EB03 2640' +
'AA2434BCEF3885B6BB8E36B462BAE99DF1AC1A860B0462616 431D' +
'074D8FF1D0D9F6E095C09DDC8FFE45056CE084C8838FE92A0 91F2' +
'32EF4942482B172546B71DE41757DB202C28A43675B991573 B4E3' +
'BD922F9C3ED67B715F9B5319C8195ABFAAC208A60C9911CCD 62C5' +
'C49411D37A81CA6C699D8BF56136DA799E2CBCA51AFA8750D D927' +
'EEB7C93B287A445CFD484FA9EBAECBC5E9489C4FA7544C6A1 C58F' +
'E3087E8A772554CA23B517960167095A3D3BA9D82E1EED6B3 E242' +
'84B9BE8F60BD25100BAEBF3B5DC275CA39FD9088B8FCE23AE 87A6' +
'4FBBA8388245D88CC3B8A8B7A4A8DEA29D10A0B669B7EC40C A257' +
'C85DB9F6ADAA2FEB0B5B69E2FD9AD919BBAC76ED74B3A0B33 A5F8' +
'D4A727DE152DEE470A1DE75676521C9478C8A9AA3590FC2DA 998F' +
'9471392EDD73DDBE3B25E97A9DD450F22C5C556104D338663 9986' +
'1E3ECE499F05BB576645E5D139F60A13E821E097E22F534C6 D89F' +
'1D7B8F200BEDEB477A8AE560F28C4E99240A5A83682421B31 AAEA' +
'3B2286EDCABC41CF39EC0445D210A7D873FAD97EB8FCA8AD5 531C' +
'07736B911335CC74044DF41FB75E6C5640C825A8D2F7150D2 BA66' +
'710D1189B20E276799015ABA730D7BB08D6EBF013F51E9187 D183' +
'1A97E3CF13A464FE73449E5141F35D698EDD6964E859B17A4 ABD7' +
'6D58A8B5A8C54AC3E5C2DCFFCCEA835C9320F45ADE711E9BD C375' +
'9D39E5905A719FEB7B0ED6774C4D323BAEBBCCCE5C43AEC5D 8D56' +
'77637E7AE327A6C279AED303715845B556104ABEB2ED76F1D 73F6' +
'EB2A3ECB2262F69BD4FEC97ED8C7F6B8594542D61F552B4E7 2BDC' +
'3A53CCE8D5BB1731522B9D644ED3788B89D2FC9FE4466B79E 83B9' +
'4EF8A4E3D7B1E21A75BD9EBBF0D6F1B43B2FD767C604BB214 6213' +
'A4DB45FF442E42A4ADFF7FBCCDEF31E91C9535F4EA73F4257 CDBF' +
'BEEE10D1F9ECE75CAFEC77FBDD72D231C728A9CEC8B5F21DF DAEF' +
'E7DAC66EFF712BA68A3B37458F65FDFCF621071FB551D227A 4F9D' +
'7F5EE17562A4DF7C92C199EB75ED7563C769AE62253B9A7B5 F702' +
'8E8CC1011CDF283A7C0AA7526EBCE6B3EDA5F2FFB97BFEBCB 7FEE' +
'5F7F75E824B8684C1BD6857F4D45497676B8FFEB50D0B9B23 62C3' +
'B232AB32B22392E75E7CFCFAFC3F98DE3FBF5FDF3B41452FC 3EF4' +
'B51E1DAD1387CC1EAFEADED9EDDE763EF4FB1989059FD75DD 1B12' +
'C994CB8CF292B5B10446AE689C8D7F5EB9B4AD45857D47712 AF99' +
'AC7EB2A725D07EF3FAD1EDD3776AC9A02B1A5FE8638562513 3592' +
'3FBBDEB3DE45D64BF7ACFF288BAA722A2B8A8D7B8EFD9E797 7EB7' +
'F24F7535B0934A2B2C87851B9DD5ADB377389D97498459E38 9A26' +
'03870CF66EB3D8ABB22B2FACBED3BF4D1B546FD2C7638F41D 1464' +
'C86EB5F7CE0E4DA96AB762413EC3F85F7F551F49EC9628EB5 92EF' +
'CB6DC3BE6B28CA2A363E2296E5775AFA26CE5BAAE4F3E41A1 4744' +
'C78177DDE6C4CD0CEFE610D178CE7C57F3AF5946D1D1EF502 37DC' +
'4E5949E6B25BB15F233A07ECA3B9CF52AD613BB151DD29DD8 66F7' +
'901A1F6796D1FC42DBA0A7B0BF25B7F044E375754AEE1DB9B F6B5' +
'D4C4D52F3F23A3FC58E6E7F557426764B0B14E58A3650714C 79DA' +
'CA2E0244B6EEE879AC2AE48EECC13B6A4E3622D22BB483F6A 5795' +
'F58D39A5F04911517DAADF6AB6BCF495BCF0E4F771B7BAEA5 880C' +
'5549DCF990EC0C752AEE6ABDAA7B98389F20E238B6D378159 7A10' +
'66F3D45E398ED0B6D39403F263B439F39B9A2AF1C1F43C4D9 D8B0' +
'7BDA44C8D93960A5B7FC1711B5E7FE2C50B77B3AD9F16477B DB93' +
'57D735E4D7F1668AF181391490C892B11EE25494E98647EA1 4EA5' +
'F985FE32F46AC253384BAA1FBADE51AEF5BBCCE5E6D622B2D 5479' +
'073734F717D59FD5910B34EB0CE5334B3F427504DFAC1B00F D7FA' +
'0BD61F5D1DD79FE3D4F78EF6B14E11514E92E0C2A875E7BC2 6ECC' +
'4B9E32940C445B0E8A41A51F6263B44B0B39B9EC5B5BF7CC5 2A3F' +
'2B981CBE5756A9A912910D27FB194F19585FCCC1DCFE94496 FB3E' +
'988636CA92B431F4BCC781F1BB9029828DE5A53BB531F935A D5EA' +
'69E211EA3B8A97ABB2B79E78A69D486E973D99F08FAD92986 8C6A' +
'AAA57871C93EFCF9EEDFBE46D0531AC48FE3B2611ACDF8DE8 628B' +
'3D15B03D39333AC735E88E73B3C10846445C9D3E39CDC9704 8EAA' +
'B8386D07A8A2AC61611D3C9E09880534BDCCED0E4848D5E45 E959' +
'B153A234DB3AC569D20567CE18EF4F9765B5325BBBEF58B1D 309D' +
'D0936C96E088B08BBC53676AAB8FD3E7D1DE7466727093374 2763' +
'B8154C7A4AA283B12F8831ED991398F98C8FEDE7E5A724ABC 3AEB' +
'7B9DFDB959CA0CB38D36B53F414B2718B8EF425928DF3755F 47F4' +
'739533E1FC8C0B67FF8FEDB64BFA9DC885E829935A325078F AECE' +
'F4E8418CE1E34FE92FCEA87ABE523C592E7B605A7022651AB BFCF' +
'C45FD0CBEA346AAE43F55EE37EBDE2CE7AEB2F572289C6D25 7554' +
'FADD4F074BEA07392EBF8AAFC90133A7FB1591EE7D1516349 B4AC' +
'675675B79E5FB7F5970592533DDDB973FD2AA7EB17623DEB6 AFCC' +
'77E3529E12D493DB2F5BCF11C23EE2EEFCF3BE55EC2BE7219 D8DD' +
'6D8675259DEBE9D4E5268A68BF3FCEEDF3359DEACFC4AEBCA ECCE' +
'33F9952BF8FFECE2F50B435A3F602F588B06BABD78D5DF7D4 24BB' +
'B5EB23BF81488291ED0480529D73AD671071FD8D8588D35B9 C9ED' +
'F23E2B0C8BBAC9F8F5AC92E06ED337796A33A6A7EAADE4443 909C' +
'EEFA81D7DD76A2333875348A5AF8FD9167327B62ED8FF5174 5966' +
'FA256CFD2ED19C501D72A3F62E758BF82F01BBF87F8BFC37E A3DF' +
'4971A7821B94278A0AD67F150BF6F3AB3EE974B9E4F7107FE AB70' +
'81FEB6979BE42EC7FDDC35588EE97ECE82F8A0E33C58A88F4 E625' +
'2B8FFDEF21FEBFA828AED6E8FB90FB3DC85C19EF7B265D0F5 2AE9' +
'4DEF93D44FC4250AF346ED57E13A531DFBDBB596974359A39 6DC9' +
'F5943EB687F78ED2D89EF8F10F84D99CB3');
end;
end;

procedure buryall;
begin
antibaning;
wait(200)
movemousesmooth(581, 229)
wait(100+random(100))
clicky(581, 229)
wait(waiting[random(15)]+2000)
movemousesmooth(629, 229)
wait(100+random(100))
clicky(629, 229)
wait(waiting[random(15)]+2000)
movemousesmooth(667, 228)
wait(100+random(100))
clicky(667, 228)
wait(waiting[random(15)]+2000)
movemousesmooth(709, 230)
wait(100+random(100))
clicky(709, 230)
wait(waiting[random(15)]+2000)
movemousesmooth(587, 266)
wait(100+random(100))
clicky(587, 266)
wait(waiting[random(15)]+2000)
movemousesmooth(626, 266)
wait(100+random(100))
clicky(626, 266)
wait(waiting[random(15)]+2000)
movemousesmooth(669, 264)
wait(100+random(100))
clicky(669, 264)
wait(waiting[random(15)]+2000)
movemousesmooth(711, 265)
wait(100+random(100))
clicky(711, 265)
wait(waiting[random(15)]+2000)
movemousesmooth(586, 302)
wait(100+random(100))
clicky(586, 302)
wait(waiting[random(15)]+2000)
movemousesmooth(591, 337)
wait(100+random(100))
clicky(591, 337)
wait(waiting[random(15)]+2000)
movemousesmooth(631, 302)
wait(100+random(100))
clicky(631, 302)
wait(waiting[random(15)]+2000)
movemousesmooth(627, 338)
wait(100+random(100))
clicky(627, 338)
wait(waiting[random(15)]+2000)
movemousesmooth(672, 303)
wait(100+random(100))
clicky(672, 303)
wait(waiting[random(15)]+2000)
movemousesmooth(668, 338)
wait(100+random(100))
clicky(668, 338)
wait(waiting[random(15)]+2000)
movemousesmooth(711, 300)
wait(100+random(100))
clicky(711, 300)
wait(waiting[random(15)]+2000)
movemousesmooth(708, 342)
wait(100+random(100))
clicky(708, 342)
wait(waiting[random(15)]+2000)
movemousesmooth(587, 411)
wait(100+random(100))
clicky(587, 411)
wait(waiting[random(15)]+2000)
movemousesmooth(587, 373)
wait(100+random(100))
clicky(587, 373)
wait(waiting[random(15)]+2000)
movemousesmooth(628, 373)
wait(100+random(100))
clicky(628, 373)
wait(waiting[random(15)]+2000)
movemousesmooth(671, 373)
wait(100+random(100))
clicky(671, 373)
wait(waiting[random(15)]+2000)
movemousesmooth(708, 375)
wait(100+random(100))
clicky(708, 375)
wait(waiting[random(15)]+2000)
movemousesmooth(625, 412)
wait(100+random(100))
clicky(625, 412)
wait(waiting[random(15)]+2000)
movemousesmooth(670, 411)
wait(100+random(100))
clicky(670, 411)
wait(waiting[random(15)]+2000)
movemousesmooth(710, 410)
wait(100+random(100))
clicky(710, 410)
wait(waiting[random(15)]+2000)
movemousesmooth(587, 449)
wait(100+random(100))
clicky(587, 449)
wait(waiting[random(15)]+2000)
movemousesmooth(711, 444)
wait(100+random(100))
clicky(711, 444)
wait(waiting[random(15)]+2000)
movemousesmooth(628, 445)
wait(100+random(100))
clicky(628, 445)
wait(waiting[random(15)]+2000)
movemousesmooth(664, 446)
wait(100+random(100))
clicky(664, 446)
wait(waiting[random(15)]+2000)
end;



procedure logitin;
begin
If (findbitmap (Existing, x, y)) then
begin
If (findbitmap (Existing, x, y)) then
begin
MoveMouseSmooth(x,y);
If (findbitmap (Existing, x, y)) then
begin
ClickMouse(x,y,true);
Wait(3000)
If (findbitmap (Login, x, y)) then
begin
Sendkeys (Username + chr(13) + Password);
Wait(3000)
If (findbitmap (Login, x, y)) then
begin
MoveMouseSmooth(x,y);
If (findbitmap (Login, x, y)) then
begin
ClickMouse(x,y,true);
end;
end;
end;
end;
end;
repeat
wait(200)
until(findbitmapspiraltolerance(sword,x,y,267,286, 363,385,10))
wait(5000)
if (findbitmapspiraltolerance(sword,x,y,267,286,363,3 85,10)) then
begin
holdmouse(x,y,true)
wait(200+random(300))
releasemouse(x,y,true)
end;
end;
wait(8000+random(3000))
end;

procedure openit;
begin
if (not (loggedin)) then
begin
logitin;
end;
openbank;
wait(200)
if (pinscreen) then
begin
inpin(pinnum);
wait(20)
end;
end;

procedure logitout;
begin
logout;
wait(3)
wait(logoutwait[random(3)])
logitin;
end;


procedure withdrawbones;
begin
wait(waiting[random(15)])
if (random(25) = 5) then
begin
wait(200)
sendkeys('w')
wait(100+random(300))
sendkeys('h')
wait(100+random(300))
sendkeys('o')
wait(100+random(300))
sendkeys('a')
wait(100+random(300))
sendkeys(' ')
wait(100+random(300))
sendkeys('w')
wait(100+random(300))
sendkeys('h')
wait(100+random(300))
sendkeys('e')
wait(100+random(300))
sendkeys('r')
wait(100+random(300))
sendkeys('e')
wait(100+random(300))
sendkeys(' ')
wait(100+random(300))
sendkeys('a')
wait(100+random(300))
sendkeys('r')
wait(100+random(300))
sendkeys('e')
wait(100+random(300))
sendkeys(' ')
wait(100+random(300))
sendkeys('m')
wait(100+random(300))
sendkeys('y')
wait(100+random(300))
sendkeys(' ')
wait(100+random(300))
sendkeys('b')
wait(100+random(300))
sendkeys('o')
wait(100+random(300))
sendkeys('n')
wait(100+random(300))
sendkeys('e')
wait(100+random(300))
sendkeys('s')
wait(100+random(300))
sendkeys('?')
wait(200+random(500))
sendkeys(chr(13))
wait(200)
end;
if (bankscreen) then
begin
withdraw(1,1,0)
end;
end;

procedure closeit;
begin
CloseBank;
holdmouse(x,y,true)
wait(200+random(100))
releasemouse(x,y,true)
wait(200)
end;

begin
setup; //not-done
marktime(scriptstart); //done
//repeat //not-done
openit; //done
withdrawbones; //done
closeit; //done
buryall; //done
//progressreport //not-done
TimeFromMark(scriptstart); //done
if
(timefrommark(scriptstart) > 1800000+random(600000)) //done
then
begin
Logitout; //done
end;
//until(bonesburyied=howmanyuwantburied) //not-done
end.

Junior
11-01-2006, 02:21 AM
Ok a couple a things. This will get you banned fairly quickly. It uses movemousesmooth; and holdmouse; releasemouse; commands.
instead of movemousesmooth; use Mmouse(x,y,0,0);<-- 2 last numbers are random pixles
And instead of holdmouse; releasemouse; use Mouse(x,y,0,0,true);<-- same with this
These are more random and way less detectable.
And instead of doing that whole thing of going where you put "where are my bones"
do this...
Typesend('where are my bones')
And you didnt have to make your own login, just call the procedure "loginplayer".
But to call that procedure (loginplayer) youll need a "declareplayers;" procedure.
Thats all I can tell you for now, but if this is your first time keep up the good work.
~jR

P.S.= Next time you make bitmaps, make them alot smaller. Bigger bitmaps will just cause a lag, remember, the shorter they are, the less lag and cleaner your code is.


EDIT: and for a progress report do this

everytime you burried your bones do
bonesb:= bonesb+28
and for everytime you withdrew bones from bank go
Boneswithdrew:= boneswithdrew+28
and for XP, at the end of burrying do
Bonesxp:=bonesxp+'XP NUMBER HERE'

You need to call the names such as "bonesb", "boneswithdrew", "BonesXP" as variables = "integer;" for them to work.
ex:
var
bonesb : integer;
//and so on...


And to make the progress report just do
procedure progressreport;
Begin
writeln( ' MY BONE BURRIER '))
writeln('Script has been working for '+ TimeRunning + )
writeln('you burried ' + inttostr(bonesxp) + ' worth of bones')
writeln('You burried ' + inttostr(bonesb) + ' BONES!!')
writeln('You withdrew ' + inttostr(boneswithdrew) + ' BONES!!')
End;

Hope this helped.
~jR

derek9456
11-01-2006, 06:15 AM
thanks.. ill probly change that tomarrow.. once i finish this and make it pretty antidetectable will it get me into srl?

YoHoJo
11-01-2006, 06:24 AM
ROFL no sorry this wont get you into SRL for sure.
movemousesmooth is very detetable
instead use MMouse or Mouse

MMouse
It moves to the x,y with a randomness of rx and ry pixels

Mouse(x,y,rx,ry,true)
It moves to the x,y with a randomness of rx and ry pixels and clicks

Junior
11-01-2006, 09:47 PM
I already told him that...

derek9456
11-02-2006, 12:26 AM
i need someone to test it. my computer runs really slow and i dont have any bones. if someone would test it credit would be put in. thanks




program BoneBuryer;
{.include srl/srl.scar}

const
pinnum = '0'; //leave if you dont have one
username = 'derek9456';
password = 'derek9456';
bxp = '4'; //the experiance you get per bone
amntb = ' '; //how many bones you want to bury

var
scriptstart : integer;
login,Existing,sword : integer;
logoutwait : array[0..3] of Integer;
waiting : array[0..15] of integer;
bonesb,boneswithdrew,BonesXP : integer;

procedure arrays;
begin
logoutwait[0]:= 300000+random(300000); //5-10 min
logoutwait[1]:= 600000+random(300000); //10-15 min
logoutwait[2]:= 900000+random(300000); //15-20 min
logoutwait[3]:= 1200000+random(300000); //20-25 min

waiting[0]:= 1000+random(100);
waiting[1]:= 1000+random(200) ;
waiting[2]:= 1000+random(300) ;
waiting[3]:= 1000+random(400) ;
waiting[4]:= 1000+random(500) ;
waiting[5]:= 1000+random(600) ;
waiting[6]:= 1000+random(700) ;
waiting[7]:= 1000+random(800) ;
waiting[8]:= 1000+random(900) ;
waiting[9]:= 1000+random(2000) ;
waiting[10]:= 2000+random(100) ;
waiting[11]:= 2000+random(200) ;
waiting[12]:= 2000+random(300) ;
waiting[13]:= 2000+random(400) ;
waiting[14]:= 2000+random(500) ;
waiting[15]:= 2000+random(600) ;
end;

procedure antibaning;
begin
RandomChatEvery(10 + Random(5));
HoverEvery(5+random(10),'prayer');
PickUpMouseEvery(3+random(2));
LeaveScreenEvery(5 + Random(5));
RandomRClickEvery(15 + random(5))
end;

procedure clicky(x,y:integer);
begin
holdmouse(x,y,true)
wait(100+random(100))
releasemouse(x,y,true)
end;

procedure setup;
begin
setupSRL;
cleardebug;
begin
Existing := BitmapFromString(103, 19, 'z78DABD9A4B6EC3300C4' +
'4AF54D84ADA2E53B4B9FF910AC45ED0183D7A28B9CD820814 EA63' +
'73321C516A4B6BEDA7A9FD688F5BDB2DB5A8FF777BDE1EBBD 55FC' +
'3F7DBFDF67E5F377BE8B5D93897FE4A1656B83ED6AFD676FB B33E' +
'DB67A3A736EC36C23EDAB2AEEBD76EEFEB477B3BD8AD3DCCB B7F8' +
'FBFAA8DAB55AB33D23855EBAC4D57E8F8BF7C3AA8505C11BA A27D' +
'8D73408EF652E4504B6CD79538563076C1988AE10D3FD16A1 4087' +
'B6A371FC595624CECF2B93C96E7054833E6EAAC939E37B43B 9C10' +
'6314B9081989C64C2335157D425A1C9FFE415574E95B15B6B 4109' +
'84750FBE6F1AD622F8E46CC9CA2BA8AED327288AFFC386A3E 75B2' +
'15653D679C7C3D0ECB69DE948C4C16B197E753C2956F0DCC5 4315' +
'6B511933EC69EC6C7C289A3F77CF558652A477D81A2231FF2 A437' +
'D019C7CF50AAFAAAD8B3796926236B5F5F6F4744BDA59F3C9 A65D' +
'5AD2C015C74C0BCAFB2F208429624EE2A3C976FF56D8C21D0 C889' +
'D7F258B43348CB75518719142146C6F4E3D8592130613EE63 E6FC' +
'4D8D08E15B32729B1FFB1B44F19D260BEFF8912F39166EB2E F5A7' +
'FCEBE0218E798234996B905B6055273997109573E6447EC42 C7C6' +
'D6DC4E0340B69C0181D6CBCFCB7F74359ECD02E731DF26F68 3F51' +
'8680A25C3DC6B9B6F79FCFA235877C46DC2F48C40FBD027F1 EDA8' +
'5E14F562BD1FF0BCFC22EC3D1698013D566BAB3A035ABA223 DC56' +
'9561EEDFE1B4F07FA7753AFE71166B7F14F0A6E32896F276F A289' +
'2699DB41EED35C3728A2EAA7BE4D993F6B0B8E69065F2917D A6A2' +
'E8101B3828F5FD29B279A6237F54023E97129261DEFC3DE0D E81E' +
'A72BE4E737604A2BE1C4E53F582480BB3236FA4ACEBEF1AE6 DB31' +
'B26975B48058F9D78C71949F5F88C7C62AB70EC636FC201E4 21CF' +
'DEC19F1768234D97790BFB36729F4BD0A81A4D3441739D9B3 539D' +
'4B11EE64DB1D0F34AF5315C94FDCF434CA465ACE579686012 54F5' +
'13BF93FA6D97606A56359CC8914C517F35791A37C66A31D41 E4D8' +
'42150EEA27859B1292C5727D4EB55C556B9A0BA81DABC472B A449' +
'E3A66ECEBB4AB16CA751DD654635CD227CD6774FCAD5E0115 CE2E' +
'80B227E5D62AD2AC5B3DCE39A3DC21C13A95739E553D811AA B04C' +
'2F9C5C9AE245445F0DE91532BF33D9D9ADB8CBF81BACE1981 FFFE' +
'73CCD02D20FAD53ED18EB7922CB4E73791864E45F39D45AE3 9AD7' +
'B14F9CD0A8A7BEE39864C0787D573CF5CA7E57730AEE23DFF 4C61' +
'8C7B8BB7984EEE9E89B62FE825AADEEB1901C5343F11706E6 2CC3' +
'3E1C4EDCAC2BDA0F9983A9C7915A2C6D620E74AB873349464 0709' +
'C6A941AEE5ACF3FA798C0DDDD640B4BF5A7E01906E322A');
login := BitmapFromString(76, 24, 'z78DABD5A4B6EEB3010BB526' +
'0CB79ED3245EBFB1FE901911723D0A438925A2F0681228FED A138' +
'3FE9781EFF9EFBF196E5BB9CC7AB911FE575944BE2BF4CC6B BB65' +
'2CA4F95FB6BFF2AE5923FFB593EE3BF5959355CDAB67DDFBF 2EF9' +
'DC3FCAA391753C3CF7FA1DFF4519DF16253E91E9C94AE7DDE 00D1' +
'BCB6B04E3882F01C1053A71855474A28C36D7C8A2AC731035 4410' +
'E4F6B9BDB673018EC6B3E27BA21DA66CCB708CFAABFDE7B14 38C8' +
'0E916BED23E37F722CA525B07D9A88D7915B966AA44FB74FC 18F3' +
'878E1E8D91C350F4A8E0AB99A4C86A4FCB50F3A5814816419 4D4F' +
'E1A17C2913166D1A84722299BC366B27578A347F385AD9C31 6481' +
'5333BE3A914BE00A273C3AC395886EDA3EC47F32DE25BECB9 7688' +
'D317C0D6F998DAA163B92568A383EDE1763B1D6793D372238 94E5' +
'52BFCA22E0DF48967DD93CF571F4AD1D91EAE0C8EC99E5057 9AB8' +
'E37664FD47C9FF09CD43F2FAD566E6A0D5D0FEAC8C8F8A859 CF22' +
'14E69F5005686F19DF2491B506EE2772A75FC3C8C2D1C9301 D866' +
'A1C65843AC9C5224E673E58FB112E7CC31B3DD53E4E96EB70 D6C7' +
'D4AF1C514644B21CB4E323FB6A9C59AF1B1EF9F3830763AB0 2B1B' +
'BD103D562C793643D30E28B9E4762DA444FA74277F025F92A E3A3' +
'66EEFC38C3BD7EB5B31EE2FC9BCEDEAA7C8978486766D3077 0FA3' +
'9C91E1A8D8FF6CCC47816DFF737FAF8FA39FC825C2832CBC0 31A2' +
'D9E99E0DF5D02C1C6546348F63968F0C5FDD2B5E56B320A6C 98E9' +
'046907A5D99179DC61535B3394D7E42D06777D5AF4EF091CD FFCB' +
'8A7228C3B9F8587DA6512D7622298C3C8CCB99CFD64C27AE0 59B3' +
'06D713CB2A01967765ED50798998F7D00A32F7D93D3EA3DCA A11C' +
'C9CF8AAD0C59E7FCB8D7A0771F9855F5CC31DC1D9493FD9C8 66BF' +
'E6EB2BFD76CF706FD7A2451A1637F4CFB3A1DDD9CDD8AB591 94E1' +
'B8162F9F89B2C3968DA71D3BEB2C85718AF4781319E62FC4C A98A' +
'FD2731DF3673C92ECF3258BA70D0A9A65DAFE78177478684F 4057' +
'167EDF005720D19640611AB5A93339FE9E978C3589BBF41C3 FABC' +
'CF65A9DC88EE7731C8F97CD6DE4299DA9731D495E7718E7D4 80FE' +
'799EB5E7AC929AD35CD0DCF4ED3CD3FDC3F339A4FF9940567 B600' +
'74D9FAD8EFF4CEAECAC73E2C712676FF0DFB14A449E915B76 7E12' +
'F0B2F63BD69ED51962F77FC5AD5D22');
sword := BitmapFromString(67, 77, 'z78DAD59DD97223B912437FA' +
'9AC5D8F5EFFFF93C6ADAC8E01E71029946447DCFBD00C4559 5D52' +
'11B920C124B57F5BF6CB72B82CBBBFE31E576AFCFEB75B5E7 65FF' +
'BE37E7939BF9C97D7BA5263BDE7785C4E7F5FEB7DF47A7F85 D739' +
'EA7BF8BF8EAF2FC7E5A2DFE1CEFBF94D6E77E03CE89D6B3C7 D7E3' +
'FFA91DFED747CF9F3523E4BAFD79D4F6F2FEFCBB59F930491 E372' +
'FC387E1EDE0FD7FDC1E15277C81159BFEDEDE9F419DD3749F EAAF' +
'7C9D14FDE59B8E89CAF9F789B61458DE8ACCF58EFD4FF7B7B 0FEF' +
'D95BA922A2B828228A8B9DFF7AA2DB77DBEA1189BFD02AD6E 7BA7' +
'DAE7B7F7D9FF3D77EB7DBD5756751F59AEF1C3CC27C96FD74 E353' +
'FD336AD43A5DCEE7F3C1F90BBDBBBFFF061B4644727FD5991 97C4' +
'79EBD66759D5BB513895A8A948E6AD5777C4AAE288EFA7FCB 6B6A' +
'D4E7EA9FB166BB66BE10515C0AA9DE53926836B13758B2CB5 3F44' +
'4B5558D1BBCBF4370FD5F12F37B4BD6D8ABF774B8D38AF874 FA5A' +
'6740679B9E92E0E23E3D894EFD77E6A7D40CF477769E584F4 D56D' +
'0E72CB57FC571F04444397203F70DFB6C529E5228D05F8608 D6CE' +
'461F6126760EBBE29CAC51C53CA9CB9E931968FD45F3BBB30 A7EE' +
'7495EABFB48D4CAF967DD8D9E72395DDE2E7BC52589608C45 1BF2' +
'A078BDF302BE47678F8C944C2F8F51BDB527597E4544B8314 7874' +
'8DD4767BB50780617F5E83E3EE4958BAD298005E76D62AB26 2BA9' +
'850FF6007ECBFC4E86CC2CD923D2B32F22C208E662481F4B1 3CE9' +
'630379DA59E390C9C0151859962A838C0E5C8A3E88FCC35C9 6CF0' +
'A9D5FE6BFE890B6B1662612339EC99AF13A4FA28444F513B6 7059' +
'720ABCCCA3DDD1A736EEFB9BE1FBEF61FAC31F327D2A720FB 222E' +
'ACEED5C61CE3EDC73BF3AC0C135E40DBAE39AC99618D60ED4 43E8' +
'5CC6AE06CE024755DB1530FCA2B6566B1C1FE6F1EE13C851C 2CC9' +
'E6392E43E54BB66F9840EE5F64088A1DEB4D32492238C96E1 B117' +
'1959AE252886CCDF51B663E8875D4B5FA0A68509CD462E129 E46C' +
'C31DC42A86BA83AA976094678D9EA5281370AC38C185D1957 14CF' +
'34EC516A790D4C86890AB372E264C942BB06BF7FD275E63AA 9EAD' +
'28A825909B5169B99EAE1FAF03132307632D3958173EB767E 6CA2' +
'DC99AC8BB86D7EA59D0780785563918341357090EDF019693 D7EF' +
'771424F0E1DC53C88D0736D5467E8B209E8B516EE5369C6D3 00D6' +
'6F6BEFAAB1926CBD5A8459DD3ADBF2488243E4E56AC9EA2E8 F411' +
'ACE7158C726AC3F4B249F58128E7748CA13687E2A1CCCA715 755D' +
'B1C07485847A22A240A5821425C18C1A8722B7B9CACEF986A 9A56' +
'EAAA1BEA60D4379C8AA87F751155BD8FB558AE6A32836F7D0 F3DE' +
'5F5EBEDED6D45A7AF2289C8A04803B589B2872AACAFA973FE A951' +
'688D7E40DCA99A13E5443E5D2358324E7878BB0A597F554F2 9BF2' +
'85C9208461F712B442EE650AF702B478CF3FC2BEF433427AB 5AE2' +
'4D5A994EEE165422C98A86ABD4EAFEAC1F0B11E2E23818ED7 CD0B' +
'10D07BBB3B21FE4D0C43E271E017F64DD4ABECA4AC769A7C9 CC3B' +
'5559E386F314E2D273307E4F6681C99AB5E620A3BA5367638 C724' +
'A63E27D93688955DD44D366A5E3AE3387F6AB2A85C5C7E573 FF79' +
'66CDD257F74315667A3F888BD537A0E20EA3590161BE9EB03 2640' +
'AA2434BCEF3885B6BB8E36B462BAE99DF1AC1A860B0462616 431D' +
'074D8FF1D0D9F6E095C09DDC8FFE45056CE084C8838FE92A0 91F2' +
'32EF4942482B172546B71DE41757DB202C28A43675B991573 B4E3' +
'BD922F9C3ED67B715F9B5319C8195ABFAAC208A60C9911CCD 62C5' +
'C49411D37A81CA6C699D8BF56136DA799E2CBCA51AFA8750D D927' +
'EEB7C93B287A445CFD484FA9EBAECBC5E9489C4FA7544C6A1 C58F' +
'E3087E8A772554CA23B517960167095A3D3BA9D82E1EED6B3 E242' +
'84B9BE8F60BD25100BAEBF3B5DC275CA39FD9088B8FCE23AE 87A6' +
'4FBBA8388245D88CC3B8A8B7A4A8DEA29D10A0B669B7EC40C A257' +
'C85DB9F6ADAA2FEB0B5B69E2FD9AD919BBAC76ED74B3A0B33 A5F8' +
'D4A727DE152DEE470A1DE75676521C9478C8A9AA3590FC2DA 998F' +
'9471392EDD73DDBE3B25E97A9DD450F22C5C556104D338663 9986' +
'1E3ECE499F05BB576645E5D139F60A13E821E097E22F534C6 D89F' +
'1D7B8F200BEDEB477A8AE560F28C4E99240A5A83682421B31 AAEA' +
'3B2286EDCABC41CF39EC0445D210A7D873FAD97EB8FCA8AD5 531C' +
'07736B911335CC74044DF41FB75E6C5640C825A8D2F7150D2 BA66' +
'710D1189B20E276799015ABA730D7BB08D6EBF013F51E9187 D183' +
'1A97E3CF13A464FE73449E5141F35D698EDD6964E859B17A4 ABD7' +
'6D58A8B5A8C54AC3E5C2DCFFCCEA835C9320F45ADE711E9BD C375' +
'9D39E5905A719FEB7B0ED6774C4D323BAEBBCCCE5C43AEC5D 8D56' +
'77637E7AE327A6C279AED303715845B556104ABEB2ED76F1D 73F6' +
'EB2A3ECB2262F69BD4FEC97ED8C7F6B8594542D61F552B4E7 2BDC' +
'3A53CCE8D5BB1731522B9D644ED3788B89D2FC9FE4466B79E 83B9' +
'4EF8A4E3D7B1E21A75BD9EBBF0D6F1B43B2FD767C604BB214 6213' +
'A4DB45FF442E42A4ADFF7FBCCDEF31E91C9535F4EA73F4257 CDBF' +
'BEEE10D1F9ECE75CAFEC77FBDD72D231C728A9CEC8B5F21DF DAEF' +
'E7DAC66EFF712BA68A3B37458F65FDFCF621071FB551D227A 4F9D' +
'7F5EE17562A4DF7C92C199EB75ED7563C769AE62253B9A7B5 F702' +
'8E8CC1011CDF283A7C0AA7526EBCE6B3EDA5F2FFB97BFEBCB 7FEE' +
'5F7F75E824B8684C1BD6857F4D45497676B8FFEB50D0B9B23 62C3' +
'B232AB32B22392E75E7CFCFAFC3F98DE3FBF5FDF3B41452FC 3EF4' +
'B51E1DAD1387CC1EAFEADED9EDDE763EF4FB1989059FD75DD 1B12' +
'C994CB8CF292B5B10446AE689C8D7F5EB9B4AD45857D47712 AF99' +
'AC7EB2A725D07EF3FAD1EDD3776AC9A02B1A5FE8638562513 3592' +
'3FBBDEB3DE45D64BF7ACFF288BAA722A2B8A8D7B8EFD9E797 7EB7' +
'F24F7535B0934A2B2C87851B9DD5ADB377389D97498459E38 9A26' +
'03870CF66EB3D8ABB22B2FACBED3BF4D1B546FD2C7638F41D 1464' +
'C86EB5F7CE0E4DA96AB762413EC3F85F7F551F49EC9628EB5 92EF' +
'CB6DC3BE6B28CA2A363E2296E5775AFA26CE5BAAE4F3E41A1 4744' +
'C78177DDE6C4CD0CEFE610D178CE7C57F3AF5946D1D1EF502 37DC' +
'4E5949E6B25BB15F233A07ECA3B9CF52AD613BB151DD29DD8 66F7' +
'901A1F6796D1FC42DBA0A7B0BF25B7F044E375754AEE1DB9B F6B5' +
'D4C4D52F3F23A3FC58E6E7F557426764B0B14E58A3650714C 79DA' +
'CA2E0244B6EEE879AC2AE48EECC13B6A4E3622D22BB483F6A 5795' +
'F58D39A5F04911517DAADF6AB6BCF495BCF0E4F771B7BAEA5 880C' +
'5549DCF990EC0C752AEE6ABDAA7B98389F20E238B6D378159 7A10' +
'66F3D45E398ED0B6D39403F263B439F39B9A2AF1C1F43C4D9 D8B0' +
'7BDA44C8D93960A5B7FC1711B5E7FE2C50B77B3AD9F16477B DB93' +
'57D735E4D7F1668AF181391490C892B11EE25494E98647EA1 4EA5' +
'F985FE32F46AC253384BAA1FBADE51AEF5BBCCE5E6D622B2D 5479' +
'073734F717D59FD5910B34EB0CE5334B3F427504DFAC1B00F D7FA' +
'0BD61F5D1DD79FE3D4F78EF6B14E11514E92E0C2A875E7BC2 6ECC' +
'4B9E32940C445B0E8A41A51F6263B44B0B39B9EC5B5BF7CC5 2A3F' +
'2B981CBE5756A9A912910D27FB194F19585FCCC1DCFE94496 FB3E' +
'988636CA92B431F4BCC781F1BB9029828DE5A53BB531F935A D5EA' +
'69E211EA3B8A97ABB2B79E78A69D486E973D99F08FAD92986 8C6A' +
'AAA57871C93EFCF9EEDFBE46D0531AC48FE3B2611ACDF8DE8 628B' +
'3D15B03D39333AC735E88E73B3C10846445C9D3E39CDC9704 8EAA' +
'B8386D07A8A2AC61611D3C9E09880534BDCCED0E4848D5E45 E959' +
'B153A234DB3AC569D20567CE18EF4F9765B5325BBBEF58B1D 309D' +
'D0936C96E088B08BBC53676AAB8FD3E7D1DE7466727093374 2763' +
'B8154C7A4AA283B12F8831ED991398F98C8FEDE7E5A724ABC 3AEB' +
'7B9DFDB959CA0CB38D36B53F414B2718B8EF425928DF3755F 47F4' +
'739533E1FC8C0B67FF8FEDB64BFA9DC885E829935A325078F AECE' +
'F4E8418CE1E34FE92FCEA87ABE523C592E7B605A7022651AB BFCF' +
'C45FD0CBEA346AAE43F55EE37EBDE2CE7AEB2F572289C6D25 7554' +
'FADD4F074BEA07392EBF8AAFC90133A7FB1591EE7D1516349 B4AC' +
'675675B79E5FB7F5970592533DDDB973FD2AA7EB17623DEB6 AFCC' +
'77E3529E12D493DB2F5BCF11C23EE2EEFCF3BE55EC2BE7219 D8DD' +
'6D8675259DEBE9D4E5268A68BF3FCEEDF3359DEACFC4AEBCA ECCE' +
'33F9952BF8FFECE2F50B435A3F602F588B06BABD78D5DF7D4 24BB' +
'B5EB23BF81488291ED0480529D73AD671071FD8D8588D35B9 C9ED' +
'F23E2B0C8BBAC9F8F5AC92E06ED337796A33A6A7EAADE4443 909C' +
'EEFA81D7DD76A2333875348A5AF8FD9167327B62ED8FF5174 5966' +
'FA256CFD2ED19C501D72A3F62E758BF82F01BBF87F8BFC37E A3DF' +
'4971A7821B94278A0AD67F150BF6F3AB3EE974B9E4F7107FE AB70' +
'81FEB6979BE42EC7FDDC35588EE97ECE82F8A0E33C58A88F4 E625' +
'2B8FFDEF21FEBFA828AED6E8FB90FB3DC85C19EF7B265D0F5 2AE9' +
'4DEF93D44FC4250AF346ED57E13A531DFBDBB596974359A39 6DC9' +
'F5943EB687F78ED2D89EF8F10F84D99CB3');
end;
end;

procedure buryall;
begin
antibaning;
wait(200)
Mmouse(581, 229, 3, 3)
wait(100+random(100))
mouse(581, 229, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(629, 229, 3, 3)
wait(100+random(100))
mouse(629, 229, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(667, 228, 3, 3)
wait(100+random(100))
mouse(667, 228, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(709, 230, 3, 3)
wait(100+random(100))
mouse(709, 230, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(587, 266, 3, 3)
wait(100+random(100))
mouse(587, 266, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(626, 266, 3, 3)
wait(100+random(100))
mouse(626, 266, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(669, 264, 3, 3)
wait(100+random(100))
mouse(669, 264, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(711, 265, 3, 3)
wait(100+random(100))
mouse(711, 265, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(586, 302, 3, 3)
wait(100+random(100))
mouse(586, 302, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(591, 337, 3, 3)
wait(100+random(100))
mouse(591, 337, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(631, 302, 3, 3)
wait(100+random(100))
mouse(631, 302, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(627, 338, 3, 3)
wait(100+random(100))
mouse(627, 338, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(672, 303, 3, 3)
wait(100+random(100))
mouse(672, 303, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(668, 338, 3, 3)
wait(100+random(100))
mouse(668, 338, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(711, 300, 3, 3)
wait(100+random(100))
mouse(711, 300, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(708, 342, 3, 3)
wait(100+random(100))
mouse(708, 342, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(587, 411, 3, 3)
wait(100+random(100))
mouse(587, 411, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(587, 373, 3, 3)
wait(100+random(100))
mouse(587, 373, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(628, 373, 3, 3)
wait(100+random(100))
mouse(628, 373, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(671, 373, 3, 3)
wait(100+random(100))
mouse(671, 373, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(708, 375, 3, 3)
wait(100+random(100))
mouse(708, 375, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(625, 412, 3, 3)
wait(100+random(100))
mouse(625, 412, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(670, 411, 3, 3)
wait(100+random(100))
mouse(670, 411, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(710, 410, 3, 3)
wait(100+random(100))
mouse(710, 410, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(587, 449, 3, 3)
wait(100+random(100))
mouse(587, 449, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(711, 444, 3, 3)
wait(100+random(100))
mouse(711, 444, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(628, 445, 3, 3)
wait(100+random(100))
mouse(628, 445, 1, 1, true)
wait(waiting[random(15)]+2000)
Mmouse(664, 446, 3, 3)
wait(100+random(100))
mouse(664, 446, 1, 1, true)
wait(waiting[random(15)]+2000)
bonesb:= bonesb+28
wait(waiting[random(15)])
end;



procedure logitin;
begin
If (findbitmap (Existing, x, y)) then
begin
If (findbitmap (Existing, x, y)) then
begin
MoveMouseSmooth(x,y);
If (findbitmap (Existing, x, y)) then
begin
ClickMouse(x,y,true);
Wait(3000)
If (findbitmap (Login, x, y)) then
begin
Sendkeys (Username + chr(13) + Password);
Wait(3000)
If (findbitmap (Login, x, y)) then
begin
MoveMouseSmooth(x,y);
If (findbitmap (Login, x, y)) then
begin
ClickMouse(x,y,true);
end;
end;
end;
end;
end;
repeat
wait(200)
until(findbitmapspiraltolerance(sword,x,y,267,286, 363,385,10))
wait(5000)
if (findbitmapspiraltolerance(sword,x,y,267,286,363,3 85,10)) then
begin
holdmouse(x,y,true)
wait(200+random(300))
releasemouse(x,y,true)
end;
end;
wait(8000+random(3000))
end;

procedure openit;
begin
if (not (loggedin)) then
begin
logitin;
end;
openbank;
wait(200)
if (pinscreen) then
begin
inpin(pinnum);
wait(20)
end;
end;

procedure logitout;
begin
logout;
wait(3)
wait(logoutwait[random(3)])
logitin;
end;


procedure withdrawbones;
begin
wait(waiting[random(15)])
if (random(25) = 5) then
begin
Typesend('where are my bones')
end;
if (bankscreen) then
begin
withdraw(1,1,0)
end;
Boneswithdrew:= boneswithdrew+28
end;

procedure closeit;
begin
CloseBank;
holdmouse(x,y,true)
wait(200+random(100))
releasemouse(x,y,true)
wait(200)
end;

procedure progressreport;
Begin
writeln( ' MY BONE BURRIER ')
writeln('Script has been working for '+ TimeRunning)
writeln('You burried ' + inttostr(bonesb) + ' BONES!!')
writeln('You withdrew ' + inttostr(boneswithdrew) + ' BONES!!')
End;

begin
setup; //done
marktime(scriptstart); //done
repeat //done
openit; //done
withdrawbones; //done
closeit; //done
buryall; //done
progressreport; //done
TimeFromMark(scriptstart); //done
if
(timefrommark(scriptstart) > 1800000+random(600000)) //done
then
begin
Logitout; //done
end;
until(bonesb = strtoint(amntb)) //done
end.

Junior
11-02-2006, 03:43 AM
Ok I fixed your script up quite a bit. Took out unecessary procedures like clicky, logitin, added more randomness to mouse procedures, and more SRL procedures just to give you an idea. I didnt test it but before you do make sure you fill out the neccesary lines like line 146. I dont expect this to run perfect because im just giving you ideas on what SRL functions are and stuff.
I hope this helped.
~jR
program BoneBuryer;
{.include srl/srl.scar}


const
pinnum = '0'; //leave if you dont have one
bxp = '4'; //the experiance you get per bone
amntb = ' '; //how many bones you want to bury

Procedure DeclarePlayers;
Begin
HowManyPlayers := 1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer := 0; // CurrentPlayer = Array Index

Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3 or 4 letters username
Players[0].Loc := ''; //Leave as blank
Players[0].Skill := ''; //The skill for when you get a lamp
Players[0].Active := True;


Writeln(inttostr(HowManyPlayers) + ' Players');
End;

var
scriptstart : integer;
logoutwait : array[0..3] of Integer;
waiting : array[0..15] of integer;
bonesb,boneswithdrew,BonesXP : integer;

procedure arrays;
begin
logoutwait[0]:= 300000+random(300000); //5-10 min
logoutwait[1]:= 600000+random(300000); //10-15 min
logoutwait[2]:= 900000+random(300000); //15-20 min
logoutwait[3]:= 1200000+random(300000); //20-25 min

waiting[0]:= 1000+random(100);
waiting[1]:= 1000+random(200);
waiting[2]:= 1000+random(300);
waiting[3]:= 1000+random(400);
waiting[4]:= 1000+random(500);
waiting[5]:= 1000+random(600);
waiting[6]:= 1000+random(700);
waiting[7]:= 1000+random(800);
waiting[8]:= 1000+random(900);
waiting[9]:= 1000+random(2000);
waiting[10]:= 2000+random(100);
waiting[11]:= 2000+random(200);
waiting[12]:= 2000+random(300);
waiting[13]:= 2000+random(400);
waiting[14]:= 2000+random(500);
waiting[15]:= 2000+random(600);
end;

procedure antibaning;
begin
RandomChatEvery(10 + Random(5));
HoverEvery(5+random(10),'prayer');
PickUpMouseEvery(3+random(2));
LeaveScreenEvery(5 + Random(5));
RandomRClickEvery(15 + random(5))
LogOutEvery(1, 30); //<-- the 1 is the hours you want to log out for,
//and the 30 is for how many minutes you want
//stay logged out for, change them if you like
end;




procedure buryall;
begin
antibaning;
wait(100+random(100))
mouse(581, 229, 6, 6, true)
wait(100+random(100))
mouse(629, 229, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(667, 228, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(709, 230, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(587, 266, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(626, 266, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(669, 264, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(711, 265, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(586, 302, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(591, 337, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(631, 302, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(627, 338, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(672, 303, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(668, 338, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(711, 300, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(708, 342, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(587, 411, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(587, 373, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(628, 373, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(671, 373, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(708, 375, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(625, 412, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(670, 411, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(710, 410, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(587, 449, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(711, 444, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(628, 445, 6, 6, true)
wait(waiting[random(15)]+2000)
mouse(664, 446, 6, 6, true)
bonesb:= bonesb+28
BonesXP:= Bonesxp+112
end;



procedure withdrawbones;
begin
wait(waiting[random(15)])
if (random(25) = 5) then
begin
if not(bankscreen) then
Begin
Typesend('where are my bones')
OpenBankQuiet('fally'); //Put in witch bank your at.
End Else
if (bankscreen) then
Begin
withdraw(1,1,0) end;
Boneswithdrew:= boneswithdrew+28
wait(100+random(100))
CloseBank;
end;
End;


procedure progressreport;
Begin
writeln( ' MY BONE BURRIER ')
writeln('Script has been working for '+ TimeRunning)
writeln('You burried ' + inttostr(bonesb) + ' BONES!!')
writeln('You withdrew ' + inttostr(boneswithdrew) + ' BONES!!')
writeln('You gained ' + inttostr(BONESXP) + ' XP!')
writeln(' ')
End;


begin
SetupSRL;
Declareplayers;
If(Not(LoggedIn))Then
LoginPlayer;
Wait(1000+Random(1000)) //add a repeat untill end if you want a repeat loop.
If(LoggedIn)Then //done
marktime(scriptstart); //done repeat //done
withdrawbones; //done
buryall; //done
progressreport; //done
TimeFromMark(scriptstart); //done if (timefrommark(scriptstart) > 1800000+random(600000)) //done then begin
End. //done end; until(bonesb = strtoint(amntb)) //done end.

derek9456
11-02-2006, 05:07 AM
wow thanks a lot... i have one question what is the player nick part for?

Junior
11-02-2006, 10:14 PM
Player nick means nickname. Put 3 to 4 letters of name, for ex:
username:bobby
nick:obb

If you put the procedure
findnormalrandoms;
You will need to have that nickname filled out. Thats what it searches for on the screen when the procedure is being called.
But if you want to do that you will have to add this:
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
Somwhere in your main loop...right under the declare players procedure is perfect.
That will make a bitmap of your nickname so it can be used in procedure like findnormalrandoms as i said above.
Hope this helped.
~jR

solarwind
11-03-2006, 02:55 AM
Great, but dude, make the bitmaps much smaller and if possible, get rid of them all together and use DTMs. But great job none the less. If you use DTMs, your bone searching method will be way way way faster.