ВИДЕО И ЗВУК
н: как загрузить *.Gif файл?
avel: в качестве текстуры никак, но можно его проиграть как видео-файл командой DrawMovie
н: как проиграть видеоролик?
avel: я пользуюсь такой вот функцией:
Function screen(name$,keylog,fs=1,x=0,y=0)
;name$ - имя файла
;keylog - доступно прекращение показа или нет (1,0)
;fs - на весь экран или нет (1-полный экран, 0-нет)
;x - x-координата левого верхнего угла
;y - y-координата левого верхнего угла
movie=OpenMovie(name$)
ed=0
Repeat
If keylog=1 Then If KeyHit(28) Or MouseHit(1) Then ed=1
If Not(MoviePlaying(movie)) Then ed=1
If fs=1 Then
DrawMovie movie,0,0,GraphicsWidth(),GraphicsHeight()
Else
DrawMovie movie,x,y,MovieWidth(movie),MovieHeight(movie)
EndIf
Flip
Until ed=1
CloseMovie(movie)
End Function
н: как проиграть звуковой файл?
avel: можно так:
sndWave=LoadSound("имя_файла")
PlaySound(sndWave)
н: как сделать, чтобы музыка играла постоянно?
avel: есть несколько способов:
;1 способ
sndWave=LoadSound("имя_файла")
LoopSound sndWave
PlaySound sndWave
;2 способ
;сначала загружаешь файл:
sndWave=LoadSound("имя_файла")
chnWave=PlaySound(sndWave)
...
;в своем главном цикле пишешь:
If ChannelPlaying(chnWave)=False Then
chnWave=PlaySound(sndWave)
EndIf
P.S. 2 способ более гибкий, например, слегка изменив код, можно реализовать проигрывание нескольких мелодий и т. д.