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

Помогите доработать скрипт на мининг
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1791		 Page 1 of 1
Author:  Balu [ 2004-10-30 21:31:58 ]
Post subject:  Помогите доработать скрипт на мининг
Всё работает кроме рекола при угрозе! Хотелось бы модный макрос при появлении имени рекол через ботл инвиза!
sub main()
#BETEP™#
var mx, my, mz, i, j, jor, ser, noto
Uo.exec("set norbcheck 1"); äëÿ ðåêîëà
uo.exec("set norbcalc 1"); òîæå

uo.print('!!Viberi Lopatu!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend

uo.print('!!Viberi Runebook!! ')
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("Hiding...")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Kopaem v koordinatah: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("Copper Ore") and not UO.InJournal("Dull Copper Ore") and not UO.InJournal("Old Copper Ore") and not UO.InJournal("Rusty Ore") and not UO.InJournal("Iron Ore") and not UO.InJournal("far away") and not UO.InJournal("in rock")
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()
var Time
Time=Time()
uo.TextOpen()
uo.TextPrint("Âðîäå óøëè, æäåì ïîêà óéä¸ò ÏÊ "+time)
wait(180000) ; âðåìÿ â ñåêóíäàõ ïðè îæèäàíèè ïîêà óéäåò ÏÊ
loot()
wait(3000)
goto reccal
endif
next
wend
if uo.weight > 450 then ; Ìàêñèìàëüíûé âåñ ïðè êîòîðîì äîìîé ñ ðóäîé
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
UO.Cast('Recall','0x40f68e83') ; äîìîé ( â ðóíáóêå ñëîò 1 )
wait(15000)
loot()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Cast('Recall','0x40533024') ; â øàõòó ( â ðóíáóêå ñëîò 8 )
mx = UO.GetX("self")
my = UO.GetY("self")
wait(15000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
goto na4alo
end sub

sub loot() ; ïåðåêëàäêà ðóäû â ñóíäóê
var Time
Time=Time()
uo.TextOpen()
uo.TextPrint("Âûêëàäûâàåì îðû â ñóíäóê "+time)
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont='0x41222713' ; ÀÉÄÈ ñóíäóêà äëÿ ðóäû
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 Time
Time=Time()
uo.TextOpen()
uo.TextPrint("Íàñ àòàêîâàëè, ñìûâàåìñÿ " +time)
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("C:\Games\UO\inject\alarm.wav")
endsub


sub pwavw(); çâóê ïðè ïîÿâëåíèè ÏÊ
uo.playwav("C:\Games\UO\inject\alarm.wav")
endsub

sub Pause() ; Ïàóçà ñêðèïòà åñëè âûêîïàëè Ýëåìà (ïðîäîëæèòü ñêàçàâ GO )
UO.DeleteJournal()
REPEAT
WAIT(3000)
UO.Print("!!!Skript na pauze, napishi GO!!!!")
UNTIL UO.InJournal('GO')
UO.Print("!!!Skript prodoljen!!!!")
endif
end sub

sub Time()
var hh,mm,ss,hms,t=str(uo.Time())
if len(t)<=2 then
hh="0"
mm="0"
ss=t
endif
if len(t)==3 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-1)
endif
if len(t)==4 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-2)
endif
if len(t)==5 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-1)
ss=right(t,len(t)-3)
endif
if len(t)==6 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-2)
ss=right(t,len(t)-4)
endif
return hh+":"+mm+":"+ss
end sub
Author:  BETEPAH [ 2004-10-31 08:39:40 ]
Post subject: 
Боже заковеркал та как милого ..........
1. Пости скрипты в Коде.
2. Гляди сюды.
Проверка через журнал в основном скрипте а на рекол идет тока ссылка .......вобщем ты скажи куда надо вставить тебе питье бутылки. ? в сам скрипт или модуль реколла ?
Если в сам скрипт. то......
Code:
sub manning() 
.......................
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then 
uo.usetype ('0x000')-----тут типа вид бутыля .... ))
if uo.waiting() then 
uo.canceltarget() 
endif 
.................
end sub


а если в рекол то так
Code:
sub Save() 
var Time 
Time=Time() 
uo.TextOpen() 
uo.TextPrint("Íàñ àòàêîâàëè, ñìûâàåìñÿ " +time) 
var mx, my 
uo.usetype ('0x000')----- Аналогично.......
reccal: 
.......................
end sub
Author:  Balu [ 2004-10-31 11:38:58 ]
Post subject: 
Спасибо с этим разобрался, но возник ещё один наболевший вопрос: как сделать рекол по разным шахтам тоесть у меня дома возле сундука лежат руны в шахты, выкопав максимальный вес он реколится домой выкладывает руду и реколится по другой руне в другую шахту и так примерно раза три, а то у нас на шарде руда не успевает респится!
Author:  Askaneli [ 2004-11-01 07:48:15 ]
Post subject: 
VINT wrote:
Спасибо с этим разобрался, но возник ещё один наболевший вопрос: как сделать рекол по разным шахтам тоесть у меня дома возле сундука лежат руны в шахты, выкопав максимальный вес он реколится домой выкладывает руду и реколится по другой руне в другую шахту и так примерно раза три, а то у нас на шарде руда не успевает респится!


Ну сделай чтоб выкладывалась рунка от шахты в которой копал и бралась из сундука другая и по кругу !!!
Author:  Balu [ 2004-11-01 09:12:02 ]
Post subject: 
А не мог бы ты это в скриптовой форме нариловать?
Author:  Askaneli [ 2004-11-01 09:39:00 ]
Post subject: 
VINT wrote:
А не мог бы ты это в скриптовой форме нариловать?

Попробую !!! Как протрезвею !!!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/