Page 1 of 1

Помогите ошибку найти!!

Posted: 2004-05-29 18:32:35
by AvantriX

Code: Select all

sub black()
VAR forge='0x41DC661C'
VAR Cont='0x400F7BC7'
VAR molot='0x1BEF'
   while true
   ToHide()
       UO.deletejournal()
       UO.WaitMenu('Blacksmithing','Weapons','Weapons','Fences','Spears','Steel Dagger')
       UO.UseType(molot)
      
      If UO.injournal("You put") then
      UO.FindType('0x0F51',-1,'backpack')
      wait(200)
      UO.WaitTargetObject('finditem')
        UO.UseObject(Forge)
      end if
      
        UO.FindType('0x1BEF',0x03DA,'backpack')
      If UO.GetQuantity('finditem')<10 then
       UO.FindType('0x1BEF','0x03DA',Cont)
      wait(1000)
      UO.Grab('200','finditem')
      Endif
   wend
end sub


подскажите где ошибся
скрипт на БС
заранее фенкс!

Posted: 2004-05-29 19:16:59
by Lord Ruslan Nightmare

Code: Select all

sub black() 
VAR forge='0x41DC661C'
VAR Cont='0x400F7BC7'
VAR molot='0x1BEF'
var i
   while true
   ToHide()
       UO.deletejournal()
       UO.WaitMenu('Blacksmithing','Weapons','Weapons','Fences','Spears','Steel Dagger')
       UO.UseType(molot)
       i = 0
       while not uo.injournal("You put") and not uo.injournal("сообщение при физзле") and i < 6000
         wait(100)
         i = i + 100
       wend
      If UO.injournal("You put") then
      UO.FindType('0x0F51',-1,'backpack')
      wait(200)
      UO.WaitTargetObject('finditem')
        UO.UseObject(Forge)
      end if
#основная ошибка была здесь vvv - ты забыл заключить цвет в кавычки   
        UO.FindType('0x1BEF','0x03DA','backpack')
      If UO.GetQuantity('finditem')<10 then
       UO.FindType('0x1BEF','0x03DA',Cont)
      wait(1000)
      UO.Grab('200','finditem')
      Endif
   wend
end sub

Posted: 2004-05-29 23:00:45
by AvantriX
еще вопрос почему при реконнекте в уо он не может найти контейнер пишет инвалит обжект чё то там граб 200.....

и вот еще с утра по до мной валялась все инги которые я выкладывал в паке куча даггеров то есть он не всегда все успевает трэшить они копяться а потом даже инги не влазиют.....вот что с этим делать кто подскажет?

заранее благодарю!

Posted: 2004-05-30 19:15:50
by Lord Ruslan Nightmare
делай спец. проверку внутри скрипта на дисконнэкт и не возвращайся к скрипту, пока не реконнэктнется и не выждет секунд 20, пока сервер всю инфу тебе перельет. Может, поможет.

Code: Select all

      UO.FindType('0x0F51',-1,'backpack') 
      wait(200)
      UO.WaitTargetObject('finditem')
        UO.UseObject(Forge)
      end if

Засунь это в цикл

Code: Select all

      UO.FindType('0x0F51',-1,'backpack') 
      while uo.findcount()
        UO.WaitTargetObject('finditem')
        UO.UseObject(Forge)
        wait(400)
        UO.FindType('0x0F51',-1,'backpack')
      wend