Yoko :: Помогите доработать скрипт на мининг

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

Помогите доработать скрипт на мининг http://forum.yoko.com.ua/viewtopic.php?f=20&t=16420	Page 1 of 1

Author:

sluntai [ 2011-04-25 09:36:28 ]

Post subject:

Помогите доработать скрипт на мининг

Здравствуйте помогите пожалуйста доработать скрипт,сам скрпит работает очень даже хорошо нужно добавить чтобы он пил инвизку и реколился от пк и элема. Огромное спасибо.

Code:

sub maning() 
#BETEP™# 
var mx, my, mz, i, j, jor, ser, noto 
Uo.exec("set norbcheck 1"); aey ?aeiea 
uo.exec("set norbcalc 1"); oi?a 

uo.print('!!Auaa?e Eiiaoo!! ') 
uo.exec('addobject Shovel') 
while uo.targeting() 
wait(100) 
wend 
  
uo.print('!!Auaa?e ?oio AIIIE !! ') 
uo.exec('addobject runeHome') 
while uo.targeting() 
wait(100) 
wend 

uo.print('!!Auaa?e ?oio A IAUA?O !! ') 
uo.exec('addobject runeCave') 
while uo.targeting() 
wait(100) 
wend 

na4alo: 
mx = UO.GetX("last") 
my = UO.GetY("last") 
mz = UO.GetZ("last") 
UO.DeleteJournal() 
for i = mx-4 to mx+4 
for j = my -4 to my+4 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("I?y?ainy...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
UO.Print("Eiiaai a eii?aeiaoao: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore") 
UO.DeleteJournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Useobject("Shovel") 
while not UO.InJournal("You put") and not UO.InJournal("heavy") 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") 
wait (500) 
if uo.injournal("heavy") or uo.dead() then 
pwav()                    
Pause() 
endif 
for jor = 0 to 9    
ser = uo.journalserial(jor) 
noto = uo.getnotoriety(ser) 
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then 
if uo.waiting() then 
uo.canceltarget() 
endif 
Save() 
pwavw() 
wait(180000) ; a?aiy a naeoiaao i?e i?eaaiee iiea oeaao IE 
loot() 
wait(3000) 
goto reccal 
endif 
next    
wend 
if uo.weight > 400 then  ; Iaeneiaeuiue aan i?e eioi?ii aiiie n ?oaie 
goto end 
endif 
wend 
UO.DeleteJournal() 
next 
next 
goto na4alo 
end: 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.waittargetobject('runeHome') ; aiiie 
wait(500) 
uo.cast('Recall') 
wait(3000) 
loot() 
wait(3000) 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.waittargetobject('runeCave') ; a oaooo 
wait(500) 
uo.cast('Recall') 
mx = UO.GetX("self") 
my = UO.GetY("self") 
wait(10000) 
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then 
goto reccal 
endif 
goto na4alo 
end sub 


sub loot()    ; ia?aeeaaea ?oau a noiaoe 
if uo.waiting() then 
uo.canceltarget() 
endif 
VAR a,Exit 
VAR UnloadCont='0x4002C5E2' ; AEAE noiaoea aey ?oau  
DIM Ore[5] 
Ore[0]=0x19B9 ; 4 and more ore 
Ore[1]=0x19B7 ; 1 ore 
Ore[2]=0x19BA ; 2 ore 
Ore[3]=0x19B8 ; 3 ore 
UO.SetReceivingContainer(UnloadCont) 
wait(500) 
For a=0 to 3 
Exit=0 
repeat 
UO.FindType(Ore[a]) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(1500) 
Else 
Exit=1 
endif 
until Exit==1 
Next 
UO.UnSetReceivingContainer() 
end sub 

sub Save() ; ?aeiee io IE i?e eo iiyaeaiee (a iaea ?oiea a aaciianiia ianoi e ?aae) 
var mx, my 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
mx = UO.GetX("self") 
my = UO.GetY("self") 
UO.DeleteJournal() 
uo.waittargetobject('runeHome') ; aiiie 
wait(500) 
uo.cast('Recall') 
wait(4000) 
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then 
goto reccal 
endif 
end sub 

sub pwav() ; caoe i?e aueaiuaaiee YEAIAIOAEA 
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 
endsub 

sub pwavw(); caoe i?e iiyaeaiee IE 
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 
endsub 

sub Pause() ; Iaoca ne?eioa anee aueiiaee Yeaia (i?iaie?eou neacaa GO ) 
UO.DeleteJournal() 
REPEAT 
WAIT(3000) 
UO.Print("!!!NE?EIO IA IAOCA!!!!") 
UNTIL UO.InJournal('GO') 
UO.Print("!!!NE?EIO I?IAIE?AI!!!!") 
endif 
end sub

Author:	Kynep [ 2011-04-26 15:32:24 ]
Post subject:	Re: Помогите доработать скрипт на мининг
Добавить нужно одну строку, в модуль улета, дело пяти минут, если проявить чуточку смекалки.

Author:	sluntai [ 2011-04-27 09:23:29 ]
Post subject:	Re: Помогите доработать скрипт на мининг
Kynep wrote: Добавить нужно одну строку, в модуль улета, дело пяти минут, если проявить чуточку смекалки. Блин ребяты я не шарю в скриптах потому и спрашиваю допишите плиз буду ооочень благодарен))))

