var SewingKit =0x0f9d
var Hides =0x1078

sub main()  
while UO.Count(Hides)>2
UO.DeleteJournal()
UO.WaitMenu('Choose a category.','leather','What you you want to create?','Leather Cap - takes 2 hides')
UO.WaitTargetType(Hides)
UO.UseType(SewingKit)

while not UO.InJournal('create') and not UO.InJournal('destroy')
wait(10)
wend

if UO.InJournal('capabilities,') or UO.InJournal('Targetting') then
uo.waittargetself()
wait(100)
uo.canceltarget()
endif
wend
end sub