Leathal Darts...macro

[Brett Thomas]

Well thanks to Master Shake I have the proper one now. Here it is for those who come after me dealing with people who will not give them the proper script. Thanks guys, you know who you are. ;o)


// 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]

Well thanks to Master Shake I have the proper one now. Here it is for those who come after me dealing with people who will not give them the proper script. Thanks guys, you know who you are. ;o)

It's the same script, but good for you...

 

[Brett Thomas]

It's the same script, but good for you...

Nay, it is the same but not the idgump fixed version. The one I posted is the fixed id gump version as all the ones provided in this post previously all had the idgump problem for me. This is why I have provided the fixed script. Until you have assessed the scripts in question you are simply speaking out of assumptions as I am not lying to you as I have no reason to lie to you nor would I lie to you. But hey good for you. :>

 

[MB]

They are line for line identical

 

[Brett Thomas]

They are line for line identical

I beg to differ because I tried all of them and the only one that worked is the one I posted. So you can continue to say what you want but the results speak volumes. :>

 

[mantorras]

What?

Must be magic...

 

[Brett Thomas]

Say what you will but as I said before the results speak volumes. I tried the scripts that were originally posted and the issues persisted but when I tried the one I posted it worked without a hitch.

 

[mantorras]

 

[Brett Thomas]

You don't have to believe anything but why would I lie to you? I posted the script hat works for me. Its quite simple but hey people are going to believe whatever they want and that's the problem with the world in this day and age. I tried the scripts that are in the original post and they didn't work and I was given the proper script and it worked with no problem thus I posted it. But again you can believe whatever you want. And please take your trolling elsewhere because it simply will not work on me. :>

 

[Facko]

No one was trolling you until you went out of your way to make yourself look like an idiot... and an ass!

Read the gump ids for yourself. They're identical. Just like the rest of the script.

 

[Brett Thomas]

Like I said the results speaks volumes but whatever. Thanks for everything though guys and I really do mean that.