Page 1 of 1

Blacksmithing Помогите ПЛЗ.

Posted: 2006-08-13 12:42:52
by Alegarh
Проблемма в том, что при написании пути Крафта скрипт путается незнаю почему ??? Наверно изза совпадения 3-ей и 4-ой строчки, помогите...

Code: Select all

uo.automenu('Blacksmithing','Colored Armor & Weapons') 
uo.automenu('Colored Armor & Weapons','Dull Copper Armor')
uo.automenu('Dull Copper Armor & Shields','t Dull Copper Armor & Shield')
uo.automenu('Dull Copper Armor & Shields','Dull Copper Heater Shield (18')

Posted: 2006-08-19 21:30:29
by 1a2a3a4a5a6a
Последняя строчка, в названии айтема нехватает закрывающей скобки. А вообще, раз ты на ДрВ, то кол-во ингов в названии можно не указывать.

Posted: 2006-08-24 13:22:25
by Alegarh
Не проблемма не в этом, так я и не понял в чём дело, вроде это ошибка Ультимы :?

Posted: 2006-08-24 14:12:43
by Savage
Амперсанд.

Posted: 2006-08-24 14:50:50
by Alegarh
Вхат???

Posted: 2006-08-24 17:05:14
by Savage
Глючить может из за амперсанда. Для захвата меню достаточно одного слова. Пробуй настраивать построчно. Сначала запускаешь одну строку меню и делаешь попытку сковать предмет если меню провалилось на 1 левел запускаешь вторую строчку и пробуешь ковать предмет.... и так пока не скует. Таким же образом выявляется неработающий пункт меню.

Вот скрипт старенький, может уже и не работает.

Code: Select all

sub bsarm()
   VAR IngName,Delay=3000

   IngName="Gold"
   UO.FindType('0x0E76','0x0000')
   UO.SetCatchBag('finditem')

   UO.AutoMenu(IngName+' Plate','Platemail (25')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

Plate:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Plate
   endif
   UO.CancelMenu()
   wait(Delay)

   UO.AutoMenu(IngName+' Plate','Platemail Legs')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

Legs:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Legs
   endif
   UO.CancelMenu()
   wait(Delay)

   UO.AutoMenu(IngName+' Plate','Platemail Arms')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

Arms:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Arms
   endif
   UO.CancelMenu()
   wait(Delay)

   UO.AutoMenu(IngName+' Plate','Platemail Gauntlets')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

Gloves:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Gloves
   endif
   UO.CancelMenu()
   wait(Delay)

   UO.AutoMenu(IngName+' Plate','Plate Helm')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

Helm:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Helm
   endif
   UO.CancelMenu()
   wait(Delay)
   
   UO.AutoMenu(IngName+' Plate','Platemail Gorget')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

Gorget:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Gorget
   endif
   UO.CancelMenu()
   wait(Delay)

goto End

   UO.AutoMenu(IngName+' Plate','Heater')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')
Heater:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Heater
   endif
   UO.CancelMenu()
   wait(Delay)

End:
   UO.UnSetCatchBag()

end sub

Posted: 2006-08-25 15:09:16
by Alegarh
Спасибо буду, тестировать.