Code:
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
Исправьте плс проблему хавки.