теперь переменную weapon можно гденить в самом начале объявить глобальной, чтоб ее отовсюду (из всех функций) было видно, делается это так:
потом пишется функция стрельбы оружием:
If KeyHit(57) ;можно заюзать любую кнопку (чисто для примера пробел)
Select weapon
Case 0
; описание стрельбы пистолетными пулями
Case 1
; описание стрельбы автоматными пулями
End Select
EndIf
теперь про звук:
чтобы воспроизвести звук, его, если он в другом формате, надо сперва привести в нормальный вид, тобишь переконвертировать в простой wav (Windows PCM).
далее его следует гденить в начале программы загрузить, делается это так:
Play=LoadSound("музыка.wav")
при этом файл звука должен лежать в каталоге с программой, если нет, то:
1. если в подкаталоге, то пишется относительный путь к файлу например "sounds/effect/shot.wav", таким образом становится неважно в каком каталоге лежит сама игра, звук будет воспроизведен в любом случае
2. если совсем в другом каталоге, то пишется полный путь начиная с диска например "c:\myprogs\game\sounds\shot.wav"
переменную Play нужно тоже объявить глобальной, чтоб ее отовсюду было видно, сделать это надо гденить в сааамом начале
так, теперь мы звук загрузили. теперь переменная play содержит номер канала и таким образом "ссылку" на этот звук который теперь гдето в оперативной памяти. попробуем проиграть этот звук:
здесь просто указываем переменную в которую мы "загружали" звук командой LoadSound и всё
кроме этого есть еще команды:
StopChannel - остановить звук
PauseChannel - приостановить звук
ResumeChannel - возобновить приостановленный звук
ChannelPitch - изменить качество воспроизведения (частоту оцифровки)
ChannelVolume - установить громкость звука
ChannelPan - баланс (-1 левая колонка, 0 центр, 1 правая)
ChannelPlaying - посмотреть играет ли сейчас звук
