Page 1 of 1
Тинкеринг.
Posted: 2006-03-17 23:46:18
by SnOo13
Code: Select all
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
Помогите-пожалуйста, скрипт Едреда.
Всё проставил на свои значение.
Posted: 2006-03-17 23:59:01
by Grin
гыгыгы... съеть чара... Эд юморист;)
Утебя не все функции... открылбы словарики перевелбы чег оот тебя хотят...
EatChar( Sunduk, 2, 2, 60 ) скорей всего это питалово хотя хз
название больше на каниболизм смахивает;)
но думаю это не сильно повлияет если ты эту строчку снесешь;)
Posted: 2006-03-18 00:00:04
by SnOo13
Я знал как переводится
Но меня мучали сомнения что это вообше такое и что оно даёт
Posted: 2006-03-18 00:04:00
by SnOo13
Снёс строчку,
опять выскочила ошибка, напрёг мозги просмотрел еше раз скрипт и нашел еше одну мою ошибку
Кажется я начинаю хоть чтото понимать!
Спасибо Грин, ты меня навёл на нужную тропинку)
Posted: 2006-03-18 00:04:06
by Grin
ну так откуда скрипт то? наверника там все было...
Posted: 2006-03-18 00:09:38
by SnOo13
viewtopic.php?t=6903&highlight=Скрипты
отсюда.
Там не всё.
Но зачем ЕатЧар, я так и не понял
Posted: 2006-03-18 00:25:53
by Grin
Code: Select all
#####################################################################
; ================================================================
; Процедура подкормки чара. Параметры: сериал контейнера с медом, номер
; сообщения до которого кормить, сколько съесть меда после сообщения,
; как часто кормить чара.
; Прохождение последнего периода контролируется через глобальную переменную
; TimeProcess.
;
; ver. 1.05 (c) Edred
;
Sub EatChar( Sunduk, Nom, Add, TimeWait )
все там есть смотри лутше;)
Posted: 2006-03-18 10:39:09
by Edred
Grin wrote:гыгыгы... съеть чара... Эд юморист;)
EatChar( Sunduk, 2, 2, 60 ) скорей всего это питалово хотя хз
название больше на каниболизм смахивает;)
Ну и что? Мне так больше нравится...
Posted: 2009-01-01 19:09:30
by Granovskiy
Блин люди у меня тоже нифига невышло ! А мне нужно чтобы он именно эти "clock parts" делал ! Помогите плиззззз
Пост правда за 2006-той год )) Но всёровно помогите плиз !!!
Posted: 2009-01-01 20:10:14
by Millerbeer
а у тебя какая ошибка вылетает?
Posted: 2009-01-02 00:10:25
by Granovskiy
Function not fount - EATCHAR
Posted: 2009-01-02 00:59:14
by Millerbeer
Code: Select all
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
Что-то типа такого, в начале скрипта сундук прицелом покажешь