Yoko

All sides of Injection
https://yoko.uokit.com/

Хелп Тейлоринг!

https://yoko.uokit.com/viewtopic.php?t=9169

Page 1 of 1

Хелп Тейлоринг!

Posted: 2006-10-26 21:29:14
by Driskill
Мона кагто изменить етот скрипт штоб он не резал а просто ложил в сундук то што крафтил!

Code: Select all

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

Posted: 2006-10-26 21:37:39
by Nmy

Code: Select all

      UO.WaitTargetType(Creat)
      UO.UseType('0x0F9E')
      CheckLag()
         wait(500)
удалить :!:

Posted: 2006-10-27 07:51:28
by Driskill
работает токо не до конца он неложит то што накрафтил!
можна там както вставить штоб он перед тем как брал следующую партию ресов слаживал то што накратил в туже сумку?

Posted: 2006-10-27 08:15:40
by Nmy
Driskill wrote:работает токо не до конца он неложит то што накрафтил!
можна там както вставить штоб он перед тем как брал следующую партию ресов слаживал то што накратил в туже сумку?

Code: Select all

uo.fintype( creat )
while uo.findcount()
uo.moveitem('finditem', 0 , cont )
wait(100)
wend
это можно поставить вместо тех строк

Posted: 2006-10-27 08:19:41
by Driskill
неа неработает!

Posted: 2006-10-27 08:35:04
by Driskill
может ктонить такое перевести на язык инжи я впринципе догадываюсь но незнаю куда именно вставлять:
если **** >= 248
тогда **** все перетягиваеццо в сундук
макра начинаеццо заново...

Posted: 2006-10-27 08:42:48
by Nmy
Driskill wrote:неа неработает!
что именно неработает? покажы код...

Posted: 2006-10-27 08:46:29
by Driskill

Code: Select all

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]

Posted: 2006-10-27 15:02:12
by Scripts Writer

Code: Select all

uo.fintype( creat ,'-1','backpack' )

Posted: 2006-10-27 15:21:34
by Nmy
Если цвет color не укзаан то ищутся обьекты любого цвета.
Если контейнер не указан то ищутся обьекты в бекпаке персонажа.
а ошыбку опишы... или что неработает :?:

Posted: 2006-10-27 15:24:25
by Nmy

Code: Select all

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

Posted: 2006-10-27 15:55:27
by Driskill
Незнаю тип зачем ты это все выложил но оно неработает! там вот ошибочка была я исправил сиравно неработает! Млин задолбалсо ужо с этой макрой!

uo.fintype( creat )
исправил на:
uo. findtype( creat ) [/code]

Posted: 2006-10-28 12:55:13
by Driskill
Ну мужики ну хелпуйте плзлзлзлзлзлзлз! Чар крафтит а потом када закончиццо ткань он берет из сундука следующую партию а по скольку невыложил скрафченое превышаеццо максвеигхт и ткань падает на пол! с пола некратит! хелп! :cry:

Posted: 2006-10-28 23:46:49
by Driskill
сенкс всем за все огромное вот мной переделанная склепанная но работающая версия скрипта)):

Code: Select all

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')

Posted: 2007-10-06 13:16:58
by Dimage
Mr Nmy wrote:

Code: Select all

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
не мог бы ты добавить немного. что он клан не в тот же сундук, а в мешки одного типа в этом сундуке.
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited