Музыкальные скрипты

[Гость Васк]

Так мне нужен музыкальный скрипты:

 

1-й Музыка должна играть в экстерьерах до бесконечности.

 

2-й Музыка должна играть в интерьерах до бесконечности.

 

 

 

Напишите плиз такие, я буду очень признателен. :1anim_ad:

[TJ]

1-й Музыка должна играть в экстерьерах до бесконечности.

2-й Музыка должна играть в интерьерах до бесконечности.

 

что за музыка? расскажи суть замысла

[Гость Васк]

Музыка в mp3 формате. Я делаю игру через редактор КС, для в каждом регионе мы хотим чтоб играл тот или иной трек, и чтоб размер плага сильно не был большой, нужны вот эти скрипты.

 

И еще, а есть скриптик который вырубает оригинальную музыку игры.

[Domian]

нужен почти такой же скрипт. когда заходишь в инрерор начинает играть музыка и пока не доиграет до конца не останавливается независимо от того в инвентаре ты, в консоли, в меню. я вроде сделал но оно как-то криво работает. вот мой вариант:

 

begin hgs_scr_Music_OV

 

short one

float timer

 

if ( menuMode == 0 )

return

endif

 

if ( CellChanged == 1 )

set one to 1

endif

 

if ( Hgs_No_Music != 0 )

return

endif

streamMusic, "Hgs\resident_evil_theme.mp3"

endif

 

end

[Анархист]

Немного (хотя достаточно :ad:) усовершенствовал скрипт для лютни, теперь он выглядит так.

Begin 01_lute

short OnPCEquip
Short controlvar
Short button

If (OnPCEquip == 1)
if (controlvar == 0)
MessageBox "Что вы хотите исполнить?", "Лион", "А-ля Фламенко", "Торжественная", "Деревня", "Битва", "Не один", "Финал", "Русь", "Закрыть"
     Set controlvar to 1
endif
endif
 

if ( controlvar ==1)
set button to GetButtonPressed

if ( button == -1 )
	return
	
elseif ( button == 0)
if ( Player -> GetSpeechcraft >= 20)
	StreamMusic "lutemusic\Lion.mid"
	set controlvar to 0
	Set OnPCEquip to 0 
MenuTest
elseif ( Player -> GetSpeechcraft < 20)
MessageBox "Вы еще не овладели навыком игры на лютне."
set controlvar to 0
	Set OnPCEquip to 0
MenuTest
endif

elseif ( button == 1)
if ( Player -> GetSpeechcraft >= 23)
	 StreamMusic "lutemusic\flamenco.mid"
	set controlvar to 0
	Set OnPCEquip to 0
MenuTest
elseif ( Player -> GetSpeechcraft < 23)
MessageBox "Вы пока не знаете этой композиции."
set controlvar to 0
	Set OnPCEquip to 0
MenuTest
endif

      elseif ( button == 2)
if ( Player -> GetSpeechcraft >= 26)
	StreamMusic "lutemusic\cids_theme.mid"
	set controlvar to 0
	Set OnPCEquip to 0
MenuTest
elseif ( Player -> GetSpeechcraft < 26)
MessageBox "Вы пока не знаете этой композиции."
set controlvar to 0
	Set OnPCEquip to 0
MenuTest
endif


     elseif ( button == 3) 
if ( Player -> GetSpeechcraft >= 29)
	StreamMusic "lutemusic\black_mage.mid"
	set controlvar to 0
	Set OnPCEquip to 0
MenuTest
elseif ( Player -> GetSpeechcraft < 29)
MessageBox "Вы пока не знаете этой композиции."
set controlvar to 0
	Set OnPCEquip to 0
MenuTest
endif

elseif ( button == 4)
if ( Player -> GetSpeechcraft >= 32)
	StreamMusic "lutemusic\successive_battles.mid"
	set controlvar to 0
	Set OnPCEquip to 0
MenuTest
elseif ( Player -> GetSpeechcraft < 32)
MessageBox "Вы пока не знаете этой композиции."
set controlvar to 0
	Set OnPCEquip to 0
MenuTest
endif

elseif ( button == 5) 
if ( Player -> GetSpeechcraft >= 35)
	StreamMusic "lutemusic\not_alone.mid"
	set controlvar to 0
	Set OnPCEquip to 0
MenuTest
elseif ( Player -> GetSpeechcraft < 35)
MessageBox "Вы пока не знаете этой композиции."
set controlvar to 0
	Set OnPCEquip to 0
MenuTest
endif

elseif ( button == 6)
if ( Player -> GetSpeechcraft >= 38)
	StreamMusic "lutemusic\Remix.mid"
	set controlvar to 0
	Set OnPCEquip to 0
MenuTest
elseif ( Player -> GetSpeechcraft < 38)
MessageBox "Вы пока не знаете этой композиции."
set controlvar to 0
	Set OnPCEquip to 0
MenuTest
endif

elseif ( button == 7)
if ( Player -> GetSpeechcraft >= 41)
	StreamMusic "lutemusic\rossiya.mp3"
	set controlvar to 0
	Set OnPCEquip to 0
MenuTest
elseif ( Player -> GetSpeechcraft < 41)
MessageBox "Вы пока не знаете этой композиции."
set controlvar to 0
	Set OnPCEquip to 0
MenuTest
endif

elseif ( button == 8) 
	set controlvar to 0
	Set OnPCEquip to 0


endif
endif

End

 

Но что мне не нравится, так это то, что музыка перестает играть при переходах и начале/конце боя. Возможно ли это поправить?

[Kane]

Вот вам еще скриптики. Значит так первый скрипт блокирует оригинальную музыку игры и может вашу играть практически до бескнечнсти. Второй скрипт вырубает первый, его надо вещать на ячейку где вы не хотите чтобы играла музыка.

begin musicscript

short nextSong
short done1
short doOnce
short doOnce2
short doit
short counter
short state
float Timer5
float timer2
float timer

if ( CellChanged == 1 )
	set Timer5 to 500
	set done1 to 0
	set doit to 0
	set counter to 0
	set state to 0
return
endif

if ( nextSong == 0 )
if ( done1 == 0 ); номер трэка
	set done1 to 1
	StreamMusic, ".mp3"; путь к трэку
endif
endif


set Timer5 to ( Timer5 + GetSecondsPassed )
if ( nextSong == 0 ); номер трэка
	if ( Timer5 < 370 ); время трэка
		return
	endif
	set nextSong to 1
	set done1 to 0
	set Timer5 to 0
endif
end

 

begin nomusicscript

if ( CellChanged == 1 )
StreamMusic "Explore\mx_explore_1.mp3"
return
endif
endif

end

[Анархист]

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

В данном случае это какая команда/переменная?

[Kane]

set nextSong to 1

 

Что ж еще. Кстати мой скрипт позволяет играть музыку в любом формате.

[Dr. Gonzo]

Я малёк запутался :rolleys:, так как организовать проигрышь собственного трека в определенной ячейке(не трогая ост.)?