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

Есть ли функция че-то типа UO.NotDead?
http://forum.yoko.com.ua/viewtopic.php?f=3&t=3281		 Page 1 of 1
Author:  TSD Praetorian [ 2005-03-03 11:10:34 ]
Post subject:  Есть ли функция че-то типа UO.NotDead?
Я, типа, хочу замутить такую фишку:

Code:
If UO.Dead() Then
UO.playwav("C:\1.wav) 
Wait Until UO.NotDead()
end if
Author:  666Man666 [ 2005-03-03 11:27:47 ]
Post subject: 
Ну вот типа и фишка... если ты мертвый трезвонит тибе музончик :)
Code:
sub DeadCheck()
REPEAT
      If UO.Dead() Then 
         UO.PlayWav('C:\1.wav')
      End If
   Wait(500)
Until UO.InJournal("Stop DeadCheck")
end sub
Author:  TSD Praetorian [ 2005-03-03 11:34:34 ]
Post subject: 
666Man666 wrote:
Ну вот типа и фишка... если ты мертвый трезвонит тибе музончик :)
Code:
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, что бы прекратил провурку на трупость?
Author:  666Man666 [ 2005-03-03 11:49:07 ]
Post subject: 
можно и UO.Dead поставить.... тогда он сам будет вырубатся
Author:  TSD Praetorian [ 2005-03-03 12:02:03 ]
Post subject: 
Может у кого еще есть варианты?
Author:  TSD Praetorian [ 2005-03-03 13:57:27 ]
Post subject: 
Сделал так

Code:
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


И он у меня постоянно токо этот Дэдчек и юзает! А вот назад не идет! Что надо дописать в конец?
Author:  666Man666 [ 2005-03-03 15:06:42 ]
Post subject: 
Ты бы объяснил зачем тибе эта фигня?, так попробуй
Code:
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
Author:  TSD Praetorian [ 2005-03-03 15:32:10 ]
Post subject: 
Часть скрипта на мининг

Code:
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:
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(), но я хочу, что бы когда убьют минера, я его реснул бы, сказал фразу, он бы сам продолжил копать, а так я должен буду юзать кирку на себя, чтог бы под собой копал и потом сам дальше пойдет копать продолжать!
Author:  Tergos [ 2005-06-14 14:28:36 ]
Post subject: 
Может я конечно не в тему. но как насчет вот такого варианта:
Code:
sub DeadCheck() 
If UO.Dead() Then 
  UO.PlayWav('C:\1.wav') 
End If 
While UO.Dead()
   Wait(500) 
wend
end sub

Типа проиграет музончик и будет ждать пока не реснут...
Author:  Entertainer [ 2005-08-23 14:34:33 ]
Post subject:  Re: Есть ли функция че-то типа UO.NotDead?
Code:
If UO.Dead() Then
UO.playwav("C:\1.wav) 
repeat
Wait(500)
Until not UO.Dead()
end if


пользуйся;-)
Author:  PCGamer [ 2005-08-25 20:43:05 ]
Post subject: 
Предлагаю мыслить позитивно, тогда задача намного упрощается. :D
Code:
If UO.Life <= 0 then ...
Author:  PCGamer [ 2005-09-10 02:38:32 ]
Post subject: 
У меня вот тут проблема возникла. Чего делать если музычка не проигрывается? Вообще никак. Вроде как команда не работает.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/