Author:	Irina E [ 2011-04-27 10:12:15 ]
Post subject:	Re: Помогите доработать скрипт на мининг
5 минут для одной строчки при появление пк или выкапывание елема то он становица на паузу в скрипте улёте Code: sub Save() ; ?aeiee io IE i?e eo iiyaeaiee (a iaea ?oiea a aaciianiia ianoi e ?aae) var mx, my reccal: uo.deletejournal() if uo.waiting() then uo.canceltarget() endif mx = UO.GetX("self") my = UO.GetY("self") UO.DeleteJournal() uo.waittargetobject('runeHome') ; aiiie wait(500) uo.cast('Recall') wait(4000) if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then goto reccal endif end sub вот этот кусок скрипте надо то ко добавить чтобы он пил инвиз

Author:	sluntai [ 2011-04-27 15:11:12 ]
Post subject:	Re: Помогите доработать скрипт на мининг
Irina E wrote: 5 минут для одной строчки при появление пк или выкапывание елема то он становица на паузу в скрипте улёте Code: sub Save() ; ?aeiee io IE i?e eo iiyaeaiee (a iaea ?oiea a aaciianiia ianoi e ?aae) var mx, my reccal: uo.deletejournal() if uo.waiting() then uo.canceltarget() endif mx = UO.GetX("self") my = UO.GetY("self") UO.DeleteJournal() uo.waittargetobject('runeHome') ; aiiie wait(500) uo.cast('Recall') wait(4000) if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then goto reccal endif end sub вот этот кусок скрипте надо то ко добавить чтобы он пил инвиз Ошибку выдает :Label already defined in this proc-SAVE RECCAL

Author:	Irina E [ 2011-04-27 21:05:54 ]
Post subject:	Re: Помогите доработать скрипт на мининг
sluntai wrote: Irina E wrote: 5 минут для одной строчки при появление пк или выкапывание елема то он становица на паузу в скрипте улёте Code: sub Save() ; ?aeiee io IE i?e eo iiyaeaiee (a iaea ?oiea a aaciianiia ianoi e ?aae) var mx, my reccal: uo.deletejournal() if uo.waiting() then uo.canceltarget() endif mx = UO.GetX("self") my = UO.GetY("self") UO.DeleteJournal() uo.waittargetobject('runeHome') ; aiiie wait(500) uo.cast('Recall') wait(4000) if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then goto reccal endif end sub вот этот кусок скрипте надо то ко добавить чтобы он пил инвиз Ошибку выдает :Label already defined in this proc-SAVE RECCAL этот кусок скрипта он у тебя уже есть я просто показал где надо добавить питя инвиски

Author:	Kynep [ 2011-05-03 13:43:06 ]
Post subject:	Re: Помогите доработать скрипт на мининг
5 минут... 5 минут это у тебя займет, у меня меньше... а у афтора, уже неделя прошла, а все никак... а ты говоришь 5 минут...

