sub poison() 
  var poison='0x0F0A' 
  var color='0x0000' 
  var msg='You apply the poison.' 
  var msg2='You fail to apply a sufficient dose of poison to it.' 
  var weap 
  uo.Exec('addobject weap') 
  while uo.targeting() 
    wait(100) 
  wend 
  uo.FindType('poison','color','backpack') 
  poison: 
  uo.DeleteJournal() 
  if uo.FindCount() then 
    uo.poison('weap') 
    repeat 
      wait(100) 
    until uo.InJournal(msg) or uo.InJournal(msg2) 
    if uo.InJournal(msg2) then 
      goto poison 
    end if 
  end if 
end sub

sub poison()
VAR X
UO.Exec("addtype poison 0x0F0A")###пойзонка
UO.Exec("usetype 0x0E75")
UO.Exec("usetype 0x0E75")
Wait(3000)
start:
If UO.Count(0x0F0A) < 10 then
X = UO.Count(0x0F0A)
UO.Waittargetground(0x0F0A)
UO.Exec("grab 100")
While X == UO.Count(0x0F0A)
Wait(50)
Wend
End If
UO.Exec("poison 0x403C1D2A")##### даггер
goto start
end sub