sub main()
var g,ing
UO.Exec("useobject 0x400AABC1") # 0x4000AE5E - изменить на ID сундука Из которого берётся ткань !!!
wait (2000)

   x:
   if UO.Count("0x1766") < 20 then
g=0
ing=UO.Count("0x1766")
wait (1000)
 UO.Exec("findtype 0x1766 0x0000 0x400AABC1") # Изменить на ID сундука Из которого берётся ткань !!!
Uo.Exec("grab 200 finditem")
wait (1000)
while ing==UO.Count("0x1766") and g < 120
 wait (500)
 g=g+1
 wend
endif
      if UO.Count("0x0F9D") < 2 then
      UO.Exec("usetype 0x1EB8")
      wait (1000)
      UO.LClick(70,211) # Координаты кнопки Tools в крафтовом меню Tool kit
      wait(1500)
      UO.LClick(272,111) # Координаты кнопки Sewing kit в крафтовом меню Tool kit
      wait (1500)
      endif
   UO.Exec("usetype 0x0F9D")
   wait (1000)
   UO.LClick(322,455) # Координаты кнопки make last
   wait (1500)
   UO.Exec("waittargettype 0x2307") # 0x152E- Меняем на type , которую надо резать.
   wait (500)
   UO.Exec("usetype 0x0F9F")
   wait (1000)
   

   goto x
end sub