UO.Waittargetobject(****)  ;**** - it serial
UO.Usetype(****)              ;**** - type potion of poison

sub alchtrain()
   VAR Exit=0, LastTimer, TryToPoison
   while Exit<>1
      ToHide()
      UO.DeleteJournal()

      UO.FindType('0x0F0E','0x0000','backpack')
      If UO.GetQuantity('finditem')<10 then
         UO.FindType('0x0F0E','0x0000','0x400704F3')
         wait(1000)
         UO.Grab('500','finditem')
         wait(1000)
      Endif

      UO.FindType('0x0F88','0x0000','backpack')
      If UO.GetQuantity('finditem')<20 then
         UO.FindType('0x0F88','0x0000','0x400704F3')
         wait(1000)
         UO.Grab('1000','finditem')
         wait(1000)
      Endif

      LastTimer=UO.Timer()
      UO.WaitMenu('What','(last)')
      UO.UseType(0x0F88) ; NightShade

      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
            wait(500)
      wend

      If UO.InJournal("You toss the failed") then
         repeat
            wait(100)
         until UO.Timer()>=LastTimer+100 ;time to make a dagger
      Else
         TryToPoison=1
         repeat
            ToHide()
            UO.FindType
('0x0F0E','0x0998','my')
;>>>>>>>>>>>>>>>>
            If UO.GetQuantity('finditem')>0 then
               UO.WaitTargetObject('0x40170E97','finditem')
               UO.UseSkill('Poisoning')
;>>>>>>>>>>>>>>>>
               wait(4000)
            Else
               TryToPoison=0
            Endif
         until TryToPoison==0
      EndIf
   wend   
end sub