Yoko

sub poisonwep()
uo.unequip('Lhand')
wait(10)
repeat
uo.waittargettype('типа алебы')
uo.usetype('тип бутылки пойзона')
wait(1000) ; вейт под себя сделай
until uo.injournal('сообщение что оружие отравлено') ; не помню че там пишут
uo.usetype('тип алебы')
end sub

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

sub poison()
  uo.print("Покажи Пуху")
  UO.exec('addobject nyxa') 
  while uo.targeting()
   wait(500) 
    wend
  UO.FindType('0x0F0E','0x0998','backpack')
 if uo.findcount() then 
  uo.deletejournal() 
  uo.waittargetobject('nyxa','finditem') 
  uo.useskill('Poisoning') 
     repeat 
    wait(50) 
  until UO.InJournal("You fail to apply") OR UO.InJournal("You apply the poison") 
  endif 
end sub