Yoko

Code: Select all

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