Author:	sluntai [ 2011-05-09 10:23:08 ]
Post subject:	Re: Помогите доработать скрипт на мининг
Kynep wrote: 5 минут... 5 минут это у тебя займет, у меня меньше... а у афтора, уже неделя прошла, а все никак... а ты говоришь 5 минут... Да все я давно сделал,спасибо всем кто помог,могу готовый вариант выложить сюда если нужно.А так тему можно Close.

Author:	Mirage [ 2011-05-09 13:30:17 ]
Post subject:	Re: Помогите доработать скрипт на мининг
Тему клосать не надо. Если у кого то возникнут вопросы по ДАННОМУ скрипту он сможет задать их тут вместо того чтобы плодить одинаковые темы. Рабочий вариант если возможно - выкладывай. Другим будет что использовать.

Author:

sluntai [ 2011-05-11 11:09:15 ]

Post subject:

Re: Помогите доработать скрипт на мининг

Code:

sub maning() 
#BETEP™# 
var mx, my, mz, i, j, jor, ser, noto 
Uo.exec("set norbcheck 1"); aey ?aeiea 
uo.exec("set norbcalc 1"); oi?a 

uo.print('!!Auaa?e Eiiaoo!! ') 
uo.exec('addobject Shovel') 
while uo.targeting() 
wait(100) 
wend 
  
uo.print('!!Auaa?e ?oio AIIIE !! ') 
uo.exec('addobject runeHome') 
while uo.targeting() 
wait(100) 
wend 

uo.print('!!Auaa?e ?oio A IAUA?O !! ') 
uo.exec('addobject runeCave') 
while uo.targeting() 
wait(100) 
wend 

na4alo: 
mx = UO.GetX("last") 
my = UO.GetY("last") 
mz = UO.GetZ("last") 
UO.DeleteJournal() 
for i = mx-4 to mx+4 
for j = my -4 to my+4 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("I?y?ainy...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
UO.Print("Eiiaai a eii?aeiaoao: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore") 
UO.DeleteJournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Useobject("Shovel") 
while not UO.InJournal("You put") and not UO.InJournal("heavy") 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") 
wait (500) 
if uo.injournal("heavy") or uo.dead() then 
pwav()                    
Pause() 
endif 
for jor = 0 to 9    
ser = uo.journalserial(jor) 
noto = uo.getnotoriety(ser) 
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then 
if uo.waiting() then 
uo.canceltarget() 
endif 
Save() 
pwavw() 
wait(180000) ; a?aiy a naeoiaao i?e i?eaaiee iiea oeaao IE 
loot() 
wait(3000) 
goto reccal 
endif 
next    
wend 
if uo.weight > 500 then  ; Iaeneiaeuiue aan i?e eioi?ii aiiie n ?oaie 
goto end 
endif 
wend 
UO.DeleteJournal() 
next 
next 
goto na4alo 
end: 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.waittargetobject('runeHome') ; aiiie 
wait(500) 
uo.Usetype('0x1F4C','0x0000') ;Recall 
wait(3000) 
loot() 
wait(3000) 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.waittargetobject('runeCave') ; a oaooo 
wait(500) 
uo.Usetype('0x1F4C','0x0000') ;Recall 
mx = UO.GetX("self") 
my = UO.GetY("self") 
wait(10000) 
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then 
goto reccal 
endif 
goto na4alo 
end sub 


sub loot()    ; ia?aeeaaea ?oau a noiaoe 
if uo.waiting() then 
uo.canceltarget() 
endif 
VAR a,Exit 
VAR UnloadCont='0x4002C5E2' ; AEAE noiaoea aey ?oau  
DIM Ore[5] 
Ore[0]=0x19B9 ; 4 and more ore 
Ore[1]=0x19B7 ; 1 ore 
Ore[2]=0x19BA ; 2 ore 
Ore[3]=0x19B8 ; 3 ore 
UO.SetReceivingContainer(UnloadCont) 
wait(500) 
For a=0 to 3 
Exit=0 
repeat 
UO.FindType(Ore[a]) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(1500) 
Else 
Exit=1 
endif 
until Exit==1 
Next 
UO.UnSetReceivingContainer() 
end sub 

sub Save() ; ?aeiee io IE i?e eo iiyaeaiee (a iaea ?oiea a aaciianiia ianoi e ?aae) 
var mx, my 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
mx = UO.GetX("self") 
my = UO.GetY("self") 
UO.DeleteJournal() 
uo.waittargetobject('runeHome') ; aiiie 
wait(500) 
uo.Usetype('0x1F4C','0x0000') ;Recall
wait(4000) 
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then 
goto reccal 
endif 
end sub 

sub pwav() ; caoe i?e aueaiuaaiee YEAIAIOAEA 
uo.playwav("D:\Alert") 
endsub 

sub pwavw(); caoe i?e iiyaeaiee IE 
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 
endsub 

sub Pause() ; Iaoca ne?eioa anee aueiiaee Yeaia (i?iaie?eou neacaa GO ) 
UO.DeleteJournal() 
REPEAT 
WAIT(3000) 
UO.Print("!!!NE?EIO IA IAOCA!!!!") 
UNTIL UO.InJournal('GO') 
UO.Print("!!!NE?EIO I?IAIE?AI!!!!") 
endif 
end sub

sub ExtrimalRecall()
var rune='0x400C5998'
  uo.Usetype('0x0F08','0x07F2') ; Invisibility
  wait(100)
  uo.waittargetobject(Rune)
  uo.Usetype('0x1F4C','0x0000') ;Recall
end sub

Ну вот готовый скрипт,в него бы конечно по хорошему ходилочку добавить,но это кому как,т.к на том шарде где я играю чар чаще не успевает даже вокруг себя обкопать,ПК не дремлют,да и элемы помогают:)

Author:	Exist [ 2011-05-14 10:49:51 ]
Post subject:	Re: Помогите доработать скрипт на мининг
sluntai wrote: Ну вот готовый скрипт,в него бы конечно по хорошему ходилочку добавить,но это кому как,т.к на том шарде где я играю чар чаще не успевает даже вокруг себя обкопать,ПК не дремлют,да и элемы помогают:) А что за шард ?

Author:	sluntai [ 2011-05-16 15:35:26 ]
Post subject:	Re: Помогите доработать скрипт на мининг
Exist wrote: sluntai wrote: Ну вот готовый скрипт,в него бы конечно по хорошему ходилочку добавить,но это кому как,т.к на том шарде где я играю чар чаще не успевает даже вокруг себя обкопать,ПК не дремлют,да и элемы помогают:) А что за шард ? Не твой,на твоем меня не адекватная администрация забанила за то что я не лестно высказался на счет таблиц на сайте,оказывается чтобы увидеть на странице таблицу допустим магии, нужно мышкой выделить текст этой самой страницы,я должен был до всего этого догадаться,о чем написал ,что сайт сделан через ж..у,Обидчивый админ сказал "я я У нас все через ж...у ,хыыы вот собстно и усе.

Author:	Mirage [ 2011-05-16 16:07:59 ]
Post subject:	Re: Помогите доработать скрипт на мининг
пардоньте за офтоп но о чем вы? Attachment: таблица.JPG Вроде все видно после клика Шард - Таблицы - магия

Author:	sluntai [ 2011-05-16 16:28:46 ]
Post subject:	Re: Помогите доработать скрипт на мининг
Mirage wrote: пардоньте за офтоп но о чем вы? Attachment: таблица.JPG Вроде все видно после клика Шард - Таблицы - магия Меня забанили полгода назад тогда был такой косяк,я не мог посмотреть помоему эту таблицу,обратился за помощью на форум мне объяснили то что я уже написал,я просто под ...л админа маленько,что такой ВЕЛИКИЙ как ДРВ и с таким сайтом ,ну и получил то что получил))

Author:	Irina E [ 2011-05-17 21:15:36 ]
Post subject:	Re: Помогите доработать скрипт на мининг
Мираж скинь мне твоЙ сайт где можна скачать клиент полный

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