знаю как всех достал...но мининг (Проблема)

[Shevrik]

вот скрипт:

Code: Select all

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

Суть скрипта: Копает вокруг себя.
Кто бы мне помог добавить сюда реконектор ? и по возможности чтоб он бежал к дому и сбрасывал всё в сундук.
ну хотябы реконектор

[stickman]

Code: Select all

sub kopanie(x,y) 
UO.Exec('terminate Reconnector') 
wait(500) 
UO.Exec('exec Reconnector') 
wait(500) 
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

Sub Reconnector() 
var RFlag 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
RFlag = 0 
endif 
Wait(20000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) Then 
UO.Exec('terminate main') 
wait(1000) 
uo.lclick(494,383) 
wait(1000) 
UO.Exec('exec main') 
wait(1000) 
RFlag = 1 
endif 
Until false 
end sub 

[Shevrik]

спасибо.

[arch]

в таких местах надо еще проверку добавлять на сбой.

Code: Select all

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") 

например, так:

Code: Select all

j=0
repeat 
wait (50) 
j=j+1
until uo.injournal("Tasty!") or uo.injournal("Good!") or uo.injournal("Yum!") or uo.injournal("I am already") or uo.injournal("123") or (j>100)