###################################
###____Bowcraft / Производство луков 1.0____###
###################################
###__Шард Oskom (но скрипт универсален)__###
###################################
###______KuKuRuZ@_aka_Gh0stik[KpZ]______###
##################################
### Настройка:
### 1) Рядом с собой в сундук ложим перья
### и логи. Туда же будет складываться
### изготовленные луки. Поместить в одну
### стопку их можно командой ,massmove 500
### 2) Берём в руки ножик.
### 3) Указываем типы и серийник сундука.
### Их можно узнать командой ,info
###
### p.s. Следите за переполнением сундука.
### Max item 255
###################################
sub bowcraft()
VAR Sunduk = '0x400D2C79' ## Серийник сундука
VAR Logi = '0x1BDD' ## Тип логов
------------------------------------------------------------------------------
## Если на Ваше шарде не нужно использовать нитки закоментируйте ## эту функцию
VAR Spool = '0x0FA0' ## Тип ниток
------------------------------------------------------------------------------
VAR Bow = '0x13B1' ## Тип луков
VAR Kolvo = 6 ## Количество логов которое берём
------------------------------------------------------------------------------
## Если на Ваше шарде не нужно использовать нитки закоментируйте ## эту функцию
VAR Kolvo2 = 1 ## Количество ниток которое берём
------------------------------------------------------------------------------
VAR k = 0, j, dagger
dagger = UO.ObjAtLayer( 'Rhand' )
UO.SetGlobal( 'instrtype', UO.GetGraphic( dagger ) )
## Тут мы берём логи
While TRUE
If UO.Count( Logi ) == 0 Then
UO.FindType( Logi, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
return
else
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
while UO.Count( Logi ) < Kolvo
wait(100)
wend
Endif
Endif
------------------------------------------------------------------------------
## Если на Ваше шарде не нужно использовать нитки закоментируйте ## эту функцию
If UO.Count( Spool ) == 0 Then
UO.FindType( Spool, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Spool not found, script terminated")
return
Endif
Endif
UO.Grab( Str( Kolvo2 ), 'finditem' )
wait(500)
while UO.Count( Spool ) < Kolvo2
wait(100)
wend
------------------------------------------------------------------------------
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitTargetType( Logi )
UO.UseObject( dagger )
UO.WaitMenu ('What do you want to carve', 'bow' )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
k = k + 1
wait(300)
wend
If UO.Count( Bow ) > 0 then
UO.FindType( Bow, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait(500)
while UO.Count( Bow ) > 0
wait(100)
wend
UO.Print( 'Bow moved' )
Endif
Wend
end sub
Готовый скрипт! Ктонибуть проверти на ДРВ.
Спасибо!