Немного (хотя достаточно :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 Но что мне не нравится, так это то, что музыка перестает играть при переходах и начале/конце боя. Возможно ли это поправить?
Все, Володя! Теперь не отвертишься от написания большого, толкового и понятного руководства. :1anim_ae: :1anim_bi: