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

Скрипт на новый тип маининга=)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=6026
Page 1 of 1

Author:  Kaifrat [ 2006-02-23 15:45:37 ]
Post subject:  Скрипт на новый тип маининга=)

Можно такой скрипт :
Чтобы летал по рунбукам ( ДрВ ) по шахтам ...1 или 2 без раздницы..
Главное чтобы : при появлении пк , пил инвиску и сразу реколился по рунки домой, дома скидывал руду в сундук и ждал х время чтобы опять прыгнутьв шахту ...можно такой скрипт плиз, оченнь буду благодарен ... :)

Author:  Kaifrat [ 2006-02-23 23:47:03 ]
Post subject:  Re: Скрипт на новый тип маининга=)

Ну можно в этот скрипт всунуть чтобы при появлении пк пил инвис? Если не сложно, то чтобы еще просил тыкнуть на бутылки ...пере копание кнчно ...


Code:
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

Author:  Dron D. [ 2006-02-24 00:03:34 ]
Post subject: 

ищи в поиске таких тем куча куча куча.

Author:  LordTom [ 2006-02-24 01:38:12 ]
Post subject:  постукивание сзади при торможении

мое отношение абсолютно лояльное, каждый волен сам решать с кем ему и как, главное, чтобы мои или чьи-либо эстетические, религиозные и др. чувства не были задеты, т.е. у себя на кухне - все что угодн
мама Ляля просто пробуй каждый день класть. Криков не надо. Только тут надо терпение и еще раз терепение. Как тренировка. 2-3 раза в день. Заплачет - опять на ручки возьмёш. А в один прекрасный день

Author:  Kaifrat [ 2006-02-24 15:02:11 ]
Post subject: 

LordTom wrote:
А можно вопрос, чем этот тип майнинга новый ?
От пк больше шансов убежать есть ...

Нету таких скриптов чтобы он пил инвиску, искал...Помогите плиз !

Author:  Kaifrat [ 2006-02-24 15:52:39 ]
Post subject: 

Напишите тогда просто чтобы он пил инвику ...Просил выдилить , перед копанием инвиски, и при появлении пк пил ...и куда засунуть его ...вот и вся просьба.

Author:  Toretto [ 2006-02-28 17:44:55 ]
Post subject: 

Ну вот например чтото типа того.
Можешь зациклить и включить отдельным субом
будет сматываться от всех кроме елема

Code:
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


А вообще на эту тему было уже много разговоров.

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