Проверка на дохлость...
Posted: 2005-01-12 20:28:46
Великий Олл.... не мог бы ты мне подсказать...
У меня есть скрипт на мининг и мы копаем всю ночь 7-ю чарами... есть так-же один охранник которым играют эти-же 7 человек по очереди...и если одного убивают надо чтобы он автоматически вставал в вар режим..а потом когда его ресну снимать вар режим и продолжал копать...
sub DeadOrNotDead(T1,X1,Y1,Z1)
var deadmsg="I am dead and cannot do that."
If UO.GetHP()<=0 Then
#if uo.InJournal('I am dead and cannot do that.') then
while UO.GetHP()<=0
UO.Exec("warmode 1")
wait(50)
wend
wait(100)
UO.Exec("warmode 0")
wait(100)
UO.WaitTargetTile(T1,X1,Y1,Z1)
UO.UseObject(UO.ObjAtLayer('Rhand'))
end if
end sub
вот так выглидит мой скрипт..но он не всегда срабатывает в чем причина???
У меня есть скрипт на мининг и мы копаем всю ночь 7-ю чарами... есть так-же один охранник которым играют эти-же 7 человек по очереди...и если одного убивают надо чтобы он автоматически вставал в вар режим..а потом когда его ресну снимать вар режим и продолжал копать...
sub DeadOrNotDead(T1,X1,Y1,Z1)
var deadmsg="I am dead and cannot do that."
If UO.GetHP()<=0 Then
#if uo.InJournal('I am dead and cannot do that.') then
while UO.GetHP()<=0
UO.Exec("warmode 1")
wait(50)
wend
wait(100)
UO.Exec("warmode 0")
wait(100)
UO.WaitTargetTile(T1,X1,Y1,Z1)
UO.UseObject(UO.ObjAtLayer('Rhand'))
end if
end sub
вот так выглидит мой скрипт..но он не всегда срабатывает в чем причина???