var Pyda ="0x4E972628"

sub main()
begin:
uo.deletejournal()
uo.serverprint(".hungry")
wait(300)
if ((uo.lastmessage()=="You are DYING of hunger...") or (uo.lastmessage()=="You are almost dying of hunger") or (uo.lastmessage()=="You are starving") or (uo.lastmessage()=="Your stomash hurts and you feel dizzy")or (uo.lastmessage()=="Your stomash hurts") or (uo.lastmessage()=="You are REALLY hungry") or (uo.lastmessage()=="You are somewhat hungry") or (uo.lastmessage()=="You are a little hungry") or (uo.lastmessage()=="You aren't hungry at all"))==true then
   uo.usetype("0x097b")
   wait(500)
endif
uo.waittargetobject(Pyda)
uo.usetype(0x0FB4)
wait(1000)
UO.LClick(47,380)
wait(65000)
while uo.count(0x1414)>0 
uo.waittargettype(0x1414)
uo.usefromground(0x0FB1)
wait(1500) 
wend
go to begin
end sub

var Pyda ="0x4EA8102C" #ID метала с которым работаем
var MaxWeight ="0"

sub main()
var k,w
uo.exec ("set finddistance 1")
w=uo.lastmessage()
while True
k=0
if uo.weight > MaxWeight then
Drop('0x1BF2','0x07DF','container') #Сделано для купера
wait(500)
endif
uo.waittargetobject(Pyda)
uo.usetype(0x0FB4)
wait(1000)
uo.LClick(47,380)
wait(65000)
while uo.count(0x1412)>0 #Плайт шлем
uo.waittargettype(0x1412) #Плайт шлем
uo.usefromground(0x0FB1) #Форжа
wait(1700)
wend
if w=="Saving World State" <>0 Then
wait(20000) 
uo.deletejournal() 
endif
if k==5 then
k=0
uo.deletejournal()
uo.serverprint(".hungry")
wait(300)
if ((w=="You are DYING of hunger...") or (w=="You are almost dying of hunger") or (w=="You are starving") or (w=="Your stomash hurts and you feel dizzy")or (w=="Your stomash hurts") or (w=="You are REALLY hungry") or (w=="You are somewhat hungry") or (w=="You are a little hungry") or (w=="You aren't hungry at all"))==true then
uo.usetype("0x097b")
wait(500)
endif
k=k+1
endif
wend
end sub

sub Drop(type,color,container)
var serial=0
container = "ground"
UO.FindType(type,color,"backpack")
if uo.findcount() <> 0 then
serial=UO.GetSerial("finditem")
UO.Ignore(serial)
if container=="ground" then
UO.FindType(type,color,"ground")
if UO.FindCount()>0 then
if uo.getquantity("finditem") < 59000 then
UO.MoveItem(serial,"0","finditem","0","0","0")
else
UO.DropHere(serial)
endif
else 
uo.ignore ("finditem")
UO.DropHere(serial)
endif
else
UO.MoveItem(serial,"0",container)
endif
wait(1000)
endif
else
uo.findtype(type,color,"backpack")
if uo.findcount() <> 0 then
uo.exec ("drop 0 0 0 0 finditem")
wait (500)
endif
wait (500)
endif
UO.IgnoreReset()
end sub