Yoko

sub Train_Poisoning()
var sucmessage, nsucmessage, LastTimer, dagger, poison
dagger=UO.GetSerial("_0x0F51")
poison=UO.GetSerial("_0x0F0E")
sucmessage="You apply the poison"
nsucmessage="You fail to apply"
while True
uo.deletejournal()
LastTimer=UO.Timer()
UO.waittargetobject (dagger, poison)
uo.useskill ("Poisoning")
repeat
wait(250)
until uo.injournal(sucmessage) or uo.injournal(nsucmessage) or LastTimer+90<UO.Timer()
wait(250)
if not uo.Count(0x0F0E) then
uo.sound(61)
return
endif
wend
end sub


вот собственно сам скрипт на дрв. добавьте кусочек плз. чтобы он брал пойзон и дальше юзал его

[not tested]

sub Poisoning()   
var idContainer = 
var idDagger=UO.GetSerial("_0x0F51")
   while GrabContainer(idContainer, '0x0F0E','0x0998',100)==0 and uo.skillval("Poisoning",1) < 10000
      UO.FindType('0x0F0E','0x0998','backpack')
      While UO.FindCount() > 0 
         UO.DeleteJournal()
         UO.WaitTargetObject(idDagger,'finditem')
         UO.UseSkill("Poisoning")
         while NOT UO.InJournal("You fail to apply") AND NOT UO.InJournal("You apply")
            wait(300)
         wend   
      wend
   wend
end sub

sub GrabContainer(idContainer, tType, cType, Quanty)
   if UO.Count(tType,cType)<=10 then 
      UO.FindType(tType,cType,idContainer)
      If UO.GetQuantity('finditem')>0 then            
         UO.Grab(Quanty,'finditem') 
         wait(100)
         CheckLag() 
      else 
         return 1
      Endif            
   End If
   return 0
end sub

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub