Tailoring(поправка)

Squoll · Post by **Squoll** » 2007-04-22 13:09:39

Народ помогите исправить скрипт чтоб он брал из сундука ткань а потом готовую продукцию скалдывал в другой сундук...вот скрипт

Code: Select all

var Cont='0x09b0' ##ID ñóíäóêà ñ òêàíüþ, òàê æå òóäà áóäóò ñêëàäûâàòñÿ áèíòû
var Creat='0x1515'    ##Òèï òîãî, ÷òî ñøèëè
sub Tailoring()
#¤Leo¤#
   while NOT UO.Dead()
      ToHide()
         UO.FindType('0x1515','0x0000',Cont)
            wait(1000)
         UO.Grab('600','finditem')
            wait(1000)
      endif
      CheckLag()
      UO.WaitMenu('Cloth','Shirts','Shirts','cloak')
      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)
      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')

Rivory · Post by **Rivory** » 2007-04-22 14:01:52

что у тебя в переменной creat ?

Squoll · Post by **Squoll** » 2007-04-22 22:00:52

В переменной стоит код той веши которая создаётся то есть cloak

Squoll · Post by **Squoll** » 2007-04-23 19:38:20

Кто нибудь помочь может?

Rivory · Post by **Rivory** » 2007-04-23 20:53:35

короче в начало скрипта пропиши

Code: Select all

 var cont2='0x0000' #Тип контейнера с готовыми плащами

а потом куданить после слов

Code: Select all

      CheckLag() 
         wait(500)

Вставь такие строчки

Code: Select all

if UO.Weight>300 then
     while uo.count('0x0000') > 0                #Сюда   влепи тип плащиков
        uo.findtype('0x0000',-1,'backpack')   #и сюда
        uo.moveitem('finditem',-1,'cont2') 
        wait(200) 
     wend
end if

Squoll · Post by **Squoll** » 2007-04-24 07:15:45

Спасибо а какой код надо написать чтоб он ещё и брал ткань когда она кончается?

Squoll · Post by **Squoll** » 2007-04-24 16:05:14

Вот я сделал

Code: Select all

var Cont='0x09b0' ##ID сундука с тканью, так же туда будут складыватся бинты
var Creat='0x1515'    ##Тип того, что сшили
VAR CT='0x175d' ; Тип Cloth
VAR Sunduk='0x09b0' ; Сериал(ID) Сундука.
VAR Kolvo=3500 ; Количество регов, которое чар берёт из сундука..
sub Tailoring()
#¤Leo¤#
   while NOT UO.Dead()
            ToHide()
         UO.FindType('0x1515','0x0000',Cont)
            wait(1000)
      While UO.CT>0 
         UO.Grab('600','finditem')
            wait(1000)
      endif
      CheckLag()
      UO.WaitMenu('Cloth','Shirts','Shirts','cloak')
      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)
      CheckLag()
         wait(500)   
   wend
      If UO.CT == 15 Then
   UO.FindType(CT, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
      wait(100)
   until UO.CT>15
Endif
   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')

Но он почему то выдаёт ошибку типа непонимает что такое UO.CT помагите исправить

Rivory · Post by **Rivory** » 2007-04-24 18:14:12

конечно он не знает что такое uo.CT.. используй просто CT

Squoll · Post by **Squoll** » 2007-04-24 18:27:34

Поменял ошибку невыдаёт, но он почему то когда кончается материал нехочет брать его из сумки которую я указал

Rivory · Post by **Rivory** » 2007-04-24 19:29:50

Code: Select all

      While CT>0 
         UO.Grab('600','finditem') 
            wait(1000) 
      endif

замени на

Code: Select all

      While CT>0 
         UO.Grab('600','finditem') 
            wait(1000) 
      wend

Squoll · Post by **Squoll** » 2007-04-24 20:52:01

Заменил, но он всё равно почему то нехочет брать из сумки ткань

Ururu · Post by **Ururu** » 2007-04-25 05:51:18

Code: Select all

If UO.Count  (CT, '0', '2') < 15 Then
   UO.FindType( CT, '-1',  Sunduk)
      If UO.FindCount() > 599 Then
         UO.MoveItem( 'finditem', '600' )
      wait( 1000 )
   Else
UO.Print( 'Неудачнечег, ткани нед!!!' )
      Endif 
Endif

Squoll · Post by **Squoll** » 2007-04-25 06:35:21

ururu спасибо, но я недогоняю куда это нада вставить можешь дать полный код а то я вставил наверх и нифига неидёт=(

Ururu · Post by **Ururu** » 2007-04-25 07:23:56

Я поправил только кусок скрипта отвечающий за добор ткани. Если будут где ошибки, пиши. Посмотрю весь скрипт.

Code: Select all

var Cont='0x09b0' ##ID сундука с тканью, так же туда будут складыватся бинты 
var Creat='0x1515'    ##Тип того, что сшили 
VAR CT='0x175d' ; Тип Cloth 
VAR Sunduk='0x09b0' ; Сериал(ID) Сундука. 
VAR Kolvo=3500 ; Количество регов, которое чар берёт из сундука.. 
sub Tailoring() 
#¤Leo¤# 
   while NOT UO.Dead() 
            ToHide() 
         UO.FindType('0x1515','0x0000',Cont) 
            wait(1000) 
      While UO.CT>0 
         UO.Grab('600','finditem') 
            wait(1000) 
      endif 
      CheckLag() 
      UO.WaitMenu('Cloth','Shirts','Shirts','cloak') 
      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) 
      CheckLag() 
         wait(500)    
   wend 
If UO.Count  (CT, '0', '2') < 15 Then 
   UO.FindType( CT, '-1',  Sunduk) 
      If UO.FindCount() > 599 Then 
         UO.MoveItem( 'finditem', '600' ) 
      wait( 1000 ) 
   Else 
UO.Print( 'Неудачнечег, ткани нед!!!' ) 
      Endif 
Endif
   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')

Squoll · Post by **Squoll** » 2007-04-26 00:31:52

Ошибка заключается в том, что он почему то сразу начинает деалть вещи то есть нету проверки никакой и неберёт ничего из сумки где ткань=(

Ururu · Post by **Ururu** » 2007-04-26 02:20:30

Тот кто писал скриптвероятно брал все сам в пак =)

У тебя на шарде только ткань нужна или нитки тоже?

Squoll · Post by **Squoll** » 2007-04-26 11:25:44

у меня на шарде только ткань и sewing kit=)я в доме положил ткань в bench ну вот и он почему то нехочет брать=(если что играю на Santiago www.projectblackrock.com.Уже неделю мучаюсь пытаюсь создать из двух скриптов один да неполучается всё делает только если ткань в бэке а с сумки брать нехочет поидее можно просто с пола но я незнаю как это написать так как полный 0=(Поможете буду очень благодарен=)