sub alchtrain()
VAR Sunduk=0x40343BF3 ;ID контейнера где лежат бутылки и нс
VAR Dagger=0x400D3154 ;ID оружия которое пойзонить
VAR Exit=0,TryToPoison,ToEat=0

uo.useobject(Sunduk)
wait(500)
while Exit<>1
ToEat=ToEat+1
if ToEat==500 then
uo.findtype(0x097B,-1,'backpack')
if uo.findcount()>0 then
repeat
UO.UseObject('finditem')
wait(500)
until uo.count(0x097B)==0 or uo.injournal('You feel quite full') OR uo.injournal('You are stuffed!') OR uo.injournal('You are simply too full')
endif
ToEat=0
endif
UO.DeleteJournal()
uo.findtype(0x0F0E,0x0000,'backpack')
If UO.GetQuantity('finditem')<10 then
uo.findtype(0x0F0E,0x0000,Sunduk)
UO.Grab('300','finditem')
wait(1000)
Endif
uo.findtype(0x0F88,-1,'backpack')
If UO.GetQuantity('finditem')<20 then
uo.findtype(0x0F88,-1,Sunduk)
UO.Grab('1000','finditem')
wait(1000)
Endif
UO.WaitMenu('What','(2)') ; menu
UO.UseType(0x0F88) ; NightShade
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(200)
wend
If UO.InJournal("You put") then
TryToPoison=1
repeat
uo.deletejournal()
UO.FindType(0x0F0E,0x0998)
If UO.GetQuantity('finditem')>0 then
UO.WaitTargetObject(dagger,'finditem')
UO.UseSkill('Poisoning')
repeat
wait(200)
until uo.injournal('You apply the poison') or uo.injournal('You fail to apply')
Else
TryToPoison=0
Endif
until TryToPoison==0
EndIf
wend
end sub