Yoko

Этот скрипт я старался зделать под ЕП как мог все получилось правда когда сверху выходит окошко мне нужно нажать на Misc а потом на Пергамент я прописал названия но скрипт нетыкает в них и в итоге некрафтит... помогите молю.



####################################################################
; Teiloring. v.1.03b (c) Edred
; шкуры лежат на полу.
sub teiloring()
VAR Sunduk1 = '0x400DE333' ; Сериал сундука с пустыми мешками должно ьыть 10
VAR Sunduk2 = '0x402D8493' ; Сериал пустого сундука
VAR Meshok = '0x0E76' ; Тип мешка которые в первом сундуке
VAR Shkur = '0x1067' ; Тип кожицы
VAR Kit = '0x0F9D' ; Тип инструмента тейлора
VAR Parchment = '0x0E34' ; Тип пергамента
VAR Kolvo = 200 ; Брать шкур, когда скрафтит возмет еще
VAR MeshSer, j, ShkurSer, k
While TRUE
UO.FindType( Shkur, -1, 1 ) ; Ищем шкуры на полу
If UO.FindCount() == 0 Then
UO.Print("Leathers not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' ) ; Кладем логи в пак
wait( 2000 )
UO.FindType( Meshok, -1, Sunduk1 ) ; Ищем мешок в сундуке 1
MeshSer = UO.GetSerial( 'finditem' )
UO.Grab( '1', 'finditem' ) ; Кладем его в бэкпак
wait( 2000 )
UO.MoveItem( MeshSer, 0, Sunduk2 )
wait( 2000 )
While UO.Count( Shkur ) > 1
; Пока в паке есть шкуры
UO.Print('Ostalos ' + Str( UO.Count( Shkur ) ) + ' shkur' )
UO.FindType( Shkur, -1, 'backpack' )
ShkurSer = UO.GetSerial( 'finditem' )
UO.CancelMenu()
UO.DeleteJournal()
UO.WaitMenu ("Misc", "Parchment")
UO.WaitTargetObject( ShkurSer )
UO.UseType( Kit )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
; Wait( 14000 )
; Скрафтили пергамент
; Сразу переложим его в мешок
if UO.Count( Parchment ) > 0 then
UO.FindType( Parchment, -1, 'backpack' )
UO.MoveItem( 'finditem', 0, MeshSer )
wait( 2000 )
UO.Print( 'Parchment perelozhen' )
end if
Wend
Wend
end sub

сам играю на ЕП - если надо стукни в аську - 276756709 , скрипт есть уже работающий.