Leathal Darts...macro

Frasier · Mar 17, 2014

Nvm, I got it.

Facko · Mar 23, 2014

Here's a simple macro for anyone who still needs it or has trouble with the kraz script. Just check loop and hit play and then target the Quest Giver npc when prompted and then target your stack of crossbow bolts. There's no sorting of any kind, just does the quest over and over.

Code:

if not findalias 'questnpc'
promptalias 'questnpc'
endif
if not findobject 'xbowbolt'
promptalias 'xbowbolt'
endif
useobject 'questnpc'
waitforgump 0x19bc4061 15000
if ingump 0x19bc4061 'We elves are no strangers'
replygump 0x19bc4061 1
waitforcontext 'self' 4 15000
waitfortarget 15000
target! 'xbowbolt'
waitfortarget 15000
canceltarget
useobject 'questnpc'
waitforgump 0xdf31ecf8 15000
replygump 0xdf31ecf8 4
waitforgump 0x96626c6e 15000
replygump 0x96626c6e 1
pause 2000
else
replygump 0x19bc4061 2
endif
pause 500

Avenger. · Apr 13, 2014

Hey how do I make this macro work? Where do I put it in?

Thanks

Facko · Apr 13, 2014

Just copy and paste it into an empty uosteam macro then check loop and hit play then minimize it. You'll be prompted to target the quest giver npc and a stack of crossbow bolts in your backpack.

Tigatha · Apr 21, 2014

Thank you !! this is awesome!! xx

Acehawk74 · Jun 29, 2014

Facko,

Trying to use this, and it's telling me "Object updated: 'found'.

ingump : gump id not found

Under active objects, this is what's listed:

found - 0x40170f2a

questnpc - 0x110

xbowbolt - 0x40170f2a

Suggestions? I did the exact directions you gave... when I selected the objects, here's the text that came my way:

Select the object 'questnpc'

Object updated 'questnpc'

Object removed: 'found'

findobject: object not found

Select the object 'xbxowbolt'

Object updated: 'xbowbolt'

MB · Jun 30, 2014

You might want to modify using info from http://www.uogamers.com/community/index.php?threads/549673/#post-4051309

