Tailoring(поправка)

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

_________________

Last edited by Squoll on 2007-04-26 18:08:15, edited 1 time in total.

Top

Profile

Reply with quote

Rivory

Post subject:

PostPosted: 2007-04-22 14:01:52

Offline

Joined: 2005-01-06 11:49:28
Posts: 205

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

Top

Profile

Reply with quote

Squoll

Post subject:

PostPosted: 2007-04-22 22:00:52

Offline

Joined: 2007-04-22 13:06:54
Posts: 12
Location: http://doublegame.ws-team.org

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

_________________

Last edited by Squoll on 2007-04-26 18:08:02, edited 2 times in total.

Top

Profile

Reply with quote

Squoll

Post subject:

PostPosted: 2007-04-23 19:38:20

Offline

Joined: 2007-04-22 13:06:54
Posts: 12
Location: http://doublegame.ws-team.org

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

_________________

Last edited by Squoll on 2007-04-26 18:08:34, edited 1 time in total.

Top

Profile

Reply with quote

Rivory

Post subject:

PostPosted: 2007-04-23 20:53:35

Offline

Joined: 2005-01-06 11:49:28
Posts: 205

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

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

Top

Profile

Reply with quote

Squoll

Post subject:

PostPosted: 2007-04-24 07:15:45

Offline

Joined: 2007-04-22 13:06:54
Posts: 12
Location: http://doublegame.ws-team.org

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

_________________

Last edited by Squoll on 2007-04-26 18:08:43, edited 1 time in total.

Top

Profile

Reply with quote

Squoll

Post subject:

PostPosted: 2007-04-24 16:05:14

Offline

Joined: 2007-04-22 13:06:54
Posts: 12
Location: http://doublegame.ws-team.org

Вот я сделал

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 помагите исправить

_________________

Last edited by Squoll on 2007-04-26 18:08:52, edited 1 time in total.

Top

Profile

Reply with quote

Rivory

Post subject:

PostPosted: 2007-04-24 18:14:12

Offline

Joined: 2005-01-06 11:49:28
Posts: 205

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

Top

Profile

Reply with quote

Squoll

Post subject:

PostPosted: 2007-04-24 18:27:34

Offline

Joined: 2007-04-22 13:06:54
Posts: 12
Location: http://doublegame.ws-team.org

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

_________________

Last edited by Squoll on 2007-04-26 18:09:03, edited 1 time in total.

Top

Profile

Reply with quote

Rivory

Post subject:

PostPosted: 2007-04-24 19:29:50

Offline

Joined: 2005-01-06 11:49:28
Posts: 205

Code:

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

замени на

Code:

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

Top

Profile

Reply with quote

Squoll

Post subject:

PostPosted: 2007-04-24 20:52:01

Offline

Joined: 2007-04-22 13:06:54
Posts: 12
Location: http://doublegame.ws-team.org

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

_________________

Last edited by Squoll on 2007-04-26 18:09:10, edited 1 time in total.

Top

Profile

Reply with quote

Ururu

Post subject:

PostPosted: 2007-04-25 05:51:18

Offline

Joined: 2007-02-21 20:15:57
Posts: 479

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

_________________
Шард Антарес
Ururu

Top

Profile

Reply with quote

Squoll

Post subject:

PostPosted: 2007-04-25 06:35:21

Offline

Joined: 2007-04-22 13:06:54
Posts: 12
Location: http://doublegame.ws-team.org

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

_________________

Last edited by Squoll on 2007-04-26 18:09:18, edited 1 time in total.

Top

Profile

Reply with quote

Ururu

Post subject:

PostPosted: 2007-04-25 07:23:56

Offline

Joined: 2007-02-21 20:15:57
Posts: 479

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

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

_________________
Шард Антарес

Ururu

Top

Profile

Reply with quote

Squoll

Post subject:

PostPosted: 2007-04-26 00:31:52

Offline

Joined: 2007-04-22 13:06:54
Posts: 12
Location: http://doublegame.ws-team.org

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

_________________

Last edited by Squoll on 2007-04-26 18:09:29, edited 1 time in total.

Top

Profile

Reply with quote

Ururu

Post subject:

PostPosted: 2007-04-26 02:20:30

Offline

Joined: 2007-02-21 20:15:57
Posts: 479

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

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

_________________
Шард Антарес

Ururu

Top

Profile

Reply with quote

Squoll

Post subject:

PostPosted: 2007-04-26 11:25:44

Offline

Joined: 2007-04-22 13:06:54
Posts: 12
Location: http://doublegame.ws-team.org

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

_________________

Top

Profile

Reply with quote

Post new topic Reply to topic

Page 1 of 1

[ 17 posts ]

Home » Board index » Scripts » I need script!

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 3 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

Yoko

Tailoring(поправка)

Who is online