Yoko

Добрый день уважаемые скриптеры!
Я упешно пользуюсь скриптом на мининг в капалке, но у меня один вопрос. Иногда при копке возникает сообщение "You loosen some rocks but fail to finde any useable" и чар просто стоит и долбит тайл много времени. Из-за чего может возникать такое сообщение? Mining 100% Возможно включить проверку журнала на это сообщение и сделать так что бы чар переходил к следующему тайлу? Шард DRW.
Вот сам скрипт. Автора к сожалению не знаю Скрипт замечательный!

######################################################## 
# Все просто: расставляем координаты go(x,y,z,k), где х и y это 
# координаты по инжекту, z - направление движения, k - константа 
# определяющая действие(1 - копаем; 0 - идем в эти координаты). 
######################################################## 
#Направление движения: константа z имеет следущие значения: 
#                                       PageUp 
#PageUp    -   33                         | 
#                                         | 
#PageDown - 34                 Home ----    ----PageDown 
#                                         | 
#End       -     35                       | 
#                                        End 
#Home     -    36 
######################################################## 
# Координата конечной точки должна быть рядом с сундуком чтобы 
#чар до него дотянулся, проще - вы должны координатной сеткой 
# превести чара в исходный тайл! 
######################################################## 
######################################################## 
##########                                   ########### 
########                                        ######## 
######              Удачно покопать :))           ###### 
########                                        ######## 
##########                                   ########### 
######################################################## 
######################################################## 
var tShovel='0x0E85' #Тип кирки 
######################################################## 
var tSeif='0x400732C5' #Йд сейфа где лежат оры и хавчик 
######################################################## 
var tEat='0x097B' #Тип еды 
######################################################## 


sub go(x,y,k,m) 
while UO.GetX()<>x or UO.GetY()<>y 
UO.Press(k) 
CheckLag() 
wend 
if m==1 then 
Dig() 
end if 
end sub 

sub main() 
while Not UO.Dead() 
FollowMine() 
UnLoad() 
ToEat() 
GoBeg() 
wend 
end sub 

sub FollowMine() 
dig() 
go(1695,2998,34,1) 
go(1695,3000,35,1) 
go(1695,3002,35,0) 
go(1694,3002,36,0) 
go(1694,3004,35,0) 
go(1693,3004,36,1) 
go(1693,3003,33,0) 
go(1691,3003,36,1) 
go(1691,3000,33,0) 
go(1689,3000,36,0) 
go(1689,3001,35,1) 
go(1688,3001,36,1) 
go(1688,2999,33,0) 
go(1686,2999,36,1) 
go(1685,2999,36,1) 
go(1685,2988,33,0) 
go(1691,2988,34,0) 
go(1691,2989,35,0) 
go(1695,2989,34,1) 
go(1695,2991,35,1) 
go(1695,2993,35,1) 
go(1695,2995,35,1) 
go(1695,2998,35,0) 
go(1692,2998,36,0) 

end sub 

sub GoBeg() 
go(1692,2998,33,0)  
end sub 

sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub 

sub tohide() 
while NOT UO.Hidden() 
UO.DeleteJournal() 
UO.Warmode('0') 
UO.UseSkill('Hiding') 
repeat 
wait(50) 
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied') or UO.Dead() 
wend 
end sub 

sub UnLoad() 
var i 
DIM Item[13] 

Item[1]=0x19B9 ; >3 ore 
Item[2]=0x19B7 ; 1 ore 
Item[3]=0x19BA ; 2 ore 
Item[4]=0x19B8 ; 3 ore 
Item[5]=0x0F11 ; saphires 
Item[6]=0x0F16 ; amethysts 
Item[7]=0x0F18 ; tourmalines 
Item[8]=0x0F15 ; citrines 
Item[9]=0x0F10 ; emeralds 
Item[10]=0x0F0F ; star sapphires 
Item[11]=0x0F26 ; diamonds 
Item[12]=0x0EED ; gold 

for i = 1 to 12 
UO.FindType(Item[i], '-1', 'backpack') 
while UO.GetQuantity('finditem') > 0 
UO.MoveItem('finditem','-1',tSeif) 
Wait(1000) 
CheckLag() 
UO.FindType(Item[i],'-1','backpack') 
wend 
next 
end sub 

sub ToEat() 
UO.UseObject(tSeif) 
UO.FindType(tEat,'0x0000',tSeif) 
if UO.FindCount() > 0 then 
UO.MoveItem('finditem','20','backpack') 
else 
return 
end if 
repeat 
CheckLag() 
uo.UseType(tEat) 
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() 
UO.FindType(tEat, '0x0000','backpack') 
if UO.FindCount() > 0 then 
UO.MoveItem('finditem','20',tSeif) 
end if 
end sub 

sub Dig() 
var mx = UO.GetX("self"), my = UO.GetY("self"), mz = UO.GetZ("self"),TileNum='1339', t=0 
var i,j 
if UO.Dead() then 
UO.CloseUO() 
end if 
for i = mx-1 to mx+1 
for j = my-1 to my+1 
tohide() 
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
tohide() 
CheckLag() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Exec("usetype " + tShovel) 
while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("OOPS") and not UO.InJournal("attacking you") 
wait(500) 
wend 
if UO.InJournal('something with ore') OR UO.InJournal("attacking you") then 
t=1 
end if 
if UO.InJournal("but fail") then 
wait(1000) 
end if 
wend 
UO.DeleteJournal() 
next 
next 
if t == 1 then 
Pause() 
end if 
return 1 
end sub 

sub Pause() 
UO.DeleteJournal() 
REPEAT 
WAIT(3000) 
UO.Print("!@! ELEMENTAL !@!") 
UNTIL UO.InJournal('GO') 
UO.Print("!@! KOPAU !@!") 
end sub 

Насколько я знаю, когда вылезает это сообщение, то скоро вылезет какая-нибудь ценная руда.

Насколько скоро?
Иногда он может минут по 20 долбить. А руда не респится.

Тогда это уже не нормально...
Посмотри тут

Посмотрел. Тоже самое.
Я вроде понял почему это просходит. Чар начинает капать в тайле и не закончив первый раз капать сразу начинает второй раз капать и так далее, поэтому и выскакиевает сообщение "You loosen some rocks but fail to finde any useable", копка сбивается. Кто-нибудь знает как это исправить?

На эту сообщушку поставь дополнительный вайт.

if UO.InJournal("but fail") then 
wait(1000) 
end if 

Замени напр на

if UO.InJournal("but fail") then 
wait(2000) 
end if 

_________________
Сделал дело - флуди смело !!!

[quote="Askaneli"][/quote]
Асканели, спасибо Вам огромное!
Теперь скрипт замечательно работает, без сбоев.
И спасибо автору скрипта, помоему это Сфагнум.