// Heartwood quester with enhanced looting
// Description: Lethal Darts Quest Maker
// Ready to use at UOGamers Demise
if not listexists 'Talismans'
@createlist 'Talismans'
@pushlist 'Talismans' 0x2f58
@pushlist 'Talismans' 0x2f59
@pushlist 'Talismans' 0x2f5a
@pushlist 'Talismans' 0x2f5b
endif
if not listexists 'Skills'
@createlist 'Skills'
@pushlist 'Skills' 'Alchemy Bonus'
@pushlist 'Skills' 'Blacksmithing Bonus'
@pushlist 'Skills' 'Carpentry Bonus'
@pushlist 'Skills' 'Inscription Bonus'
@pushlist 'Skills' 'Tailoring Bonus'
@pushlist 'Skills' 'Tinkering Bonus'
endif
if not listexists 'Jewelry'
@createlist 'Jewelry'
@pushlist 'Jewelry' 0x108a
@pushlist 'Jewelry' 0x1f09
@pushlist 'Jewelry' 0x1086
@pushlist 'Jewelry' 0x1f06
endif
if not listexists 'Jewelspurposes'
@createlist 'Jewelspurposes'
@pushlist 'Jewelspurposes' 'Faster Cast Recovery'
@pushlist 'Jewelspurposes' 'Lower reagent cost'
@pushlist 'Jewelspurposes' 'Faster Casting'
@pushlist 'Jewelspurposes' 'Luck'
endif
if not @findobject 'Fletching Quest Giver'
promptalias 'Fletching Quest Giver'
endif
if not @findobject 'Restock'
promptalias 'Restock'
else
if serial 'Restock' != serial 'self'
if not timerexists 'feedPet'
createtimer 'feedPet'
endif
// Hourly feed pet
if timer 'feedPet' >= 3600000
feed 'Restock' 'Meat'
pause 1000
settimer 'feedPet' 0
endif
endif
endif
if not @findobject 'Reward Box'
promptalias 'Reward Box'
endif
if not @findobject 'Trash Barrel'
promptalias 'Trash Barrel'
endif
if @findtype 0x1bfb 'any' 'backpack' 10
if @useobject 'Fletching Quest Giver'
waitforgump 0x19bc4061 5000
if @ingump 0x19bc4061 'crossbow bolt'
replygump 0x19bc4061 1
pause 550
if color 'found' == 0
waitforcontext 'self' 4 5000
waitfortarget 5000
Target! 'found'
waitfortarget 5000
@canceltarget
endif
pause 550
@useobject 'Fletching Quest Giver'
waitforgump 0xdf31ecf8 5000
replygump 0xdf31ecf8 4
waitforgump 0x96626c6e 5000
replygump 0x96626c6e 1
pause 2000
// Handle reward bags
while @findtype 0xe75 'any' 'backpack'
@setalias 'trash' 'found'
@useobject! 'trash'
pause 1000
// Runics
while @findtype 0x1022 'any' 'trash'
@moveitem! 'found' 'Reward Box'
pause 1000
endwhile
// Talismans
for 0 to 'Talismans'
while @findtype Talismans[] 0 'trash'
waitforproperties 'found' 5000
if @property 'slayer' 'found'
@moveitem! 'found' 'reward box'
pause 1000
break
ignoreobject 'found'
endif
if @property 'Exceptional Bonus' 'found' >= 20
@moveitem! 'found' 'Reward Box'
pause 1000
break
ignoreobject 'found'
endif
if @property 'killer' 'found' >= 90
@moveitem! 'found' 'Reward Box'
pause 1000
break
ignoreobject 'found'
endif
if @property 'Protection' 'found' >= 40
@moveitem! 'found' 'Reward Box'
pause 1000
break
ignoreobject 'found'
endif
ignoreobject 'found'
endwhile
endfor
//Jewels
for 0 to 'Jewelry'
while @findtype Jewelry[] 0 'trash'
pause 1000
if @property 'Luck' 'found' >= 90
@moveitem! 'found' 'Reward Box'
pause 1000
break
endif
if @property 'Faster Cast Recovery' 'found' = 3
@moveitem! 'found' 'Reward Box'
pause 1000
break
endif
if @property 'Defence chance increase' 'found' >= 12
@moveitem! 'found' 'Reward Box'
pause 1000
break
endif
if @property 'Hit chance increase' 'found' >= 12
@moveitem! 'found' 'Reward Box'
pause 1000
break
endif
if @property 'Faster casting' 'found'
@moveitem! 'found' 'Reward Box'
pause 1000
break
endif
ignoreobject 'found'
endwhile
endfor
@moveitem! 'trash' 'Trash Barrel'
pause 1000
endwhile
else
replygump 0x19bc4061 2
endif
endif
pause 1000
elseif @movetype 0x1bfb 'Restock' 'backpack' 0 0 0 0 200
pause 1000
else
sysmsg 'Out of bolts!' 25
stop
endif
clearignorelist

Acehawk74 · Jun 30, 2014

Thank you! Altered the script, working great now. Much obliged!

psychedelia · Aug 13, 2014

which items does this macro loots, except runics. Or just it loots runics ?

fredek126 · Aug 29, 2014

how can I find id gump in server?

r0bak · Oct 23, 2014

hello guys, could you post the actual working script because me searching for it for 2 hrs failed.
thanks.

regards

Frasier · Oct 23, 2014

