[avel]

ВИДЕО И ЗВУК

н: как загрузить *.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 способ более гибкий, например, слегка изменив код, можно реализовать проигрывание нескольких мелодий и т. д.