sub tinker()
VAR Sunduk = '0x40195E1D' ; Сериал сундука
VAR Ingi = '0x1BEF' ; Тип ингов
VAR Instrum = '0x1EBC' ; Тип инструмента тинкера
VAR Clock = '0x104F' ; Тип итема который будем изготовлять
VAR Kolvo = 200 ; Брать ингов
VAR k = 0
UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
; Начало отсчета скрипта
While TRUE
EatChar( Sunduk, 2, 2, 60 )
UO.FindType( Ingi, -1, Sunduk ) ; Ищем инги в сундуке
If UO.FindCount() == 0 Then
UO.Print("Iron Ingots not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
While UO.Count( Ingi ) > 0
; Пока в паке есть инги
; UO.CancelMenu()
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
UO.DeleteJournal()
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'clock parts' )
UO.UseType( Instrum )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
if UO.Count( Clock ) > 0 then
UO.FindType( Clock, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
UO.Print( 'Clock moved' )
end if
Wend
Wend
end sub
Вроде всё правильно.
Запускаю скрипт пишет,
Function not fount - EATCHAR
Помогите-пожалуйста, скрипт Едреда.
Всё проставил на свои значение.
гыгыгы... съеть чара... Эд юморист;)
Утебя не все функции... открылбы словарики перевелбы чег оот тебя хотят...
EatChar( Sunduk, 2, 2, 60 ) скорей всего это питалово хотя хз название больше на каниболизм смахивает;)
но думаю это не сильно повлияет если ты эту строчку снесешь;)
Снёс строчку,
опять выскочила ошибка, напрёг мозги просмотрел еше раз скрипт и нашел еше одну мою ошибку
Кажется я начинаю хоть чтото понимать!
Спасибо Грин, ты меня навёл на нужную тропинку)
#####################################################################
; ================================================================
; Процедура подкормки чара. Параметры: сериал контейнера с медом, номер
; сообщения до которого кормить, сколько съесть меда после сообщения,
; как часто кормить чара.
; Прохождение последнего периода контролируется через глобальную переменную
; TimeProcess.
;
; ver. 1.05 (c) Edred
;
Sub EatChar( Sunduk, Nom, Add, TimeWait )
Grin wrote:гыгыгы... съеть чара... Эд юморист;)
EatChar( Sunduk, 2, 2, 60 ) скорей всего это питалово хотя хз название больше на каниболизм смахивает;)
sub tinker()
uo.print('Покажи сундук с ингами')
uo.addobject('sunduk')
while uo.targeting()
wait(300)
wend
uo.useobject('sunduk')
wait(1000)
checklag()
VAR Ingi = '0x1BEF' ; Тип ингов
VAR Instrum = '0x1EBC' ; Тип инструмента тинкера
VAR Clock = '0x104F' ; Тип итема который будем изготовлять
zagruzka:
if not uo.count('0x1BEF','0x0000') then
UO.FindType( Ingi,'0x0000', 'sunduk' ) ; Ищем инги в сундуке
If UO.FindCount() Then
uo.moveitem('finditem','500','backpack')
wait(1000)
checklag()
else
uo.print('Инготы закончились!!!')
return
Endif
While UO.Count(Ingi,'0x0000') and uo.count(Instrum,'0x0000')
; Пока в паке есть инги
UO.Print('Ostalos ' + Str( UO.Count( Ingi,'0x0000' ) ) + ' ingots' )
UO.DeleteJournal()
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'clock parts' )
UO.UseType( Instrum,'0x0000' )
repeat
wait(300)
until uo.injournal('You put|fail')
while uo.count(Clock,'0x0000')
UO.FindType( Clock,'0x0000','backpack' )
UO.MoveItem( 'finditem', '0', 'sunduk' )
wait( 1000 )
checklag()
UO.Print( 'Clock moved' )
wend
Wend
goto zagruzka
end sub
Sub Checklag()
deljournal('a backpack')
uo.click('backpack')
repeat
wait(50)
until uo.injournal('a backpack')
endsub
Sub deljournal(msg)
while uo.injournal(msg)
uo.setjournalline(uo.injournal(msg)-1,"")
wend
endsub
Что-то типа такого, в начале скрипта сундук прицелом покажешь
название больше на каниболизм смахивает;) 
