Есть ли функция че-то типа UO.NotDead?

[TSD Praetorian]

Я, типа, хочу замутить такую фишку:

Code: Select all

If UO.Dead() Then
UO.playwav("C:\1.wav) 
Wait Until UO.NotDead()
end if

[666Man666]

Ну вот типа и фишка... если ты мертвый трезвонит тибе музончик

Code: Select all

sub DeadCheck()
REPEAT
      If UO.Dead() Then 
         UO.PlayWav('C:\1.wav')
      End If
   Wait(500)
Until UO.InJournal("Stop DeadCheck")
end sub

[TSD Praetorian]

Ну вот типа и фишка... если ты мертвый трезвонит тибе музончик

Code: Select all

sub DeadCheck()
REPEAT
      If UO.Dead() Then 
         UO.PlayWav('C:\1.wav')
      End If
   Wait(500)
Until UO.InJournal("Stop DeadCheck")
end sub

Дяденька, а че мне вручную писать Stop DeadCheck, что бы прекратил провурку на трупость?

[666Man666]

можно и UO.Dead поставить.... тогда он сам будет вырубатся

[TSD Praetorian]

Может у кого еще есть варианты?

[TSD Praetorian]

Сделал так

Code: Select all

sub DeadCheck() 
If UO.Dead() Then 
 UO.PlayWav('C:\Impossible.wav')
 Repeat
  wait(5000)
 Until UO.InJournal("Stop DeadCheck")
End If
UO.Print('Im not a ghost...')
end sub

И он у меня постоянно токо этот Дэдчек и юзает! А вот назад не идет! Что надо дописать в конец?

[666Man666]

Ты бы объяснил зачем тибе эта фигня?, так попробуй

Code: Select all

sub DeadCheck()
Repeat
If UO.Dead() Then 
   UO.PlayWav('C:\Impossible.wav') 
   Wait(5000)
Else
   UO.Print('Im not a ghost...')
End If
Wait(5000)
Until UO.Dead()
end sub

[TSD Praetorian]

Часть скрипта на мининг

Code: Select all

Sub M() 
UO.SetGlobal('process','no')
repeat
if UO.GetGlobal('process')=='no' then
UO.DeleteJournal() 
UO.Exec('exec Lumb')
endIf
Wait(3000)
until (1==0) 
EndSub 

Sub Lumb() 
Var Tl,T,X,Y,Z,srl
var wei
UO.SetGlobal('process','yes') 
Var F=File(FileName) 
F.Open() 
Beg:

DeleteJournal('no mine') 
Tl=safecall F.Readln() 
Tl=Trim(Tl) 
If Tl=='File read error' Then 
  GoTo Ext 
EndIf 
T=GetNumb(Tl,0) 
X=GetNumb(Tl,1) 
Y=GetNumb(Tl,2) 
Z=GetNumb(Tl,3) 
UO.Print('next mine') 
UO.Print('Tile '+Tl) 
GoToTile(X,Y,1,False) 
Repeat 
  uo.DeleteJournal()  
  UO.WaitTargetTile(Str(T),Str(X),Str(Y),Str(Z)) 
  While uo.Waiting()
    Emil()
     #If UO.Dead() Then
     #Ress()
     #GoToTile(X,Y,1,false)
     #UO.WaitTargetTile(Str(T),Str(X),Str(Y),Str(Z)) 
     #Emil()
    endif
  WEND
repeat
Wait(1000)
[b]DeadCheck()[/b]
#if uo.count(Ore)>170 then
wei = ( UO.Str * 4 ) - 20
if UO.Weight > wei then
GoToTile(1816,850,0,False)
Plav()
Exist()
wait(1000)
GoToTile(X,Y,1,False)
UO.WaitTargetTile(Str(T),Str(X),Str(Y),Str(Z)) 
UO.UseObject(UO.ObjAtLayer('Rhand'))
endif
Until UO.InJournal("There is no ore here to mine.") or UO.InJournal("There is no ore here to mine")
Until UO.InJournal("There is no ore here to mine.") or UO.InJournal("There is no ore here to mine")
If UO.InJournal("There is no ore here to mine.") or UO.InJournal("There is no ore here to mine") then
Goto Beg
EndIf 
Ext: 
F.Close() 
UO.SetGlobal('process','no') 
EndSub

Code: Select all

sub DeadCheck() 
If UO.Dead() Then 
 UO.PlayWav('C:\Impossible.wav')
 Repeat
  wait(5000)
 Until UO.InJournal("Stop DeadCheck")
End If
UO.Print('Im not a ghost...')
end sub

Можно тама сделать не DeadCheck(), а UO.exec DeadCheck(), но я хочу, что бы когда убьют минера, я его реснул бы, сказал фразу, он бы сам продолжил копать, а так я должен буду юзать кирку на себя, чтог бы под собой копал и потом сам дальше пойдет копать продолжать!

[Tergos]

Может я конечно не в тему. но как насчет вот такого варианта:

Code: Select all

sub DeadCheck() 
If UO.Dead() Then 
  UO.PlayWav('C:\1.wav') 
End If 
While UO.Dead()
   Wait(500) 
wend
end sub

Типа проиграет музончик и будет ждать пока не реснут...

[Entertainer]

Code: Select all

If UO.Dead() Then
UO.playwav("C:\1.wav) 
repeat
Wait(500)
Until not UO.Dead()
end if

пользуйся;-)

[PCGamer]

Предлагаю мыслить позитивно, тогда задача намного упрощается.

Code: Select all

If UO.Life <= 0 then ... 

[PCGamer]

У меня вот тут проблема возникла. Чего делать если музычка не проигрывается? Вообще никак. Вроде как команда не работает.