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/ |