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

Хелп Тейлоринг!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=9169		 Page 1 of 1
Author:  Driskill [ 2006-10-26 21:29:14 ]
Post subject:  Хелп Тейлоринг!
Мона кагто изменить етот скрипт штоб он не резал а просто ложил в сундук то што крафтил!
Code:
var Cont='0x4037E83B' ##ID сундука с тканью, так же туда будут складыватся бинты 
var Creat='0x1541'    ##Тип того, что сшили 
sub Tailoring() 
#¤Leo¤# 
   while NOT UO.Dead() 
      ToHide() 
      UO.FindType('0x175D','0x0000','backpack') 
      if UO.GetQuantity('finditem')<4 then 
         UO.UseObject(Cont) 
         UO.FindType('0x0E21','0x0000','backpack') 
         if UO.GetQuantity('finditem')>0 then 
            UO.SetReceivingContainer(Cont) 
               wait(1000) 
            UO.Grab('all','finditem') 
               wait(1000) 
            UO.UnSetReceivingContainer() 
         Endif 
         UO.FindType('0x175D','0x0000',Cont) 
            wait(1000) 
         UO.Grab('600','finditem') 
            wait(1000) 
      endif 
      CheckLag() 
      UO.WaitMenu('Cloth','Misc','Misc','body sash') 
      UO.WaitTargetType('0x175D') 
      UO.UseType('0x0F9D') 
      UO.DeleteJournal() 
         wait(1000) 
      repeat 
         wait(100) 
      until UO.InJournal('fail') or UO.InJournal('put') 
      UO.DeleteJournal() 
         wait(500) 
      UO.WaitTargetType(Creat) 
      UO.UseType('0x0F9E') 
      CheckLag() 
         wait(500)    
   wend 
endsub 

Sub ToHide() 
   while NOT UO.Hidden() 
      UO.DeleteJournal() 
      UO.Exec('warmode 0') 
      UO.UseSkill('Stealth') 
         repeat 
            wait(50) 
         until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied') 
   wend 
end sub 

Sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub
Author:  Nmy [ 2006-10-26 21:37:39 ]
Post subject: 
Code:
      UO.WaitTargetType(Creat)
      UO.UseType('0x0F9E')
      CheckLag()
         wait(500)


удалить :!:
Author:  Driskill [ 2006-10-27 07:51:28 ]
Post subject: 
работает токо не до конца он неложит то што накрафтил!
можна там както вставить штоб он перед тем как брал следующую партию ресов слаживал то што накратил в туже сумку?
Author:  Nmy [ 2006-10-27 08:15:40 ]
Post subject: 
Driskill wrote:
работает токо не до конца он неложит то што накрафтил!
можна там както вставить штоб он перед тем как брал следующую партию ресов слаживал то што накратил в туже сумку?

Code:
uo.fintype( creat )
while uo.findcount()
uo.moveitem('finditem', 0 , cont )
wait(100)
wend

это можно поставить вместо тех строк
Author:  Driskill [ 2006-10-27 08:19:41 ]
Post subject: 
неа неработает!
Author:  Driskill [ 2006-10-27 08:35:04 ]
Post subject: 
может ктонить такое перевести на язык инжи я впринципе догадываюсь но незнаю куда именно вставлять:
если **** >= 248
тогда **** все перетягиваеццо в сундук
макра начинаеццо заново...
Author:  Nmy [ 2006-10-27 08:42:48 ]
Post subject: 
Driskill wrote:
неа неработает!

что именно неработает? покажы код...
Author:  Driskill [ 2006-10-27 08:46:29 ]
Post subject: 
Code:
sub Tailoring() 
var Cont='0x400be354' ##ID ñóíäóêà ñ òêàíüþ, òàê æå òóäà áóäóò ñêëàäûâàòñÿ áèíòû 
var creat='0x1766'    ##Òèï òîãî, ÷òî ñøèëè 
#¤Leo¤# 
   while NOT UO.Dead() 
          UO.FindType('0x175D','0x0000','backpack') 
      if UO.GetQuantity('finditem')<4 then 
         UO.UseObject(Cont) 
         UO.FindType('0x175d','0x0000','backpack') 
         if UO.GetQuantity('finditem')>0 then 
            UO.SetReceivingContainer(Cont) 
               wait(1000) 
            UO.Grab('all','finditem') 
               wait(1000) 
            UO.UnSetReceivingContainer() 
         Endif 
         UO.FindType('0x175D','0x0000',Cont) 
            wait(1000) 
         UO.Grab('500','finditem') 
            wait(1000) 
      endif 
      CheckLag() 
      UO.WaitMenu('Cloth','Pattern') 
      UO.WaitTargetType('0x175D') 
      UO.UseType('0x0F9D') 
      UO.DeleteJournal() 
         wait(1000) 
      repeat 
         wait(100) 
      until UO.InJournal('fail') or UO.InJournal('put') 
      UO.DeleteJournal() 
         wait(500) 
        wend 
       uo.fintype( creat ) 
       while uo.findcount() 
       uo.moveitem('finditem', 'all' , cont ) 
       wait(100) 
       wend
endsub 

Sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack')
[/code]
Author:  Scripts Writer [ 2006-10-27 15:02:12 ]
Post subject: 
Code:
uo.fintype( creat ,'-1','backpack' )
Author:  Nmy [ 2006-10-27 15:21:34 ]
Post subject: 
Quote:
Если цвет color не укзаан то ищутся обьекты любого цвета.
Если контейнер не указан то ищутся обьекты в бекпаке персонажа.


а ошыбку опишы... или что неработает :?:
Author:  Nmy [ 2006-10-27 15:24:25 ]
Post subject: 
Code:
sub Tailoring()
var Cont='0x400be354' 
var creat='0x1766'   
   while NOT UO.Dead()
          UO.FindType('0x175D','0x0000','backpack')
      if UO.GetQuantity('finditem')<4 then
         UO.UseObject(Cont)
         UO.FindType('0x175d','0x0000','backpack')
         if UO.GetQuantity('finditem')>0 then
            UO.SetReceivingContainer(Cont)
               wait(1000)
            UO.Grab('all','finditem')
               wait(1000)
            UO.UnSetReceivingContainer()
         Endif
         UO.FindType('0x175D','0x0000',Cont)
            wait(1000)
         UO.Grab('500','finditem')
            wait(1000)
      endif
      CheckLag()
      UO.WaitMenu('Cloth','Pattern')
      UO.WaitTargetType('0x175D')
      UO.UseType('0x0F9D')
      UO.DeleteJournal()
         wait(1000)
      repeat
         wait(100)
      until UO.InJournal('fail') or UO.InJournal('put')
      UO.DeleteJournal()
         wait(500)
        wend
       uo.fintype( creat )
       while uo.findcount()
       uo.moveitem('finditem', 'all' , cont )
       wait(100)
uo.fintype( creat )
       wend
wend
endsub
Author:  Driskill [ 2006-10-27 15:55:27 ]
Post subject: 
Незнаю тип зачем ты это все выложил но оно неработает! там вот ошибочка была я исправил сиравно неработает! Млин задолбалсо ужо с этой макрой!

uo.fintype( creat )
исправил на:
uo. findtype( creat ) [/code]
Author:  Driskill [ 2006-10-28 12:55:13 ]
Post subject: 
Ну мужики ну хелпуйте плзлзлзлзлзлзлз! Чар крафтит а потом када закончиццо ткань он берет из сундука следующую партию а по скольку невыложил скрафченое превышаеццо максвеигхт и ткань падает на пол! с пола некратит! хелп! :cry:
Author:  Driskill [ 2006-10-28 23:46:49 ]
Post subject: 
сенкс всем за все огромное вот мной переделанная склепанная но работающая версия скрипта)):

Code:
sub Tailoring() 
var Cont='0x400be354' ##ID ñóíäóêà ñ òêàíüþ, òàê æå òóäà áóäóò ñêëàäûâàòñÿ áèíòû 
var creat='0x1766'    ##Òèï òîãî, ÷òî ñøèëè 
#¤Leo¤# 
   while NOT UO.Dead() 
    if UO.Count( creat ) > 248 then 
            UO.FindType( creat, -1, -1 ) 
            UO.MoveItem( 'finditem', 0, cont ) 
            wait( 1000 ) 
            UO.Print( 'Lockpicks moved' ) 
         end if
          UO.FindType('0x175D','0x0000','backpack') 
      if UO.GetQuantity('finditem')<4 then 
         UO.UseObject(Cont) 
         UO.FindType('0x175d','0x0000','backpack') 
         if UO.GetQuantity('finditem')>0 then 
            UO.SetReceivingContainer(Cont) 
               wait(1000) 
            UO.Grab('all','finditem') 
               wait(1000)            
            UO.unSetReceivingContainer(Cont) 
         Endif 
         UO.FindType('0x175D','0x0000',Cont) 
            wait(1000) 
         UO.Grab('500','finditem') 
            wait(1000) 
      endif 
      CheckLag() 
      UO.WaitMenu('Cloth','Pattern') 
      UO.WaitTargetType('0x175D') 
      UO.UseType('0x0F9D') 
      UO.DeleteJournal() 
         wait(1000) 
      repeat 
         wait(100) 
      until UO.InJournal('fail') or UO.InJournal('put') 
      UO.DeleteJournal() 
         wait(500) 
        wend 
     if UO.Count( creat ) > 248 then 
            UO.FindType( creat, -1, -1 ) 
            UO.MoveItem( 'finditem', 0, cont ) 
            wait( 1000 ) 
            UO.Print( 'Lockpicks moved' ) 
         end if
endsub 

Sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack')
Author:  Dimage [ 2007-10-06 13:16:58 ]
Post subject: 
Mr Nmy wrote:
Code:
sub Tailoring()
var Cont='0x400be354' 
var creat='0x1766'   
   while NOT UO.Dead()
          UO.FindType('0x175D','0x0000','backpack')
      if UO.GetQuantity('finditem')<4 then
         UO.UseObject(Cont)
         UO.FindType('0x175d','0x0000','backpack')
         if UO.GetQuantity('finditem')>0 then
            UO.SetReceivingContainer(Cont)
               wait(1000)
            UO.Grab('all','finditem')
               wait(1000)
            UO.UnSetReceivingContainer()
         Endif
         UO.FindType('0x175D','0x0000',Cont)
            wait(1000)
         UO.Grab('500','finditem')
            wait(1000)
      endif
      CheckLag()
      UO.WaitMenu('Cloth','Pattern')
      UO.WaitTargetType('0x175D')
      UO.UseType('0x0F9D')
      UO.DeleteJournal()
         wait(1000)
      repeat
         wait(100)
      until UO.InJournal('fail') or UO.InJournal('put')
      UO.DeleteJournal()
         wait(500)
        wend
       uo.fintype( creat )
       while uo.findcount()
       uo.moveitem('finditem', 'all' , cont )
       wait(100)
uo.fintype( creat )
       wend
wend
endsub


не мог бы ты добавить немного. что он клан не в тот же сундук, а в мешки одного типа в этом сундуке.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/