sub Poisoning() 
VAR Exit=0, LastTimer 

uo.print('Bag with Poisons') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 

uo.print('Dagger') 
uo.exec('addobject Dagger') 
while uo.targeting() 
wait(100) 
wend 

while Exit<>1 
UO.DeleteJournal() 

UO.FindType('0x0F0E','0x0998','backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0F0E','0x0998','Bag') 
wait(1000) 
UO.Grab('200','finditem') 
wait(1000) 
Endif 

UO.FindType('0x0F0E','0x0998','backpack') 

While UO.Count('0x0F0E','0x0998')>0 
UO.DeleteJournal() 
UO.WaitTargetObject('Dagger','finditem') 
UO.UseSkill('Poisoning') 
Repeat 
CheckLag()
Until UO.InJournal("You apply") OR UO.InJournal("You fail to") 
Wend 

wend    
end sub 

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