sub WeaponPoison()
var fail = "Не удалось отравить оружие"
var succ = "Оружие успешно отравлено"
var p_type = "0x0000" ; тип бутылки яда
var p_colr = "0x0000" ; цвет бутылки яда
var last_weapon = uo.objAtLayer( 'Lhand' ) ; или Rhand, вспомнить бы где он алебу держит

uo.MoveItem( last_weapon )
repeat
deljournal( fail + "|" + succ )
uo.FindType( p_type, p_colr )
If NOT uo.FindCount() Then
uo.Print( "Нет бутылок с ядом" )
return
End If
uo.WaitTargetObject( last_weapon, "finditem" )
uo.UseSkill( "Poison" )
repeat
wait( 50 )
until uo.InJournal( fail + "|" + succ )
until uo.InJournal( succ )
uo.UseObject( last_weapon )
End Sub