Подскажите, в чем проблема?

kristalla · Post by **kristalla** » 2005-04-05 18:57:59

Мне друг подкинул скрипт, который кует катаны, затем переплавляет их заново в инги, а когда ингов меньше 10, то берет еще инги из сундука. В сундуке много мешков (копаю и кую в ВИП шахте, людей копает много, поэтому мешков тоже много (для каждого)).
Дело в том, что он все делает, но не берет инги из мешка.
Скажите, в чем проблема?

ID сундука: 0x400BF2CC, тип сундука: 0x09AB
ID моего мешка: 0x4020D789, тип моего мешка: 0x0E76

sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords', 'katana') ;Что куем
UO.UseType(0x1BEF)

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend

If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
EndIf

UO.FindType('0x13FE',-1,'backpack')
wait(500)

If UO.FindCount() > 0 then
UO.WaitTargetObject('finditem')
UO.UseObject('0x400C0EE4') ;
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x400BF2CC','0x4020D789','0x1BEF')
wait(1000)
UO.Grab('990','finditem')
Endif
wait(1000)
wend
end sub

Скажите, в чем ошибка?

Denton · Post by **Denton** » 2005-04-05 19:58:01

kristalla wrote:UO.FindType('0x400BF2CC','0x4020D789','0x1BEF')

Мне очень не нравится эта строчка... Что-то в ней не так. Не разбирался

Immelstorn · Post by **Immelstorn** » 2005-04-05 20:21:00

Исправь сторочку UO.FindType('0x400BF2CC','0x4020D789','0x1BEF') на
UO.FindType(0x1BEF,-1,0x400BF2CC)

Mguai · Post by **Mguai** » 2005-04-05 20:24:03

Проблема в мозгах :twisted:

kristalla · Post by **kristalla** » 2005-04-05 20:35:22

Immelstorn wrote:Исправь сторочку UO.FindType('0x400BF2CC','0x4020D789','0x1BEF') на
UO.FindType(0x1BEF,-1,0x400BF2CC)

Инги все равно не берет. Пишется: invalid object: 990

Mguai: Если не можешь/не хочешь помочь - молчал бы.

Mguai · Post by **Mguai** » 2005-04-05 20:55:37

ни надо нервнячить тебе помогут добрые Люди

kristalla · Post by **kristalla** » 2005-04-06 16:26:16

Кто-нибудь, пожалуйста, скажите, в чем ошибка, почему он не берет из мешка инги?

Sfagnum · Post by **Sfagnum** » 2005-04-06 16:31:11

UO.FindType('0x400BF2CC','0x4020D789','0x1BEF') - удали нах.

kristalla · Post by **kristalla** » 2005-04-06 18:22:24

Не помогает.

Ув. Sfagnum! Пожалуйста, не могли бы вы переделать/доделать этот скрипт? Пожалуйста.
Идея, я думаю, понятна: чар кует катаны из айрона, переплавляет их в инги, когда инги заканчиваются, берет еще ингов.
Играю на ДРВ.
Все, кого спрашиваю, не знают, в чем дело, почему он не берет инги.

Sfagnum · Post by **Sfagnum** » 2005-04-06 19:59:41

Code: Select all

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x400BF2CC','0x4020D789','0x1BEF')
wait(1000)
UO.Grab('990','finditem')
Endif

этот кусок заменить на последующий

Code: Select all

If UO.Count('0x1BEF','0x0000')<10 then
  UO.FindType('0x1BEF','0x0000','0x400BF2CC')
  UO.MoveItem('finditem','990','backpack')
  wait(1000)
Endif

Savage · Post by **Savage** » 2005-04-06 21:31:52

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

Ну или в скрипт вписать вначале: uo.useobject('ид сундука') uo.useobject('ид мешка')

'ps Такого мутанта я еще не видел

вот оригинал:

Code: Select all

sub bs()
   VAR Exit=0, LastTimer, Forge='0x400D22C9', Cont='0x400D1BFC'
   while Exit<>1
      ToHide()
      UO.DeleteJournal()
      LastTimer=UO.Timer()
      UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
      UO.UseType(0x1BEF) ; iron ings

      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
            wait(500)
      wend

      If UO.InJournal("You have failed") then
         repeat
            wait(100)
         until UO.Timer()>=LastTimer+100 ;time to make a dagger
      EndIf

      UO.FindType('0x0F51',-1,'backpack')
      wait(500)

      If UO.GetQuantity('finditem') then
         UO.WaitTargetObject('finditem')
         UO.UseObject(Forge) ;forge
      Endif

      UO.FindType('0x1BEF',-1,'backpack')
      If UO.GetQuantity('finditem')<10 then
         UO.FindType('0x1BEF','0x0000',Cont)
         wait(1000)
         UO.Grab('1000','finditem')
      Endif
      wait(1000)
   wend   
   gong(2)
end sub

который можно поправить для твоих нужд так:

Code: Select all

sub bs()
   VAR Exit=0, LastTimer, Forge='0x400C0EE4', Cont='0x4020D789'
   UO.UseObject('0x400BF2CC')
   UO.UseObject(Cont)
   while Exit<>1
      UO.DeleteJournal()
      LastTimer=UO.Timer()
      UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords', 'katana') ;Что куем 
      UO.UseType(0x1BEF) ; iron ings

      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
            wait(500)
      wend

      If UO.InJournal("You have failed") then
         repeat
            wait(100)
         until UO.Timer()>=LastTimer+100 ;time to make a dagger
      EndIf

      UO.FindType('0x13FE',-1,'backpack')
      wait(500)

      If UO.GetQuantity('finditem') then
         UO.WaitTargetObject('finditem')
         UO.UseObject(Forge) ;forge
      Endif

      UO.FindType('0x1BEF',-1,'backpack')
      If UO.GetQuantity('finditem')<10 then
         UO.FindType('0x1BEF','0x0000',Cont)
         wait(1000)
         UO.Grab('990','finditem')
      Endif
      wait(1000)
   wend   
end sub

Наслаждайся

kristalla · Post by **kristalla** » 2005-04-07 14:40:48

Большое спасибо вам. Теперь все работает

Yoko

Подскажите, в чем проблема?

Подскажите, в чем проблема?

Re: Подскажите, в чем проблема?