|
|
Post by Experience on Sept 9, 2016 22:28:56 GMT
//Author: Experience
//Title: Recalling Miner
//Description: Recalling Miner. Must have a 1 Pickaxe or ingots.
//You will need a book with the default rune marked right next to your storage.
//Stand South of each Spot you want to mine
//All Books must have 16 runes to run properly!!
//Be sure to stock Regs before playing!
removelist 'Runes'
removelist 'OreBook'
@clearjournal
headmsg "Reminder: Have your regs stocked..."
pause 200
headmsg 'About 100 of each recall reg...'
if not @findalias 'Ore Storage'
promptalias 'Ore Storage'
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 'HomeOre'
promptalias 'HomeOre'
endif
if not listexists 'OreBook'
createlist 'OreBook'
endif
if list 'OreBook' == 0
pushlist 'OreBook' 'Ore1'
pushlist 'OreBook' 'Ore2'
pushlist 'OreBook' 'Ore3'
endif
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
if not listexists 'Runes'
createlist 'Runes'
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
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'
//use Pick to northern tile until specified weight is reached
pause 300
while not hidden 'self'
useskill 'hiding'
pause 5000
endwhile
usetype '0xe86' '0' 'backpack' 'any' '2'
waitfortarget 1000
targettileoffset 0 -1 0
pause 800
if @injournal "You can't mine there." "system"
headmsg 'Bad Rune'
@clearjournal
poplist 'Runes' 'front'
break
endif
// once weight is reached go home, if getting overweight, lower it
if weight > '325'
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
endwhile
//recall back to where you were
if mana < 25
headmsg 'Need mana'
useskill 'meditation'
while mana < 40
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
if mana < 25
headmsg 'Need mana'
useskill 'meditation'
while mana < 40
endwhile
endif
cast 'recall'
autotargetobject 'HomeOre'
pause 4000
poplist 'OreBook' 'front'
|
|
