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.
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.