Page 1 of 3 123 LastLast
Results 1 to 25 of 53

Thread: yEssenceMiner

  1. #1
    Join Date
    Feb 2009
    Posts
    484
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default yEssenceMiner

    Outdated. Will update later.
    Last edited by Yanhua; 01-21-2012 at 01:29 AM.

  2. #2
    Join Date
    Dec 2006
    Posts
    908
    Mentioned
    1 Post(s)
    Quoted
    17 Post(s)

    Default

    SCAR Code:
    Function FindOre:Boolean;
    Var
    X, Y:Integer;
    Begin
    SetAngle(False);
    If Not Invfull Then Begin
    MakeCompass('40');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('80');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('120');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('160');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('200');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('240');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('280');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('320');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('360');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    end;


    Function ClickPortal:Boolean;
    Var
    X, Y:Integer;
    Begin
    ClickNorth(False);
    SetAngle(True);
    Wait(500+randomrange(100,300));
    If FindObjEx(X, Y, ['ortal'], [12819148, 10734506, 11189143, 12299464, 10919621, 11657914, 13084604, 14015418, 12561875, 12313033, 13150376, 13290913, 13681613, 10790856, 15255248, 12161715, 15253946, 12168648], 8, 50, 130, 60, 402, 278) Then
    begin
    MMouse(X, Y, 3, 3);
    Mouse(X, Y, 0, 0, True);
    Wait(2000+randomrange(50,100));
    Result := True;
    End

    End;

    Now this is just silly. Go to the beginner tutorials and look up repeat functions. These will shorten your code by a lot.

  3. #3
    Join Date
    Feb 2009
    Posts
    484
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Deathscytex View Post
    SCAR Code:
    Function FindOre:Boolean;
    Var
    X, Y:Integer;
    Begin
    SetAngle(False);
    If Not Invfull Then Begin
    MakeCompass('40');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('80');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('120');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('160');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('200');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('240');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('280');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('320');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    If Not Invfull Then Begin
    MakeCompass('360');
    If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
    Begin
    writeln('Found ore!')
    Result := True;
    MMouse(X, Y, 3, 3);
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, False);
    Wait(500+randomrange(200,300));
    If ChooseOption('Mine Rune Essence') Then
    Result := True;
    while (Not InvFull)
    Do
    wait(100+randomrange(50,70));
    end;
    Wait(500+randomrange(200,500));
    end;

    end;


    Function ClickPortal:Boolean;
    Var
    X, Y:Integer;
    Begin
    ClickNorth(False);
    SetAngle(True);
    Wait(500+randomrange(100,300));
    If FindObjEx(X, Y, ['ortal'], [12819148, 10734506, 11189143, 12299464, 10919621, 11657914, 13084604, 14015418, 12561875, 12313033, 13150376, 13290913, 13681613, 10790856, 15255248, 12161715, 15253946, 12168648], 8, 50, 130, 60, 402, 278) Then
    begin
    MMouse(X, Y, 3, 3);
    Mouse(X, Y, 0, 0, True);
    Wait(2000+randomrange(50,100));
    Result := True;
    End

    End;

    Now this is just silly. Go to the beginner tutorials and look up repeat functions. These will shorten your code by a lot.
    I'll fix that up later.

    It shouldn't affect the functionality of the script though, so I don't see why it would matter so much.

  4. #4
    Join Date
    Nov 2011
    Posts
    1,532
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    coding style matters as long as someone wishes to understand/use/modify your script later :P

  5. #5
    Join Date
    Dec 2011
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its getting stuck at trying to find portals
    edit it only happens like 1 out of 10
    good job though i couldn't do something like this
    Last edited by nickivey; 12-21-2011 at 04:45 PM.

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

    Default

    Quote Originally Posted by nickivey View Post
    its getting stuck at trying to find portals
    edit it only happens like 1 out of 10
    good job though i couldn't do something like this
    The same exact thing is happening to me also.

  7. #7
    Join Date
    Nov 2011
    Posts
    83
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    sweet about to test! i made a request on this a couple days ago so im excited

  8. #8
    Join Date
    Dec 2011
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it won't let me go were the essence is (Teleport won't work)

  9. #9
    Join Date
    Feb 2009
    Posts
    484
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by getlikem3 View Post
    The same exact thing is happening to me also.
    This is quite hard as the portal colours are constantly changing. I'll see what I can do though.

  10. #10
    Join Date
    Feb 2009
    Posts
    484
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Magicman2k22 View Post
    it won't let me go were the essence is (Teleport won't work)
    What do you mean? Does it fail to go through the door?

  11. #11
    Join Date
    Aug 2007
    Location
    Marijuanaville USA
    Posts
    195
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice job dude I have been waiting around for an ess miner for like 2 months lol. Great work I was unaware of the changing portal colors but I'm sure you'll tackle it. I plan to use this once you get it fixed so if there is any sort of testing or determining all of the different colors of portals let me know what to do and I can gather what you need.
    Click here for my step by step picture guide to setting up MSI! http://villavu.com/forum/showthread....945#post859945

  12. #12
    Join Date
    Feb 2009
    Posts
    484
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by omegaangelz View Post
    nice job dude I have been waiting around for an ess miner for like 2 months lol. Great work I was unaware of the changing portal colors but I'm sure you'll tackle it. I plan to use this once you get it fixed so if there is any sort of testing or determining all of the different colors of portals let me know what to do and I can gather what you need.
    Thanks for your support. Yes, I did write this script in less than a day so it is very buggy.

    I will, most certainly work on the portal finding whenever I can.

  13. #13
    Join Date
    Dec 2011
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] (664:1): Closing parenthesis expected at line 663
    Compiling failed.

  14. #14
    Join Date
    Feb 2009
    Posts
    484
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by ordeath View Post
    [Error] (664:1): Closing parenthesis expected at line 663
    Compiling failed.
    Fixing that now. Will update OP.

    EDIT: Updated. Complies fine now.

  15. #15
    Join Date
    Dec 2011
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Yanhua View Post
    Fixing that now. Will update OP.

    EDIT: Updated. Complies fine now.
    thx

  16. #16
    Join Date
    Dec 2011
    Location
    Texas
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank you so much for the update maybe I will start gold farming for my main with this!

  17. #17
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by BigMaczRGood View Post
    Thank you so much for the update maybe I will start gold farming for my main with this!
    .....Please use your words wisely here. We do not support gold-farming. We are perfectly fine with people botting or doing whatever, but "GoldFarming" is taboo.

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  18. #18
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by PatDuffy View Post
    .....Please use your words wisely here. We do not support gold-farming. We are perfectly fine with people botting or doing whatever, but "GoldFarming" is taboo.
    I think he meant that he was going to make an army and dump all the gold on his main, not making a Chinese person sit in a basement and make accounts/bot then sell for cash

    Edit: As for the script:

    Yanhua I don't know why but I like you, and I want to help you get where you want to be. That's going to take a bit of patience on your part though, you seem a bit too eager to use random knowledge instead of collecting it for a purpose.

    By this I mean, after suggesting you learn TPA's/ACA/Autocoloring you went out and did that but in a very primitive sense. To be honest it is hard to tell if you understand it or you just found it worked thanks to the ACA. With 90% of your code you could shorten it into <50 lines. By that I mean all your autocolor functions could simply be,

    Simba Code:
    function AutoColorFunc(Color, Tol: Integer): Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(1);

      FindColorsSpiralTolerance(MSCX, MSCY, arP, Color, MSX1, MSY1, MSX2, MSY2, Tol);
      if (Length(arP) = 0) then
      begin
        Writeln('Failed to find the color, no result.');
        ColorToleranceSpeed(tmpCTS);
        Exit;
      end;

      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);

      for i := 0 to arL do
      begin
        Result := arC[i];
        Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;

      ColorToleranceSpeed(tmpCTS);

      if (i = arL + 1) then
        Writeln('AutoColor failed in finding the color.');
    end;

    and simply fill in the color/tol you got from ACA. Secondly, I would advise using ACA as a standard point of reference, but not to simply copy and paste the code. You can look through many tutorials and scripts that autocolor in different ways, and by combining the knowledge you learn from each of these you will be able to make your own. Aside from that you've kept improving and I like the script. If you ever have questions, feel free to ask me.
    Last edited by Blumblebee; 12-24-2011 at 08:05 PM.
    “Ignorance, the root and the stem of every evil.”

  19. #19
    Join Date
    Dec 2011
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Wont open for me. Idk why other scripts work fine. Keep getting this:

    Compiled successfully in 951 ms.
    SRL Compiled in 16 msec
    It has been 3 minutes and Runescape is not yet ready... Terminating.
    Make sure your settings are set to fixed screen
    Successfully executed.

  20. #20
    Join Date
    Dec 2011
    Location
    Los Angeles, California
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can you include stats?

  21. #21
    Join Date
    Dec 2011
    Location
    Alturas, Ca
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ya, i am having the same problem as Elitezer0. it compiles correctly and then after about 3 minutes i get the same message.

  22. #22
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Quote Originally Posted by Elitezer0 View Post
    Wont open for me. Idk why other scripts work fine. Keep getting this:

    Compiled successfully in 951 ms.
    SRL Compiled in 16 msec
    It has been 3 minutes and Runescape is not yet ready... Terminating.
    Make sure your settings are set to fixed screen
    Successfully executed.
    Sigh... Please read what the debug says, your graphic settings are incorrect.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  23. #23
    Join Date
    Dec 2011
    Location
    Alturas, Ca
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what do you mean debug

  24. #24
    Join Date
    Jan 2010
    Posts
    1,414
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    The white box below where the code is.

    Quote Originally Posted by Firefighter_Emt18 View Post
    what do you mean debug

  25. #25
    Join Date
    Dec 2011
    Location
    Alturas, Ca
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    k ya but when i run it it doesn't even load the smart screen. and on my other computer it doeskin load it at all either but instead starts taking over the screen and try's to do everything without the window loaded

Page 1 of 3 123 LastLast

Thread Information

Users Browsing this Thread

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

Posting Permissions

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