(Mining) Recall Miner(Supports Ground/Mountain/Rocks) (Beta)

[Experience]

//Author: Experience

//Title: Recalling Miner

//Description: Recalling Miner. Must have a 1 Pickaxe or ingots.

////////////////////////////////////////////////////////////////////////////

//READ THIS!!!!!!/////////////////////////////////////////////////////////

//You will need a book with the default rune marked right next to your storage.

//All Books must have 16 runes to run properly!!

//Be sure to stock Regs before playing! About 100 each recall

//Floor/Mound Runes Must be marked 1 Tile South

//Mountain Runes Must be marked 1 tile West

//Rock Runes Must be marked 1 tile North

//////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////

//Setup

removelist 'Runes'

removelist 'OreBook'

@clearjournal

if not listexists 'Runes'

 createlist 'Runes'

endif

if not listexists 'OreBook'

 createlist 'OreBook'

endif

if not @findalias 'Ore Storage'

 promptalias 'Ore Storage'

endif

if not @findobject 'Home Ore'

 promptalias 'Home Ore'

endif

if not @findobject 'Ore1'

 promptalias 'Ore1'

endif

if not @findobject 'Ore2'

 promptalias 'Ore2'

endif

if not @findobject 'Ore3'

 promptalias 'Ore3'

endif

if not @findobject 'Ore4'

 promptalias 'Ore4'

endif

//Lists

if list 'OreBook' == 0

 pushlist 'OreBook' 'Ore1'

 pushlist 'OreBook' 'Ore2'

 pushlist 'OreBook' 'Ore3'

 pushlist 'OreBook' 'Ore4'

 //If you add more/less books. Add/Remove the findalias to corresponding book

endif

if list 'Runes' == 0

 pushlist 'Runes' 5

 pushlist 'Runes' 11

 pushlist 'Runes' 17

 pushlist 'Runes' 23

 pushlist 'Runes' 29

 pushlist 'Runes' 35

 pushlist 'Runes' 41

 pushlist 'Runes' 47

 pushlist 'Runes' 53

 pushlist 'Runes' 59

 pushlist 'Runes' 65

 pushlist 'Runes' 71

 pushlist 'Runes' 77

 pushlist 'Runes' 83

 pushlist 'Runes' 89

 pushlist 'Runes' 95

endif

//Check for Tools

if @findtype '0xe86' '0' 'backpack' 'any' '2'

 headmsg 'Pick found. Ready!'

elseif @findtype '0x1bf2' '0' 'backpack' 'any' '2' and skill 'tinkering' > 80

 headmsg 'resorting to Tinkering....'

 @usetype '0x1eb8' '0' 'backpack' 'any' '2'

 waitforgump 0x38920abd 15000

 replygump 0x38920abd 8

 waitforgump 0x38920abd 15000

 replygump 0x38920abd 114

 waitforgump 0x38920abd 15000

 replygump 0x38920abd 114

else

 headmsg 'No way to mine found...'

 stop

endif

//Mining

for 0 to 'OreBook'

 for 0 to 'Runes'

   pause 500

   while mana < 40

   endwhile

   @clearjournal

   pause 500

   useobject OreBook[]

   waitforgump 0x554b87f3 5000

   replygump 0x554b87f3 Runes[]

   pause 4000

   if injournal 'blocked' 'system'

     @clearjournal

     replay

   endif

   while not @injournal 'There is no metal here to mine' 'system'

if skill 'hiding' > '25'

while not hidden 'self'

useskill 'hiding'

pause 11000

endwhile

