Page 1 of 1
помогите со криптом
Posted: 2010-04-07 16:44:07
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')
Re: помогите со криптом
Posted: 2010-04-07 17:01:05
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
Re: помогите со криптом
Posted: 2010-04-07 19:22:37
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 версия инжы
Re: помогите со криптом
Posted: 2010-04-07 22:48:07
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
Re: помогите со криптом
Posted: 2010-04-08 08:08:16
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
запускал скрипт на живого перса он начинал копать, потом убивал и ничего не происходило, потом запустил на мертвого перса, он снова пытаеться копать, но не может и больше ничего не делает.
Re: помогите со криптом
Posted: 2010-04-08 08:12:35
by Beyonder
Тогда я пас. Я на 90% уверен что скрипт рабочий, возможно виновата какраз третья инжа.
Re: помогите со криптом
Posted: 2010-04-08 08:25:23
by The_Filin
Beyonder wrote:Тогда я пас. Я на 90% уверен что скрипт рабочий, возможно виновата какраз третья инжа.
щас попробуем 5 инжу протестить. и отпушусь
когда чар умирает, то выключаеться и твой скрипт и скрипт на мининг. А когда перс мертвый, то скрипт ваще не запускаеться
Re: помогите со криптом
Posted: 2010-04-08 08:35:27
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')
все дело было в инжекте оказываеться, поменял версию инжу и стало все работать, и даже мой старый
спасибо тебе БОЛЬШОЕ за уделённое внимание, а так же большое спасибо за макрос на скидывание руды в мешочек, я смог найти ему применение чтобы клиент не падал. И смог встроить его в сам макрос.