Меню тейлоринга

Ask for help

Moderators: Murderator+, Murderator

Post Reply
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:

Меню тейлоринга

Post by Leo »

Code: Select all

      UO.WaitMenu('Leather','Packs','Packs','backpack')


Почему это не пашет? Шард ДРВ.
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Re: Меню тейлоринга

Post by Askaneli »

Leo wrote:

Code: Select all

      UO.WaitMenu('Leather','Packs','Packs','backpack')


Почему это не пашет? Шард ДРВ.

Синтаксис правильный.
а вот слова проверь по буквам.
Сделал дело - флуди смело !!!
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:

Post by Leo »

Вот весь скрипт.

Code: Select all

sub taylor()
   VAR Cont='0x4037E83B'
   VAR Trash='0x40024DBA'
   while NOT UO.Dead()
      ToHide()

      UO.FindType('0x1067','0x0000','backpack')
      if UO.GetQuantity('finditem')<4 then
         UO.UseObject(Cont)
         UO.FindType('0x0E21','0x0000','backpack')
         if UO.GetQuantity('finditem')>0 then
            UO.SetReceivingContainer(Cont)
            wait(1000)
            UO.Grab('all','finditem')
            wait(1000)
            UO.UnSetReceivingContainer()
         Endif
       
         UO.FindType('0x1067','0x0000',Cont)
         wait(1000)
         UO.Grab('600','finditem')
         wait(1000)
      endif
       
      CheckLag()
       
      UO.WaitMenu('Leather','Packs','Packs','backpack')
      UO.WaitTargetType('0x1067')
      UO.UseType('0x0F9D')
      UO.DeleteJournal()
      wait(1000)
       
      repeat
         wait(100)
      until UO.InJournal('fail') or UO.InJournal('put')
      UO.DeleteJournal()
       
      uo.findtype('0x0E75','0x0000','backpack')
      wait(100)
      if UO.GetQuantity('finditem')>0  then
      uo.moveitem('finditem','-1',Trash)
       wait(500)
      endif
   wend
endsub

Sub tohide()
   while NOT UO.Hidden()
      UO.DeleteJournal()
         UO.Exec('warmode 0')
         UO.UseSkill('Stealth')
         repeat
         wait(50)
         until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
      endif
   wend
end sub

Sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(50)
   until UO.InJournal('backpack')
end sub


Проверил всё по буквам, всё равно не шьёт.
Dron D.
Posts: 190
Joined: 2004-12-13 01:27:00

Post by Dron D. »

У меня буквально час назад возникли тее проблемы с тейлором на дрв:

Code: Select all

sub tailor() 
var count
VAR SourceContainer='0x40392E25';Id сейфа
VAR DestContainer='0x40339190';Id бекпека
VAR TType='0x1F03';Тип вещи, которую крафтите (необходимо для резания ножницами на бинтики)
UO.CancelMenu()
UO.FindType('0x175D','0x0000',SourceContainer)
UO.AutoMenu('Cloth','Shirts');Скрипт делает робы, но если хотите делать что-нибудь другое,
UO.AutoMenu('Shirts','robe') ;то менять надо именно тут (и не забудте изменить тип TType)
repeat
count=0
UO.DeleteJournal()
uo.usetype(0x0F9D)
uo.waittargettype(0x175D)
while not UO.InJournal("You put")and not UO.InJournal("ruined") and count<40
wait(200)
count=count+1
wend

if uo.Count(0x175D)<16 then
while not uo.Count(TType)==0
uo.usetype(0x0F9E)
uo.waittargettype(TType)
wait(1000)
wend
MoveBint()
UO.FindType('0x175D','0x0000',SourceContainer)
      If UO.GetQuantity('finditem')>0 Then
         CheckLag()
         UO.MoveItem('finditem','200',DestContainer)
      endif
endif
until UO.GetQuantity('finditem')==0
UO.CancelMenu()
#UO.exec('exec healing')
end sub

sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(500)
   until UO.InJournal('backpack')
end sub

sub MoveBint() # Добавлено киркой, который учится писать скрипты ГЫгЫ )) кидает бинты в ящик...
UO.Print('Перекинем бинтики')
    uo.FindType('0x0E21','-1','backpack')
if UO.GetQuantity('finditem') > 20 then
   uo.MoveItem('finditem',-1,'0x4038FF07')
   else
   uo.Print("Iaei aeioia")
EndIf
endsub


После подстановки в место автоменю, новой фразы на крафт робы, скрипт крафтит 1 робу, выдает сообщение automenu cancelled и заканчивает скрипт... сижу вот разбираюсь не пойму в чем дело.
Arsuri
Posts: 62
Joined: 2005-02-25 13:31:26
Location: DRW, [Hussars]
Contact:

Re: Меню тейлоринга

Post by Arsuri »

Leo wrote:

Code: Select all

      UO.WaitMenu('Leather','Packs','Packs','backpack')


Почему это не пашет? Шард ДРВ.


Проверял, гриш? Вот так правильно:

Code: Select all

UO.WaitMenu('Leather','Misc','Packs','backpack')
Dron D.
Posts: 190
Joined: 2004-12-13 01:27:00

Post by Dron D. »

Хммм у меня тож вроде все нормально, спустя час скрипт сам заработал я не чего не менял )
Post Reply