Results 1 to 16 of 16

Thread: mining help

  1. #1
    Join Date
    Jan 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default mining help

    Hi im currently working on a mining script for gem rocks to try and become a srl member and im trying to figure out the best way to have it detect you are mining if anyone could help any it would mean a lot thank u

  2. #2
    Join Date
    Jun 2007
    Posts
    532
    Mentioned
    1 Post(s)
    Quoted
    68 Post(s)

    Default

    pixelshift would be a good way, srl also build in animation detection.
    Finished B.S. Program in Radiology!!

    Projects: A big one! Total secret! hehe

  3. #3
    Join Date
    Jan 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    do u know where a tut on how to use pixelshift is im trying to learn and im having trouble doing so

  4. #4
    Join Date
    Feb 2012
    Location
    Somewhere, over the rainbow...
    Posts
    2,272
    Mentioned
    3 Post(s)
    Quoted
    45 Post(s)

    Default

    Quote Originally Posted by dc686 View Post
    do u know where a tut on how to use pixelshift is im trying to learn and im having trouble doing so
    I know using the Search Button can help at times:

    http://villavu.com/forum/search.php?searchid=2028161

  5. #5
    Join Date
    Jan 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    used it and couldnt find a tut on pixel shifting

  6. #6
    Join Date
    Jun 2007
    Posts
    532
    Mentioned
    1 Post(s)
    Quoted
    68 Post(s)

    Default

    Check beginner tuts, flight have a tut in there on that.
    Finished B.S. Program in Radiology!!

    Projects: A big one! Total secret! hehe

  7. #7
    Join Date
    Jan 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thank u

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

    Default

    XP gain + inventory change + timeout. Will not be perfect but quite to the point.
    Current activity: Recovering from vacation
    - Nulla pars vitae vacare officio potest -
    SRL membership? Can I buy that?
    Scripts - AGS - SWF - WAR - EMS - W100S-EM
    If you need scripting help, you can pm me. Remember, if you need help you have to ask for it properly though

  9. #9
    Join Date
    Apr 2012
    Location
    Australia
    Posts
    1,252
    Mentioned
    1 Post(s)
    Quoted
    22 Post(s)

    Default

    This will check for shifting pixels right near the centre of the screen, its part of what i am using along with the points Er1k mentioned for my coal miner. It's just a really simple edit of the 'IsMoving' function in the SRL include -
    Simba Code:
    function IsMining: Boolean;
    begin
      Result := PixelShift(IntToBox(MSCX-30, MSCY-30, MSCX+30, MSCY+30), 500) > 200;
    end;

    Then in my mining procedure it has -
    Simba Code:
    While IsMining do
        Wait(RandomRange(500,1000));

    working quite effectively so far.

  10. #10
    Join Date
    Feb 2012
    Location
    Somewhere, over the rainbow...
    Posts
    2,272
    Mentioned
    3 Post(s)
    Quoted
    45 Post(s)

    Default

    Quote Originally Posted by dc686 View Post
    used it and couldnt find a tut on pixel shifting
    You do realise the link I posted was to the tutorial on Pixelshift right?

  11. #11
    Join Date
    Jan 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    umm when i clicked it it said not found and right now im having problems even getting my script to free the dtms and place gems in the bag i figured id tackel that first and cant get it to work

    Simba Code:
    program new;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    {$i sps/sps.simba}
    var
    GemBag:integer;
    Sapphire:integer;
    x,y,x1,y2:integer;
    procedure freed;
    begin
      GemBag := DTMFromString('mrAAAAHic42BgYJjGxMAwGYhnA/ECJgi/F4j7gHgeEBswMjBoArEiEBsDsRUQmwKxLhBbAnHb7GlAU5jwYNyAH4gZCWAYAABW6Qgy');
      sapphire := DTMFromString('mwQAAAHic42RgYMhnYmBIAuISIE4D4iIgzgHiFKhYNhA/B6q7B8TvgfgtED+A8p8A8QsgfgfEfAIpDCLifQzcvMEM/EI5DDz80Qy8/MkMwuI9DNw8AWAxYgAjERgOANqzENw=');
      end;
      procedure freeddtmz;
    begin
      FreeDtm(GemBag);
      FreeDTM(sapphire);
    end;
    procedure DeclarePlayers;
      begin
        HowManyPlayers := 1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;

      with Players[0] do
      begin
        Name := ''; // Username
        Pass := ''; // Password
        Pin := ''; // Pin
        Active := True; // Set to true if you want to use Player 0
        BoxRewards  := ['XP','xp','lamp'];
        LampSkill   := Skill_Mining;
      end;
    end;

    procedure BagGem;
    var
      x, y : Integer;
    begin
    if FindDTM(GemBag, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
    Writeln('Hello world!')
      if FindDTm(sapphire,x,y,MIX1,MIY1,MIX2,MIY2) then
       Mouse(x, y, 0, 0, False);//Remeber that "False" means it will right click.
          if ChooseOption('use') then
     if FindDTM(GemBag, x, y, MIX1, MIY1, MIX2, MIY2) then
      Mouse(x,y,0,0 ,true);
      end;
      end;



    begin
     Smart_Server := 86;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL();
      ClearDebug();
      DeclarePlayers();

      if not LoggedIn  then
      begin
      LoginPlayer();
       end;
      if LoggedIn then
      begin
           freed;
      freeddtmz;

       BagGem;
      ClickNorth(SRL_ANGLE_HIGH);
       BagGem;
      end;
    end.


    thats what i have so far if someone has skype that would help me please pm me your skype im really trying to learn and could use a little guidance
    Last edited by dc686; 05-14-2012 at 05:03 AM.

  12. #12
    Join Date
    Apr 2012
    Location
    Australia
    Posts
    1,252
    Mentioned
    1 Post(s)
    Quoted
    22 Post(s)

    Default

    take down your post with the simba script in it, you didnt remove your username and pass

  13. #13
    Join Date
    Jan 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    opps thanks bro at least i have a pin that wasnt there :P

  14. #14
    Join Date
    Feb 2012
    Location
    Somewhere, over the rainbow...
    Posts
    2,272
    Mentioned
    3 Post(s)
    Quoted
    45 Post(s)

    Default

    Firstly, your 'freed' procedure should be called 'load', as your not freeing anything.

    Secondly, you want to free your DTM's after doing what you want to do not before, it should be in this order:
    Simba Code:
    freed; //rename to Load
      BagGem;
      ClickNorth(SRL_ANGLE_HIGH);
      BagGem;
      freeddtmz;

  15. #15
    Join Date
    Jan 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    if anyone has a gem bag and sapphire could u try this script out and see if you can get it to work i cant get it to do anything and idk why even with the freeing dtm correctly now its still not placing the gem in the bag which means it is not finding the bag dtm because its also not doing the writeln unless if i messed something else up
    Last edited by dc686; 05-14-2012 at 05:47 AM.

  16. #16
    Join Date
    Jan 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    got it to bag the sapphire had to remake my dtms i messed them up the first time and after reading a few more tuts i figured out my problem was finding the dtms

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
  •