endif

     //use Pick until specified weight is reached

     pause 300

     //Mining Ground

     usetype '0xe86' '0' 'backpack' 'any' '2'

     waitfortarget 1000

     targettileoffset 0 -1 0

     pause 800

     //Mining Mtn

     usetype '0xe86' '0' 'backpack' 'any' '2'

     waitfortarget 1000

     targettileoffset 1 0 1

     pause 800

     //Mining Stones

     usetype '0xe86' '0' 'backpack' 'any' '2'

     waitfortarget 1000

     targettileoffset 0 1 =1

     pause 800

     // once weight is reached go home, if getting overweight, lower it

     if weight > '310'

       cast 'recall'

       autotargetobject 'HomeOre'

       pause 4000

       //put up Ore

       while @findtype '0x19b9' 'any' 'backpack' 'any' '2'

         moveitem 'found' 'Ore Storage'

         pause 800

       endwhile

       while mana < 40

         pause 500

       endwhile

       //recall back to where you were

       if mana < 25

         headmsg 'Need mana'

         useskill 'meditation'

         while mana < 40

           pause 500

         endwhile

       endif

       useobject OreBook[]

       waitforgump 0x554b87f3 5000

       replygump 0x554b87f3 Runes[]

       pause 2000

     endif

     if not @findtype '0xe86' '0' 'backpack' 'any' '2'

       headmsg 'Out of picks'

       replay

     endif

   endwhile

   if mana < 25

     headmsg 'Need mana'

     useskill 'meditation'

     while mana < 40

     endwhile

   endif

 endfor

 poplist 'Runes' 'front'

endfor

//recall home so Ore container is found

pause 1000

poplist 'OreBook' 'front'



[Hate]

I cannot get this macro to return to the storage location

[Experience]

Do you have a book marked with the location set as the default rune?

[Help please]

How about , replygump: gump id not found.
injournal: text not found

any suggestions would be appreciated
set books container it then opens runebook and errors

[Experience]

Feb 5, 2017 4:47:21 GMT Help please said:

How about , replygump: gump id not found.
injournal: text not found

any suggestions would be appreciated
set books container it then opens runebook and errors

runebook gump may be different on your server

[nustoor]

first thank you Mr. Experience for this great script. it helps alot.
but here is the thing, my character does not have very high Magery due to the skill cap, let's say 61%.
so when I do the Recall to mine or to the bank, occasionally it'll fail -> "the spell fizzles". then I added code just right after the actions:

if injournal 'The spell fizzles' 'Nus'
     @clearjournal
     replay
   endif

but that will replay the macro all over, as the replay means to.
so my question is, can we just simply make it re-cast the spell when it fail instead of "replay" the whole macro?
thank you again, and hope you could see this.

Nus

[Experience]

That might be tough depending on other things

[nustoor]

May 11, 2017 18:19:15 GMT Experience said:

That might be tough depending on other things

good to see you still around here

finally, I just put a one time re-cast to "solve" this, lol
   useobject OreBook[]
   waitforgump 0x59 5000
   replygump 0x59 Runes[]
   pause 3000
   if injournal 'The spell fizzles' 'Nus'
     @clearjournal
     useobject OreBook[]
     waitforgump 0x59 5000
     replygump 0x59 Runes[]
     pause 3000
   endif

it's not perfect but it works, I had 62.9 Magery, and seems never fails twice.

but I'm still wondering if "WHILE / ENDWHILE" could solve this?

[Ahmanett]

i cant get this macro to work i got a Ore book and my storeare book .. when i se up the storage then its ask for ore1 ore2 ore3 ore4 what is that i try target yht ore book was not that i try 4 driffent ores was not that as well .. and when i set eveythink up and its say fund pickaxe rdy then the macro just stop no error or anythink what am i supose to do to make it work ?

[guest]

if weight > '310'

cast 'recall'

autotargetobject 'HomeOre'

You can't cast recall on the runebook, mark a rune next to your storage and select that instead. You have to remove the current 'HomeOre' Active Object and once you run the macro again, you will be asked to select the Home Ore again, target the rune in your backpack then.

[dyer]

this also happens to me says pick found ready and nothing happens

[pillsbury]

is there any way to make this drop off stone also aka high quality granite