UOS macros

[Souced]

does anyone have the other heartwood quests done in a macro so inscription and tailoring just looking to try and get the recipes from all of heartwood

[Jay-Renai Nyleve [SHS]]

If you use the WaybackMachine and look on the old forums, I made a script to do the Blacksmithing quest, iirc.

[Souced]

thanks i will see if i can find it

[Jay-Renai Nyleve [SHS]]

Actually, lookie what I've found!

[Jay-Renai Nyleve [SHS]]

// Author:
//Jay-Renai Nyleve[SHS]
//
// Super Hunt Squad HO!
//
// Macro created for use on UOGamers: Demise
//
// Start-Bascinet
// Define Quest Giver
if not @findobject 'Blacksmithing Quest Giver'
promptalias 'Blacksmithing Quest Giver'
endif
// Obtain Quest
if @useobject! 'Blacksmithing Quest Giver'
waitforgump 0x19bc4061 500
//
//
// Start Bascinet
//
//
if @ingump 0x19bc4061 "bascinet helmet"
replygump 0x19bc4061 1
pause 500
// Quest Item check
if @counttype 0x140c 0 "backpack" < 15
// Check resources
if @counttype 0x1bf2 0 "backpack" < 225
for 3
sysmsg "NOT ENOUGH RESOURCES!"
sysmsg "RESTOCK REQUIRED!"
stop
endfor
endif
// Craft initial
usetype 0xfbb
pause 500
waitforgump 0x38920abd 1750
replygump 0x38920abd 22
waitforgump 0x38920abd 1500
replygump 0x38920abd 2
pause 1750
// Craft remaining
for 14
usetype 0xfbb
pause 500
replygump 0x38920abd 21
pause 1750
endfor
endif
pause 250
// Quest Item toggle
waitforcontext 'self' 4 500
pause 500
while @counttype 0x140c 0x4ea "backpack" != 15
@targettype 0x140c 0
pause 250
endwhile
cleartargetqueue
canceltarget
// Turn in quest
@useobject "Blacksmithing Quest Giver"
waitforgump 0x96626c6e 1750
replygump 0xdf31ecf8 4
waitforgump 0x96626c6e 1750
replygump 0x96626c6e 1
endif
//
//
// End Bascinet
//
//
// ----------------- //
//
//
// Start Broadsword
//
//
if @ingump 0x19bc4061 "broadsword"
replygump 0x19bc4061 1
pause 500
// Quest Item check
if @counttype 0xf5e 0 "backpack" < 12
// Check resources
if @counttype 0x1bf2 0 "backpack" < 120
for 3
sysmsg "NOT ENOUGH RESOURCES!"
sysmsg "RESTOCK REQUIRED!"
stop
endfor
endif
// Craft initial
usetype 0xfbb
pause 500
waitforgump 0x38920abd 1750
replygump 0x38920abd 36
waitforgump 0x38920abd 1500
replygump 0x38920abd 9
pause 1750
// Craft remaining
for 11
usetype 0xfbb
pause 500
replygump 0x38920abd 21
pause 1750
endfor
endif
pause 250
// Quest Item toggle
waitforcontext 'self' 4 500
pause 500
while @counttype 0xf5e 0x4ea "backpack" != 12
@targettype 0xf5e 0
pause 250
endwhile
cleartargetqueue
canceltarget
// Turn in quest
@useobject "Blacksmithing Quest Giver"
waitforgump 0x96626c6e 1750
replygump 0xdf31ecf8 4
waitforgump 0x96626c6e 1750
replygump 0x96626c6e 1
endif
//
//
// End Broadsword
//
//
// ----------------- //
//
//
// Start Heater
//
//
if @ingump 0x19bc4061 "heater shield"
replygump 0x19bc4061 1
pause 500
// Quest Item check
if @counttype 0x1b76 0 "backpack" < 10
// Check resources
if @counttype 0x1bf2 0 "backpack" < 180
for 3
sysmsg "NOT ENOUGH RESOURCES!"
sysmsg "RESTOCK REQUIRED!"
stop
endfor
endif
// Craft initial
usetype 0xfbb
pause 500
waitforgump 0x38920abd 1750
replygump 0x38920abd 29
waitforgump 0x38920abd 1500
replygump 0x38920abd 16
pause 1750
// Craft remaining
for 9
usetype 0xfbb
pause 500
replygump 0x38920abd 21
pause 1750
endfor
endif
pause 250
// Quest Item toggle
waitforcontext 'self' 4 500
pause 500
while @counttype 0x1b76 0x4ea "backpack" != 10
@targettype 0x1b76 0
pause 250
endwhile
cleartargetqueue
canceltarget
// Turn in quest
@useobject "Blacksmithing Quest Giver"
waitforgump 0x96626c6e 1750
replygump 0xdf31ecf8 4
waitforgump 0x96626c6e 1750
replygump 0x96626c6e 1
endif
//
//
// End Heater
//
//
endif
// End of Line //
// Long live Demise!!!
//Long live [SHS]
// Special thanks:
// Demise staff!
// Bishop [SHS]
// Blesh Terra [KVG]
//
// Caution:
// Bitches be trippin'!!

[Souced]

thanks i tried the wayback and it didn't save the thread just the header so much thanks