Yoko

Привет Ребят...проблема ...заходит в шахту и стоит.хочет копать но не знает что)))
Sub tohome()
Go_To(0000000000)
Go_To(0000000000)
Go_To(0000000000)
Go_To(0000000000)
Go_To(0000000000)
wait(100)
unloadore()#Выгружаемся
wait(100)
Go_To(0000000000)
Go_To(0000000000)
Go_To(0000000000)
Go_To(0000000000)
Go_To(0000000000)
wait(100)
end sub

Sub unloadore()
VAR TempX,TempY,i,Exit, Exit1, ConTainer, j
VAR Index=14
DIM Ore[4]
TempX=UO.GetX()
TempY=UO.GetY()
Ore[0]=0x19B9
Ore[1]=0x19B7
Ore[2]=0x19BA
Ore[3]=0x19B8
For i=0 to 3
Exit=0
repeat
UO.FindType(Ore[i])
if UO.GetQuantity('finditem')>0 then
Exit1=0
j=0
UO.MoveItem('finditem',0,"0x40063955")#ID сундука,куда складывать руду
wait(300)
Else
Exit=1
endif
until Exit==1
Next
end sub

sub main()
VAR i
while 1==1

Go_To(00000)
min()
Go_To(00000)
min()
Go_To(00000)
min()
Go_To(00000)
min()
Go_To(00000)
min()

Go_To(00000)
min()
Go_To(00000)
min()

wend
end sub

Sub min()
var x,y,z
VAR LastTimer
VAR ms1 = "There is nothing here to mine for."
VAR ms2 = "You can't use"
VAR ms3 = "Вы переместили"
VAR ms4 = "You loosen some rocks"
VAR ms5 = "location"
VAR ms6 = "Try mining"
VAR ms7 = "You can't see that"
VAR ms8 = "You stop"
VAR ms9 = "That is too"
VAR ms10= "Вы не смогли"
VAR ms11= "You cannot mine"
z=UO.GetZ("self")
for y=-2 to 2
for x=-2 to 2
UO.Print(str(x)+" "+str(y))
if uo.weight > 800 then #Вес при котором идем домой
tohome()
endif
repeat
uo.deletejournal()
UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z))
UO.UseType('0x0E85')
LastTimer=UO.Timer()
repeat
wait(50)
until UO.InJournal(ms1) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms7) OR UO.InJournal(ms9) OR UO.InJournal(ms10) OR UO.InJournal(ms11) OR UO.Timer()>LastTimer+100
if UO.InJournal(ms3) then
else
endif
until UO.InJournal(ms2) OR UO.InJournal(ms1) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms9) OR UO.InJournal(ms11)
next
next
end sub

При добавлении скрипта копируй либо из блокнота либо переключай системный язык на русский - не будет кракозябр. Так же пользуйся тегами [code] [/сode].
Всего скорее не совпадают сообщения сервера с проверочными сообщениями журнала в функции Sub min(). Надо делать либо куски сообщения:
вместо VAR ms1 = "There is nothing here to mine for."
делать VAR ms1 = "re is nothing here to m"
Либо проверять все до знака препинания и регистра букв.

Или инструмент не совпадает с указанным.

Это из области экстрасенсорики. А так - ты не указал что пишет в журнале, какой шард, чем копаешь (тип инструмента)...

Спасибо Mirage....он пишет на чем вы хотите использовать кирку...или пишет слишком далеко....я добавил Слишком далеко в скрипт теперь стоит и нефига не делает

Добавить:

VAR ms11= "You cannot mine"
VAR ms12= "слишком далеко" ; <----

OR UO.InJournal(ms11) OR UO.InJournal(ms12) ;<--- а эту строку в обе проверки.

На чем вы хотите использовать кирку
Слишком далеко



вот что пишет

VAR ms12= "лишком далеко" ; <----

"с" убери

на uorpg некоторые сообщения inj не видит. а видит cliloc# 0xFEA1B

Mirage-добрыйскриптер