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