##################################################### 
###       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