sub Bow()
   var i
   var bow = '0x13B1'  
   var crbow = '0x0F4F' 
   var hcrbow = '0x13FC' 

   dim bowcol[4] 
   bowcol[0]='0x0035' 
   bowcol[1]='0x0BAC' 
   bowcol[2]='0x13FC'
   bowcol[3]='0x0000'
   for i = 0 to 3
      if uo.count(bow, bowcol[i]) then
         UO.UseType(bow, '0x0000')
      else 
         UO.UseType(crbow, '0x0000')         
      else 
         UO.UseType(hcrbow, '0x0000')
return
      end if
         next
end sub

sub Bow()
   var i
   var bow = '0x13B1' 
   var crbow = '0x0F4F'
   var hcrbow = '0x13FC'
   dim bowcol[4]
   bowcol[0]='0x0035'
   bowcol[1]='0x0BAC'
   bowcol[2]='0x13FC'
   bowcol[3]='0x0000'
   for i = 0 to 3 ; ghdjthztv на 3 цветных лука
      if uo.count(bow, bowcol[i]) then
         UO.UseType(bow, bowcol[i])
         return
      end if
   next
   if uo.count(crbow) then ; если луки не найдены то проверяем на первый арбалет
      UO.UseType(crbow, '0x0000')         
   else ; или второй арбалет
      UO.UseType(hcrbow, '0x0000')
   end if
end sub