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

помогите со криптом
http://forum.yoko.com.ua/viewtopic.php?f=17&t=15686		 Page 1 of 1
Author:  The_Filin [ 2010-04-07 16:44:07 ]
Post subject:  помогите со криптом
Quote:
sub mining()
var mx, my, mz, i, j
var ismining, ixx, isheavy
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
While not UO.Dead()
UO.DeleteJournal()
for i = mx-2 to mx+2
for j = my-2 to my+2
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here")
wait(4000)
if uo.weight > 120 then ; Ìàêñèìàëüíûé âåñ ïðè êîòîðîì ÷àð èäåò ïåðåïëàâëÿòü ðóäó
pereplavka()
if uo.weight > 99 then
Gotobank()
endif
endif
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype('0x0E85')
while not UO.InJournal("no ore")
wait(100)
wend
while UO.InJournal("but fail")
Wait (3000)
UO.DeleteJournal()
wend
wend
UO.DeleteJournal()
next
next
wend
end sub


куда и что прописать чтобы когда он помер, он выключал скрипт(типа UO.Print( "script terminated" ) и вставал в вар , а когда его реснули то снова начал копать (т.е. снова бы запускал макрос,типа uo.exec('exec mining')
Author:  Beyonder [ 2010-04-07 17:01:05 ]
Post subject:  Re: помогите со криптом
Code:
sub miningWithRes()
    while true
        mining()
        UO.Print( "script terminated" )
        UO.Warmode(1)
        while (UO.Dead())
            Wait(1000)
        wend
    wend
endsub
Author:  The_Filin [ 2010-04-07 19:22:37 ]
Post subject:  Re: помогите со криптом
Beyonder wrote:
Code:
sub miningWithRes()
    while true
        mining()
        UO.Print( "script terminated" )
        UO.Warmode(1)
        while (UO.Dead())
            Wait(1000)
        wend
    wend
endsub


неа получаеться, когда чар умирает он стоит, и ничего не происходит :(

а может играть роль того что у меня стоит 3 версия инжы
Author:  Beyonder [ 2010-04-07 22:48:07 ]
Post subject:  Re: помогите со криптом
Изначальный скрипт не предусматривает смерть.

Попробуй так:

Code:
sub miningWithRes()
    while true
        UO.Exec( "exec mining" )
        while not UO.Dead()
            Wait(1000)
        wend
        UO.Exec( "terminate mining" )
        UO.Warmode(1)
        while (UO.Dead())
            Wait(1000)
        wend
    wend
endsub
Author:  The_Filin [ 2010-04-08 08:08:16 ]
Post subject:  Re: помогите со криптом
Beyonder wrote:
Изначальный скрипт не предусматривает смерть.

Попробуй так:

Code:
sub miningWithRes()
    while true
        UO.Exec( "exec mining" )
        while not UO.Dead()
            Wait(1000)
        wend
        UO.Exec( "terminate mining" )
        UO.Warmode(1)
        while (UO.Dead())
            Wait(1000)
        wend
    wend
endsub



запускал скрипт на живого перса он начинал копать, потом убивал и ничего не происходило, потом запустил на мертвого перса, он снова пытаеться копать, но не может и больше ничего не делает.
Author:  Beyonder [ 2010-04-08 08:12:35 ]
Post subject:  Re: помогите со криптом
Тогда я пас. Я на 90% уверен что скрипт рабочий, возможно виновата какраз третья инжа.
Author:  The_Filin [ 2010-04-08 08:25:23 ]
Post subject:  Re: помогите со криптом
Beyonder wrote:
Тогда я пас. Я на 90% уверен что скрипт рабочий, возможно виновата какраз третья инжа.

щас попробуем 5 инжу протестить. и отпушусь


когда чар умирает, то выключаеться и твой скрипт и скрипт на мининг. А когда перс мертвый, то скрипт ваще не запускаеться
Author:  The_Filin [ 2010-04-08 08:35:27 ]
Post subject:  Re: помогите со криптом
Quote:
sub Warning()
repeat
If uo.dead() then
wait(1000)
ressurect()
endif
wait(1000)
until 0==1
endsub

sub ressurect()
uo.exec('terminate mining')

wait(1000)
warmode(1)

uo.exec('exec mining')



все дело было в инжекте оказываеться, поменял версию инжу и стало все работать, и даже мой старый :)

спасибо тебе БОЛЬШОЕ за уделённое внимание, а так же большое спасибо за макрос на скидывание руды в мешочек, я смог найти ему применение чтобы клиент не падал. И смог встроить его в сам макрос.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/