Macro Wyrm Leather
Posted: 2010-01-15 17:10:25
Hi Everyone,
Sorry for my horrible English, but my quest for knowledge was stronger, i need a little help in my macro where i try to make a plate of wyrm leather. However what happens is that the uo.automenu works but it does not manufacture the part if they can help.
Hugs and thanks
Sorry for my horrible English, but my quest for knowledge was stronger, i need a little help in my macro where i try to make a plate of wyrm leather. However what happens is that the uo.automenu works but it does not manufacture the part if they can help.
Hugs and thanks
Code: Select all
sub fazer_wyrm() ; Macro simples de Tailor fazendo Wyrm, deixar sewing kit e cloths na bag
var couro = '0x1078'
var sewing = '0x0F9D'
uo.print('@Work Autoload feito por T BonE')
uo.print('** Fazer Wyrm Leather - uoG')
wait(2000)
uo.print('Usa-se Sewing kit e Leather, o macro faz Wyrm Leather')
wait(5000)
repeat
if uo.count(sewing)==1 then
if uo.count(couro)>=3 then
uo.waittargettype( couro )
uo.usetype( sewing )
uo.automenu('Monster Leather Armours','Wyrm Leather Gorget')
uo.automenu('Leather','Monster Leather Armours')
wait(10000)
else
uo.print(UO.GetName('self') +", Amigao voce nao tem mais couros na bag, voce precisa ter pelo menos 3, mas possui apenas: " +Str(uo.count(couro))+ ' Couros')
wait(15000)
endif
else
uo.print(UO.GetName('self') +", Voce precisa ter um sewing kit na sua bag para o macro funcionar")
wait(15000)
endif
until uo.dead()
end sub