Page 1 of 1
Скрипт на новый тип маининга=)
Posted: 2006-02-23 15:45:37
by Kaifrat
Можно такой скрипт :
Чтобы летал по рунбукам ( ДрВ ) по шахтам ...1 или 2 без раздницы..
Главное чтобы : при появлении пк , пил инвиску и сразу реколился по рунки домой, дома скидывал руду в сундук и ждал х время чтобы опять прыгнутьв шахту ...можно такой скрипт плиз, оченнь буду благодарен ...
Re: Скрипт на новый тип маининга=)
Posted: 2006-02-23 23:47:03
by Kaifrat
Ну можно в этот скрипт всунуть чтобы при появлении пк пил инвис? Если не сложно, то чтобы еще просил тыкнуть на бутылки ...пере копание кнчно ...
Code: Select all
sub maning()
#BETEP™#
var mx, my, mz, i, j, jor, ser, noto
Uo.exec("set norbcheck 1"); äëÿ ðåêîëà
uo.exec("set norbcalc 1"); òîæå
uo.print('!!Âûáåðè Ëîïàòó!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend
uo.print('!!Âûáåðè Ðóíáóê!! ')
uo.exec('addobject Runebook')
while uo.targeting()
wait(100)
wend
na4alo:
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
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("Ïðÿ÷åìñÿ...")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Êîïàåì â êîîðäèíàòàõ: "+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") and not UO.InJournal("Old Copper") and not UO.InJournal("Dull Copper") and not UO.InJournal("Bronze") and not UO.InJournal("Shadow")
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) ; âðåìÿ â ñåêóíäàõ ïðè îæèäàíèè ïîêà óéäåò ÏÊ
loot()
wait(3000)
goto reccal
endif
next
wend
if uo.weight > 545 then ; Ìàêñèìàëüíûé âåñ ïðè êîòîðîì äîìîé ñ ðóäîé
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 21") ; äîìîé ( â ðóíáóêå ñëîò 1 )
wait(10000)
loot()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 94") ; â øàõòó ( â ðóíáóêå ñëîò 8 )
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() ; ïåðåêëàäêà ðóäû â ñóíäóê
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont='0x402BDBBF' ; ÀÉÄÈ ñóíäóêà äëÿ ðóäû
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() ; Ðåêîëë îò ÏÊ ïðè èõ ïîÿâëåíèè (â ïàêå ðóíêà â áåçîïàñíîå ìåñòî è ðåãè)
var mx, my
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
UO.DeleteJournal()
UO.FindType('0x1F14',-1,'my')
wait(200)
UO.Cast('Recall','finditem')
wait(4000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
end sub
sub pwav() ; çâóê ïðè âûêàïûâàíèè ÝËÅÌÅÍÒÀËÀ
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub
sub pwavw(); çâóê ïðè ïîÿâëåíèè ÏÊ
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub
sub Pause() ; Ïàóçà ñêðèïòà åñëè âûêîïàëè Ýëåìà (ïðîäîëæèòü ñêàçàâ GO )
UO.DeleteJournal()
REPEAT
WAIT(3000)
UO.Print("!!!ÑÊÐÈÏÒ ÍÀ ÏÀÓÇÅ!!!!")
UNTIL UO.InJournal('GO')
UO.Print("!!!ÑÊÐÈÏÒ ÏÐÎÄÎËÆÅÍ!!!!")
endif
Posted: 2006-02-24 00:03:34
by Dron D.
ищи в поиске таких тем куча куча куча.
постукивание сзади при торможении
Posted: 2006-02-24 01:38:12
by LordTom
мое отношение абсолютно лояльное, каждый волен сам решать с кем ему и как, главное, чтобы мои или чьи-либо эстетические, религиозные и др. чувства не были задеты, т.е. у себя на кухне - все что угодн
мама Ляля просто пробуй каждый день класть. Криков не надо. Только тут надо терпение и еще раз терепение. Как тренировка. 2-3 раза в день. Заплачет - опять на ручки возьмёш. А в один прекрасный день
Posted: 2006-02-24 15:02:11
by Kaifrat
LordTom wrote:А можно вопрос, чем этот тип майнинга новый ?
От пк больше шансов убежать есть ...
Нету таких скриптов чтобы он пил инвиску, искал...Помогите плиз !
Posted: 2006-02-24 15:52:39
by Kaifrat
Напишите тогда просто чтобы он пил инвику ...Просил выдилить , перед копанием инвиски, и при появлении пк пил ...и куда засунуть его ...вот и вся просьба.
Posted: 2006-02-28 17:44:55
by Toretto
Ну вот например чтото типа того.
Можешь зациклить и включить отдельным субом
будет сматываться от всех кроме елема
Code: Select all
sub Sample()
var jor, ser, noto
for jor = 0 to 9
if UO.InJournal(":") then
wait(100)
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
if noto > 0 and not uo.injournal("Elemental") then
UO.DeleteJournal()
UO.UseType('0x0F0E','0x0631') ; invis potion
wait(500)
uo.exec("waittargettype 0x1F14") ;тип руны к дому, которая в бекпеке
uo.exec("usetype 0x1F4C") ;скролл рекола
uo.print("Recall Home")
wait(100)
endif
endif
end sub
А вообще на эту тему было уже много разговоров.