помогите со криптом

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
The_Filin
Posts: 36
Joined: 2009-07-04 14:57:19

помогите со криптом

Post by The_Filin »

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')
Beyonder
Expert!
Posts: 388
Joined: 2005-04-23 10:19:43
Contact:

Re: помогите со криптом

Post by Beyonder »

Code: Select all

sub miningWithRes()
    while true
        mining()
        UO.Print( "script terminated" )
        UO.Warmode(1)
        while (UO.Dead())
            Wait(1000)
        wend
    wend
endsub
The_Filin
Posts: 36
Joined: 2009-07-04 14:57:19

Re: помогите со криптом

Post by The_Filin »

Beyonder wrote:

Code: Select all

sub miningWithRes()
    while true
        mining()
        UO.Print( "script terminated" )
        UO.Warmode(1)
        while (UO.Dead())
            Wait(1000)
        wend
    wend
endsub


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

а может играть роль того что у меня стоит 3 версия инжы
Beyonder
Expert!
Posts: 388
Joined: 2005-04-23 10:19:43
Contact:

Re: помогите со криптом

Post by Beyonder »

Изначальный скрипт не предусматривает смерть.

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

Code: Select all

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
The_Filin
Posts: 36
Joined: 2009-07-04 14:57:19

Re: помогите со криптом

Post by The_Filin »

Beyonder wrote:Изначальный скрипт не предусматривает смерть.

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

Code: Select all

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



запускал скрипт на живого перса он начинал копать, потом убивал и ничего не происходило, потом запустил на мертвого перса, он снова пытаеться копать, но не может и больше ничего не делает.
Beyonder
Expert!
Posts: 388
Joined: 2005-04-23 10:19:43
Contact:

Re: помогите со криптом

Post by Beyonder »

Тогда я пас. Я на 90% уверен что скрипт рабочий, возможно виновата какраз третья инжа.
The_Filin
Posts: 36
Joined: 2009-07-04 14:57:19

Re: помогите со криптом

Post by The_Filin »

Beyonder wrote:Тогда я пас. Я на 90% уверен что скрипт рабочий, возможно виновата какраз третья инжа.

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


когда чар умирает, то выключаеться и твой скрипт и скрипт на мининг. А когда перс мертвый, то скрипт ваще не запускаеться
The_Filin
Posts: 36
Joined: 2009-07-04 14:57:19

Re: помогите со криптом

Post by The_Filin »

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')



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

спасибо тебе БОЛЬШОЕ за уделённое внимание, а так же большое спасибо за макрос на скидывание руды в мешочек, я смог найти ему применение чтобы клиент не падал. И смог встроить его в сам макрос.
Post Reply