Yoko

sub Tailor()
var pause = 0
var IngVesh=19 ;<----- количество ткани на вещь
var Cli1="cliloc# 0xEE4B" ;you failed to create
var Cli2="cliloc# 0xEEBA" ;you create the item
var Cli3="cliloc# 0xEEBB"
var Cli4="cliloc# 0xEE46"  ;worn out your tool! 
var Cli5="cliloc# 0xEEBC" ;you create an except

var Skil
var Cloth = "0x1766"
var MaxWeight
var SewKit = '0x0F9D'

;у меня было так -до 500 скила качался на одном
;потом на другом до 746 потом до 996 на третьем...
;чтоб не переводить зря ткань остановка по достижении

if uo.SkillVal('Tailoring')<996 then
   Skil = 996
end if
if uo.SkillVal('Tailoring')<746 then
   Skil = 746
end if
if uo.SkillVal('Tailoring')<500 then
   Skil = 500
end if

MaxWeight= (uo.STR*3.5)+39
if MaxWeight > 410 then
MaxWeight = 410
end if 
UO.print("***** "+str(Skil))
IF uo.count(SewKit) then
REPEAT 
uo.usetype(SewKit) 
wait(500)

REPEAT 
uo.deletejournal()
UO.LClick(325,452);<----нужно подобрать под свое разрешение экрана
                             ;        это кнопка сделать последнее 
wait(1000)
if uo.InJournal(Cli1) or uo.InJournal(Cli2) or uo.InJournal(Cli3) or uo.InJournal(Cli4) then 

if uo.count(SewKit) then
Poreska()
uo.usetype(SewKit) 
wait(500)
endif 
endif


UNTIL uo.count(Cloth) < IngVesh or (UO.Weight >= MaxWeight) or not uo.count(SewKit) or uo.SkillVal('Tailoring')== Skil
if uo.count(SewKit) then
   Poreska()
wait(500)
else
   ;Grabing(SewKit,'0x0000',5,'1')
    UO.Exec('terminate Tailor()')
endif 

UNTIL (uo.count(Cloth) < IngVesh) or not uo.count(SewKit) or uo.SkillVal('Tailoring')== Skil
end if
wait(500)
end sub 

;---------------------------------------------
sub Poreska()
var i,n
Dim A[6]
A[0] = 0x152E ;short pants
A[1] = 0x1EFD ;fancy shirt
A[2] = 0x2307 ;fur boots 
A[3] = 0x230C ;fur sarong
A[4] = 0x175D ;Oil cloth
A[5] = 0x13D6 ;
A[6] = 0x13D5 ;studded gloves

i = 100
FOR n=0 TO 6
uo.findtype(A[n],"-1","my")

if uo.findcount() > 0 then 
REPEAT 
UO.waittargetobject('finditem')
wait(100)

UO.usetype(0x0F9F);Scissors
wait(1200)
uo.findtype(A[n],"-1","my")

UNTIL uo.findcount() == 0 
end if 
NEXT
end sub

.....
if uo.count(SewKit) then
   ;Poreska()
wait(500)
......

sub tailoring() 
VAR Tkan = "0x175D" 
VAR Kit = "0x0F9D" 
VAR pants =  ''   ; вписать тип штанов
VAR scisors =  ''   ; впистаь тип ножниц
UO.CancelMenu() 
q7: 
uo.exec ("waitmenu 'Cloth' 'Legwear' 'Legwear' 'long pants'") 
uo.waittargettype(Tkan) 
uo.usetype (Kit) 
wait(4000) 
UO.FindType( pants )
  If UO.FindCount() Then
    UO.WaitTargetObject( 'finditem' )
    UO.UseType( 'scisors' )
  EndIf
goto q7 
end sub