Yoko
http://forum.yoko.com.ua/

помогите с тайлорингом
http://forum.yoko.com.ua/viewtopic.php?f=17&t=13364		 Page 1 of 1
Author:  Funt [ 2008-03-11 14:00:30 ]
Post subject:  помогите с тайлорингом
Code:
sub tailoring()
var j=0
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'Cloth' 'Shirts'")
UO.Exec ("automenu 'Shirts' 'robe'")
repeat
repeat
UO.FindType('0x175D','0x0000','backpack') 
put1: 
If UO.GetQuantity('finditem')<35 then 
UO.FindType('0x175D','0x0000','0x400DA283') ;serial sunduka 
UO.Grab('100','finditem')
wait(1000) 
Endif 
UO.FindType('0x175D','0x0000','backpack') 
If UO.GetQuantity('finditem')<35 then 
goto put1 
end if
UO.WaittargetType('0x175D') 
UO.Usetype('0x0F9D') 
wait (1000) 
UO.DeleteJournal() 
while not (UO.InJournal("You put") or UO.InJournal("Tailoring failed")) 
wait(300) 
wend 
j=j+1
if j==50 then
j=0
UO.Print('AAAAAAAAAAAAAAAA' ) 
wait(20000)
endif 


while uo.count("0x1F03") > 0 
uo.exec("findtype 0x1F03") 
uo.moveitem ('finditem','-1','0x400D359C')
wait(1000) 
wend
end if
until uo.dead()
end sub


Вот такой скрипт. В целом рабочий, но слетающий в неопределенный момент.

Пишет You can't see the target и останавливается. При этом тряпок может быть в паке порядка 230. Что невозможно, исходя из скрипта. Т.Е. если я правильно понял скрипт не находит тряпки в бэкпаке. Возможно что-то с версией инжекта, не знаю. Если кому-то не сложно исправьте пожалуйста!
Author:  Kynep [ 2008-03-12 23:04:39 ]
Post subject:  Re: помогите с тайлорингом
Funt wrote:

Вот такой скрипт. В целом рабочий, но слетающий в неопределенный момент.



Code:
sub tailoring()
   var j=0
   UO.Exec ("cancelmenu")
   UO.Exec ("automenu 'Cloth' 'Shirts'")
   UO.Exec ("automenu 'Shirts' 'robe'")
   repeat
      UO.FindType('0x175D','0x0000','backpack')
      put1:
      If UO.GetQuantity('finditem')<35 then
         UO.FindType('0x175D','0x0000','0x400DA283') ;serial sunduka
         UO.Grab('100','finditem')
         wait(1000)
      Endif
      UO.FindType('0x175D','0x0000','backpack')
      If UO.GetQuantity('finditem')<35 then
         goto put1
      end if
      UO.WaittargetType('0x175D')
      UO.Usetype('0x0F9D')
      wait (1000)
      UO.DeleteJournal()
      while not (UO.InJournal("You put") or UO.InJournal("Tailoring failed"))
         wait(300)
      wend
      j=j+1
      if j==50 then
         j=0
         UO.Print('AAAAAAAAAAAAAAAA' )
         wait(20000)
      endif
      
      
      while uo.count("0x1F03") > 0
         uo.exec("findtype 0x1F03")
         uo.moveitem ('finditem','-1','0x400D359C')
         wait(1000)
      wend
   until uo.dead()
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/