MB's macro should work just fine.
I'm using this, can't remember if have I edited it from orginal one (MB's).
Use wooden box or chest for reward box.

// Heartwood quester with enhanced looting
// Description: Lethal Darts Quest Maker

// Ready to use at UOGamers Demise

if not listexists 'Talismans'

@createlist 'Talismans'

@pushlist 'Talismans' 0x2f58

@pushlist 'Talismans' 0x2f59

@pushlist 'Talismans' 0x2f5a

@pushlist 'Talismans' 0x2f5b

endif

if not listexists 'Skills'

@createlist 'Skills'

@pushlist 'Skills' 'Alchemy Bonus'

@pushlist 'Skills' 'Blacksmithing Bonus'

@pushlist 'Skills' 'Carpentry Bonus'

@pushlist 'Skills' 'Inscription Bonus'

@pushlist 'Skills' 'Tailoring Bonus'

@pushlist 'Skills' 'Tinkering Bonus'

endif

if not listexists 'Jewelry'

@createlist 'Jewelry'

@pushlist 'Jewelry' 0x108a

@pushlist 'Jewelry' 0x1f09

@pushlist 'Jewelry' 0x1086

@pushlist 'Jewelry' 0x1f06

endif

if not listexists 'Jewelspurposes'

@createlist 'Jewelspurposes'

@pushlist 'Jewelspurposes' 'Faster Cast Recovery'

@pushlist 'Jewelspurposes' 'Lower reagent cost'

@pushlist 'Jewelspurposes' 'Faster Casting'

@pushlist 'Jewelspurposes' 'Luck'

endif

if not @findobject 'Fletching Quest Giver'

promptalias 'Fletching Quest Giver'

endif

if not @findobject 'Restock'

promptalias 'Restock'

else

if serial 'Restock' != serial 'self'

if not timerexists 'feedPet'

createtimer 'feedPet'

endif

// Hourly feed pet

if timer 'feedPet' >= 3600000

feed 'Restock' 'Meat'

pause 1000

settimer 'feedPet' 0

endif

endif

endif

if not @findobject 'Reward Box'

promptalias 'Reward Box'

endif

if not @findobject 'Trash Barrel'

promptalias 'Trash Barrel'

endif

if @findtype 0x1bfb 'any' 'backpack' 10

if @useobject 'Fletching Quest Giver'

waitforgump 0x19bc4061 5000

if @ingump 0x19bc4061 'crossbow bolt'

replygump 0x19bc4061 1

pause 550

if color 'found' == 0

waitforcontext 'self' 4 5000

waitfortarget 5000

@Target! 'found'

waitfortarget 5000

@canceltarget

endif

pause 550

@useobject 'Fletching Quest Giver'

waitforgump 0xdf31ecf8 5000

replygump 0xdf31ecf8 4

waitforgump 0x96626c6e 5000

replygump 0x96626c6e 1

pause 2000

// Handle reward bags

while @findtype 0xe75 'any' 'backpack'

@setalias 'trash' 'found'

@useobject! 'trash'

pause 1000

// Runics

while @findtype 0x1022 'any' 'trash'

@moveitem! 'found' 'Reward Box'

pause 1000

endwhile

// Talismans

for 0 to 'Talismans'

while @findtype Talismans[] 0 'trash'

waitforproperties 'found' 5000

if @property 'slayer' 'found'

@moveitem! 'found' 'reward box'

pause 1000

break

ignoreobject 'found'

endif

if @property 'Exceptional Bonus' 'found' >= 20

@moveitem! 'found' 'Reward Box'

pause 1000

break

ignoreobject 'found'

endif

if @property 'killer' 'found' >= 90

@moveitem! 'found' 'Reward Box'

pause 1000

break

ignoreobject 'found'

endif

if @property 'Protection' 'found' >= 40

@moveitem! 'found' 'Reward Box'

pause 1000

break

ignoreobject 'found'

endif

ignoreobject 'found'

endwhile

endfor

//Jewels

for 0 to 'Jewelry'

while @findtype Jewelry[] 0 'trash'

pause 1000

if @property 'Luck' 'found' >= 90

@moveitem! 'found' 'Reward Box'

pause 1000

break

endif

if @property 'Faster Cast Recovery' 'found' = 3

@moveitem! 'found' 'Reward Box'

pause 1000

break

endif

if @property 'Defence chance increase' 'found' >= 12

@moveitem! 'found' 'Reward Box'

pause 1000

break

endif

if @property 'Hit chance increase' 'found' >= 12

@moveitem! 'found' 'Reward Box'

pause 1000

break

endif

if @property 'Faster casting' 'found'

@moveitem! 'found' 'Reward Box'

pause 1000

break

endif

ignoreobject 'found'

endwhile

endfor

@moveitem! 'trash' 'Trash Barrel'

pause 1000

endwhile

else

replygump 0x19bc4061 2

endif

endif

pause 1000

elseif @movetype 0x1bfb 'Restock' 'backpack' 0 0 0 0 200

pause 1000

else

sysmsg 'Out of bolts!' 25

stop

endif

clearignorelist

Facko · Oct 24, 2014

r0bak said:
hello guys, could you post the actual working script because me searching for it for 2 hrs failed.
thanks.

regards

Both of the scripts here work fine for me. More info might be helpful.

Brett Thomas · Oct 30, 2014

Has anyone found the ID gump fix script for this? It would be nice for a link or a post or something for those who aren't too keen on forums. Not everyone uses forums so please put that into consideration for those who need help finding this script in its updated ID gump fixed version. Thanks in advance.

MB · Oct 30, 2014

There's two working copies in this thread...

Brett Thomas · Oct 30, 2014

MB said:
There's two working copies in this thread...

Nope I tried both and both did the id gump not found problem on Demise.

MB · Oct 30, 2014

Brett Thomas said:
Nope I tried both and both did the id gump not found problem on Demise.

You can record yourself acknowledging a gump and the resulting macro will show the gump number.

I think you are getting 'replygump: gump id not found' because you are already on a quest and do not have the option to 'Refuse' a quest. Click Quests on your Paperdoll and resign from the one you're on and it'll all work.

Brett Thomas · Oct 31, 2014

MB said:
You can record yourself acknowledging a gump and the resulting macro will show the gump number.

I think you are getting 'replygump: gump id not found' because you are already on a quest and do not have the option to 'Refuse' a quest. Click Quests on your Paperdoll and resign from the one you're on and it'll all work.

Man no. I tried that and its still doing the same thing. Do you not understand what im asking of you. Please direct me to the script where it is updated for the idgump fix because what you are telling me is not working so id rather just have the updated script. Thanks . . .

Geaux · Oct 31, 2014

Brett Thomas said:
Man no. I tried that and its still doing the same thing. Do you not understand what im asking of you. Please direct me to the script where it is updated for the idgump fix because what you are telling me is not working so id rather just have the updated script. Thanks . . .

Oooo, don't bite the hand that feeds you. MB is just trying to help you. Maybe you do not understand what he is telling you, just like you don't understand how to fix it without help.

Brett Thomas · Nov 1, 2014

Geaux said:
Oooo, don't bite the hand that feeds you. MB is just trying to help you. Maybe you do not understand what he is telling you, just like you don't understand how to fix it without help.

Its all good. I have explained already I am new to scripting and I havnt a clue about scripting so how could I fix it on my own? lol. And yes I do understand what MB is telling me and I already tried what he told me to do as well as for all the other HW scripts and the id gump problem still persists but as I said before its all good. If you can find the updated script and send it my way it would be much appreciated as this is what I asked for from the beginning. So please dont come at me with that dont bite the hand that feeds you nonsense because none of you are feeding me or my family and instead of directing me or anyone to the script I asked for the answer was for me to cancel any quests I had which is counter productive and doesn't provide any solution for the issue as was stated from others who posted on this. lol. But again its all good. Thanks for everything guys even though you guys didn't do much. lol. This is why I don't do forums, people aren't helpful as they claim to be thus I say what I say and act the way I act. But seriously thanks. :>

Leathal Darts...macro

Sorceror

Sorceror

Sorceror

Sorceror

Sorceror

Wanderer

Knight

Wanderer

Sorceror

Traveler

Wanderer

Sorceror

Sorceror

Wanderer

Knight

Wanderer

Knight

Wanderer

Sorceror

Wanderer