Carpentry_problem

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Dimage
Posts: 36
Joined: 2006-12-04 00:23:37
Contact:

Carpentry_problem

Post by Dimage »

Code: Select all

sub Carpentry(); делаем dartboard-ы!
    repeat
     UO.usetype(0x1034,0)
     UO.waitmenu('Carpentry','Weapons','Weapons','fishing pole')
     while not UO.InJournal("You put the fishing") and not UO.InJournal("You fail to create the")
       Wait(100)
     wend
     UO.DeleteJournal()
     if (UO.Count('0x1BDD',0) < 50) then
        uo.findtype("0x1BDD","0","ground")
        if uo.FindCount() then
           UO.grab("500","finditem")
           UO.Print('Нашли логи на полу... и взяли их в пак')   
        endif
        Wait(1000)
     endif
     if (UO.Count('0x0EED',0) > 0) then
        uo.findtype("0x0EED","0","my")
        UO.drop("-1","0","0","0","finditem")
        UO.Print('Выбросили бабло...')
        Wait(100)
     endif
    until (UO.Count('0x1BDD',0) < 50)
    UO.Print('Мля логи закончились...')
    UO.Print('Ещё логов хочууу...');
end sub


Почемуто на выборе мену иногда выключается...можеты быть паузу добавить?
TheXupypr
Posts: 4
Joined: 2006-12-11 13:07:33

Post by TheXupypr »

Возможно надо паузу поставить или попробуй поменять вот это

Code: Select all

     while not UO.InJournal("You put the fishing") and not UO.InJournal("You fail to create the") 
       Wait(100)
     wend

НА

Code: Select all

repeat 
      wait(300)
   until uo.InJournal('You put the fishing') or uo.InJournal('You fail to create the')


Выше указанная команда помоему гармоничнеё получаеться и она спецмально для этого предназначена
И ешо

Code: Select all

UO.DeleteJournal()
Должно идти не после цикла а перед ним... попробуй думаю должно заработать
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Code: Select all

     UO.waitmenu
     UO.usetype(0x1034,0)
Dimage
Posts: 36
Joined: 2006-12-04 00:23:37
Contact:

Post by Dimage »

NMY wrote:

Code: Select all

     UO.waitmenu
     UO.usetype(0x1034,0)


СПС за подсказку ... нашёл ещё решение в automenu

Code: Select all

sub Carpentry();
   UO.automenu('Carpentry','Weapons')
   UO.automenu('Weapons','fishing pole')
   repeat
      UO.usetype(0x1034,0)
      while not UO.InJournal("You put the fishing") and not UO.InJournal("You fail to create the")
         Wait(100)
      wend
      UO.DeleteJournal()
      if (UO.Count('0x1BDD',0) < 50) then
         uo.findtype("0x1BDD","0","ground")
         if uo.FindCount() then
            UO.grab("500","finditem")
         endif
         Wait(1000)
      endif
      if (UO.Count('0x0EED',0) > 0) then
         uo.findtype("0x0EED","0","my")
         UO.drop("-1","0","0","0","finditem")
         Wait(100)
      endif
   until (UO.Count('0x1BDD',0) < 50)
   UO.cancelmenu()
end sub
Post Reply