sub main() 
var Container='0x401A1257' 
var IronCount = Val(STR((UO.STR*4+30-UO.Weight)/0.6,0))-600 
Open('backpack') 
Open('Container') 
if UO.Count('0x1EBC','0x0000') > 0 then 
UO.FindType('0x1EBC','0x0000','backpack') 
UO.AddObject('objTools','finditem') 
else 
return 
end if 
UO.CancelMenu() 
uo.automenu("Tinkering","Tools") 
uo.automenu("Tools","lockpick") 
While Move(Container,IronCount) > 0 
While UO.Count("0x1BEF") > 1 
UO.DeleteJournal() 
UO.UseObject('objTools') 
repeat 
wait(300) 
until UO.InJournal("You put") or UO.InJournal("failed") 
wend 
wend 
UO.CancelMenu() 
end sub 
sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub 

sub Move(Container, IronCount) 
CheckLag() 
UO.FindType('0x14FB','0x0000','backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.MoveItem('finditem','-1',Container) 
wait(1000) 
end if 
toEat(Container) 
UO.FindType('0x1BEF','0x0000',Container) 
If UO.GetQuantity('finditem')<2 Then 
return 0 
Else 
UO.Grab(str(IronCount),'finditem') 
wait(1000) 
Endif 
Spirit() 
CheckLag() 
return 1 
end sub 

sub Open(Container) 
UO.UseObject(Container) 
wait(500) 
end sub 
sub toEat(cont) 
var havka = '0x097B' 
UO.FindType(havka, '0x0000', cont) 
if UO.FindCount() > 0 then 
UO.MoveItem('finditem','20','backpack') 
else 
return 
end if 
repeat 
CheckLag() 
uo.UseType(havka) 
while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead() 
wait(100) 
wend 
until uo.InJournal('too full') or UO.Dead() or uo.InJournal("can't") 
UO.FindType(havka, '0x0000','backpack') 
if UO.FindCount() > 0 then 
UO.MoveItem('finditem','20',cont) 
end if 
CheckLag() 
wait(1000) 
end sub 

sub Spirit() 
UO.DeleteJournal() 
UO.UseSkill("Spirit Speak") 
repeat 
wait(500) 
until UO.InJournal('You establish') or UO.InJournal('netherworld') 
end sub