Post by Ravenclaw on Jul 21, 2013 10:33:44 GMT -8
Made using AssistUO v1.0.0 RC8 Build 09 (www.runuo.com/products/assistuo)
Requirements:
You have ore on your pack animal
You are standing near a small forge.
Note: May not work in Custom areas where the forge has been made into a static on the map. (EG: Minoc) Forge is no longer recognized when this is done.
***UPDATED: Dec 25, 2013 - Now handles All ore types and Gemrocks
***UPDATED: Jan 01, 2014 - Note added to change value if pet is bonded
(...
//Open Pack on Pack Animal - 9 if not bonded or 10 if bonded
waitforcontext 'pet1' 10 5000
...)
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Requirements:
You have ore on your pack animal
You are standing near a small forge.
Note: May not work in Custom areas where the forge has been made into a static on the map. (EG: Minoc) Forge is no longer recognized when this is done.
***UPDATED: Dec 25, 2013 - Now handles All ore types and Gemrocks
***UPDATED: Jan 01, 2014 - Note added to change value if pet is bonded
(...
//Open Pack on Pack Animal - 9 if not bonded or 10 if bonded
waitforcontext 'pet1' 10 5000
...)
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//ALIASES USED IN MACRO ARE SET HERE
//Script does not seem to work with ore aliases
//0x19b7 is Ore Type 1
//0x19ba is Ore Type 2
//0x19b8 is Ore Type 3
//0x19b9 is Ore Type 4
//
//PackAnimal - change to setalias for permanent assignment. Requires serial number.
//@setalias 'pet1' 0x1df80
promptalias 'pet1'
//packanimals container (use object inspector on something in the pets pack to get serial)
@setalias 'pet1pack' 0x402be47b
//0xfb1 is the Small Forge
@setalias 'forge' 0xfb1
//Misc Mined Items Bag - change to setalias for permanent assignment. requires serial number.
//@setalias 'miscbag' 0x40429446
promptalias 'miscbag'
//Gemrock Colours are set or added here
if listexists 'gemcolour'
@clearlist 'gemcolour'
else
@createlist 'gemcolour'
endif
@pushlist 'gemcolour' '0x59'
@pushlist 'gemcolour' '0x562'
@pushlist 'gemcolour' '0x26'
@pushlist 'gemcolour' '0xb01'
@pushlist 'gemcolour' '0xabc'
@pushlist 'gemcolour' '0x3cf'
@pushlist 'gemcolour' '0x4f4'
//+++++++++++++++++++++
//Open Pack on Pack Animal - 9 if not bonded or 10 if bonded
waitforcontext 'pet1' 10 5000
//+++++++++++++++++++++
//Stand EAST of the forge for this to work.
//ORE TYPE 1
//This will place the ore from your pack animal on to the left side of your character.
if @findtype 0x19b7 'any' 'pet1pack'
while @findtype 0x19b7 'any' 'pet1pack'
movetypeoffset 0x19b7 'pet1' 'ground' 0 1 0
pause 1000
//Now it will pick up the ore and use it on a nearby forge.
usetype 0x19b7 'any' 'ground' 2
waitfortarget 5000
targetground 0xfb1 'any' 2
pause 1000
//Check to see if the ore smelted
for 0 to 4
if @findtype '0x19b7' 'any' 'ground' '1' '3'
sysmsg ' ORE DID NOT SMELT TRYING AGAIN ' '32'
usetype 0x19b7 'any' 'ground' 2
waitfortarget 5000
targetground 0xfb1 'any' 2
endif
endfor
//Notify that smelting failed and stop
if @findtype '0x19b7' 'any' 'ground' '1' '3'
sysmsg ' ORE NOT SMELTING ' '32'
stop
endif
endwhile
sysmsg 'SMALLEST ORE SMELTED' '32'
endif
//ORE TYPE 2
//This will place the ore from your pack animal on to the left side of your character.
if @findtype 0x19ba 'any' 'pet1pack'
while @findtype 0x19ba 'any' 'pet1pack'
movetypeoffset 0x19ba 'pet1' 'ground' 0 1 0
pause 1000
//Now it will pick up the ore and use it on a nearby forge.
usetype 0x19ba 'any' 'ground' 2
waitfortarget 5000
targetground 0xfb1 'any' 2
pause 1000
//Check to see if the ore smelted
for 0 to 4
if @findtype '0x19ba' 'any' 'ground' '1' '3'
sysmsg ' ORE DID NOT SMELT TRYING AGAIN ' '32'
usetype 0x19ba 'any' 'ground' 2
waitfortarget 5000
targetground 0xfb1 'any' 2
endif
endfor
//Notify that smelting failed and stop
if @findtype '0x19ba' 'any' 'ground' '1' '3'
sysmsg ' ORE NOT SMELTING ' '32'
stop
endif
endwhile
sysmsg 'SMALL ORE SMELTED' '32'
endif
//ORE TYPE 3
//This will place the ore from your pack animal on to the left side of your character.
if @findtype 0x19b8 'any' 'pet1pack'
//Move Gemrocks to another container (Gemrockss use medium ore graphic)
for 0 to 'gemcolour'
while @findtype 0x19b8 gemcolour[] 'pet1pack'
@moveitem 'found' 'miscbag'
endwhile
endfor
// More Ore to Ground for Smelting
while @findtype 0x19b8 'any' 'pet1pack'
movetypeoffset 0x19b8 'pet1' 'ground' 0 1 0
pause 1000
//Now it will pick up the ore and use it on a nearby forge.
usetype 0x19b8 'any' 'ground' 2
waitfortarget 5000
targetground 0xfb1 'any' 2
pause 1000
//Check to see if the ore smelted
for 0 to 4
if @findtype '0x19b8' 'any' 'ground' '1' '3'
sysmsg ' ORE DID NOT SMELT TRYING AGAIN ' '32'
usetype 0x19b8 'any' 'ground' 2
waitfortarget 5000
targetground 0xfb1 'any' 2
endif
endfor
//Notify that smelting failed and stop
if @findtype '0x19b8' 'any' 'ground' '1' '3'
sysmsg ' ORE NOT SMELTING ' '32'
stop
endif
endwhile
sysmsg 'MEDIUM ORE SMELTED' '32'
endif
//ORE TYPE 4
//This will place the ore from your pack animal on to the left side of your character.
if @findtype 0x19b9 'any' 'pet1pack'
while @findtype 0x19b9 'any' 'pet1pack'
movetypeoffset 0x19b9 'pet1' 'ground' 0 1 0
pause 1000
//Now it will pick up the ore and use it on a nearby forge.
usetype 0x19b9 'any' 'ground' 2
waitfortarget 5000
targetground 0xfb1 'any' 2
pause 1000
//Check to see if the ore smelted
for 0 to 4
if @findtype '0x19b9' 'any' 'ground' '1' '3'
sysmsg ' ORE DID NOT SMELT TRYING AGAIN ' '32'
usetype 0x19b9 'any' 'ground' 2
waitfortarget 5000
targetground 0xfb1 'any' 2
endif
endfor
//Notify that smelting failed and stop
if @findtype '0x19b9' 'any' 'ground' '1' '3'
sysmsg ' ORE NOT SMELTING ' '32'
stop
endif
endwhile
sysmsg 'LARGE ORE SMELTED' '32'
endif
stop
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
