Тейлор

kicker · Post by **kicker** » 2006-06-19 06:56:48

можете сделать простой скриптик на тейлор:
на полу, рядом с чаром, валяеться куча кожи. он берет кожу (штучек 200), шьет из нее скроллы и бросает их себе под ноги(или складывает в сумку). когда кончается кожа он берет из кучи еще и шьет дальше

Edred · Post by **Edred** » 2006-06-19 09:25:29

Дык а раздел Scripts! на что? Прежде чем спрашивать, посмотрел бы там.
viewtopic.php?t=642

Scripts Writer · Post by **Scripts Writer** » 2006-06-19 09:32:53

Code: Select all

sub tailor() 
uo.Set('finddistance','3')
var leather=' type '
var color=' color of leather '
var scroll=' type of crafted item '
var sunduk=' where to put scrolls '
  while not uo.Dead()
    uo.FindType(leather,color,'backpack')
    while uo.FindCount()
      ;Как шьет не написал-вставляй сюда сам 
      if uo.InJournal('You put') then
        uo.FindType(scroll,'-1','backpack')
        if uo.FindCOunt() then
          uo.moveitem('finditem','100',sunduk)
          wait(500)
        end if
      end if
      uo.FindType(leather,color,'backpack')
    wend  
    uo.FindType(leather,color,'ground')
    uo.moveitem('finditem','200')
    wait(500)
  wend   
end sub

Как криво попросил - так криво написал.

kicker · Post by **kicker** » 2006-06-19 10:22:15

кое-как переделал скрипт из Scripts!, теперь есть один вопрос:
в UO.AutoMenu что надо указывать? подменю и то что крафтить? просто у меня на шарде так сделано что скроллы в основном меню на 2ой позиции

Nmy · Post by **Nmy** » 2006-06-19 10:37:45

viewtopic.php?p=41756#41756

kicker · Post by **kicker** » 2006-06-19 10:53:56

спс, получилось. Последний вопрос: где снизить задержки? а то он у меня скрол сошьет, подождет секунд 5-6 и тока потом уберет его в сундук. (скрипт #2)

Nmy · Post by **Nmy** » 2006-06-19 10:58:15

kicker wrote:спс, получилось. Последний вопрос: где снизить задержки? а то он у меня скрол сошьет, подождет секунд 5-6 и тока потом уберет его в сундук. (скрипт #2)

ищи wait()
1000 - есть 1 секунда

kicker · Post by **kicker** » 2006-06-19 11:11:34

да я вайты и так уполовинил, а нифига, все равно блин, долго просто очень ((

Nmy · Post by **Nmy** » 2006-06-19 12:10:36

kicker wrote:да я вайты и так уполовинил, а нифига, все равно блин, долго просто очень ((

выложы здесь скрипт :!:

kicker · Post by **kicker** » 2006-06-19 13:41:16

Code: Select all

sub tailor2()
   VAR Sunduk = "0x40007E49"
   VAR Kozha = "0x1067"
   VAR Kit = "0x0F9D"
   VAR Scrol = "0x0E34"
   VAR k
   UO.CancelMenu()
   wait(500)
   UO.AutoMenu( "Leather", "blank scroll" ) 
   While TRUE
      If UO.Count( Kozha ) == 0 Then
         UO.FindType( Kozha, -1, Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print("Leathers not found, script terminated")
            return
         Endif
         UO.Grab( '1', 'finditem' )
         wait(200)
         while UO.Count( Kozha ) == 0
            wait(100)
         wend
      Endif
      UO.DeleteJournal()
      UO.WaitTargetType( Kozha )
      UO.UseType( Kit )
      k = 0
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
         k = k + 1
         wait(150)
      wend
      if UO.Count( Scrol ) > 0 then
         UO.FindType( Scrol )
         UO.MoveItem( 'finditem', 0, Sunduk )
         wait( 200 )
         while UO.Count( Scrol ) > 0
            wait(100)
         wend
      endif
   Wend
   UO.CancelMenu()
end sub

to4a · Post by **to4a** » 2006-06-19 13:55:09

Code: Select all
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND(k < 50 ) k = k + 1 wait(150) wend

проблема определенно тут, т.е. оно выходит не по журналу а когда k будет 51, т.е. 7.65сек...
попробуй заменить на

Code: Select all

repeat
 k=k+1
 wait(100)
until UO.InJournal("You put|fail") or k>=50

хотя по сути это тоже самое...

kicker · Post by **kicker** » 2006-06-19 14:12:20

блин, теперь сшил скролл, тут же убрал, а дальше шить не хочет, падла )

Edred · Post by **Edred** » 2006-06-19 17:15:34

kicker wrote:да я вайты и так уполовинил, а нифига, все равно блин, долго просто очень ((

Проверь тексты сообщений о успешности шитья или физле. Если у тебя АоС - сообщения будут идти через клилоки.

kicker · Post by **kicker** » 2006-06-19 20:58:15

да проверил, у меня не аос, а ренесанс

Edred · Post by **Edred** » 2006-06-19 21:32:39

Ну тогда могу сказать: телепаты в отпуске.

ЗЫ: Кидай сюда:

1. Сколько чего нужно для крафта скроллов, типы.
2. Точные тексты сообщений о успехе и физле, с учетом регистра букв
3. Каким инструментом крафтишь, какова последовательность действий в крафте (что кликать, на что прицел, в каком порядке прицелы, если их два)
4. Точные тексты шапок и пунктов меню с учетом регистра букв для крафта скроллов. Все уровни. Для каждого уровня - и шапку и пункт.

kicker · Post by **kicker** » 2006-06-20 09:49:06

1. только простая кожа (тип: 0x1067)
2. если скрафтил: пишет две мессаги - одна о качестве итема (The item а дальше варианты: is of exellent quality, is of above average quality и тд), а другая о том что в пак положили- Вы положили blank scrolls в ваш рюкзак.
если нет: Tailoring failed. Some of the cloth is ruined.
3. Крафчу обычным инструментом тейлора (0x0F9D), дабл клик на инструмент, появляеться прицел и клик на кожу
4. когда уже инструментом кликнул на кожу, появляеться менюшка называеться она (Leather), у нас в ней по очереди идет Blank Map, потом blank scroll - вот его и надо крафтить(ну в меню скролл написан с тем из чего крафтить -- blank scroll (1 Simple Hide), а потом подменю крафта сапог (Footwear) и сумок (Misc)

Edred · Post by **Edred** » 2006-06-20 10:07:34

Точные сообщения успешности крафта. На английском.

kicker · Post by **kicker** » 2006-06-20 10:46:34

ну я как понял самое главное это Вы положили blank scrolls в ваш рюкзак. щас напишу все что пишет при успешном крафте

kicker · Post by **kicker** » 2006-06-20 10:49:21

The item is of excellent quality
Due to your exceptional skill, the item is of superior quality
The item is of above average quality
все мессаги без точек

Nmy · Post by **Nmy** » 2006-06-20 13:55:14

kicker wrote:The item is of excellent quality
Due to your exceptional skill, the item is of superior quality
The item is of above average quality
все мессаги без точек

без точек над и или без точек в конце предложения ? а где мсг когда положыл в пак ?