Yoko
http://forum.yoko.com.ua/

Помогите Мининг:))
http://forum.yoko.com.ua/viewtopic.php?f=20&t=17937
Page 1 of 1

Author:  Emmka [ 2017-01-02 09:04:55 ]
Post subject:  Помогите Мининг:))

Привет Ребят...проблема ...заходит в шахту и стоит.хочет копать но не знает что)))
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

Author:  Mirage [ 2017-01-02 10:11:12 ]
Post subject:  Re: Помогите Мининг:))

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

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

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

Author:  Emmka [ 2017-01-02 16:47:30 ]
Post subject:  Re: Помогите Мининг:))

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

Author:  Mirage [ 2017-01-02 20:31:09 ]
Post subject:  Re: Помогите Мининг:))

Добавить:
Quote:
VAR ms11= "You cannot mine"
VAR ms12= "слишком далеко" ; <----

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

Author:  Emmka [ 2017-01-19 21:11:26 ]
Post subject:  Re: Помогите Мининг:))

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



вот что пишет

Author:  Mirage [ 2017-01-19 22:30:58 ]
Post subject:  Re: Помогите Мининг:))

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

"с" убери

Author:  Nmy [ 2017-01-20 09:36:59 ]
Post subject:  Re: Помогите Мининг:))

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

Author:  dubd [ 2017-01-20 21:07:54 ]
Post subject:  Re: Помогите Мининг:))

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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/