Yoko

var cont='0x400BB88D'
var ns='0x0F88'
var bottle='0x0F0E'
var colorpoison='0x0998'
var dagger='0x401314AB'

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
endsub