(Carpentry) Bent Rod Crafter (UOF)

[Experience]

if not @findobject 'Junk'

 headmsg 'Select where you wish to dump junk poles'

 promptalias 'Junk'

endif

if not @findalias 'Bent'

 headmsg 'Select where you wish to drop Bent Poles'

 if mounted 'self'

   useobject 'self'

   pause 600

 endif

 promptalias 'Bent'

 useobject 'mount'

endif

while not hidden 'self'

 useskill 'hiding'

 pause 11000

endwhile

if not @findobject 'Carp Tool'

 if @findtype '0x10e5' 'any' 'backpack' 'any' '3' or @findtype '0x1034' 'any' 'backpack' 'any' '3'

   setalias 'Carp Tool' 'found'

   pause 600

 else

   headmsg 'No tool found'

 endif

endif

//Craft Pole

@useobject 'Carp Tool'

waitforgump 0x38920abd 15000

replygump 0x38920abd 22

waitforgump 0x38920abd 15000

replygump 0x38920abd 37

waitforgump 0x38920abd 15000

pause 600

while @findtype '0xdbf' 'any' 'backpack' 'any' '1'

 clickobject 'found'

 pause 800

 if @injournal 'fishing pole' 'system'

   headmsg 'Junk Pole'

   moveitem 'found' 'Junk'

   pause 800

   @ignoreobject 'found'

   @unsetalias 'found'

   @clearjournal

 elseif @injournal 'a bent rod' 'system'

   headmsg 'Bent Rod!!!!'

   sysmsg 'Bent Rod' 69

   useobject 'self'

   pause 800

   moveitem 'found' 'Bent'

   pause 800

   useobject 'mount'

   pause 600

   @ignoreobject 'found'

   @unsetalias 'found'

   @clearjournal

 endif

endwhile



[Claudman]

Added a section to allow you to keep Exceptional Poles


if not @findobject 'Junk'

headmsg 'Select where you wish to dump junk poles'

promptalias 'Junk'

endif

if not @findobject 'Exceptional'

headmsg 'Select where you wish to put exceptional poles'

promptalias 'Exceptional'

endif

if not @findalias 'Bent'

headmsg 'Select where you wish to drop Bent Poles'

if mounted 'self'

useobject 'self'

pause 600

endif

promptalias 'Bent'

useobject 'mount'

endif

if not @findobject 'Carp Tool'

if @findtype '0x10e5' 'any' 'backpack' 'any' '3' or @findtype '0x1034' 'any' 'backpack' 'any' '3'

setalias 'Carp Tool' 'found'

pause 600

else

headmsg 'No tool found'

endif

endif

//Craft Pole

@useobject 'Carp Tool'

waitforgump 0x38920abd 15000

replygump 0x38920abd 22

waitforgump 0x38920abd 15000

replygump 0x38920abd 37

waitforgump 0x38920abd 15000

pause 600

while @findtype '0xdbf' 'any' 'backpack' 'any' '1'

clickobject 'found'

pause 800

if @injournal 'Exceptional' 'system'

headmsg 'Exceptional Pole'

moveitem 'found' 'Exceptional'

pause 800

@ignoreobject 'found'

@unsetalias 'found'

@clearjournal

elseif @injournal 'fishing pole' 'system'

headmsg 'Junk Pole'

moveitem 'found' 'Junk'

pause 800

@ignoreobject 'found'

@unsetalias 'found'

@clearjournal

elseif @injournal 'a bent rod' 'system'

headmsg 'Bent Rod!!!!'

sysmsg 'Bent Rod' 69

useobject 'self'

pause 800

moveitem 'found' 'Bent'

pause 800

useobject 'mount'

pause 600

@ignoreobject 'found'

@unsetalias 'found'

@clearjournal

endif

endwhile