Page 1 of 1
Помогите доработать скрипт на мининг
Posted: 2011-04-25 09:36:28
by sluntai
Здравствуйте помогите пожалуйста доработать скрипт,сам скрпит работает очень даже хорошо нужно добавить чтобы он пил инвизку и реколился от пк и элема. Огромное спасибо.
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
Re: Помогите доработать скрипт на мининг
Posted: 2011-04-26 15:32:24
by Kynep
Добавить нужно одну строку, в модуль улета, дело пяти минут, если проявить чуточку смекалки.
Re: Помогите доработать скрипт на мининг
Posted: 2011-04-27 09:23:29
by sluntai
Kynep wrote:Добавить нужно одну строку, в модуль улета, дело пяти минут, если проявить чуточку смекалки.
Блин ребяты я не шарю в скриптах потому и спрашиваю допишите плиз буду ооочень благодарен))))
Re: Помогите доработать скрипт на мининг
Posted: 2011-04-27 10:12:15
by Irina E
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
вот этот кусок скрипте надо то ко добавить чтобы он пил инвиз
Re: Помогите доработать скрипт на мининг
Posted: 2011-04-27 15:11:12
by sluntai
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
Re: Помогите доработать скрипт на мининг
Posted: 2011-04-27 21:05:54
by Irina E
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
этот кусок скрипта он у тебя уже есть я просто показал где надо добавить питя инвиски
Re: Помогите доработать скрипт на мининг
Posted: 2011-05-03 13:43:06
by Kynep
5 минут... 5 минут это у тебя займет, у меня меньше... а у афтора, уже неделя прошла, а все никак... а ты говоришь 5 минут...
Re: Помогите доработать скрипт на мининг
Posted: 2011-05-09 10:23:08
by sluntai
Kynep wrote:5 минут... 5 минут это у тебя займет, у меня меньше... а у афтора, уже неделя прошла, а все никак... а ты говоришь 5 минут...
Да все я давно сделал,спасибо всем кто помог,могу готовый вариант выложить сюда если нужно.А так тему можно Close.
Re: Помогите доработать скрипт на мининг
Posted: 2011-05-09 13:30:17
by Mirage
Тему клосать не надо. Если у кого то возникнут вопросы по ДАННОМУ скрипту он сможет задать их тут вместо того чтобы плодить одинаковые темы.
Рабочий вариант если возможно - выкладывай. Другим будет что использовать.
Re: Помогите доработать скрипт на мининг
Posted: 2011-05-11 11:09:15
by sluntai
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
Ну вот готовый скрипт,в него бы конечно по хорошему ходилочку добавить,но это кому как,т.к на том шарде где я играю чар чаще не успевает даже вокруг себя обкопать,ПК не дремлют,да и элемы помогают:)
Re: Помогите доработать скрипт на мининг
Posted: 2011-05-14 10:49:51
by Exist
sluntai wrote:Ну вот готовый скрипт,в него бы конечно по хорошему ходилочку добавить,но это кому как,т.к на том шарде где я играю чар чаще не успевает даже вокруг себя обкопать,ПК не дремлют,да и элемы помогают:)
А что за шард ?
Re: Помогите доработать скрипт на мининг
Posted: 2011-05-16 15:35:26
by sluntai
Exist wrote:sluntai wrote:Ну вот готовый скрипт,в него бы конечно по хорошему ходилочку добавить,но это кому как,т.к на том шарде где я играю чар чаще не успевает даже вокруг себя обкопать,ПК не дремлют,да и элемы помогают:)
А что за шард ?
Не твой,на твоем меня не адекватная администрация забанила за то что я не лестно высказался на счет таблиц на сайте,оказывается чтобы увидеть на странице таблицу допустим магии, нужно мышкой выделить текст этой самой страницы,я должен был до всего этого догадаться,о чем написал ,что сайт сделан через ж..у,Обидчивый админ сказал "я я У нас все через ж...у ,хыыы вот собстно и усе.
Re: Помогите доработать скрипт на мининг
Posted: 2011-05-16 16:07:59
by Mirage
пардоньте за офтоп но о чем вы?
таблица.JPG
Вроде все видно после клика
Шард - Таблицы - магия
Re: Помогите доработать скрипт на мининг
Posted: 2011-05-16 16:28:46
by sluntai
Mirage wrote:пардоньте за офтоп но о чем вы?
таблица.JPG
Вроде все видно после клика
Шард - Таблицы - магия
Меня забанили полгода назад тогда был такой косяк,я не мог посмотреть помоему эту таблицу,обратился за помощью на форум мне объяснили то что я уже написал,я просто под ...л админа маленько,что такой ВЕЛИКИЙ как ДРВ и с таким сайтом ,ну и получил то что получил))
Re: Помогите доработать скрипт на мининг
Posted: 2011-05-17 21:15:36
by Irina E
Мираж скинь мне твоЙ сайт где можна скачать клиент полный