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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Driskill
Posts: 39
Joined: 2006-09-14 10:38:08
Contact:
Contact Driskill

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

Post 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
все что нас не убивает - делает нас крепче!
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Code: Select all

      UO.WaitTargetType(Creat)
      UO.UseType('0x0F9E')
      CheckLag()
         wait(500)


удалить :!:
Top
Driskill
Posts: 39
Joined: 2006-09-14 10:38:08
Contact:
Contact Driskill

Post by Driskill »

работает токо не до конца он неложит то што накрафтил!
можна там както вставить штоб он перед тем как брал следующую партию ресов слаживал то што накратил в туже сумку?
все что нас не убивает - делает нас крепче!
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Driskill wrote:работает токо не до конца он неложит то што накрафтил!
можна там както вставить штоб он перед тем как брал следующую партию ресов слаживал то што накратил в туже сумку?

Code: Select all

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

это можно поставить вместо тех строк
Top
Driskill
Posts: 39
Joined: 2006-09-14 10:38:08
Contact:
Contact Driskill

Post by Driskill »

неа неработает!
все что нас не убивает - делает нас крепче!
Top
Driskill
Posts: 39
Joined: 2006-09-14 10:38:08
Contact:
Contact Driskill

Post by Driskill »

может ктонить такое перевести на язык инжи я впринципе догадываюсь но незнаю куда именно вставлять:
если **** >= 248
тогда **** все перетягиваеццо в сундук
макра начинаеццо заново...
все что нас не убивает - делает нас крепче!
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Driskill wrote:неа неработает!

что именно неработает? покажы код...
Top
Driskill
Posts: 39
Joined: 2006-09-14 10:38:08
Contact:
Contact Driskill

Post 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]
все что нас не убивает - делает нас крепче!
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

Code: Select all

uo.fintype( creat ,'-1','backpack' )
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Если цвет color не укзаан то ищутся обьекты любого цвета.
Если контейнер не указан то ищутся обьекты в бекпаке персонажа.


а ошыбку опишы... или что неработает :?:
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post 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
Top
Driskill
Posts: 39
Joined: 2006-09-14 10:38:08
Contact:
Contact Driskill

Post by Driskill »

Незнаю тип зачем ты это все выложил но оно неработает! там вот ошибочка была я исправил сиравно неработает! Млин задолбалсо ужо с этой макрой!

uo.fintype( creat )
исправил на:
uo. findtype( creat ) [/code]
все что нас не убивает - делает нас крепче!
Top
Driskill
Posts: 39
Joined: 2006-09-14 10:38:08
Contact:
Contact Driskill

Post by Driskill »

Ну мужики ну хелпуйте плзлзлзлзлзлзлз! Чар крафтит а потом када закончиццо ткань он берет из сундука следующую партию а по скольку невыложил скрафченое превышаеццо максвеигхт и ткань падает на пол! с пола некратит! хелп! :cry:
все что нас не убивает - делает нас крепче!
Top
Driskill
Posts: 39
Joined: 2006-09-14 10:38:08
Contact:
Contact Driskill

Post 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')
все что нас не убивает - делает нас крепче!
Top
Dimage
Posts: 36
Joined: 2006-12-04 00:23:37
Contact:
Contact Dimage

Post 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


не мог бы ты добавить немного. что он клан не в тот же сундук, а в мешки одного типа в этом сундуке.
Top
Post Reply

Return to “Scripting Ore”