uo.usetype('0x0E34') 
UO.DeleteJournal() 
repeat 
  wait(100) 
until UO.InJournal('You put the') OR UO.InJournal('You fail')

sub toeat()
Var Sunduk='0x41125C98' 
   uo.findtype('0x103B',-1,Sunduk)
   if uo.findcount() then
      uo.moveitem('finditem','50','backpack')
      wait(600)
      uo.deletejournal()
      repeat
         uo.usetype('0x103B')
         wait(400)
      until uo.injournal('full to eat')
   endif
   uo.findtype('0x103B',-1,'backpack')
   if uo.findcount() then
      uo.moveitem('finditem',0,Sunduk)
      wait(600)
   endif
endsub

VAR Sunduk1='0x40104A69' 
VAR Sunduk2='0x4173C78B' 

sub InscriptionPoison() 
var i=0 
var k=0
uo.cancelmenu() 
uo.automenu('Spell Circles','Circle 3') 
uo.automenu('Spell Circle 3','Poison') 

while not uo.Dead() 
if uo.skillval("Inscription",1)>=400 Then 
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F40','0x0000') 
wait(200) 
while UO.FindCount()>0 
wait(200) 
UO.Grab('0','finditem') 
wait(1000) 
UO.FindType('0x1F40','0x0000') 
wait(200) 
wend 
UO.UnSetReceivingContainer() 
uo.closeuo() 
end if 

i=i+1 
if i==50 then 
i=1 
uo.usetype('0x097B') 
wait(1000) 
endif 

UO.FindType('0x0E34','0x0000','backpack') 
if UO.GetQuantity('finditem')<=5 then 
UO.FindType('0x0E34','0x0000',Sunduk1) 
wait(200) 
UO.Grab('100','finditem') 
wait(1000) 
end if 

UO.FindType('0x0F88','0x0000','backpack') 
if UO.GetQuantity('finditem')<=5 then 
UO.FindType('0x0F88','0x0000',Sunduk1) 
wait(200) 
UO.Grab('100','finditem') 
wait(1000) 
end if 

if uo.count('0x0F88','0x0000','backpack')==0 or uo.count('0x0E34','0x0000','backpack')==0 Then 
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F40','0x0000') 
wait(200) 
while UO.FindCount()>0 
wait(200) 
cheklag() 
UO.Grab('0','finditem') 
wait(1000) 
UO.FindType('0x1F40','0x0000') 
wait(200) 
wend 
UO.UnSetReceivingContainer() 
uo.closeuo() 
end if 

if uo.mana < 9 then
  repeat
    uo.DeleteJournal()
    uo.UseSkill('Meditation')
    repeat
      uo.Print('Meditation is in active...')
      wait(1000)
    until uo.Mana == uo.Int or uo.InJournal('lose your concentration')
  until uo.Mana == uo.Int
end if
uo.usetype('0x0E34') 
UO.DeleteJournal() 
repeat 
wait(100) 
until UO.InJournal('You put the') OR UO.InJournal('You fail') 

k = k + 1
if k>150 then
  k = 0
  toeat()
endif

if uo.weight >= uo.str*3 then 
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F40','0x0000') 
wait(200) 
while UO.FindCount()>0 
wait(200) 
cheklag() 
UO.Grab('0','finditem') 
wait(1000) 
UO.FindType('0x1F40','0x0000') 
wait(200) 
wend 
UO.UnSetReceivingContainer() 
end if 

wend 
end sub