sub Craft(tool, resource, minresource, delay, menu1, choice1, menu2, choice2, menu3, choice3)
if menu1<>"" then UO.Exec("automenu '"+menu1+"' '"+choice1+"'")
if menu2<>"" then UO.Exec("automenu '"+menu2+"' '"+choice2+"'")
if menu3<>"" then UO.Exec("automenu '"+menu3+"' '"+choice3+"'")
while UO.Count(resource)>minresource
 if UO.Count(tool) < 1 then
  UO.Print("Tool not found")
  return
 end if
 UO. Print("Resource "+STR(UO.Count(resource)))
 wait(delay) 
 UO. waittargettype(resource)
 UO.usetype(tool) 
wend 
UO.Print("Out of resource ("+STR(UO.Count(resource))+")")
end sub
sub Tailoring()
Craft('kit','cloths',10,5000,'Choose','shirts',What',Plain','','')
end sub