|
sub tailoring()
UO.CancelMenu()
var counterr , cont=20 , Meshochek , Bochka1=0x400911E7 , Bochka2=0x40092676
UO.AutoMenu('Cloth','Shirts')
UO.AutoMenu('Shirts','Robe')
repeat
UO.FindType(0x175D,-1,1)
UO.Grab('220','finditem')
wait(1000)
if cont>15 then
UO.FindType(0x0E76,-1,Bochka1)
Meshochek=UO.GetSerial('finditem')
wait(500)
UO.Grab(0,Meshochek)
wait(1000)
UO.MoveItem(Meshochek,0,Bochka2)
cont=0
end if
cont=cont+1
while UO.Count(0x175D)>20
UO.FindType(0x1F03,-1,2);Robe
;UO.FindType(0x1515,-1,2);Cape
if UO.FindCount()>0 then
UO.MoveItem('finditem',0,Meshochek) ; Если нужно резать на бинты меняем эту строчку на UO.WaitTargetObject('Finditem') и UO.UseObject('nognitsi')
wait(500)
end if
UO.WaitTargetType(0x175D)
UO.UseObject(0x40074DC4)
while not (UO.InJournal('put the')or UO.InJournal('Tailoring failed') or counterr>20)
wait(500)
counterr=counterr+1
wend
counterr=0
UO.DeleteJournal()
wend
until False
end sub
|