Results 1 to 10 of 10

Thread: my boneburyer

  1. #1
    Join Date
    Nov 2006
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default my boneburyer

    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:
    SCAR Code:
    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' +
           '4AF54D84ADA2E53B4B9FF910AC45ED0183D7A28B9CD820814EA63' +
           '73321C516A4B6BEDA7A9FD688F5BDB2DB5A8FF777BDE1EBBD55FC' +
           '3F7DBFDF67E5F377BE8B5D93897FE4A1656B83ED6AFD676FBB33E' +
           'DB67A3A736EC36C23EDAB2AEEBD76EEFEB477B3BD8AD3DCCBB7F8' +
           'FBFAA8DAB55AB33D23855EBAC4D57E8F8BF7C3AA8505C11BAA27D' +
           '8D73408EF652E4504B6CD79538563076C1988AE10D3FD16A14087' +
           'B6A371FC595624CECF2B93C96E7054833E6EAAC939E37B43B9C10' +
           '6314B9081989C64C2335157D425A1C9FFE415574E95B15B6B4109' +
           '84750FBE6F1AD622F8E46CC9CA2BA8AED327288AFFC386A3E75B2' +
           '15653D679C7C3D0ECB69DE948C4C16B197E753C2956F0DCC54315' +
           '6B511933EC69EC6C7C289A3F77CF558652A477D81A2231FF2A437' +
           'D019C7CF50AAFAAAD8B3796926236B5F5F6F4744BDA59F3C9A65D' +
           '5AD2C015C74C0BCAFB2F208429624EE2A3C976FF56D8C21D0C889' +
           'D7F258B43348CB75518719142146C6F4E3D8592130613EE63E6FC' +
           '4D8D08E15B32729B1FFB1B44F19D260BEFF8912F39166EB2EF5A7' +
           'FCEBE0218E798234996B905B6055273997109573E6447EC42C7C6' +
           'D6DC4E0340B69C0181D6CBCFCB7F74359ECD02E731DF26F683F51' +
           '8680A25C3DC6B9B6F79FCFA235877C46DC2F48C40FBD027F1EDA8' +
           '5E14F562BD1FF0BCFC22EC3D1698013D566BAB3A035ABA223DC56' +
           '9561EEDFE1B4F07FA7753AFE71166B7F14F0A6E32896F276FA289' +
           '2699DB41EED35C3728A2EAA7BE4D993F6B0B8E69065F2917DA6A2' +
           'E8101B3828F5FD29B279A6237F54023E97129261DEFC3DE0DE81E' +
           'A72BE4E737604A2BE1C4E53F582480BB3236FA4ACEBEF1AE6DB31' +
           'B26975B48058F9D78C71949F5F88C7C62AB70EC636FC201E421CF' +
           'DEC19F1768234D97790BFB36729F4BD0A81A4D3441739D9B3539D' +
           '4B11EE64DB1D0F34AF5315C94FDCF434CA465ACE57968601254F5' +
           '13BF93FA6D97606A56359CC8914C517F35791A37C66A31D41E4D8' +
           '42150EEA27859B1292C5727D4EB55C556B9A0BA81DABC472BA449' +
           'E3A66ECEBB4AB16CA751DD654635CD227CD6774FCAD5E0115CE2E' +
           '80B227E5D62AD2AC5B3DCE39A3DC21C13A95739E553D811AAB04C' +
           '2F9C5C9AE245445F0DE91532BF33D9D9ADB8CBF81BACE1981FFFE' +
           '73CCD02D20FAD53ED18EB7922CB4E73791864E45F39D45AE39AD7' +
           'B14F9CD0A8A7BEE39864C0787D573CF5CA7E57730AEE23DFF4C61' +
           '8C7B8BB7984EEE9E89B62FE825AADEEB1901C5343F11706E62CC3' +
           '3E1C4EDCAC2BDA0F9983A9C7915A2C6D620E74AB8733494640709' +
           'C6A941AEE5ACF3FA798C0DDDD640B4BF5A7E01906E322A');
      login := BitmapFromString(76, 24, 'z78DABD5A4B6EEB3010BB526' +
           '0CB79ED3245EBFB1FE901911723D0A438925A2F0681228FEDA138' +
           '3FE9781EFF9EFBF196E5BB9CC7AB911FE575944BE2BF4CC6BBB65' +
           '2CA4F95FB6BFF2AE5923FFB593EE3BF5959355CDAB67DDFBF2EF9' +
           'DC3FCAA391753C3CF7FA1DFF4519DF16253E91E9C94AE7DDE00D1' +
           'BCB6B04E3882F01C1053A71855474A28C36D7C8A2AC7310354410' +
           'E4F6B9BDB673018EC6B3E27BA21DA66CCB708CFAABFDE7B1438C8' +
           '0E916BED23E37F722CA525B07D9A88D7915B966AA44FB74FC18F3' +
           '878E1E8D91C350F4A8E0AB99A4C86A4FCB50F3A58148164194D4F' +
           'E1A17C2913166D1A84722299BC366B27578A347F385AD9C316481' +
           '5333BE3A914BE00A273C3AC395886EDA3EC47F32DE25BECB97688' +
           'D317C0D6F998DAA163B92568A383EDE1763B1D6793D37223894E5' +
           '52BFCA22E0DF48967DD93CF571F4AD1D91EAE0C8EC99E50579AB8' +
           'E37664FD47C9FF09CD43F2FAD566E6A0D5D0FEAC8C8F8A859CF22' +
           '14E69F5005686F19DF2491B506EE2772A75FC3C8C2D1C9301D866' +
           'A1C65843AC9C5224E673E58FB112E7CC31B3DD53E4E96EB70D6C7' +
           'D4AF1C514644B21CB4E323FB6A9C59AF1B1EF9F3830763AB02B1B' +
           'BD103D562C793643D30E28B9E4762DA444FA74277F025F92AE3A3' +
           '66EEFC38C3BD7EB5B31EE2FC9BCEDEAA7C8978486766D30770FA3' +
           '9C91E1A8D8FF6CCC47816DFF737FAF8FA39FC825C2832CBC031A2' +
           'D9E99E0DF5D02C1C6546348F63968F0C5FDD2B5E56B320A6C98E9' +
           '046907A5D99179DC61535B3394D7E42D06777D5AF4EF091CDFFCB' +
           '8A7228C3B9F8587DA6512D7622298C3C8CCB99CFD64C27AE059B3' +
           '06D713CB2A01967765ED50798998F7D00A32F7D93D3EA3DCAA11C' +
           'C9CF8AAD0C59E7FCB8D7A0771F9855F5CC31DC1D9493FD9C866BF' +
           'E6EB2BFD76CF706FD7A2451A1637F4CFB3A1DDD9CDD8AB59194E1' +
           'B8162F9F89B2C3968DA71D3BEB2C85718AF4781319E62FC4CA98A' +
           'FD2731DF3673C92ECF3258BA70D0A9A65DAFE78177478684F4057' +
           '167EDF005720D19640611AB5A93339FE9E978C3589BBF41C3FABC' +
           'CF65A9DC88EE7731C8F97CD6DE4299DA9731D495E7718E7D480FE' +
           '799EB5E7AC929AD35CD0DCF4ED3CD3FDC3F339A4FF9940567B600' +
           '74D9FAD8EFF4CEAECAC73E2C712676FF0DFB14A449E915B767E12' +
           'F0B2F63BD69ED51962F77FC5AD5D22');
      sword := BitmapFromString(67, 77, 'z78DAD59DD97223B912437FA' +
           '9AC5D8F5EFFFF93C6ADAC8E01E71029946447DCFBD00C45595D52' +
           '11B920C124B57F5BF6CB72B82CBBBFE31E576AFCFEB75B5E765FF' +
           'BE37E7939BF9C97D7BA5263BDE7785C4E7F5FEB7DF47A7F85D739' +
           'EA7BF8BF8EAF2FC7E5A2DFE1CEFBF94D6E77E03CE89D6B3C7D7E3' +
           'FFA91DFED747CF9F3523E4BAFD79D4F6F2FEFCBB59F930491E372' +
           'FC387E1EDE0FD7FDC1E15277C81159BFEDEDE9F419DD3749FEAAF' +
           '7C9D14FDE59B8E89CAF9F789B61458DE8ACCF58EFD4FF7B7B0FEF' +
           'D95BA922A2B828228A8B9DFF7AA2DB77DBEA1189BFD02AD6E7BA7' +
           'DAE7B7F7D9FF3D77EB7DBD5756751F59AEF1C3CC27C96FD74E353' +
           'FD336AD43A5DCEE7F3C1F90BBDBBBFFF061B4644727FD599197C4' +
           '79EBD66759D5BB513895A8A948E6AD5777C4AAE288EFA7FCB6B6A' +
           'D4E7EA9FB166BB66BE10515C0AA9DE53926836B13758B2CB53F44' +
           '4B5558D1BBCBF4370FD5F12F37B4BD6D8ABF774B8D38AF874FA5A' +
           '6740679B9E92E0E23E3D894EFD77E6A7D40CF477769E584F4D56D' +
           '0E72CB57FC571F04444397203F70DFB6C529E5228D05F8608D6CE' +
           '461F6126760EBBE29CAC51C53CA9CB9E931968FD45F3BBB30A7EE' +
           '7495EABFB48D4CAF967DD8D9E72395DDE2E7BC52589608C451BF2' +
           'A078BDF302BE47678F8C944C2F8F51BDB527597E4544B83147874' +
           '8DD4767BB50780617F5E83E3EE4958BAD298005E76D62AB262BA9' +
           '850FF6007ECBFC4E86CC2CD923D2B32F22C208E662481F4B13CE9' +
           '630379DA59E390C9C0151859962A838C0E5C8A3E88FCC35C96CF0' +
           'A9D5FE6BFE890B6B1662612339EC99AF13A4FA28444F513B67059' +
           '720ABCCCA3DDD1A736EEFB9BE1FBEF61FAC31F327D2A720FB222E' +
           'ACEED5C61CE3EDC73BF3AC0C135E40DBAE39AC99618D60ED443E8' +
           '5CC6AE06CE024755DB1530FCA2B6566B1C1FE6F1EE13C851C2CC9' +
           'E6392E43E54BB66F9840EE5F64088A1DEB4D32492238C96E1B117' +
           '1959AE252886CCDF51B663E8875D4B5FA0A68509CD462E129E46C' +
           'C31DC42A86BA83AA976094678D9EA5281370AC38C185D195714CF' +
           '34EC516A790D4C86890AB372E264C942BB06BF7FD275E63AA9EAD' +
           '28A825909B5169B99EAE1FAF03132307632D3958173EB767E6CA2' +
           'DC99AC8BB86D7EA59D0780785563918341357090EDF019693D7EF' +
           '771424F0E1DC53C88D0736D5467E8B209E8B516EE5369C6D300D6' +
           '6F6BEFAAB1926CBD5A8459DD3ADBF2488243E4E56AC9EA2E8F411' +
           'ACE7158C726AC3F4B249F58128E7748CA13687E2A1CCCA715755D' +
           'B1C07485847A22A240A5821425C18C1A8722B7B9CACEF986A9A56' +
           'EAAA1BEA60D4379C8AA87F751155BD8FB558AE6A32836F7D0F3DE' +
           '5F5EBEDED6D45A7AF2289C8A04803B589B2872AACAFA973FEA951' +
           '688D7E40DCA99A13E5443E5D2358324E7878BB0A597F554F29BF2' +
           '85C9208461F712B442EE650AF702B478CF3FC2BEF433427AB5AE2' +
           '4D5A994EEE165422C98A86ABD4EAFEAC1F0B11E2E23818ED7CD0B' +
           '10D07BBB3B21FE4D0C43E271E017F64DD4ABECA4AC769A7C9CC3B' +
           '5559E386F314E2D273307E4F6681C99AB5E620A3BA5367638C724' +
           'A63E27D93688955DD44D366A5E3AE3387F6AB2A85C5C7E573FF79' +
           '66CDD257F74315667A3F888BD537A0E20EA3590161BE9EB032640' +
           'AA2434BCEF3885B6BB8E36B462BAE99DF1AC1A860B0462616431D' +
           '074D8FF1D0D9F6E095C09DDC8FFE45056CE084C8838FE92A091F2' +
           '32EF4942482B172546B71DE41757DB202C28A43675B991573B4E3' +
           'BD922F9C3ED67B715F9B5319C8195ABFAAC208A60C9911CCD62C5' +
           'C49411D37A81CA6C699D8BF56136DA799E2CBCA51AFA8750DD927' +
           'EEB7C93B287A445CFD484FA9EBAECBC5E9489C4FA7544C6A1C58F' +
           'E3087E8A772554CA23B517960167095A3D3BA9D82E1EED6B3E242' +
           '84B9BE8F60BD25100BAEBF3B5DC275CA39FD9088B8FCE23AE87A6' +
           '4FBBA8388245D88CC3B8A8B7A4A8DEA29D10A0B669B7EC40CA257' +
           'C85DB9F6ADAA2FEB0B5B69E2FD9AD919BBAC76ED74B3A0B33A5F8' +
           'D4A727DE152DEE470A1DE75676521C9478C8A9AA3590FC2DA998F' +
           '9471392EDD73DDBE3B25E97A9DD450F22C5C556104D3386639986' +
           '1E3ECE499F05BB576645E5D139F60A13E821E097E22F534C6D89F' +
           '1D7B8F200BEDEB477A8AE560F28C4E99240A5A83682421B31AAEA' +
           '3B2286EDCABC41CF39EC0445D210A7D873FAD97EB8FCA8AD5531C' +
           '07736B911335CC74044DF41FB75E6C5640C825A8D2F7150D2BA66' +
           '710D1189B20E276799015ABA730D7BB08D6EBF013F51E9187D183' +
           '1A97E3CF13A464FE73449E5141F35D698EDD6964E859B17A4ABD7' +
           '6D58A8B5A8C54AC3E5C2DCFFCCEA835C9320F45ADE711E9BDC375' +
           '9D39E5905A719FEB7B0ED6774C4D323BAEBBCCCE5C43AEC5D8D56' +
           '77637E7AE327A6C279AED303715845B556104ABEB2ED76F1D73F6' +
           'EB2A3ECB2262F69BD4FEC97ED8C7F6B8594542D61F552B4E72BDC' +
           '3A53CCE8D5BB1731522B9D644ED3788B89D2FC9FE4466B79E83B9' +
           '4EF8A4E3D7B1E21A75BD9EBBF0D6F1B43B2FD767C604BB2146213' +
           'A4DB45FF442E42A4ADFF7FBCCDEF31E91C9535F4EA73F4257CDBF' +
           'BEEE10D1F9ECE75CAFEC77FBDD72D231C728A9CEC8B5F21DFDAEF' +
           'E7DAC66EFF712BA68A3B37458F65FDFCF621071FB551D227A4F9D' +
           '7F5EE17562A4DF7C92C199EB75ED7563C769AE62253B9A7B5F702' +
           '8E8CC1011CDF283A7C0AA7526EBCE6B3EDA5F2FFB97BFEBCB7FEE' +
           '5F7F75E824B8684C1BD6857F4D45497676B8FFEB50D0B9B2362C3' +
           'B232AB32B22392E75E7CFCFAFC3F98DE3FBF5FDF3B41452FC3EF4' +
           'B51E1DAD1387CC1EAFEADED9EDDE763EF4FB1989059FD75DD1B12' +
           'C994CB8CF292B5B10446AE689C8D7F5EB9B4AD45857D47712AF99' +
           'AC7EB2A725D07EF3FAD1EDD3776AC9A02B1A5FE86385625133592' +
           '3FBBDEB3DE45D64BF7ACFF288BAA722A2B8A8D7B8EFD9E7977EB7' +
           'F24F7535B0934A2B2C87851B9DD5ADB377389D97498459E389A26' +
           '03870CF66EB3D8ABB22B2FACBED3BF4D1B546FD2C7638F41D1464' +
           'C86EB5F7CE0E4DA96AB762413EC3F85F7F551F49EC9628EB592EF' +
           'CB6DC3BE6B28CA2A363E2296E5775AFA26CE5BAAE4F3E41A14744' +
           'C78177DDE6C4CD0CEFE610D178CE7C57F3AF5946D1D1EF50237DC' +
           '4E5949E6B25BB15F233A07ECA3B9CF52AD613BB151DD29DD866F7' +
           '901A1F6796D1FC42DBA0A7B0BF25B7F044E375754AEE1DB9BF6B5' +
           'D4C4D52F3F23A3FC58E6E7F557426764B0B14E58A3650714C79DA' +
           'CA2E0244B6EEE879AC2AE48EECC13B6A4E3622D22BB483F6A5795' +
           'F58D39A5F04911517DAADF6AB6BCF495BCF0E4F771B7BAEA5880C' +
           '5549DCF990EC0C752AEE6ABDAA7B98389F20E238B6D3781597A10' +
           '66F3D45E398ED0B6D39403F263B439F39B9A2AF1C1F43C4D9D8B0' +
           '7BDA44C8D93960A5B7FC1711B5E7FE2C50B77B3AD9F16477BDB93' +
           '57D735E4D7F1668AF181391490C892B11EE25494E98647EA14EA5' +
           'F985FE32F46AC253384BAA1FBADE51AEF5BBCCE5E6D622B2D5479' +
           '073734F717D59FD5910B34EB0CE5334B3F427504DFAC1B00FD7FA' +
           '0BD61F5D1DD79FE3D4F78EF6B14E11514E92E0C2A875E7BC26ECC' +
           '4B9E32940C445B0E8A41A51F6263B44B0B39B9EC5B5BF7CC52A3F' +
           '2B981CBE5756A9A912910D27FB194F19585FCCC1DCFE94496FB3E' +
           '988636CA92B431F4BCC781F1BB9029828DE5A53BB531F935AD5EA' +
           '69E211EA3B8A97ABB2B79E78A69D486E973D99F08FAD929868C6A' +
           'AAA57871C93EFCF9EEDFBE46D0531AC48FE3B2611ACDF8DE8628B' +
           '3D15B03D39333AC735E88E73B3C10846445C9D3E39CDC97048EAA' +
           'B8386D07A8A2AC61611D3C9E09880534BDCCED0E4848D5E45E959' +
           'B153A234DB3AC569D20567CE18EF4F9765B5325BBBEF58B1D309D' +
           'D0936C96E088B08BBC53676AAB8FD3E7D1DE74667270933742763' +
           'B8154C7A4AA283B12F8831ED991398F98C8FEDE7E5A724ABC3AEB' +
           '7B9DFDB959CA0CB38D36B53F414B2718B8EF425928DF3755F47F4' +
           '739533E1FC8C0B67FF8FEDB64BFA9DC885E829935A325078FAECE' +
           'F4E8418CE1E34FE92FCEA87ABE523C592E7B605A7022651ABBFCF' +
           'C45FD0CBEA346AAE43F55EE37EBDE2CE7AEB2F572289C6D257554' +
           'FADD4F074BEA07392EBF8AAFC90133A7FB1591EE7D1516349B4AC' +
           '675675B79E5FB7F5970592533DDDB973FD2AA7EB17623DEB6AFCC' +
           '77E3529E12D493DB2F5BCF11C23EE2EEFCF3BE55EC2BE7219D8DD' +
           '6D8675259DEBE9D4E5268A68BF3FCEEDF3359DEACFC4AEBCAECCE' +
           '33F9952BF8FFECE2F50B435A3F602F588B06BABD78D5DF7D424BB' +
           'B5EB23BF81488291ED0480529D73AD671071FD8D8588D35B9C9ED' +
           'F23E2B0C8BBAC9F8F5AC92E06ED337796A33A6A7EAADE4443909C' +
           'EEFA81D7DD76A2333875348A5AF8FD9167327B62ED8FF51745966' +
           'FA256CFD2ED19C501D72A3F62E758BF82F01BBF87F8BFC37EA3DF' +
           '4971A7821B94278A0AD67F150BF6F3AB3EE974B9E4F7107FEAB70' +
           '81FEB6979BE42EC7FDDC35588EE97ECE82F8A0E33C58A88F4E625' +
           '2B8FFDEF21FEBFA828AED6E8FB90FB3DC85C19EF7B265D0F52AE9' +
           '4DEF93D44FC4250AF346ED57E13A531DFBDBB596974359A396DC9' +
           '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,385,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.

  2. #2
    Join Date
    Jul 2006
    Location
    NY
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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
    SCAR Code:
    bonesb:= bonesb+28
    and for everytime you withdrew bones from bank go
    SCAR Code:
    Boneswithdrew:= boneswithdrew+28
    and for XP, at the end of burrying do
    SCAR Code:
    Bonesxp:=bonesxp+'XP NUMBER HERE'

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

    And to make the progress report just do
    SCAR Code:
    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

  3. #3
    Join Date
    Nov 2006
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default thanks

    thanks.. ill probly change that tomarrow.. once i finish this and make it pretty antidetectable will it get me into srl?

  4. #4
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    ROFL no sorry this wont get you into SRL for sure.
    movemousesmooth is very detetable
    instead use MMouse or Mouse
    SCAR Code:
    MMouse
    It moves to the x,y with a randomness of rx and ry pixels

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

  5. #5
    Join Date
    Jul 2006
    Location
    NY
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I already told him that...

  6. #6
    Join Date
    Nov 2006
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default now i have this

    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



    SCAR Code:
    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' +
           '4AF54D84ADA2E53B4B9FF910AC45ED0183D7A28B9CD820814EA63' +
           '73321C516A4B6BEDA7A9FD688F5BDB2DB5A8FF777BDE1EBBD55FC' +
           '3F7DBFDF67E5F377BE8B5D93897FE4A1656B83ED6AFD676FBB33E' +
           'DB67A3A736EC36C23EDAB2AEEBD76EEFEB477B3BD8AD3DCCBB7F8' +
           'FBFAA8DAB55AB33D23855EBAC4D57E8F8BF7C3AA8505C11BAA27D' +
           '8D73408EF652E4504B6CD79538563076C1988AE10D3FD16A14087' +
           'B6A371FC595624CECF2B93C96E7054833E6EAAC939E37B43B9C10' +
           '6314B9081989C64C2335157D425A1C9FFE415574E95B15B6B4109' +
           '84750FBE6F1AD622F8E46CC9CA2BA8AED327288AFFC386A3E75B2' +
           '15653D679C7C3D0ECB69DE948C4C16B197E753C2956F0DCC54315' +
           '6B511933EC69EC6C7C289A3F77CF558652A477D81A2231FF2A437' +
           'D019C7CF50AAFAAAD8B3796926236B5F5F6F4744BDA59F3C9A65D' +
           '5AD2C015C74C0BCAFB2F208429624EE2A3C976FF56D8C21D0C889' +
           'D7F258B43348CB75518719142146C6F4E3D8592130613EE63E6FC' +
           '4D8D08E15B32729B1FFB1B44F19D260BEFF8912F39166EB2EF5A7' +
           'FCEBE0218E798234996B905B6055273997109573E6447EC42C7C6' +
           'D6DC4E0340B69C0181D6CBCFCB7F74359ECD02E731DF26F683F51' +
           '8680A25C3DC6B9B6F79FCFA235877C46DC2F48C40FBD027F1EDA8' +
           '5E14F562BD1FF0BCFC22EC3D1698013D566BAB3A035ABA223DC56' +
           '9561EEDFE1B4F07FA7753AFE71166B7F14F0A6E32896F276FA289' +
           '2699DB41EED35C3728A2EAA7BE4D993F6B0B8E69065F2917DA6A2' +
           'E8101B3828F5FD29B279A6237F54023E97129261DEFC3DE0DE81E' +
           'A72BE4E737604A2BE1C4E53F582480BB3236FA4ACEBEF1AE6DB31' +
           'B26975B48058F9D78C71949F5F88C7C62AB70EC636FC201E421CF' +
           'DEC19F1768234D97790BFB36729F4BD0A81A4D3441739D9B3539D' +
           '4B11EE64DB1D0F34AF5315C94FDCF434CA465ACE57968601254F5' +
           '13BF93FA6D97606A56359CC8914C517F35791A37C66A31D41E4D8' +
           '42150EEA27859B1292C5727D4EB55C556B9A0BA81DABC472BA449' +
           'E3A66ECEBB4AB16CA751DD654635CD227CD6774FCAD5E0115CE2E' +
           '80B227E5D62AD2AC5B3DCE39A3DC21C13A95739E553D811AAB04C' +
           '2F9C5C9AE245445F0DE91532BF33D9D9ADB8CBF81BACE1981FFFE' +
           '73CCD02D20FAD53ED18EB7922CB4E73791864E45F39D45AE39AD7' +
           'B14F9CD0A8A7BEE39864C0787D573CF5CA7E57730AEE23DFF4C61' +
           '8C7B8BB7984EEE9E89B62FE825AADEEB1901C5343F11706E62CC3' +
           '3E1C4EDCAC2BDA0F9983A9C7915A2C6D620E74AB8733494640709' +
           'C6A941AEE5ACF3FA798C0DDDD640B4BF5A7E01906E322A');
      login := BitmapFromString(76, 24, 'z78DABD5A4B6EEB3010BB526' +
           '0CB79ED3245EBFB1FE901911723D0A438925A2F0681228FEDA138' +
           '3FE9781EFF9EFBF196E5BB9CC7AB911FE575944BE2BF4CC6BBB65' +
           '2CA4F95FB6BFF2AE5923FFB593EE3BF5959355CDAB67DDFBF2EF9' +
           'DC3FCAA391753C3CF7FA1DFF4519DF16253E91E9C94AE7DDE00D1' +
           'BCB6B04E3882F01C1053A71855474A28C36D7C8A2AC7310354410' +
           'E4F6B9BDB673018EC6B3E27BA21DA66CCB708CFAABFDE7B1438C8' +
           '0E916BED23E37F722CA525B07D9A88D7915B966AA44FB74FC18F3' +
           '878E1E8D91C350F4A8E0AB99A4C86A4FCB50F3A58148164194D4F' +
           'E1A17C2913166D1A84722299BC366B27578A347F385AD9C316481' +
           '5333BE3A914BE00A273C3AC395886EDA3EC47F32DE25BECB97688' +
           'D317C0D6F998DAA163B92568A383EDE1763B1D6793D37223894E5' +
           '52BFCA22E0DF48967DD93CF571F4AD1D91EAE0C8EC99E50579AB8' +
           'E37664FD47C9FF09CD43F2FAD566E6A0D5D0FEAC8C8F8A859CF22' +
           '14E69F5005686F19DF2491B506EE2772A75FC3C8C2D1C9301D866' +
           'A1C65843AC9C5224E673E58FB112E7CC31B3DD53E4E96EB70D6C7' +
           'D4AF1C514644B21CB4E323FB6A9C59AF1B1EF9F3830763AB02B1B' +
           'BD103D562C793643D30E28B9E4762DA444FA74277F025F92AE3A3' +
           '66EEFC38C3BD7EB5B31EE2FC9BCEDEAA7C8978486766D30770FA3' +
           '9C91E1A8D8FF6CCC47816DFF737FAF8FA39FC825C2832CBC031A2' +
           'D9E99E0DF5D02C1C6546348F63968F0C5FDD2B5E56B320A6C98E9' +
           '046907A5D99179DC61535B3394D7E42D06777D5AF4EF091CDFFCB' +
           '8A7228C3B9F8587DA6512D7622298C3C8CCB99CFD64C27AE059B3' +
           '06D713CB2A01967765ED50798998F7D00A32F7D93D3EA3DCAA11C' +
           'C9CF8AAD0C59E7FCB8D7A0771F9855F5CC31DC1D9493FD9C866BF' +
           'E6EB2BFD76CF706FD7A2451A1637F4CFB3A1DDD9CDD8AB59194E1' +
           'B8162F9F89B2C3968DA71D3BEB2C85718AF4781319E62FC4CA98A' +
           'FD2731DF3673C92ECF3258BA70D0A9A65DAFE78177478684F4057' +
           '167EDF005720D19640611AB5A93339FE9E978C3589BBF41C3FABC' +
           'CF65A9DC88EE7731C8F97CD6DE4299DA9731D495E7718E7D480FE' +
           '799EB5E7AC929AD35CD0DCF4ED3CD3FDC3F339A4FF9940567B600' +
           '74D9FAD8EFF4CEAECAC73E2C712676FF0DFB14A449E915B767E12' +
           'F0B2F63BD69ED51962F77FC5AD5D22');
      sword := BitmapFromString(67, 77, 'z78DAD59DD97223B912437FA' +
           '9AC5D8F5EFFFF93C6ADAC8E01E71029946447DCFBD00C45595D52' +
           '11B920C124B57F5BF6CB72B82CBBBFE31E576AFCFEB75B5E765FF' +
           'BE37E7939BF9C97D7BA5263BDE7785C4E7F5FEB7DF47A7F85D739' +
           'EA7BF8BF8EAF2FC7E5A2DFE1CEFBF94D6E77E03CE89D6B3C7D7E3' +
           'FFA91DFED747CF9F3523E4BAFD79D4F6F2FEFCBB59F930491E372' +
           'FC387E1EDE0FD7FDC1E15277C81159BFEDEDE9F419DD3749FEAAF' +
           '7C9D14FDE59B8E89CAF9F789B61458DE8ACCF58EFD4FF7B7B0FEF' +
           'D95BA922A2B828228A8B9DFF7AA2DB77DBEA1189BFD02AD6E7BA7' +
           'DAE7B7F7D9FF3D77EB7DBD5756751F59AEF1C3CC27C96FD74E353' +
           'FD336AD43A5DCEE7F3C1F90BBDBBBFFF061B4644727FD599197C4' +
           '79EBD66759D5BB513895A8A948E6AD5777C4AAE288EFA7FCB6B6A' +
           'D4E7EA9FB166BB66BE10515C0AA9DE53926836B13758B2CB53F44' +
           '4B5558D1BBCBF4370FD5F12F37B4BD6D8ABF774B8D38AF874FA5A' +
           '6740679B9E92E0E23E3D894EFD77E6A7D40CF477769E584F4D56D' +
           '0E72CB57FC571F04444397203F70DFB6C529E5228D05F8608D6CE' +
           '461F6126760EBBE29CAC51C53CA9CB9E931968FD45F3BBB30A7EE' +
           '7495EABFB48D4CAF967DD8D9E72395DDE2E7BC52589608C451BF2' +
           'A078BDF302BE47678F8C944C2F8F51BDB527597E4544B83147874' +
           '8DD4767BB50780617F5E83E3EE4958BAD298005E76D62AB262BA9' +
           '850FF6007ECBFC4E86CC2CD923D2B32F22C208E662481F4B13CE9' +
           '630379DA59E390C9C0151859962A838C0E5C8A3E88FCC35C96CF0' +
           'A9D5FE6BFE890B6B1662612339EC99AF13A4FA28444F513B67059' +
           '720ABCCCA3DDD1A736EEFB9BE1FBEF61FAC31F327D2A720FB222E' +
           'ACEED5C61CE3EDC73BF3AC0C135E40DBAE39AC99618D60ED443E8' +
           '5CC6AE06CE024755DB1530FCA2B6566B1C1FE6F1EE13C851C2CC9' +
           'E6392E43E54BB66F9840EE5F64088A1DEB4D32492238C96E1B117' +
           '1959AE252886CCDF51B663E8875D4B5FA0A68509CD462E129E46C' +
           'C31DC42A86BA83AA976094678D9EA5281370AC38C185D195714CF' +
           '34EC516A790D4C86890AB372E264C942BB06BF7FD275E63AA9EAD' +
           '28A825909B5169B99EAE1FAF03132307632D3958173EB767E6CA2' +
           'DC99AC8BB86D7EA59D0780785563918341357090EDF019693D7EF' +
           '771424F0E1DC53C88D0736D5467E8B209E8B516EE5369C6D300D6' +
           '6F6BEFAAB1926CBD5A8459DD3ADBF2488243E4E56AC9EA2E8F411' +
           'ACE7158C726AC3F4B249F58128E7748CA13687E2A1CCCA715755D' +
           'B1C07485847A22A240A5821425C18C1A8722B7B9CACEF986A9A56' +
           'EAAA1BEA60D4379C8AA87F751155BD8FB558AE6A32836F7D0F3DE' +
           '5F5EBEDED6D45A7AF2289C8A04803B589B2872AACAFA973FEA951' +
           '688D7E40DCA99A13E5443E5D2358324E7878BB0A597F554F29BF2' +
           '85C9208461F712B442EE650AF702B478CF3FC2BEF433427AB5AE2' +
           '4D5A994EEE165422C98A86ABD4EAFEAC1F0B11E2E23818ED7CD0B' +
           '10D07BBB3B21FE4D0C43E271E017F64DD4ABECA4AC769A7C9CC3B' +
           '5559E386F314E2D273307E4F6681C99AB5E620A3BA5367638C724' +
           'A63E27D93688955DD44D366A5E3AE3387F6AB2A85C5C7E573FF79' +
           '66CDD257F74315667A3F888BD537A0E20EA3590161BE9EB032640' +
           'AA2434BCEF3885B6BB8E36B462BAE99DF1AC1A860B0462616431D' +
           '074D8FF1D0D9F6E095C09DDC8FFE45056CE084C8838FE92A091F2' +
           '32EF4942482B172546B71DE41757DB202C28A43675B991573B4E3' +
           'BD922F9C3ED67B715F9B5319C8195ABFAAC208A60C9911CCD62C5' +
           'C49411D37A81CA6C699D8BF56136DA799E2CBCA51AFA8750DD927' +
           'EEB7C93B287A445CFD484FA9EBAECBC5E9489C4FA7544C6A1C58F' +
           'E3087E8A772554CA23B517960167095A3D3BA9D82E1EED6B3E242' +
           '84B9BE8F60BD25100BAEBF3B5DC275CA39FD9088B8FCE23AE87A6' +
           '4FBBA8388245D88CC3B8A8B7A4A8DEA29D10A0B669B7EC40CA257' +
           'C85DB9F6ADAA2FEB0B5B69E2FD9AD919BBAC76ED74B3A0B33A5F8' +
           'D4A727DE152DEE470A1DE75676521C9478C8A9AA3590FC2DA998F' +
           '9471392EDD73DDBE3B25E97A9DD450F22C5C556104D3386639986' +
           '1E3ECE499F05BB576645E5D139F60A13E821E097E22F534C6D89F' +
           '1D7B8F200BEDEB477A8AE560F28C4E99240A5A83682421B31AAEA' +
           '3B2286EDCABC41CF39EC0445D210A7D873FAD97EB8FCA8AD5531C' +
           '07736B911335CC74044DF41FB75E6C5640C825A8D2F7150D2BA66' +
           '710D1189B20E276799015ABA730D7BB08D6EBF013F51E9187D183' +
           '1A97E3CF13A464FE73449E5141F35D698EDD6964E859B17A4ABD7' +
           '6D58A8B5A8C54AC3E5C2DCFFCCEA835C9320F45ADE711E9BDC375' +
           '9D39E5905A719FEB7B0ED6774C4D323BAEBBCCCE5C43AEC5D8D56' +
           '77637E7AE327A6C279AED303715845B556104ABEB2ED76F1D73F6' +
           'EB2A3ECB2262F69BD4FEC97ED8C7F6B8594542D61F552B4E72BDC' +
           '3A53CCE8D5BB1731522B9D644ED3788B89D2FC9FE4466B79E83B9' +
           '4EF8A4E3D7B1E21A75BD9EBBF0D6F1B43B2FD767C604BB2146213' +
           'A4DB45FF442E42A4ADFF7FBCCDEF31E91C9535F4EA73F4257CDBF' +
           'BEEE10D1F9ECE75CAFEC77FBDD72D231C728A9CEC8B5F21DFDAEF' +
           'E7DAC66EFF712BA68A3B37458F65FDFCF621071FB551D227A4F9D' +
           '7F5EE17562A4DF7C92C199EB75ED7563C769AE62253B9A7B5F702' +
           '8E8CC1011CDF283A7C0AA7526EBCE6B3EDA5F2FFB97BFEBCB7FEE' +
           '5F7F75E824B8684C1BD6857F4D45497676B8FFEB50D0B9B2362C3' +
           'B232AB32B22392E75E7CFCFAFC3F98DE3FBF5FDF3B41452FC3EF4' +
           'B51E1DAD1387CC1EAFEADED9EDDE763EF4FB1989059FD75DD1B12' +
           'C994CB8CF292B5B10446AE689C8D7F5EB9B4AD45857D47712AF99' +
           'AC7EB2A725D07EF3FAD1EDD3776AC9A02B1A5FE86385625133592' +
           '3FBBDEB3DE45D64BF7ACFF288BAA722A2B8A8D7B8EFD9E7977EB7' +
           'F24F7535B0934A2B2C87851B9DD5ADB377389D97498459E389A26' +
           '03870CF66EB3D8ABB22B2FACBED3BF4D1B546FD2C7638F41D1464' +
           'C86EB5F7CE0E4DA96AB762413EC3F85F7F551F49EC9628EB592EF' +
           'CB6DC3BE6B28CA2A363E2296E5775AFA26CE5BAAE4F3E41A14744' +
           'C78177DDE6C4CD0CEFE610D178CE7C57F3AF5946D1D1EF50237DC' +
           '4E5949E6B25BB15F233A07ECA3B9CF52AD613BB151DD29DD866F7' +
           '901A1F6796D1FC42DBA0A7B0BF25B7F044E375754AEE1DB9BF6B5' +
           'D4C4D52F3F23A3FC58E6E7F557426764B0B14E58A3650714C79DA' +
           'CA2E0244B6EEE879AC2AE48EECC13B6A4E3622D22BB483F6A5795' +
           'F58D39A5F04911517DAADF6AB6BCF495BCF0E4F771B7BAEA5880C' +
           '5549DCF990EC0C752AEE6ABDAA7B98389F20E238B6D3781597A10' +
           '66F3D45E398ED0B6D39403F263B439F39B9A2AF1C1F43C4D9D8B0' +
           '7BDA44C8D93960A5B7FC1711B5E7FE2C50B77B3AD9F16477BDB93' +
           '57D735E4D7F1668AF181391490C892B11EE25494E98647EA14EA5' +
           'F985FE32F46AC253384BAA1FBADE51AEF5BBCCE5E6D622B2D5479' +
           '073734F717D59FD5910B34EB0CE5334B3F427504DFAC1B00FD7FA' +
           '0BD61F5D1DD79FE3D4F78EF6B14E11514E92E0C2A875E7BC26ECC' +
           '4B9E32940C445B0E8A41A51F6263B44B0B39B9EC5B5BF7CC52A3F' +
           '2B981CBE5756A9A912910D27FB194F19585FCCC1DCFE94496FB3E' +
           '988636CA92B431F4BCC781F1BB9029828DE5A53BB531F935AD5EA' +
           '69E211EA3B8A97ABB2B79E78A69D486E973D99F08FAD929868C6A' +
           'AAA57871C93EFCF9EEDFBE46D0531AC48FE3B2611ACDF8DE8628B' +
           '3D15B03D39333AC735E88E73B3C10846445C9D3E39CDC97048EAA' +
           'B8386D07A8A2AC61611D3C9E09880534BDCCED0E4848D5E45E959' +
           'B153A234DB3AC569D20567CE18EF4F9765B5325BBBEF58B1D309D' +
           'D0936C96E088B08BBC53676AAB8FD3E7D1DE74667270933742763' +
           'B8154C7A4AA283B12F8831ED991398F98C8FEDE7E5A724ABC3AEB' +
           '7B9DFDB959CA0CB38D36B53F414B2718B8EF425928DF3755F47F4' +
           '739533E1FC8C0B67FF8FEDB64BFA9DC885E829935A325078FAECE' +
           'F4E8418CE1E34FE92FCEA87ABE523C592E7B605A7022651ABBFCF' +
           'C45FD0CBEA346AAE43F55EE37EBDE2CE7AEB2F572289C6D257554' +
           'FADD4F074BEA07392EBF8AAFC90133A7FB1591EE7D1516349B4AC' +
           '675675B79E5FB7F5970592533DDDB973FD2AA7EB17623DEB6AFCC' +
           '77E3529E12D493DB2F5BCF11C23EE2EEFCF3BE55EC2BE7219D8DD' +
           '6D8675259DEBE9D4E5268A68BF3FCEEDF3359DEACFC4AEBCAECCE' +
           '33F9952BF8FFECE2F50B435A3F602F588B06BABD78D5DF7D424BB' +
           'B5EB23BF81488291ED0480529D73AD671071FD8D8588D35B9C9ED' +
           'F23E2B0C8BBAC9F8F5AC92E06ED337796A33A6A7EAADE4443909C' +
           'EEFA81D7DD76A2333875348A5AF8FD9167327B62ED8FF51745966' +
           'FA256CFD2ED19C501D72A3F62E758BF82F01BBF87F8BFC37EA3DF' +
           '4971A7821B94278A0AD67F150BF6F3AB3EE974B9E4F7107FEAB70' +
           '81FEB6979BE42EC7FDDC35588EE97ECE82F8A0E33C58A88F4E625' +
           '2B8FFDEF21FEBFA828AED6E8FB90FB3DC85C19EF7B265D0F52AE9' +
           '4DEF93D44FC4250AF346ED57E13A531DFBDBB596974359A396DC9' +
           '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,385,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.

  7. #7
    Join Date
    Jul 2006
    Location
    NY
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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
    SCAR Code:
    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.

  8. #8
    Join Date
    Nov 2006
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wow thanks a lot... i have one question what is the player nick part for?

  9. #9
    Join Date
    Jul 2006
    Location
    NY
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Player nick means nickname. Put 3 to 4 letters of name, for ex:
    username:bobby
    nickbb

    If you put the procedure
    SCAR Code:
    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:
    SCAR Code:
    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

  10. #10
    Join Date
    Oct 2006
    Posts
    888
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. [firstscript]boneburyer
    By derek9456 in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 11-02-2006, 01:35 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •