Тинкеринг.

SnOo13 · Post by **SnOo13** » 2006-03-17 23:46:18

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

Помогите-пожалуйста, скрипт Едреда.
Всё проставил на свои значение.

Grin · Post by **Grin** » 2006-03-17 23:59:01

гыгыгы... съеть чара... Эд юморист;)
Утебя не все функции... открылбы словарики перевелбы чег оот тебя хотят...
EatChar( Sunduk, 2, 2, 60 ) скорей всего это питалово хотя хз

название больше на каниболизм смахивает;)
но думаю это не сильно повлияет если ты эту строчку снесешь;)

SnOo13 · Post by **SnOo13** » 2006-03-18 00:00:04

Я знал как переводится

Но меня мучали сомнения что это вообше такое и что оно даёт

SnOo13 · Post by **SnOo13** » 2006-03-18 00:04:00

Снёс строчку,
опять выскочила ошибка, напрёг мозги просмотрел еше раз скрипт и нашел еше одну мою ошибку

Кажется я начинаю хоть чтото понимать!

Спасибо Грин, ты меня навёл на нужную тропинку)

Grin · Post by **Grin** » 2006-03-18 00:04:06

ну так откуда скрипт то? наверника там все было...

SnOo13 · Post by **SnOo13** » 2006-03-18 00:09:38

viewtopic.php?t=6903&highlight=Скрипты
отсюда.
Там не всё.
Но зачем ЕатЧар, я так и не понял

Grin · Post by **Grin** » 2006-03-18 00:25:53

Code: Select all

##################################################################### 
; ================================================================ 
; Процедура подкормки чара. Параметры: сериал контейнера с медом, номер 
; сообщения до которого кормить, сколько съесть меда после сообщения, 
; как часто кормить чара. 
; Прохождение последнего периода контролируется через глобальную переменную 
; TimeProcess. 
; 
; ver. 1.05 (c) Edred 
; 
Sub EatChar( Sunduk, Nom, Add, TimeWait )

все там есть смотри лутше;)

Edred · Post by **Edred** » 2006-03-18 10:39:09

Grin wrote:гыгыгы... съеть чара... Эд юморист;)
EatChar( Sunduk, 2, 2, 60 ) скорей всего это питалово хотя хз название больше на каниболизм смахивает;)

Ну и что? Мне так больше нравится... :lol:

Granovskiy · Post by **Granovskiy** » 2009-01-01 19:09:30

Блин люди у меня тоже нифига невышло ! А мне нужно чтобы он именно эти "clock parts" делал ! Помогите плиззззз

Пост правда за 2006-той год )) Но всёровно помогите плиз !!!

Millerbeer · Post by **Millerbeer** » 2009-01-01 20:10:14

а у тебя какая ошибка вылетает?

Granovskiy · Post by **Granovskiy** » 2009-01-02 00:10:25

Function not fount - EATCHAR :lol:

Millerbeer · Post by **Millerbeer** » 2009-01-02 00:59:14

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

Что-то типа такого, в начале скрипта сундук прицелом покажешь