Results 1 to 19 of 19

Thread: [SRL][RS2] Fight Caves AFK Trainer [SCAR 2.03]

  1. #1
    Join Date
    Aug 2006
    Location
    Earth
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    [SRL][RS2] Fight Caves AFK Trainer [SCAR 2.03]

    Alright, I've already posted most of the info on my site, so if you want to see the official download page for the script, then click here.

    This is a remake of the original version - this time, using SRL.
    Before the script used the SSI2 include, which is now outdated BIG TIME. So I finnaly decided to upgrade! After testing the script with SRL, I was amazed. Everything seemed to run alot smoother (yes, that includes the mouse :P).

    So I thank the people for working hard on creating the ultimate include, SRL.

    Here's some info taken off of the site about the script:
    Features: Logs in if you are logged out when you start the script. Special waitin procedures made for people who don't have a fast internet connection. Less laggy bitmap and color finding procedures. More accurate and faster AFK waiting procedure (Our main target of updating at the moment), Re-enters caves when you lose, A little slow but good login procedure (Slow on purpose for Dial-up users), will logout after a specified amount of rounds, IF wanted to: the script will log back in after sleeping for about 15-30 minutes. Etc..
    Now, here's some info taken off of the script (on how to setup the script):
    {.Setting up the script/recomended game settings:
    # We recomend leaving your private chat ON, or on FRIENDS.
    # The Cave Color rarely changes, so the pre-set color STILL WORKS.
    # We still recomend that you update the Cave Color atleast once a day.
    # The script can work on Normal brightness, but it's recomended that you
    # run the script on Very-Bright.
    # Setting up DeathTotal: In the setup form, you will see DeathTotal.
    # DeathTotal is how much times you want the script to enter the caves
    # (and most likely lose though). Once DeathTotal hits its Mark (whatever
    # number you set it to), the script will log your character off and take
    # a break. If you checked 'Log back in', then the script will log your
    # character back on, then reset the DeathTotal to the mark you set.
    # Therefor creating a loop.
    # The time the script takes a break for is RANDOM. From 15-30 minutes.
    # In the later versions, we will be adding Sleeper marks which will make
    # the script act like if you went to sleep for a while (as if you were
    # taking a cat nap, or actually sleeping for 2 hours).
    # .................................................. ..................../

    If you need any help setting up the script or find any bugs/errors,
    then please contact us via email:

    dizzycoders@yahoo.com
    # Thank you.

    /Setup Help}
    Copy 'n paste the script:
    SCAR Code:
    {.Script Info:
    # ScriptName  = Fight Caves AFK Trainer SRL Version
    # Author      = Dizzy's Coding Crew
    # Description = Will enter Fight Caves and sit there just 'AFK' training. Then re-enters when loses.
    # Version     = Beta 1.6
    # Date        = 1/16/07
    # Comments    = Start in front of Fight Caves. Camera at its lowest and pointing SOUTH!
    # Cont. Comm  = Or make sure you're at Cave entrance and start Logged Off.
    # Comments2   = Just target the RS window and run the script.
    # Comments3   = When you run the script, a Setup form will appear...
    # Comments4   = ...FILL IT OUT!
    # Notice      = New and more Accurate Waiting Procedure Coming Soon!!
    # ScriptInfo  = Get more scripts at: [url]http://geocities.com/dizzycoders/[/url]
    /Script Info}


    {.Setting up the script/recomended game settings:
    # We recomend leaving your private chat ON, or on FRIENDS.
    # The Cave Color rarely changes, so the pre-set color STILL WORKS.
    # We still recomend that you update the Cave Color atleast once a day.
    # The script can work on Normal brightness, but it's recomended that you
    # run the script on Very-Bright.
    # Setting up DeathTotal: In the setup form, you will see DeathTotal.
    # DeathTotal is hor much times you want the script to enter the caves
    # (and most likely lose though). Once DeathTotal hits its Mark (whatever
    # number you set it to), the script will log your character off and take
    # a break. If you checked 'Log back in', then the script will log your
    # character back on, then reset the DeathTotal to the mark you set.
    # Therefor creating a loop.
    # The time the script takes a break for is RANDOM. From 15-30 minutes.
    # In the later versions, we will be adding Sleeper marks which will make
    # the script act like if you went to sleep for a while (as if you were
    # taking a cat nap, or actually sleeping for 2 hours).
    # ....................................................................../

     If you need any help setting up the script or find any bugs/errors,
       then please contact us via email:

                  [email]dizzycoders@yahoo.com[/email]
    # Thank you.

    /Setup Help}





    var
     sleepTime, stage: Integer;
     
     Mej, Enter, yourLife, MGIcon, window: Integer;
     
     roundDone, InCave, LogBackIn: Boolean;
     MyUser, MyPass: string;
     DeathsXX, continueTxt, ClickToPlay, LoginScreen, CaveColor: Integer;
     
     
     frmDesign: TForm;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     Label4: TLabel;
     Label5: TLabel;
     Label6: TLabel;
     UsernameC: TEdit;
     PasswordC: TEdit;
     Button1: TButton;
     CheckBox1: TCheckBox;
     DeathTotal: TEdit;
     LoginBtn: TCheckBox;
     CaveCol: TEdit;
     
     
    {.include SRL\SRL.SCAR}
    const
     MyScarName = 'Dizzy'#39's Coding Crew
      '
    ; //what to hide scar as

    procedure Hello;
    begin
     Writeln('+++Fight Caves AFK Attack Trainer SRL Version BETA+++');
     Writeln('+++Version : 1.3 ---------------------------------+++');
     Writeln('+++Created by Dizzy'#39's Coding Crew ----------------+++');
    end;

    procedure KillMe;
    begin
     TerminateScript;
    end;

    procedure PointCamSouth;
    begin
     SendArrowSilentWait(3, 1700 + random(100));
     Wait(100 + random(50));
     SendArrowSilentWait(2, 1500 + random(400));
     Wait(100 + random(50));
    end;

    procedure Randoms;
    begin
     FindNormalRandoms;
     Wait(10 + random(6));
     UseBoxSolver := true;
     Wait(10 + random(6));
     UseCerterSolver := true;
     Wait(10 + random(6));
     UseSandwichSolver := true;
     Wait(10 + random(6));
     FindMaze;
     Wait(10 + random(6));
     Solvepinball;
     Wait(10 + random(6));
     FindTalk;
    end;

    procedure LoadCaveBmp;
    begin
     Mej := BitmapFromString(104, 8, 'z78DACD97C10EC3200C437F699B34' +
      'A93B5269FFFF4BD3DA1EA882CD0B45D3768826089004E3B8EBAB3' +
      'C97FB5ACABA94C3EE23D1CEF2D9EC72FBFEE2AAD3F8EF6D1D39CE' +
      'F488B9CEBDB66B79BF1E87CFF65FD9CE3E62676995BF5A4B6226F' +
      'BC4B538235F817D365A823AB5D6E36DAE679C253BCB2AD5B55598' +
      'B4B74CE23C5538DCEF1584743023CEF23EE81504A44514C911CC7' +
      '80AC9BEE6733D1B18C36FA4F32A3DDE7CCD551788E384553C1A93' +
      '78232369BC85D904DE14B361E66C5438DCA0E452CBC09DCE6E399' +
      '9F0BCCAB4D12B715F96239E21D5B93E7E8E198061C5C31D6D80BB' +
      '2AC158026F43AC7BDD73CCCA1DBC360B2F086561D55A3697867F9' +
      '2BB146FA7F1C66F8A28F0CB78534C1EF3559C90B8D321954ED800' +
      'F1928A1CA8B2C6DB1FC21B673CA431ACF6EBE87FFBA5403495EC9' +
      '816214AA32ABCA91DC8599D6F3A813AAE9FA5DEB6BD38A1D287F8' +
      '99683C5E5B949D52BCFC3F51DA9803FFC262757DC94E3A37FB453' +
      '0214E127935FB01634C8508');
     
     Enter := BitmapFromString(33, 8, 'z78DA7373430003BCC0D4C5D4C4C49' +
      'C7812C9603752F552621779AEA5BFC923C117F8D3801B5E400B93' +
      '497503AE7C81DF04881A5CF61263322E35C49889CB0DF8E39D181' +
      'BF1BB90F85447BC38E5BE204F9CF814424CDC919A0769ED0B624A' +
      '785C660200B4A26E52');
     
     yourLife := BitmapFromString(62, 10, 'z78DADD97410AC4300845AF940E0C' +
      'B44B85B9FF950A9D4D8AF1F71BCDA659483192EAD36AAA22BA8BF' +
      '6F290EFBEA9D5BF42B66B4535B56FBC11FE3F5BF93EE630AE1BA5' +
      '34138F79EB963D1FFBD9CCC2368CDEDBC5F651E6F87C8609E38F5' +
      'BE7902D66B24EAF2ABFE33388EBD22FEF2D4E85472B33C07C4E5F' +
      'CB9CC8082533FDDCF45ECB16F7A2412EAA98D31DAC98B9F7ECEC3' +
      '284797FA8CE0F65419DC3CC32BD1167307FA3083027E6977AB73E' +
      '624A7A7361707E749A30F644253CD0A66F17CC5C8E7AE5C5C2C7E' +
      '8F6671CD7D49715F584E25C75BB9B3B3FDD55A236299EABB316FC' +
      '1628AFF87F9CCEE604CD0C5561');
     MGIcon := BitmapFromString(9, 8, 'z78DA7590510EC0200843AF84388C7E' +
      'AE6EDEFF48CBC4652CB09F8690D76A016340302A95BD93D4ED7C3' +
      '49FB9D80D988412949FBAF6CBABFCEB525EE7C66D34F1F9D66BF9' +
      'E827B1A2704F87579FA36F2D46BB3832EA35679BEF7AE1E78651F' +
      'EEDFDB8A6DAFB5897EEAD5E5D04617A');
     
     continueTxt := BitmapFromString(145, 11, 'z78DAE59ADD6EC33008855F699B5' +
      '4ADB94C2EFAFE8FB469EB452202FE8E31A9A7F502556E0CE6E760' +
      '20DD96F5767F7FFBFE3C1EBF74FB59D976EB76C5AE3FE9BA6EF7F' +
      '5F03DA40D6E5DF484A795EE71F85896CFDB93C6B2F89379BA97B2' +
      '971BD33ECE7D67BBC60EEA79BCB35D7E5A12E132FA00BEF6D13E1' +
      '6652E4F15655E04CE1351F199ABF1AEFE5AA6D1495E251C2ECC0F' +
      '2994995B89234B3D43855E723E7C6DDE8EF3C36BEF880A2B610E2' +
      '7BE26BE9BED168EF5126FAE4951466C3E814706DB4AAD2DFBEAD5' +
      '41E86BE8CEA54F5955BAFADADE2AECBCE2EE2F7E26D39D1D783A1' +
      '626D2EDAFFCF90CEA3D5D8825C7D663AE2563E95C17C0B3B117EC' +
      '2231E0AE632B5564547BBB1D7017E6A21384F2BC2D56A19E0D6D0' +
      '6F33C4262388E99BEBB8378D9DD45FA4DA045434AEC85D8E6963F' +
      'BEC5D02E62134F17AEE3D0AA83CF43467143F34C50AB372207D4F' +
      '99E4F633F56D8BC816B8232826B506BA9D23B23964BEFCB3C5D48' +
      '4FF9DA4E368A5126BC23506332B4C0DE4AA48F6E5462467AC30E5' +
      '82F39D2BC98C17D4A39CAD2A844B8C8A04C441F8FBA6A94C97BC9' +
      '043E5141B9E8065EE01DDCB02A7D509C0BD801B5740A4D991B99D' +
      '4784351D6D7B5A9FDB5F7764CEEC79D5E7554652B7455A105B8B5' +
      '85B941629AC7CF96C1179A0B25A4A3884DEF92A524A6191513BC3' +
      'FFC7E671EAABE13FF0F34F38F8ECCFF648AE91768C15715');
     
     LoginScreen := BitmapFromString(149, 12, 'z78DACD9A4B6EC3300C44AF94567' +
      '6D02ED34FEE7FA416951714A8193F5971502F8842656891E2F027' +
      '2F9FCBF7FABE047AFF7D2E974AB7F5B7E5B696481B9EBA9EE434B' +
      '4F2BC2C65F9DA289193DE8B687AFBFABA2EEBF794E4F82B22216A' +
      '9A68F92AF7E5BDDCCAC75224FDE3C916CBF2376951E6B5BC957BF' +
      'D3B5A3853BFCFB36967E791562D5E4B291F95E6FD474D9BBF398D' +
      '7B08364767A4A461FEE851D54BA376F5C9272E7906BDB123C7E3D' +
      '7238250C5CF917548D3782E8DFF9073141ED2F1E1F4AB6CE1FAFC' +
      '070CEEE02EA02F6B3160438F716BBD6398E2FC4D5C4DB94F216B0' +
      '67D51532987A3C9D226EBCD600A643414D5FF3C2A6B8DBC25FA64' +
      'E257FEDC7997B07C27DB3E3FDF254D55F4A8FF6D5608B208CA923' +
      'D9BFD8F66435EE12864D9EA94A32F5BA0232757590253910EE7BE' +
      '933128B12322F9A84FEEA04FE4598FBEA7E28EEB9B2C862A4C823' +
      'BC59F7393D2E84159D2A32F77671E7DAACBC8DEE27D40C9C9E893' +
      '7D8DA82D7D37D4F4A136EFABFAADD3858978EE2B28C4693DCD9F6' +
      '6933B12BF3A0B724691D3C70454430E56ECC403472DECF555F8F5' +
      'F273AE21E7A5D047BA0C92FB949CF8A82CAC22C631EDFC6F550FE' +
      '563A0D7CEF3700C7A6FC9B81B3D11255F9E38D7CB662B6F01E439' +
      'D6C73AF271073DAA29E9E966D0A73495DD87D879EE4F7D16E6EB5' +
      '3DA59AD554F412A4F6E19558512F4A139D8E0BAB2A1D7DDF7A108' +
      '83C4B6D83EDC27677C9BD81FF927D685F8129FC63C097DA05E55D' +
      '984D4DB685A62FB383E551E3DFD47ADFB9A90DBF0188A497C9371' +
      '631A7D3CFA111CE53DF38A71C786047D60FA7A36FA7C55D3A176C' +
      'F33E8EBCCA9C27488F80CB94B3A0F95AAF6EEE4385B017A8F22F5' +
      'FFA84F8EC601D53D29CA71A7E636BE13F7917C67BE012621CD3EA' +
      '7D1C7B593B7E476CFBC67DF39411F9DC08DED4CBC25F9DDDB904C' +
      '9FFC5DC3FC5CCBA30FED0764C03C3FCC93FC6371FE629F9801334' +
      '622456FF79C56669590F93B1E0E76252D236E2BA4658287ECE8A5' +
      '6E52C45BC8FA80E5B1FC5CFBED7848420AE12176E39C640E46F6A' +
      '3F837ACDDD6CFEB75A3EA1E0DDF7FC91B28D5FFAADBBD4337DDD2' +
      'DBC9B728B987225FCD4DDF82ED7C33266EFAA6DE1EB578A8465CD' +
      '3A92FF14EFE060C55AAD3BBFA017F8B3E9E');
     
     ClickToPlay := BitmapFromString(124, 20, 'z78DAB59B49921B390C45AF94A5B' +
      '2AAED657BD0FD8FD4D5622E3EE2F14190656BC1C8A09820087E62' +
      '22F27A3D3E8EB7EBBDFDF2F5B81CC77ABEFEFB763DBEAEE78FEBD' +
      'B67F76ACFFE7BFBF1EBF2FFABF1EE3FB7F7CBE5F2F1FDEDC7F12D' +
      '9F4F0AEB99EDFD5FBE4BAECE199387E40D9C9715A1673DB3279F8' +
      'DDB73F6E8A104564B199636C6149AD1FFFEFD78FF1C1AEBCDFE93' +
      '4F50E6AACFD5416E49E19C0B7B9AAB483AEB39DFB276226DDBAF9' +
      'C91F3F22DA3B9F0633D05A52143A291EDA273B689F9A419739577' +
      '53AA98915CE58C05ABD1433C24CD734C60ECC42DF85FD23EFF0D9' +
      '93C38E336637098685F2389F3946AE9C78C3CF5295B4A728DEFD1' +
      '9E785B230BCE4332866743A3B589E77C9EB4B92FAB2DA84E6C004' +
      'BB9171BED17BB99ADE17C3332FE25B779A2A9154F0C24F2DB35DA' +
      '8E7315D4ED69D754FFA3A5E5E22CD49339CBEA2FA78C360ED2DED' +
      '084EECA67EA6DB38C8BB7625FD24E0D34FCDF6B373E49F070C3AF' +
      'E8877B9BFF52F26BED37F971DF3926B5D91A99FFE6592B9453376' +
      '28D9C2BF7BAF4C75BB7C16F3292BB30A74C0B3E79B7A04BDEE2EE' +
      'D32F4ACCD85C1C4F9924C269357AC918926DCC663743B3E5BFC7F' +
      'D67F8E4C8D46F0B519CF1881FCF02674CFDD08F4CCAA6B76D465B' +
      'BBF5DBCF469AC69853CE1D4C7DD2CF7BEE0BF06972361C9A0EECE' +
      '998F4483FCFC884BEE139E953E66B1693D5926AC1E700E7ABFDF6' +
      'E3CBEDFDE7063F4221F15F7A5A6D59F6141E695A04DB29431DF57' +
      'FF24FBF65BE52E3641381220627DA752FDA73CA539FF419DD28CF' +
      'A0936FD9DA278835DC3E8B73B368C94FCADCAC39773FE3B8B99EB' +
      '46C89F9363C7D49C1323073341AFF1687BE6E29467168C4EFB677' +
      '0FFE6D79CEBD2EF1B8F06C7A7282F35E934FF0DC7B8005C903593' +
      '11FD5EBA2F45E9ED8E58C25C3D6F47A89717152E871DECB87F837' +
      'DF7E62737B5F62E3DB8CF38ABD8E7A16E7F92E735CAFAC71AECF2' +
      '7BBD3C70EB45CBD0D2D2B6D3D79CB0C4F2C5DA110514046B81667' +
      '95F8171498BB9B78D16601E9FD1ACE7B3FB0F7DC7276AE9108EC7' +
      'D60D3C0BDB63FE9C33E8EBCC7F69411E7BDE76CBB53323C822866' +
      '0255BB32FB24349919567D2E14E86FA42FDA6BBF4D5E5A903FB7B' +
      '00FFC73DC9E3CB00EC89C8C3C377832F4EB7A1FF2597F20637666' +
      '142767B3D787CC1DF59ECFC46FE971DEF3CF3C612F9FCD7DA8CC6' +
      'EEBCA779961E82DA6E5A57923338F43ED5C6C6E4E07367DEE6F9C' +
      'DE5A44F445BBE236F66924B7A780776DFD99E2BA7A5C4D3284935' +
      '5CCF539B1C1A8D6E2F109FF7DE4627134B3B2EA2961759BFC1B34' +
      'E1B3F645718EFCD284422FC3CD7D34EE6127B15246CAB68F13AF6' +
      '382F3FE16BEB7DAAFE07CCEDB04999403B385CFFE780F38C9A5F4' +
      '11417FB7D29F3BD57BED6D1775F5FC04D1A2F5F744BCB1EDF5187' +
      '326764F94724EBFDD3C40F5F625C7F58AF4E638EFC7F437B99B1B' +
      '873BFF0BE7794FF17BBFD44BCCD2274E52CE8C01731516C71127D' +
      '4605C757A5F93156DEE1A6CC658FB84F2A6CA08B576BD9F9C08EC' +
      'EFA13667043831399BFE9CFC8CB2D199CC95790C7AB3E993734CB' +
      '6AC3F29D56516154ABD41A95D41FD4CCF09F79463D60925FFE90F' +
      'DBFDC8A6060611BA46EE5623C43A1CC4FBA4C0F87A53D701BF857' +
      '5A7C5D2814ED66865DB57F7F5D556BCF9A29CFF540517EDB8650E' +
      '995F623F6BE48A26617EAFED31BFB4C4B6D8AF4D5E31A4C78C1C6' +
      'B112715599BEA3EA9F69CD455265756FB6455C14693D1ABD5EE16' +
      '7D8238D770552C082D05B0CAD341AFE6D9FA2E9ED07E24B161598' +
      'EB2BABCEF66BD22F40F3336A681F3D468B5B0CC4EDD452C99DDDF' +
      '20C44E56F04FBD6AB2652D2B6D19EF9A5FA9CD7B50890D9C309AA' +
      '685B5BBAA499D6DBECB3D9AE09C7ED4BC8E77A36D502B4EFB5E6E' +
      '9C913DDEE828A32F75E9B4329B7AE9788BFE8CAD65738785BAFD4' +
      'D3DB9F06F79CBC233AAC489A8CD29665D3AF8B4B363DF0524FFAC' +
      '9EB5EF0868E3FA73B4D1D538235C05D1C85350BC9D811EE8716E1' +
      '68115D7AC3AB6EF86D4A3339B4B1B9DB7FFF23D42EFA39A679BBB' +
      '50BC17D0DCE08A37C558915541DB574B67740F4DC2BDE3392DBE0' +
      '72AC937F96DC441F6CD8E7D3563FADCBC1793C9FCCB0BB377A4C3' +
      'FC4FEE0E2353622FFD0DDA147A20FD974D565548DF803702FCF64' +
      '1F9A71F22D523C5EB00CE79F68BD7913ABFFDBE89B74BFA1D47EA' +
      'E7D48478EE119E12D31C207C66FDCEC2460E2AD87B5FABC7BCDD5' +
      'EF57ECEEAF90FA7C787E8');
     
     window := BitmapFromString(61, 7, 'z78DACD94C10EC2300C437F2922158' +
      '273E0FF7F09A9E590C97571D481D8219AA2346B5E3CB77B336FD6' +
      '9FE8B1F5CC882363397FF3A77B395EFDE117292EFB1CEEA3D7A48' +
      '976E2844631E2D99CD9A2AD13FE32EDD8E0732EED72FF74FF6053' +
      '776EB9E65D096C3FF4394BDB3DA28A82FCD1482047230EC0FAE8B' +
      'BC6FE998C21ABC470BC1B3CAC46614E755BD476C0AD584D03A79D' +
      'D0A8BAB1427B398B817A7555E306ABB40B99A58A7E93619ADFA13' +
      'DD12DD09E285FF613FC3ADBDAFFF047CFA167615E7483B5631F36' +
      '027D74F75E9F35D95B7405567D9BD5BC00BECE08C4');
     
     
    end;

    procedure LogMeOut;
    begin
     Mouse(645, 481, 10, 10, true);
     Wait(300 + random(200));
     Mouse(631, 372, 5, 5, true);
     Wait(1000 + random(300));
    end;


    procedure LogMeIn;
    begin
     if (FindBitmapSpiralTolerance(LoginScreen, x, y, 290, 234, 466, 256, 80)) then
     begin
      Mouse(440, 287, 10, 10, true);
      Wait(300 + random(200));
      TypeSend(MyUser);
      Wait(1000 + random(200));
      TypeSend(MyPass);
      Wait(700 + random(200));
      Mouse(298, 317, 10, 7, true);
      Wait(100 + random(50));
      Wait(13000 + random(2000));
      if (FindColorSpiralTolerance(x, y, 16777215, 351, 325, 490, 343, 5)) then
      begin
       MMouse(x, y, 0, 0);
       Getmousepos(x, y);
       Wait(100 + random(50));
       ClickMouse(x, y, true);
       Wait(3000 + random(3000));
      end;
     end;
    end;

    procedure SleepMe;
    var rInt, originTime: Integer;
    begin
     if (LogBackIn = false) then
     begin
      TerminateScript;
     end
     else
      if (LogBackIn = true) then
      begin
       originTime := (15 + random(17));
       rInt := (60000 * originTime);
       Writeln('The script will be sleeping/logged out for:');
       Writeln(IntToStr(originTime) + ' minutes.');
       Sleep(rInt);
       LogMeIn;
      end;
    end;

    procedure SetupScript(sender: TObject);
    begin
     MyUser := (UsernameC.Text);
     MyPass := (PasswordC.Text);
     CaveColor := (StrToInt(CaveCol.Text));
     DeathsXX := (StrToInt(DeathTotal.Text));
     if (LoginBtn.checked) then
     begin
      LogBackIn := true;
     end
     else
      if (LoginBtn.checked = false) then
      begin
       LogBackIn := false;
      end;
     Writeln('Script has been set up!');
     frmDesign.ModalResult := mrOk;
    end;



    procedure EnterCave;
    var hasFound: boolean;
    begin
     Writeln('Doing cave entrance procedure...');
     repeat
      if (FindColorTolerance(x, y, CaveColor, 5, 5, 467, 291, 15)) then
      begin
       repeat
        Writeln('Found cave color: ' + IntToStr(CaveColor));
        MMouse(x, y, 2, 2);
        GetMousePos(x, y);
        Wait(100 + random(50));
        ClickMouse(x, y, false);
        Wait(300 + random(200));
        if (FindBitmapSpiralTolerance(Enter, x, y, 5, 5, 442, 300, 100)) then
        begin
         MMouse(x, y, 2, 2);
         Wait(100 + random(50));
         GetMousePos(x, y);
         ClickMouse(x, y, true);
         hasFound := true;
         Wait(6000 + random(500));
        end
        else
         if (not (FindBitmapSpiralTolerance(Enter, x, y, 5, 5, 442, 300, 100))) then
         begin
          MMouse(5, 5, 1, 1);
          hasFound := false;
          Wait(1000);
         end;
       until (hasFound = true)
      end;
      if (FindColorSpiralTolerance(x, y, 128, 249, 360, 357, 371, 10)) then
      begin
       Writeln('We are officialy playing fight caves!');
       InCave := true;
      end;
      Wait(2000 + random(1000));
     until (InCave = true)
      stage := (stage + 1);
    end;


    procedure WaitCave;
    var secs, timesWaited: integer;
    begin
     Writeln('We are now waiting in the caves...');
     secs := 0;
     Mouse(585, 188, 5, 5, true);
     Wait(300 + random(100));
     MMouse(587, 219, 7, 7);
     Wait(100 + random(50));
     repeat
      roundDone := false;
      secs := (15 + random(15));
      sleepTime := (1000 * secs);
      Writeln('We will be sleeping for ' + IntToStr(secs) + ' seconds.');
      sleep(sleepTime);
      Mouse(646, 181, 5, 5, true);
      wait(200 + random(100));
      Mouse(585, 188, 5, 5, true);
      Wait(300 + random(100));
      MMouse(587, 219, 7, 7);
      Wait(100 + random(200));
      if (not (FindColorSpiralTolerance(x, y, 65280, 221, 132, 277, 162, 50))) then
      begin
       timesWaited := (timesWaited + 1);
      end;
      if (timesWaited >= 50) then
      begin
       Writeln('I think something'#39's wrong here... Logging off.');
       Wait(100);
       LogMeOut;
      end;
     until (FindColorSpiralTolerance(x, y, 1911990, 602, 29, 688, 121, 50))
      Writeln('We have been defeated!');
     TypeSend(' ' + chr(13));
     DeathsXX := (DeathsXX - 1);
     if (FindBitmapSpiralTolerance(continueTxt, x, y, 13, 351, 495, 452, 100)) then
     begin
      MMouse(x, y, 2, 1);
      GetMousePos(x, y);
      Wait(100 + random(50));
      ClickMouse(x, y, true);
      Wait(800 + random(300));
     end
     else
      if (FindBitmapSpiralTolerance(window, x, y, 410, 18, 506, 48, 100)) then
      begin
       Mouse(x, y, 1, 0, true);
       Wait(100 + random(50));
      end;
     if (DeathsXX = 0) then
     begin
      Wait(1000 + random(500));
      LogMeOut;
      SleepMe;
      DeathsXX := StrToInt(DeathTotal.TEXT);
     end;
     Randoms;
     stage := (stage + 1);
    end;

    procedure LoadForm;
    begin
    ///////////////// Generated from: AFkTrain.dfm
     frmDesign := CreateForm;
     frmDesign.Left := 228;
     frmDesign.Top := 101;
     frmDesign.Width := 416;
     frmDesign.Height := 207;
     frmDesign.Caption := 'Fight Caves AFK Trainer';
     frmDesign.Color := clBtnFace;
     frmDesign.Font.Color := clWindowText;
     frmDesign.Font.Height := -11;
     frmDesign.Font.Name := 'MS Sans Serif';
     frmDesign.Font.Style := [];
     frmDesign.Visible := False;
     frmDesign.PixelsPerInch := 96;
     Label1 := TLabel.Create(frmDesign);
     Label1.Parent := frmDesign;
     Label1.Left := 240;
     Label1.Top := 74;
     Label1.Width := 65;
     Label1.Height := 11;
     Label1.Caption := 'Password:';
     Label1.Font.Color := clWindowText;
     Label1.Font.Height := -11;
     Label1.Font.Name := 'Batang';
     Label1.Font.Style := [fsBold];
     Label1.ParentFont := False;
     Label2 := TLabel.Create(frmDesign);
     Label2.Parent := frmDesign;
     Label2.Left := 240;
     Label2.Top := 24;
     Label2.Width := 65;
     Label2.Height := 11;
     Label2.Caption := 'Username:';
     Label2.Font.Color := clWindowText;
     Label2.Font.Height := -11;
     Label2.Font.Name := 'Batang';
     Label2.Font.Style := [fsBold];
     Label2.ParentFont := False;
     Label3 := TLabel.Create(frmDesign);
     Label3.Parent := frmDesign;
     Label3.Left := 18;
     Label3.Top := 18;
     Label3.Width := 3;
     Label3.Height := 13;
     Label4 := TLabel.Create(frmDesign);
     Label4.Parent := frmDesign;
     Label4.Left := 94;
     Label4.Top := 2;
     Label4.Width := 230;
     Label4.Height := 14;
     Label4.Caption := 'Fight Caves AFK Trainer by Dizzy - Beta 1.2';
     Label4.Font.Color := clRed;
     Label4.Font.Height := -11;
     Label4.Font.Name := 'Arial';
     Label4.Font.Style := [fsBold, fsUnderline];
     Label4.ParentFont := False;
     Label5 := TLabel.Create(frmDesign);
     Label5.Parent := frmDesign;
     Label5.Left := 7;
     Label5.Top := 39;
     Label5.Width := 72;
     Label5.Height := 11;
     Label5.Caption := 'DeathTotal:';
     Label5.Font.Color := clWindowText;
     Label5.Font.Height := -11;
     Label5.Font.Name := 'Batang';
     Label5.Font.Style := [fsBold];
     Label5.ParentFont := False;
     Label6 := TLabel.Create(frmDesign);
     Label6.Parent := frmDesign;
     Label6.Left := 98;
     Label6.Top := 39;
     Label6.Width := 74;
     Label6.Height := 11;
     Label6.Caption := 'Cave Color:';
     Label6.Font.Color := clWindowText;
     Label6.Font.Height := -11;
     Label6.Font.Name := 'Batang';
     Label6.Font.Style := [fsBold];
     Label6.ParentFont := False;
     UsernameC := TEdit.Create(frmDesign);
     UsernameC.Parent := frmDesign;
     UsernameC.Left := 240;
     UsernameC.Top := 42;
     UsernameC.Width := 121;
     UsernameC.Height := 19;
     UsernameC.Font.Color := clWindowText;
     UsernameC.Font.Height := -11;
     UsernameC.Font.Name := 'Batang';
     UsernameC.Font.Style := [];
     UsernameC.ParentFont := False;
     UsernameC.TabOrder := 8;
     PasswordC := TEdit.Create(frmDesign);
     PasswordC.Parent := frmDesign;
     PasswordC.Left := 240;
     PasswordC.Top := 99;
     PasswordC.Width := 121;
     PasswordC.Height := 21;
     PasswordC.TabOrder := 9;
     Button1 := TButton.Create(frmDesign);
     Button1.Parent := frmDesign;
     Button1.OnClick := @SetupScript
      Button1.Left := 161;
     Button1.Top := 136;
     Button1.Width := 75;
     Button1.Height := 25;
     Button1.Caption := 'Start';
     Button1.TabOrder := 10;
     CheckBox1 := TCheckBox.Create(frmDesign);
     CheckBox1.Parent := frmDesign;
     CheckBox1.Left := 11;
     CheckBox1.Top := 99;
     CheckBox1.Width := 182;
     CheckBox1.Height := 17;
     CheckBox1.Caption := 'Logout after DeathTotal hits mark';
     CheckBox1.TabOrder := 11;
     DeathTotal := TEdit.Create(frmDesign);
     DeathTotal.Parent := frmDesign;
     DeathTotal.Left := 8;
     DeathTotal.Top := 57;
     DeathTotal.Width := 61;
     DeathTotal.Height := 21;
     DeathTotal.TabOrder := 12;
     DeathTotal.Text := '30';
     LoginBtn := TCheckBox.Create(frmDesign);
     LoginBtn.Parent := frmDesign;
     LoginBtn.Left := 11;
     LoginBtn.Top := 116;
     LoginBtn.Width := 221;
     LoginBtn.Height := 17;
     LoginBtn.Caption := 'Log back in after logged out for a while?';
     LoginBtn.TabOrder := 13;
     CaveCol := TEdit.Create(frmDesign);
     CaveCol.Parent := frmDesign;
     CaveCol.Left := 98;
     CaveCol.Top := 57;
     CaveCol.Width := 121;
     CaveCol.Height := 21;
     CaveCol.TabOrder := 14;
     CaveCol.Text := '9671841';
    end;

    procedure SafeInitForm;
    var
     v: TVariantArray;
    begin
     setarraylength(V, 0);
     ThreadSafeCall('LoadForm', v);
    end;

    procedure ShowFormModal;
    begin
     frmDesign.ShowModal;
    end;

    procedure SafeShowFormModal;
    var
     v: TVariantArray;
    begin
     setarraylength(V, 0);
     ThreadSafeCall('ShowFormModal', v);
    end;

    begin
     Writeln('Please wait - setting up SRL...');
     SetupSRL;
     Hello;
     SafeInitForm;
     SafeShowFormModal;
     DisguiseScar(MyScarName);
     ActivateClient;
     LoadCaveBmp;
     roundDone := true;
     Wait(500);
     SendKeys(' ' + chr(13));
     repeat
      stage := 0;
      if (FindBitmapSpiralTolerance(LoginScreen, x, y, 290, 234, 466, 256, 80)) then
      begin
       LogMeIn;
       Wait(200 + random(200));
       PointCamSouth;
       Wait(500 + random(500));
      end;
      if (FindColorSpiralTolerance(x, y, 1911990, 602, 29, 688, 121, 50) and (roundDone = true)) then
      begin
       Writeln('Found mini-game icon - we are not in cave!');
       EnterCave;
      end;
      if (stage = 1) then
      begin
       WaitCave;
      end;
      if (stage = 2) then
      begin
       roundDone := true;
       SrlRandomsReport;
      end;
     until (false)
    end.

    Download On-Demand

    If you need any help with the script or find and bugs/errors, then please contact me via email at: dizzycoders@yahoo.com

    Thank you and have fun cheating,
    ~Dizzy

  2. #2
    Join Date
    Sep 2006
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Could you put it in scar tags also? Downloading is a pain in the ass.

    Btw, I don't think Beta and Is Release should be checked at the same time; its one or the other, rite?

  3. #3
    Join Date
    Aug 2006
    Location
    Earth
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by xxlegitxx View Post
    Could you put it in scar tags also? Downloading is a pain in the ass.

    Btw, I don't think Beta and Is Release should be checked at the same time; its one or the other, rite?

    haha, silly me, ok I'll do that. Yes, I do think Beta and Release shouldn't be together, I just wanted to get this posted ASAP. I'll fix it, lol.

    Edit: I've also formatted the script so it looks a little more nice then just lines going straight down.

  4. #4
    Join Date
    Sep 2006
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol dude, have you ever gotten a random in Fight Caves? There are no randoms in minigames.

    And there is a login procedure in SRL, no need to make your own.

    http://www.villu-reborn.com/showpost...6&postcount=23 for what to put.

    No need to put waits after Mouse, they are included. It looks rather fishy.

    Put the variables on the line after the word var, not inline with it.

    I would suggest you use PerfectNorth before you find bitmaps, so you can lower the findbitmap tolerance.

    Otherwise, its looking good. Keep it up.

  5. #5
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    great job! keep it up!

    EDIT: or maybe not:
    Line 74: [Error] (17735:24): String error in script
    Line 74: [Error] (17735:24): Semicolon (';') expected in script
    Just look at that line, i've got it working

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

    Default

    does thi script work barbarain fight caves ? or where this script is meaned for ?

  7. #7
    Join Date
    Sep 2006
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Are you retarded? There are no barbarian fight caves.

  8. #8
    Join Date
    Nov 2006
    Location
    Canada, Montreal.
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol omg ppl relax

    he is just noob
    we all were noobs

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

    Default

    Its an old thread dude, no need to bump it

  10. #10
    Join Date
    Jan 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ...LOL>>???
    ---Whats barb fight cave... The one where u get fightin boots!!!

  11. #11
    Join Date
    Sep 2006
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Uh...not even close. It's called the Stronghold of Security. But nice try.

  12. #12
    Join Date
    Jan 2007
    Location
    US
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Is it really that hard to type properly?

    Quote Originally Posted by matuke View Post
    does thi script work barbarain fight caves ? or where this script is meaned for ?
    You would probably get better responses if you typed "somewhat" correctly.

  13. #13
    Join Date
    Jan 2007
    Posts
    90
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    there is an error in line 74, i think i fixed it... just make it

    MyScarName = 'Mozilla Firefox';

    delete the line after it, it should work then... it does for me...

  14. #14
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    yeah call me noob wateva but where this meant for
    sorry i must be going blind dont answer this question

  15. #15
    Join Date
    Mar 2007
    Posts
    562
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its meant for the fight cave machine.


    haxor

  16. #16
    Join Date
    Dec 2006
    Location
    chicago
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this script works great for me

  17. #17
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    Quote Originally Posted by lightningspark View Post
    this script works great for me
    umm for some reason i disagree lol your a year out when srl revs werent here sorry spammer

    T ~ M

  18. #18
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    People, people! This is over a year old! 01-16-2007

    Just close this, and use my caver.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  19. #19
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    Closed.
    Hup Holland Hup!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Fight caves
    By Kave in forum RuneScape News and General
    Replies: 1
    Last Post: 12-06-2008, 03:38 PM
  2. Fight Caves AFK trainer edited by Moparisthebest
    By wuzbob in forum RS3 Outdated / Broken Scripts
    Replies: 27
    Last Post: 07-23-2007, 05:44 AM
  3. fight caves?
    By RudeBoiAlex in forum RS3 Outdated / Broken Scripts
    Replies: 24
    Last Post: 06-26-2007, 03:33 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
  •