Yoko

Posted: **2006-10-08 04:27:49**

Вобщем идея и сложная и простая. Может у кого-нибудь да есть. Суть в том что мне нужно делать ковры через слишком задроченную меню. Она пятиуровневая(ну ето мелочи) и ковер состоит из 10 частей. Я вот и думал - как сделать, чтобы он изготавливал ковёр пока не изготовится часть и не переходил к следующей а при феиле повторял. Естественно что крафт етих 10 не иначе чем через массив. Но вот названия у частей одинаковые. Буду признателен за помощь, или пример составного крафта.

Posted: **2006-10-08 08:22:55**

Посмотри в теме "То , что ищут многие", мб помжет . Там крафт бланков следущим образом идет по этапно:
крафт бумаги-крафт пергамента-крафт бланка.

Posted: **2006-10-08 08:23:58**

Code: Select all

sub Craft_Blanc() 
  var paper='0x1F24' 
  var blanc='0x0E34' 
  var instrument='0x40029C88' 
  var k , i 
  
  DIM material[2] 
  
  material[0]='0x175D' 
  material[1]='0x1BD7' 

  while not uo.Dead() 
    for i = 0 to 1 
      uo.FindType(material[i],'-1','backpack') 
      if not uo.FindCOunt() then 
        uo.FindType(material[i],'-1','ground') 
        if uo.FindCount() then 
          uo.moveitem('finditem','50') 
          wait(750) 
        end if 
      end if 
    next 
    ## Êðàôò áóìàãè ## 
    repeat 
      uo.DeleteJournal() 
      k = 0 
      uo.WaitMenu('Carpentry','Paper') 
      uo.UseObject(instrument) 
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 ) 
        k = k + 1 
        wait(500) 
      wend 
    until uo.InJournal('You put') 
    ## Êðàôò ïåðãàìåíòà ## 
    repeat 
      k = 0 
      uo.DeleteJournal() 
      uo.WaitMenu('Carpentry','Parchment') 
      uo.UseObject(instrument)    
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 ) 
        k = k + 1 
        wait(500) 
      wend 
      wait(500) 
    until uo.InJournal('You put') 
    ## Êðàôò áëàíêà ## 
    repeat 
      k = 0 
      uo.DeleteJournal() 
      uo.WaitMenu('Carpentry','blank') 
      uo.UseObject(instrument) 
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 ) 
        k = k + 1 
        wait(500) 
      wend  
    until uo.InJournal('You put') 
    uo.FindType(blanc,'-1','backpack') 
    if uo.FindCount() then 
      uo.moveitem('finditem','all','ground') 
      wait(750) 
    end if 
  wend 
end sub

Posted: **2006-10-08 17:32:50**

Спасибо, суть немного не та... но щас попробую чтото изменить....

Posted: **2006-10-08 19:14:01**

В общем, если и тип, и цвет, и название у частей одинаковое, то делай так (мне на форест варз так пришлось извращаться, там диды все одного типа и цвета, а из названия инжект берет только первую строку, а там одно и то же).

1. Перед крафтом пак должен быть чист от частей.
2. Крафтим первую часть. Если физл - повторяем. Когда часть скрафчена - запоминаем ее сериал и в игнор ее.
3. Повторяем аналогично для каждой части
4. Теперь крафтим изделие целиком. Если физл и при этом какая-то часть пропала - придется поиском (игнор отменить естественно) и перебором сериалов выяснять, какую часть перекрафтить.
5. После крафта изделия - скинуть его.
6. По кругу

Posted: **2006-10-09 00:22:31**

а разве по номеру в меню нельзя крафтить ?

Posted: **2006-10-09 00:25:19**

admir wrote:а разве по номеру в меню нельзя крафтить ?

Можно, но как я понял - проблема в определении какая часть ковра в паке какая...

Posted: **2006-10-10 16:26:41**

Я думал что можно вообще автоменю прописать как то сециально: Тоесть
одна автоменю вместо массива и делало бы с 1 по последнюю вещи в меню.

Posted: **2006-10-10 18:04:36**

Ну дык? цикл по количеству итемов (for i=1 to n) и в автоменю (не забудь cancelmenu после успешного крафта) такую конструкцию:

Code: Select all

UO.Automenu( 'ля-ля-ля, тополя', '(' + str(i) + ')' )

Совсем думать народ разучился...

Yoko

Составной крафт.

Составной крафт.