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

Tailoring(поправка)
http://forum.yoko.com.ua/viewtopic.php?f=17&t=11816		 Page 1 of 1
Author:  Squoll [ 2007-04-22 13:09:39 ]
Post subject:  Tailoring(поправка)
Народ помогите исправить скрипт чтоб он брал из сундука ткань а потом готовую продукцию скалдывал в другой сундук...вот скрипт
Code:
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')
   
Author:  Rivory [ 2007-04-22 14:01:52 ]
Post subject: 
что у тебя в переменной creat ?
Author:  Squoll [ 2007-04-22 22:00:52 ]
Post subject: 
В переменной стоит код той веши которая создаётся то есть cloak
Author:  Squoll [ 2007-04-23 19:38:20 ]
Post subject: 
Кто нибудь помочь может?
Author:  Rivory [ 2007-04-23 20:53:35 ]
Post subject: 
короче в начало скрипта пропиши
Code:
 var cont2='0x0000' #Тип контейнера с готовыми плащами


а потом куданить после слов
Code:
      CheckLag() 
         wait(500)   


Вставь такие строчки
Code:
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
Author:  Squoll [ 2007-04-24 07:15:45 ]
Post subject: 
Спасибо а какой код надо написать чтоб он ещё и брал ткань когда она кончается?
Author:  Squoll [ 2007-04-24 16:05:14 ]
Post subject: 
Вот я сделал
Code:
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 помагите исправить
Author:  Rivory [ 2007-04-24 18:14:12 ]
Post subject: 
конечно он не знает что такое uo.CT.. используй просто CT
Author:  Squoll [ 2007-04-24 18:27:34 ]
Post subject: 
Поменял ошибку невыдаёт, но он почему то когда кончается материал нехочет брать его из сумки которую я указал
Author:  Rivory [ 2007-04-24 19:29:50 ]
Post subject: 
Code:
      While CT>0 
         UO.Grab('600','finditem') 
            wait(1000) 
      endif

замени на
Code:
      While CT>0 
         UO.Grab('600','finditem') 
            wait(1000) 
      wend
Author:  Squoll [ 2007-04-24 20:52:01 ]
Post subject: 
Заменил, но он всё равно почему то нехочет брать из сумки ткань :(
Author:  Ururu [ 2007-04-25 05:51:18 ]
Post subject: 
Code:
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
Author:  Squoll [ 2007-04-25 06:35:21 ]
Post subject: 
ururu спасибо, но я недогоняю куда это нада вставить можешь дать полный код а то я вставил наверх и нифига неидёт=(
Author:  Ururu [ 2007-04-25 07:23:56 ]
Post subject: 
Я поправил только кусок скрипта отвечающий за добор ткани. Если будут где ошибки, пиши. Посмотрю весь скрипт.
Code:
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')
Author:  Squoll [ 2007-04-26 00:31:52 ]
Post subject: 
Ошибка заключается в том, что он почему то сразу начинает деалть вещи то есть нету проверки никакой и неберёт ничего из сумки где ткань=(
Author:  Ururu [ 2007-04-26 02:20:30 ]
Post subject: 
Тот кто писал скриптвероятно брал все сам в пак =)

У тебя на шарде только ткань нужна или нитки тоже?
Author:  Squoll [ 2007-04-26 11:25:44 ]
Post subject: 
у меня на шарде только ткань и sewing kit=)я в доме положил ткань в bench ну вот и он почему то нехочет брать=(если что играю на Santiago www.projectblackrock.com.Уже неделю мучаюсь пытаюсь создать из двух скриптов один да неполучается всё делает только если ткань в бэке а с сумки брать нехочет поидее можно просто с пола но я незнаю как это написать так как полный 0=(Поможете буду очень благодарен=)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/