#####################################################
### BowCraf BowBolts Script v. 1.00. ###
### ###
### Copyright & tested by cOoler on DRW Shard. ###
### ###
### Oficial DRW Shards site - http://www.drw.ru ###
#####################################################
#####################################################
### Инструкция по использованию и настройке. ###
#####################################################
### 1. Для работы этого скрипта надо: сундук,
### перья,шафты,пила(или другой инструмент).
###
### 2. Описание подготовки к запуску скрипта.
### Берём сундук (можно и backpack),меняем в скрипте
### ID сундука на свой,кладем в него шафты,а к себе в
### backpack перья и пилу,запускаем скрипт.
###
### 3. При использовании скрипта вам так или иначе
### придется менять конфигурации скрипта.
### Вот как и где это НУЖНО сделать:
###
### $ Сменa ID сундука и типа шафтов.
### 1) UO.FindType('тип шафтов','0x0000','backpack')- тут вы
### указываете: тип шафтов.
### 2) UO.FindType('тип шафтов','colour сундука','ID сундука')- тут вы
### указываете: тип шафтов,его colour,ID сундука.
#####################################################
### Конец инструкции. ###
##################################################### sub Bowcraft()
repeat
UO.FindType('0x1bd4','0x0000','backpack')
put:
If UO.GetQuantity('finditem')<1 then
UO.FindType('0x1bd4','0x0000','0x40160062') ;Сериал сундука
UO.Grab('1','finditem')
wait(400)
Endif
UO.FindType('0x1bd4','0x0000','backpack')
If UO.GetQuantity('finditem')<1 then
goto put
end if
UO.Usetype('0x1bd4')
UO.WaitMenu('Select arrow type','bolt')
wait (1000)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("You fail"))
wait(300)
wend
UO.UnSetReceivingContainer()
wait(200)
until UO.Dead()
end sub
| 
