Results 1 to 9 of 9

Thread: It alches the seed?!

  1. #1
    Join Date
    Nov 2011
    Location
    Netherlands
    Posts
    156
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default It alches the seed?!

    Hello!
    I working on my DungFarmer.
    I have a question.

    It cleans herbs correcly,
    Then alch them
    Repeat until no herbs found
    But then!
    It need clicks the high alch for the last time and then it see it dont have any herbs left, so it click the seed to use on farm.
    But instead of clicking the seed and put in patch, it alch the seed!

    How can i make it so it will click the seed correcly instead of alching it??

    Procedure:

    Simba Code:
    Procedure HighAlchItem;
    Begin
     HighAlchDTM := DTMFromString('mggAAAHicY2NgYHBmYmDwBGJ/IA4C4lAoO4ERguOAOBGIo6H0xV0SYPzqdghDfzkrQ+Kp7wzrpvAysALNwoYZcWAIAABJeA4k');
           GameTab(Tab_Magic);
           wait(randomrange(400,500));
     if FindDTM(HighAlchDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
      Begin
           GameTab(Tab_Magic);
           wait(randomrange(100,150));

                MMouse(X, Y + 3, 0, 0);
                   If WaitUptextMulti(['High', 'Alchemy'], 500) Then
                Begin

                Writeln ('Found High Alch spell')
                  ClickMouse2(true);

            wait(randomrange(150,200));



                   end;
                 end;
               end;

    The seed procedure:

    Simba Code:
    Procedure ClickMagebane;
    Begin
    MagebaneDTM := DTMFromString('mQwAAAHicY2ZgYHBnZmBwBmIXII5gZGCIBOJQIC7LqmLorZvE0FXdz8AKVAfDjEgYCAD+RgaB');
      GameTab(Tab_Inv);
      if FindDTM(MagebaneDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
      Begin
           wait(randomrange(500,600));
        MMouse(X, Y + 3, 0, 0);
          wait(randomrange(350,400));
          ClickMouse2(true);
            Writeln ('Found seed, Time to farm!')

          wait(randomrange(300, 350));

            FreeDTM(MagebaneDTM);
        end;
          end;

    Loop:

    Simba Code:
    repeat
           HighAlchItem;
           wait(randomrange(400,500));
            AlchingTheHerbs;
             GameTab(Tab_Inv);

    until (not FindDTM(CleanHerbDTM, x, y, MIX1, MIY1, MIX2, MIY2));
    FreeDTM(HighAlchDTM);
    FreeDTM(CleanHerbDTM);
     AntiBan;
     GameTab(Tab_Inv);
    Last edited by bas; 04-29-2012 at 06:38 PM.
    I was away for a long time, but i'm back!

  2. #2
    Join Date
    Feb 2012
    Location
    SRL Jail
    Posts
    1,319
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You don't have your seeds stuff in here

  3. #3
    Join Date
    Nov 2011
    Location
    Netherlands
    Posts
    156
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by JOEbot View Post
    You don't have your seeds stuff in here
    What do you mean?
    EDIT: added seed procedure
    Last edited by bas; 04-29-2012 at 06:38 PM.
    I was away for a long time, but i'm back!

  4. #4
    Join Date
    Jun 2011
    Location
    Anywhere that has WIFI
    Posts
    669
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You could have it right click the seed and find the 'use' then continue using that.

  5. #5
    Join Date
    Feb 2012
    Location
    SRL Jail
    Posts
    1,319
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simba Code:
    Procedure HighAlchItem;
    Begin
     HighAlchDTM := DTMFromString('mggAAAHicY2NgYHBmYmDwBGJ/IA4C4lAoO4ERguOAOBGIo6H0xV0SYPzqdghDfzkrQ+Kp7wzrpvAysALNwoYZcWAIAABJeA4k');
           GameTab(Tab_Magic);
           wait(randomrange(400,500));
     if FindDTM(HighAlchDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
      Begin
           GameTab(Tab_Magic);
           wait(randomrange(100,150));

                MMouse(X, Y + 3, 0, 0);
                   If WaitUptextMulti(['High', 'Alchemy'], 500) Then
                Begin

                Writeln ('Found High Alch spell')
                  ClickMouse2(true);

            wait(randomrange(150,200));



                   end;
                 end;
    Gametab(Tab_inv); // This will cancel the alchemy spell if its still clicked on
               end;

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

    Default

    Quote Originally Posted by Jokester View Post
    You could have it right click the seed and find the 'use' then continue using that.
    Great! i forget about that.
    Thanks, will try

    Edit:

    I tried:

    Wait(RandomRange(200,300));
    ChooseOptionMulti(['Use']);

    It dont seems to work. Am i using the correct Option??
    Last edited by bas; 04-29-2012 at 06:47 PM.
    I was away for a long time, but i'm back!

  7. #7
    Join Date
    Nov 2011
    Location
    Netherlands
    Posts
    156
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by JOEbot View Post
    Simba Code:
    Procedure HighAlchItem;
    Begin
     HighAlchDTM := DTMFromString('mggAAAHicY2NgYHBmYmDwBGJ/IA4C4lAoO4ERguOAOBGIo6H0xV0SYPzqdghDfzkrQ+Kp7wzrpvAysALNwoYZcWAIAABJeA4k');
           GameTab(Tab_Magic);
           wait(randomrange(400,500));
     if FindDTM(HighAlchDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
      Begin
           GameTab(Tab_Magic);
           wait(randomrange(100,150));

                MMouse(X, Y + 3, 0, 0);
                   If WaitUptextMulti(['High', 'Alchemy'], 500) Then
                Begin

                Writeln ('Found High Alch spell')
                  ClickMouse2(true);

            wait(randomrange(150,200));



                   end;
                 end;
    Gametab(Tab_inv); // This will cancel the alchemy spell if its still clicked on
               end;
    Ok thanks, will try that since the right click mutli "Use" wont work for me. Guess i did it wrong :P

    Edit: Dont work, still alches. guess i gotta use the right click.
    Was i right on that how to use correcly?? (other post)

    Fixed
    Last edited by bas; 04-29-2012 at 07:39 PM.
    I was away for a long time, but i'm back!

  8. #8
    Join Date
    Dec 2011
    Location
    The Netherlands
    Posts
    1,631
    Mentioned
    47 Post(s)
    Quoted
    254 Post(s)

    Default

    Simba Code:
    WaitOptionMulti(['se ', 'Use'], 250);
    Waits a maximum of 250 ms for the option Use to appear.

    Basicly merges the Wait and ChooseOption.

    You can make sure that it chooses the option, and otherwise you can use a failsafe.
    Simba Code:
    begin
      WriteLn('We are trying to choose the option "Use"');
      if WaitOptionMulti(['se ', 'Use'], 250) then
        begin
          *blablabla*
        end else
        begin
          *failsafehere*
        end;
    end;

    Script source code available here: Github

  9. #9
    Join Date
    Jun 2011
    Location
    Anywhere that has WIFI
    Posts
    669
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Make sure nothing else has "se" in it when you right click or it will most likely screw up.

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
  •