sub kopanie(x,y) 
uo.exec("usetype '0x0e85'") 
wait(500) 
UO.LClick(x,y) 
wait(5000) 
end sub 
var need_hungry_level = 1
sub hungry()
var i,htest,htime,htest2
dim a[11]
a[0] = "You are absolutely stuffed"
a[1] = "You are stuffed"
a[2] = "You aren't hungry at all"
a[3] = "You are a little hungry"
a[4] = "You are somewhat hungry"
a[5] = "You are REALLY hungry"
a[6] = "Your stomash hurts"
a[7] = "Your stomash hurts and you feel dizzy"
a[8] = "You are starving"
a[9] = "You are almost dying of hunger"
a[10] = "You are DYING of hunger"
htest = 0
repeat
uo.deletejournal()
uo.serverprint(".hungry")
wait (1000)
i = 0
htest2 = 0
if uo.count("0x097B") > 0 then
repeat
if uo.injournal(a[i]) then
if (i - need_hungry_level) > 0 then
uo.exec("usetype 0x097B")
repeat
wait (50)
until uo.injournal("Tasty!") or uo.injournal("Good!") or uo.injournal("Yum!") or uo.injournal("I am already") or uo.injournal("123")
htest2 = 1
else
htest = 1
htest2 = 1
endif
endif
i = i + 1
until i == 11 or htest2 == 1
else
htest = 1
endif
until htest == 1
endsub
sub main() 
var x1, y1, x2, y2, xp, x, y, z1 
repeat1: 
if y1==420 then 
y1=300 
y2=180 
z1= -1 
x1=300 
x2=520 
else 
y1=300 
y2=420 
z1= 1 
x1=300 
x2=520 
endif 
while y1 <> y2 
xp=x1 
while xp <> x2 
x=xp 
y=y1 
kopanie(x,y) 
xp=xp+20 
wend 
y1=y1+z1*20 
x1=x1+20 
x2=x2-20 
wend 
goto repeat1 
end sub