Yoko

var cont='0x4003D4C0'
var ns='0x0F88'
var bottle='0x0F0E'
var colorpoison='0x0998'
var dagger='0x402348CE'

sub main()
uo.cancelmenu()
uo.automenu('What sort of potion do you want to','(last)')
uo.useobject(cont)
wait(500)
while not uo.dead()
checkns()
checkbottles()
alchemypoison()
poisondagger()
wend
endsub

Sub checkns()
uo.findtype(ns,'-1','backpack')
if uo.getquantity('finditem')<=10 then
uo.findtype(ns,'-1',cont)
if uo.findcount() then
  uo.moveitem('finditem','100','backpack')
  wait(500)
endif
endif
endsub

Sub checkbottles()
uo.findtype(bottle,'0x0000','backpack')
if uo.getquantity('finditem')<=10 then
uo.findtype(bottle,'-1',cont)
if uo.findcount() then
  uo.moveitem('finditem','100','backpack')
  wait(500)
endif
endif
endsub

Sub alchemypoison()
uo.deletejournal()
uo.usetype(ns)
repeat
Wait(50)
until UO.InJournal("You put the") OR UO.InJournal("You toss the failed")
endsub

Sub poisondagger()
UO.FindType(bottle,colorpoison,'backpack')
if uo.findcount() then
uo.deletejournal()
uo.waittargetobject(dagger,'finditem')
uo.useskill('Poisoning')
repeat
  wait(50)
until UO.InJournal("You fail to apply") OR UO.InJournal("You apply the poison")
endif
end sub

var cont='0x4003D4C0'
var ns='0x0F88'
var bottle='0x0F0E'
var colorpoison='0x0998'
var dagger='0x402348CE'
var msg = 'put the|toss the failed'
var msg2 = 'You fail to apply|You apply the poison'
var LastTimer
sub main()
   uo.cancelmenu()
   uo.automenu('What sort of potion do you want to','(last)')
   uo.useobject(cont)
   wait(500)
   while not uo.dead()
      checkns()
      checkbottles()
      alchemypoison()
      poisondagger()
   wend
endsub
Sub checkns()
   if uo.count(ns)<=10 then ; если в паке меньше или равно 10 регов - добираем
      uo.findtype(ns,'-1',cont)
      if uo.findcount() then
         uo.moveitem('finditem','100','backpack')
         wait(500)
      endif
   endif
endsub
Sub checkbottles()
   if uo.count(bottle)<1 then ; если в паке меньше 1 бутылки - добираем
      uo.findtype(bottle,'-1',cont)
      if uo.findcount() then
         uo.moveitem('finditem','100','backpack')
         wait(500)
      endif
   endif
endsub
Sub alchemypoison()
   UO.DeleteJournal() 
   LastTimer=UO.Timer()
   uo.usetype(ns)
   repeat
      wait(100)
   until UO.InJournal( msg ) or UO.Timer()>LastTimer+300
endsub
Sub poisondagger()
   UO.FindType(bottle,colorpoison,'backpack')
   if uo.findcount() then
      uo.deletejournal()
      LastTimer=UO.Timer()
      uo.waittargetobject(dagger,'finditem')
      uo.useskill('Poisoning')
      repeat
         wait(100)
      until UO.InJournal(msg2) or UO.Timer()>LastTimer+300
   endif
end sub

Sub alchemypoison()
   UO.DeleteJournal() 
   LastTimer=UO.Timer()
   uo.usetype(ns)
   repeat
      wait(100)
   until UO.InJournal( msg ) or UO.Timer()>LastTimer+110
endsub