Крикну а в ответ тишина

[Eldignis]

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

Есть скрипт, который отчасти повторяет систему порталов Гильдии магов Морроувинда. Тоесть в каждом отделении Гильдии магов есть портал, через который можно переместиться в любое другое отделение Гильдии. При активации портала появляется MessageBox, выбираешь нужную гильдию и перемещаешься. Все в общем то просто. Вот кусок кода:

Код: [Выделить]

Scriptname WMGPScript

Short button

Begin OnActivate
  MessageBox "Куда вы хотите отправиться?", "Анвил", "Отмена"
  Activate
End

Begin Gamemode
  set button to GetButtonPressed
  If ( button == -1 )
     Return
  elseif ( button == 0 )
     if GetInCell AnvilMagesGuild
        message "Вы уже в Анвиле"
     else
        Player.MoveTo WMGPMarker00
     endif
  elseif ( button == 1 )
     return
  Endif

End
Так как это портал, то очень хотелось бы, чтобы при перемещении звучал звук портала SPLAlterationCast. Однако в блоке Gamemode команда playsound не срабатывает, так как загружается ячейка, а загрузка - это, как вы понимаете уже не gamemode. Так вот вопрос: Как реализовать проигрывание звука?

[Poison Angel]

Я правильно понимаю, что отправка игрока осуществляется строкой

Код: [Выделить]

Player.MoveTo WMGPMarker00?
Звук, вставленный перед этой строкой тоже не успевает проиграть?

Написано : 19 Марта, 2008, 20:26:22

На всякий случай, если не успевает... Тогда, вместо отправки игрока проигрывай звук, устанавливай какой-то новый флаг в 1, и пропиши ветку "если", где по этому флагу будет выполняться уже отправка.

[Eldignis]

При таком варианте команда playsound почему то обрывает выполнение дальнейшего кода. Messagebox закрывается, звук проигрывается и дальнейшие действия скрипта не выполняются. Я пытался найти решение этого вопроса в http://www.elderscrolls.net/conference/index.php?showtopic=3152&pid=134289&st=0&#entry134289 но решение так и не нашли.

[Poison Angel]

При котором из двух, предложенных выше?

[Eldignis]

И при таком:

Код: [Выделить]

elseif ( button == 0 )
if GetInCell AnvilMagesGuild
  message "Вы уже в Анвиле"
else
  player.playsound sound ID
  Player.MoveTo WMGPMarker00
endif
elseif ( button == 1 )

И при таком:

Код: [Выделить]

float timer
short teleport

...

elseif ( button == 0 )
if GetInCell AnvilMagesGuild
 message "Вы уже в Анвиле"
else
 player.playsound sound ID
set timer to timer + getsecondspassed
set teleport to 1
endif
elseif ( button == 1 )
if GetInCell BravilMagesGuild
 message "Вы уже в Бравиле"
else
player.playsound sound ID
set timer to timer + getsecondspassed
set teleport to 2
endif
elseif ( button == 2 )

...

if timer > 3;(длинна звука, который нужно проиграть)
    if teleport == 1
       Player.MoveTo WMGPMarker00
    elseif teleport == 2
        Player.MoveTo WMGPMarker01
    endif
set timer to 0
set teleport to 0
endif
И при таком:

Код: [Выделить]

float timer
short teleport
short startTimer

...




begin OnActivate


elseif ( button == 0 )
if GetInCell AnvilMagesGuild
message "Вы уже в Анвиле"
else
player.playsound sound ID
set startTimer to 1
set teleport to 1
endif
elseif ( button == 1 )
if GetInCell BravilMagesGuild
message "Вы уже в Бравиле"
else
player.playsound sound ID
set startTimer to 1
set teleport to 2
endif
elseif ( button == 2 )

...

end

begin Gamemode

if ( startTimer == 1 )
set timer to timer + getsecondspassed

if timer > 3;(длинна звука, который нужно проиграть)
   if teleport == 1
      Player.MoveTo WMGPMarker00
   elseif teleport == 2
       Player.MoveTo WMGPMarker01
   endif
set timer to 0
set teleport to 0
set startTimer to 0

endif

endif

end
И при таком:

Код: [Выделить]

float timer
short teleport

...

elseif ( button == 0 )
if GetInCell AnvilMagesGuild
message "Вы уже в Анвиле"
else
player.playsound sound ID
set timer to timer + getsecondspassed
set teleport to 1
return
endif
elseif ( button == 1 )
if GetInCell BravilMagesGuild
message "Вы уже в Бравиле"
else
player.playsound sound ID
set timer to timer + getsecondspassed
set teleport to 2
return
endif
elseif ( button == 2 )

...

if timer > 3;(длинна звука, который нужно проиграть)
   if teleport == 1
      Player.MoveTo WMGPMarker00
   elseif teleport == 2
       Player.MoveTo WMGPMarker01
   endif
set timer to 0
set teleport to 0
endif


[Poison Angel]

Н-да. Прям-таки неловко и предлагать попробовать такой вариант:

Код: [Выделить]

Scriptname WMGPScript

Short button
short flag

Begin OnActivate
set flag to -1 ;Будем управлять событиями
End

Begin Gamemode

if flag == 0 ;Уже всё или еще не надо
return
elseif flag == -1 ;Вопрос после активации
MessageBox "Куда вы хотите отправиться?", "Анвил", "Отмена"
set flag to 1 ;будем обрабатывать выбор
elseif flag == 1 ;Вопрос был задан, ждем ответ
set button to GetButtonPressed
If ( button == -1 ) ;пока ничего, емнип
Return
elseif ( button == 0 ) ;Выбор 1
if GetInCell AnvilMagesGuild
message "Вы уже в Анвиле"
set flag to 0 ;все, наигрались
return
else
playsound
set flag to 2 ; нужно отправлять
endif
elseif ( button == 1 )
set flag to 0
return
endif
elseif flag == 2 ;Отправляем
Player.MoveTo WMGPMarker00
set flag to 0 ;и все, конец
endif

End


[Eldignis]

Перемещение работает, однако загрузка ячейки все равно обрывает проигрывание звука (буквально на доли секунды слышно, что звук срабатывает)

[Poison Angel]

О! Тогда нужно пробовать таймер. (я не буду с синтаксисом возиться  )

Код: [Выделить]

    Scriptname WMGPScript

    Short button
    short flag
    short timer

    ...
        elseif flag == 2 ;Запускаем таймер
            set timer to timer + 1
            if timer == 10 ;Значение подбирать надо
                set flag to 3
            endif
        elseif flag == 3 ;Теперь отправляем
            Player.MoveTo WMGPMarker00
            set flag to 0 ;и все, конец
        endif
    End


[Eldignis]

Сейчас систему переустановлю и опробую. Спасибо за помощь.

[Eldignis]

Ну что сказать... Талант не пропьешь, как впрочем и не проешь. Респект тебе, Poison Angel. Вот бы еще намутить, чтобы звук проигрывался во время загрузки ячейки, но это уже буржуизмъ!