Помогите разобратся

[lol-man]

напешите пожалуйсто скрипт в цикле, чтобы если ты мёртвый говорил слово какоето, если живой то ждал пока умрёш..... плиз

[Mouse]

Так "помогите разобраться" или "сделайте все за меня"?
Поможем, но делать будеш сам!

[lol-man]

Ну это понятно, что сам... правельно?

Code: Select all

Begin
 Repeat 
  If((Dead) and Connected) Then
	Begin
	UOSay('Vendor Ress');
		Repeat
		Until (Not Dead);
	End;
 Until 1<>1
End.

[Miralex]

Лучше так:

Code: Select all

Begin 
 Repeat 
  If((Dead) and Connected) Then 
   Begin 
   UOSay('Vendor Ress'); 
      Repeat 
      wait(1000);
      Until (Not Dead); 
   End;
 wait(1000);
 Until 1<>1 
End.

[lol-man]

А если надо чтобы он быстро ресался? без пауз...

[Miralex]

Уменьши задержки.