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

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

Profile

Reply with quote

Nmy

Post subject:

PostPosted: 2006-10-26 21:37:39

Offline

Expert!

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia

Code:

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

удалить

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

Top

Profile

Reply with quote

Driskill

Post subject:

PostPosted: 2006-10-27 07:51:28

Offline

Joined: 2006-09-14 10:38:08
Posts: 39

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

_________________
все что нас не убивает - делает нас крепче!

Top

Profile

Reply with quote

Nmy

Post subject:

PostPosted: 2006-10-27 08:15:40

Offline

Expert!

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia

Driskill wrote:

Code:

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

это можно поставить вместо тех строк

Top

Profile

Reply with quote

Driskill

Post subject:

PostPosted: 2006-10-27 08:19:41

Offline

Joined: 2006-09-14 10:38:08
Posts: 39

неа неработает!

_________________
все что нас не убивает - делает нас крепче!

Top

Profile

Reply with quote

Driskill

Post subject:

PostPosted: 2006-10-27 08:35:04

Offline

Joined: 2006-09-14 10:38:08
Posts: 39

может ктонить такое перевести на язык инжи я впринципе догадываюсь но незнаю куда именно вставлять:
если **** >= 248
тогда **** все перетягиваеццо в сундук
макра начинаеццо заново...

_________________
все что нас не убивает - делает нас крепче!

Top

Profile

Reply with quote

Nmy

Post subject:

PostPosted: 2006-10-27 08:42:48

Offline

Expert!

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia

Driskill wrote:

неа неработает!

что именно неработает? покажы код...

Top

Profile

Reply with quote

Driskill

Post subject:

PostPosted: 2006-10-27 08:46:29

Offline

Joined: 2006-09-14 10:38:08
Posts: 39

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]

_________________
все что нас не убивает - делает нас крепче!

Top

Profile

Reply with quote

Scripts Writer

Post subject:

PostPosted: 2006-10-27 15:02:12

Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область

Code:

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

Top

Profile

Reply with quote

Nmy

Post subject:

PostPosted: 2006-10-27 15:21:34

Offline

Expert!

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia

Quote:

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

а ошыбку опишы... или что неработает :?:

Top

Profile

Reply with quote

Nmy

Post subject:

PostPosted: 2006-10-27 15:24:25

Offline

Expert!

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia

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

Top

Profile

Reply with quote

Driskill

Post subject:

PostPosted: 2006-10-27 15:55:27

Offline

Joined: 2006-09-14 10:38:08
Posts: 39

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

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

_________________
все что нас не убивает - делает нас крепче!

Top

Profile

Reply with quote

Driskill

Post subject:

PostPosted: 2006-10-28 12:55:13

Offline

Joined: 2006-09-14 10:38:08
Posts: 39

Ну мужики ну хелпуйте плзлзлзлзлзлзлз! Чар крафтит а потом када закончиццо ткань он берет из сундука следующую партию а по скольку невыложил скрафченое превышаеццо максвеигхт и ткань падает на пол! с пола некратит! хелп! :cry:

_________________
все что нас не убивает - делает нас крепче!

Top

Profile

Reply with quote

Driskill

Post subject:

PostPosted: 2006-10-28 23:46:49

Offline

Joined: 2006-09-14 10:38:08
Posts: 39

сенкс всем за все огромное вот мной переделанная склепанная но работающая версия скрипта)):

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

_________________
все что нас не убивает - делает нас крепче!

Top

Profile

Reply with quote

Dimage

Post subject:

PostPosted: 2007-10-06 13:16:58

Offline

Joined: 2006-12-04 00:23:37
Posts: 36

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

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

Top

Profile

Reply with quote

Post new topic Reply to topic

Page 1 of 1

[ 15 posts ]

Home » Board index » Scripts » Scripting Ore

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 8 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum