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

sluntai · Post by **sluntai** » 2011-04-25 09:36:28

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

Code: Select all

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

Kynep · Post by **Kynep** » 2011-04-26 15:32:24

Добавить нужно одну строку, в модуль улета, дело пяти минут, если проявить чуточку смекалки.

sluntai · Post by **sluntai** » 2011-04-27 09:23:29

Kynep wrote:Добавить нужно одну строку, в модуль улета, дело пяти минут, если проявить чуточку смекалки.

Блин ребяты я не шарю в скриптах потому и спрашиваю допишите плиз буду ооочень благодарен))))

Irina E · Post by **Irina E** » 2011-04-27 10:12:15

5 минут

для одной строчки
при появление пк или выкапывание елема то он становица на паузу
в скрипте улёте

Code: Select all

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

вот этот кусок скрипте надо то ко добавить чтобы он пил инвиз

sluntai · Post by **sluntai** » 2011-04-27 15:11:12

Irina E wrote:5 минут для одной строчки
при появление пк или выкапывание елема то он становица на паузу
в скрипте улёте
Code: Select all
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

Irina E · Post by **Irina E** » 2011-04-27 21:05:54

sluntai wrote:
Irina E wrote:5 минут для одной строчки
при появление пк или выкапывание елема то он становица на паузу
в скрипте улёте
Code: Select all
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

этот кусок скрипта он у тебя уже есть я просто показал где надо добавить питя инвиски

Kynep · Post by **Kynep** » 2011-05-03 13:43:06

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

sluntai · Post by **sluntai** » 2011-05-09 10:23:08

Kynep wrote:5 минут... 5 минут это у тебя займет, у меня меньше... а у афтора, уже неделя прошла, а все никак... а ты говоришь 5 минут...

Да все я давно сделал,спасибо всем кто помог,могу готовый вариант выложить сюда если нужно.А так тему можно Close.

Mirage · Post by **Mirage** » 2011-05-09 13:30:17

Тему клосать не надо. Если у кого то возникнут вопросы по ДАННОМУ скрипту он сможет задать их тут вместо того чтобы плодить одинаковые темы.
Рабочий вариант если возможно - выкладывай. Другим будет что использовать.

sluntai · Post by **sluntai** » 2011-05-11 11:09:15

Code: Select all

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

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

Exist · Post by **Exist** » 2011-05-14 10:49:51

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

А что за шард ?

sluntai · Post by **sluntai** » 2011-05-16 15:35:26

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

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

Mirage · Post by **Mirage** » 2011-05-16 16:07:59

пардоньте за офтоп но о чем вы?

таблица.JPG

Вроде все видно после клика
Шард - Таблицы - магия

sluntai · Post by **sluntai** » 2011-05-16 16:28:46

Mirage wrote:пардоньте за офтоп но о чем вы?
таблица.JPG
Вроде все видно после клика
Шард - Таблицы - магия

Меня забанили полгода назад тогда был такой косяк,я не мог посмотреть помоему эту таблицу,обратился за помощью на форум мне объяснили то что я уже написал,я просто под ...л админа маленько,что такой ВЕЛИКИЙ как ДРВ и с таким сайтом ,ну и получил то что получил))

Irina E · Post by **Irina E** » 2011-05-17 21:15:36

Мираж скинь мне твоЙ сайт где можна скачать клиент полный

Yoko

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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