[UOSteam] Alamiester's Easy OreGranite Miner v0.3u
Posted: Wed Dec 27, 2017 11:14 am
Code: Select all
//***************************************************************************//
// [UOSteam] Alamiesters's Easy OreGranite Miner v0.3u
// 22JULY2018
// Originaly from Fixxer's Relative Location Harvester v1.03
// You need a high use shovel, a mobile forge, metal keys, and
// stone keys. You may or may not need 120 mining for
// these pause times to work. Smelts and loads the keys
// REALLY fast.
//***************************************************************************//
//
//***********************
// For selecting your mobile forge.
//***********************
//
if not findalias 'Forge'
headmsg 'Select a Mobile Forge'
promptalias 'Forge'
endif
//
//***********************
// To start the digging.
//***********************
@clearjournal
msg 'Hi Ho, Hi Ho, Off to work we go!' 15
@clearjournal
//***********//
//Position 00//
//***********//
headmsg 'Checking for ore...' 24
//Will dig unless wieght is below 350 otherwise will clear pack of ore,ingots,and granite.
while not @injournal 'There is no'
if @injournal 'mine that' or @injournal 'target cannot be seen.'
break
endif
if @injournal 'mine there' or @injournal 'no metal here'
break
endif
if weight <= '350'
@usetype! '0xf39' '0' 'Backpack' '2'
waitfortarget 500
targettileoffset 0 0 0
pause 1000
else
//===========================================================
//=---------Opens Granite Keys and adds all Granite---------=
//===========================================================
if not @findtype! '0x176b' '1161' 'backpack'
sysmsg '*****No Granite Keys found.*****' '255'
@canceltarget
stop
else
@usetype! '0x176b' '1161' 'backpack'
waitforgump 2633467501 500
@replygump 0x9cf7866d 60015
waitforgump 2633467501 500
pause 200
while @findtype! '0x1779' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1779' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Granite found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1779' 'any' 'backpack'
waitforgump 2633467501 500
pause 300
endif
endwhile
@replygump 0x9cf7866d 0
@canceltarget
endif
pause 500
//===========================================================
//=----------------------Smelts all Ore---------------------=
//===========================================================
while @targettype! '0x19b9' 'Any' '2'
if not @findtype! '0xe32' '1161' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Mobile Forge*****' '20'
break
else
@usetype! '0x19b9' 'Any' 'backpack' '1161'
waitfortarget '500'
@target! 'Forge'
endif
pause 500
@canceltarget!
endwhile
pause 500
//===========================================================
//=-----------Opens Metal Keys and adds all Metal-----------=
//===========================================================
if not @findtype! '0x176b' '20' 'backpack'
sysmsg '*****No Metals Keys*****' '20'
@canceltarget
stop
else
@usetype! '0x176b' '20' 'backpack'
waitforgump 4213074123 500
@replygump 0xfb1e68cb 60015
waitforgump 4213074123 500
pause 200
while @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Metal found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1bf2' 'any' 'backpack'
waitforgump 4213074123 500
pause 300
endif
endwhile
@replygump 0xfb1e68cb 0
@canceltarget
endif
endif
endwhile
@clearjournal
//***********//
//Position 01//
//***********//
headmsg 'Checking for ore...' 24
//Will dig unless wieght is below 350 otherwise will clear pack of ore,ingots,and granite.
while not @injournal 'There is no'
if @injournal 'mine that' or @injournal 'target cannot be seen.'
break
endif
if @injournal 'mine there' or @injournal 'no metal here'
break
endif
if weight <= '350'
@usetype! '0xf39' '0' 'Backpack' '2'
waitfortarget 500
targettileoffset -1 -1 0
pause 1200
else
//===========================================================
//=---------Opens Granite Keys and adds all Granite---------=
//===========================================================
if not @findtype! '0x176b' '1161' 'backpack'
sysmsg '*****No Granite Keys found.*****' '255'
@canceltarget
stop
else
@usetype! '0x176b' '1161' 'backpack'
waitforgump 2633467501 500
@replygump 0x9cf7866d 60015
waitforgump 2633467501 500
pause 200
while @findtype! '0x1779' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1779' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Granite found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1779' 'any' 'backpack'
waitforgump 2633467501 500
pause 300
endif
endwhile
@replygump 0x9cf7866d 0
@canceltarget
endif
pause 500
//===========================================================
//=----------------------Smelts all Ore---------------------=
//===========================================================
while @targettype! '0x19b9' 'Any' '2'
if not @findtype! '0xe32' '1161' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Mobile Forge*****' '20'
break
else
@usetype! '0x19b9' 'Any' 'backpack' '1161'
waitfortarget '500'
@target! 'Forge'
endif
pause 500
@canceltarget!
endwhile
pause 500
//===========================================================
//=-----------Opens Metal Keys and adds all Metal-----------=
//===========================================================
if not @findtype! '0x176b' '20' 'backpack'
sysmsg '*****No Metals Keys*****' '20'
@canceltarget
stop
else
@usetype! '0x176b' '20' 'backpack'
waitforgump 4213074123 500
@replygump 0xfb1e68cb 60015
waitforgump 4213074123 500
pause 200
while @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Metal found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1bf2' 'any' 'backpack'
waitforgump 4213074123 500
pause 300
endif
endwhile
@replygump 0xfb1e68cb 0
@canceltarget
endif
endif
endwhile
@clearjournal
//***********//
//Position 02//
//***********//
headmsg 'Checking for ore...' 24
//Will dig unless wieght is below 350 otherwise will clear pack of ore,ingots,and granite.
while not @injournal 'There is no'
if @injournal 'mine that' or @injournal 'target cannot be seen.'
break
endif
if @injournal 'mine there' or @injournal 'no metal here'
break
endif
if weight <= '350'
@usetype! '0xf39' '0' 'Backpack' '2'
waitfortarget 500
targettileoffset 0 -1 0
pause 1200
else
//===========================================================
//=---------Opens Granite Keys and adds all Granite---------=
//===========================================================
if not @findtype! '0x176b' '1161' 'backpack'
sysmsg '*****No Granite Keys found.*****' '255'
@canceltarget
stop
else
@usetype! '0x176b' '1161' 'backpack'
waitforgump 2633467501 500
@replygump 0x9cf7866d 60015
waitforgump 2633467501 500
pause 200
while @findtype! '0x1779' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1779' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Granite found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1779' 'any' 'backpack'
waitforgump 2633467501 500
pause 300
endif
endwhile
@replygump 0x9cf7866d 0
@canceltarget
endif
pause 500
//===========================================================
//=----------------------Smelts all Ore---------------------=
//===========================================================
while @targettype! '0x19b9' 'Any' '2'
if not @findtype! '0xe32' '1161' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Mobile Forge*****' '20'
break
else
@usetype! '0x19b9' 'Any' 'backpack' '1161'
waitfortarget '500'
@target! 'Forge'
endif
pause 500
@canceltarget!
endwhile
pause 500
//===========================================================
//=-----------Opens Metal Keys and adds all Metal-----------=
//===========================================================
if not @findtype! '0x176b' '20' 'backpack'
sysmsg '*****No Metals Keys*****' '20'
@canceltarget
stop
else
@usetype! '0x176b' '20' 'backpack'
waitforgump 4213074123 500
@replygump 0xfb1e68cb 60015
waitforgump 4213074123 500
pause 200
while @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Metal found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1bf2' 'any' 'backpack'
waitforgump 4213074123 500
pause 300
endif
endwhile
@replygump 0xfb1e68cb 0
@canceltarget
endif
endif
endwhile
@clearjournal
//***********//
//Position 03//
//***********//
headmsg 'Checking for ore...' 24
//Will dig unless wieght is below 350 otherwise will clear pack of ore,ingots,and granite.
while not @injournal 'There is no'
if @injournal 'mine that' or @injournal 'target cannot be seen.'
break
endif
if @injournal 'mine there' or @injournal 'no metal here'
break
endif
if weight <= '350'
@usetype! '0xf39' '0' 'Backpack' '2'
waitfortarget 500
targettileoffset 1 -1 0
pause 1200
else
//===========================================================
//=---------Opens Granite Keys and adds all Granite---------=
//===========================================================
if not @findtype! '0x176b' '1161' 'backpack'
sysmsg '*****No Granite Keys found.*****' '255'
@canceltarget
stop
else
@usetype! '0x176b' '1161' 'backpack'
waitforgump 2633467501 500
@replygump 0x9cf7866d 60015
waitforgump 2633467501 500
pause 200
while @findtype! '0x1779' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1779' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Granite found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1779' 'any' 'backpack'
waitforgump 2633467501 500
pause 300
endif
endwhile
@replygump 0x9cf7866d 0
@canceltarget
endif
pause 500
//===========================================================
//=----------------------Smelts all Ore---------------------=
//===========================================================
while @targettype! '0x19b9' 'Any' '2'
if not @findtype! '0xe32' '1161' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Mobile Forge*****' '20'
break
else
@usetype! '0x19b9' 'Any' 'backpack' '1161'
waitfortarget '500'
@target! 'Forge'
endif
pause 500
@canceltarget!
endwhile
pause 500
//===========================================================
//=-----------Opens Metal Keys and adds all Metal-----------=
//===========================================================
if not @findtype! '0x176b' '20' 'backpack'
sysmsg '*****No Metals Keys*****' '20'
@canceltarget
stop
else
@usetype! '0x176b' '20' 'backpack'
waitforgump 4213074123 500
@replygump 0xfb1e68cb 60015
waitforgump 4213074123 500
pause 200
while @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Metal found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1bf2' 'any' 'backpack'
waitforgump 4213074123 500
pause 300
endif
endwhile
@replygump 0xfb1e68cb 0
@canceltarget
endif
endif
endwhile
@clearjournal
//***********//
//Position 04//
//***********//
headmsg 'Checking for ore...' 24
//Will dig unless wieght is below 350 otherwise will clear pack of ore,ingots,and granite.
while not @injournal 'There is no'
if @injournal 'mine that' or @injournal 'target cannot be seen.'
break
endif
if @injournal 'mine there' or @injournal 'no metal here'
break
endif
if weight <= '350'
@usetype! '0xf39' '0' 'Backpack' '2'
waitfortarget 500
targettileoffset -1 0 0
pause 1200
else
//===========================================================
//=---------Opens Granite Keys and adds all Granite---------=
//===========================================================
if not @findtype! '0x176b' '1161' 'backpack'
sysmsg '*****No Granite Keys found.*****' '255'
@canceltarget
stop
else
@usetype! '0x176b' '1161' 'backpack'
waitforgump 2633467501 500
@replygump 0x9cf7866d 60015
waitforgump 2633467501 500
pause 200
while @findtype! '0x1779' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1779' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Granite found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1779' 'any' 'backpack'
waitforgump 2633467501 500
pause 300
endif
endwhile
@replygump 0x9cf7866d 0
@canceltarget
endif
pause 500
//===========================================================
//=----------------------Smelts all Ore---------------------=
//===========================================================
while @targettype! '0x19b9' 'Any' '2'
if not @findtype! '0xe32' '1161' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Mobile Forge*****' '20'
break
else
@usetype! '0x19b9' 'Any' 'backpack' '1161'
waitfortarget '500'
@target! 'Forge'
endif
pause 500
@canceltarget!
endwhile
pause 500
//===========================================================
//=-----------Opens Metal Keys and adds all Metal-----------=
//===========================================================
if not @findtype! '0x176b' '20' 'backpack'
sysmsg '*****No Metals Keys*****' '20'
@canceltarget
stop
else
@usetype! '0x176b' '20' 'backpack'
waitforgump 4213074123 500
@replygump 0xfb1e68cb 60015
waitforgump 4213074123 500
pause 200
while @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Metal found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1bf2' 'any' 'backpack'
waitforgump 4213074123 500
pause 300
endif
endwhile
@replygump 0xfb1e68cb 0
@canceltarget
endif
endif
endwhile
@clearjournal
//***********//
//Position 05//
//***********//
headmsg 'Checking for ore...' 24
//Will dig unless wieght is below 350 otherwise will clear pack of ore,ingots,and granite.
while not @injournal 'There is no'
if @injournal 'mine that' or @injournal 'target cannot be seen.'
break
endif
if @injournal 'mine there' or @injournal 'no metal here'
break
endif
if weight <= '350'
@usetype! '0xf39' '0' 'Backpack' '2'
waitfortarget 500
targettileoffset 1 0 0
pause 1200
else
//===========================================================
//=---------Opens Granite Keys and adds all Granite---------=
//===========================================================
if not @findtype! '0x176b' '1161' 'backpack'
sysmsg '*****No Granite Keys found.*****' '255'
@canceltarget
stop
else
@usetype! '0x176b' '1161' 'backpack'
waitforgump 2633467501 500
@replygump 0x9cf7866d 60015
waitforgump 2633467501 500
pause 200
while @findtype! '0x1779' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1779' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Granite found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1779' 'any' 'backpack'
waitforgump 2633467501 500
pause 300
endif
endwhile
@replygump 0x9cf7866d 0
@canceltarget
endif
pause 500
//===========================================================
//=----------------------Smelts all Ore---------------------=
//===========================================================
while @targettype! '0x19b9' 'Any' '2'
if not @findtype! '0xe32' '1161' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Mobile Forge*****' '20'
break
else
@usetype! '0x19b9' 'Any' 'backpack' '1161'
waitfortarget '500'
@target! 'Forge'
endif
pause 500
@canceltarget!
endwhile
pause 500
//===========================================================
//=-----------Opens Metal Keys and adds all Metal-----------=
//===========================================================
if not @findtype! '0x176b' '20' 'backpack'
sysmsg '*****No Metals Keys*****' '20'
@canceltarget
stop
else
@usetype! '0x176b' '20' 'backpack'
waitforgump 4213074123 500
@replygump 0xfb1e68cb 60015
waitforgump 4213074123 500
pause 200
while @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Metal found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1bf2' 'any' 'backpack'
waitforgump 4213074123 500
pause 300
endif
endwhile
@replygump 0xfb1e68cb 0
@canceltarget
endif
endif
endwhile
@clearjournal
//***********//
//Position 06//
//***********//
headmsg 'Checking for ore...' 24
//Will dig unless wieght is below 350 otherwise will clear pack of ore,ingots,and granite.
while not @injournal 'There is no'
if @injournal 'mine that' or @injournal 'target cannot be seen.'
break
endif
if @injournal 'mine there' or @injournal 'no metal here'
break
endif
if weight <= '350'
@usetype! '0xf39' '0' 'Backpack' '2'
waitfortarget 500
targettileoffset -1 1 0
pause 1200
else
//===========================================================
//=---------Opens Granite Keys and adds all Granite---------=
//===========================================================
if not @findtype! '0x176b' '1161' 'backpack'
sysmsg '*****No Granite Keys found.*****' '255'
@canceltarget
stop
else
@usetype! '0x176b' '1161' 'backpack'
waitforgump 2633467501 500
@replygump 0x9cf7866d 60015
waitforgump 2633467501 500
pause 200
while @findtype! '0x1779' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1779' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Granite found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1779' 'any' 'backpack'
waitforgump 2633467501 500
pause 300
endif
endwhile
@replygump 0x9cf7866d 0
@canceltarget
endif
pause 500
//===========================================================
//=----------------------Smelts all Ore---------------------=
//===========================================================
while @targettype! '0x19b9' 'Any' '2'
if not @findtype! '0xe32' '1161' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Mobile Forge*****' '20'
break
else
@usetype! '0x19b9' 'Any' 'backpack' '1161'
waitfortarget '500'
@target! 'Forge'
endif
pause 500
@canceltarget!
endwhile
pause 500
//===========================================================
//=-----------Opens Metal Keys and adds all Metal-----------=
//===========================================================
if not @findtype! '0x176b' '20' 'backpack'
sysmsg '*****No Metals Keys*****' '20'
@canceltarget
stop
else
@usetype! '0x176b' '20' 'backpack'
waitforgump 4213074123 500
@replygump 0xfb1e68cb 60015
waitforgump 4213074123 500
pause 200
while @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Metal found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1bf2' 'any' 'backpack'
waitforgump 4213074123 500
pause 300
endif
endwhile
@replygump 0xfb1e68cb 0
@canceltarget
endif
endif
endwhile
@clearjournal
//***********//
//Position 07//
//***********//
headmsg 'Checking for ore...' 24
//Will dig unless wieght is below 350 otherwise will clear pack of ore,ingots,and granite.
while not @injournal 'There is no'
if @injournal 'mine that' or @injournal 'target cannot be seen.'
break
endif
if @injournal 'mine there' or @injournal 'no metal here'
break
endif
if weight <= '350'
@usetype! '0xf39' '0' 'Backpack' '2'
waitfortarget 400
targettileoffset 0 1 0
pause 1200
else
//===========================================================
//=---------Opens Granite Keys and adds all Granite---------=
//===========================================================
if not @findtype! '0x176b' '1161' 'backpack'
sysmsg '*****No Granite Keys found.*****' '255'
@canceltarget
stop
else
@usetype! '0x176b' '1161' 'backpack'
waitforgump 2633467501 500
@replygump 0x9cf7866d 60015
waitforgump 2633467501 500
pause 200
while @findtype! '0x1779' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1779' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Granite found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1779' 'any' 'backpack'
waitforgump 2633467501 500
pause 300
endif
endwhile
@replygump 0x9cf7866d 0
@canceltarget
endif
pause 500
//===========================================================
//=----------------------Smelts all Ore---------------------=
//===========================================================
while @targettype! '0x19b9' 'Any' '2'
if not @findtype! '0xe32' '1161' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Mobile Forge*****' '20'
break
else
@usetype! '0x19b9' 'Any' 'backpack' '1161'
waitfortarget '500'
@target! 'Forge'
endif
pause 500
@canceltarget!
endwhile
pause 500
//===========================================================
//=-----------Opens Metal Keys and adds all Metal-----------=
//===========================================================
if not @findtype! '0x176b' '20' 'backpack'
sysmsg '*****No Metals Keys*****' '20'
@canceltarget
stop
else
@usetype! '0x176b' '20' 'backpack'
waitforgump 4213074123 500
@replygump 0xfb1e68cb 60015
waitforgump 4213074123 500
pause 200
while @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
if not @findtype! '0x1bf2' 'any' 'backpack' 'any' '2'
pause 200
sysmsg '*****No Metal found.*****' '255'
@canceltarget
stop
else
@targettype! '0x1bf2' 'any' 'backpack'
waitforgump 4213074123 500
pause 300
endif
endwhile
@replygump 0xfb1e68cb 0
@canceltarget
endif
endif
endwhile
@clearjournal