Показать сообщение отдельно
Старый 21.11.2006, 18:34   #13
Самурай
Оператор ЭВМ
 
Регистрация: 23.10.2006
Сообщений: 36
Написано 0 полезных сообщений
(для 0 пользователей)
Смущение Re: Загрузка видео

BoB, прав, видео нету, но еси написать так:

s=OpenMovie("33.avi")
; пока проигрывается фильм или никто не нажимает пробел играем фильм
While MoviePlaying(s) Or KeyDown(57)=0
DrawMovie s,0,0,640,480
Text 10,10,MoviePlaying(s)
Flip
Wend

то все работает и видео и звук

ток одна проблема:

Graphics3D 640,480,32,1
SetBuffer BackBuffer()

s=OpenMovie("33.avi")
;заставка
Repeat
DrawMovie s,0,0,640,480
MoviePlaying(s)
Flip
Until MoviePlaying(s)<>1 Or KeyDown(57)<>0
CloseMovie(s)

While Not KeyDown(1)

camera=CreateCamera()



light=CreateLight()
RotateEntity light,90,0,0

;пушка
drum=LoadMesh("gun.3ds")

PositionEntity drum,20,-60,100
RotateEntity drum,0,180,0


RenderWorld
UpdateWorld
Flip
Wend
End

После выключения заставки Escape срабатывает тока с 3 раза, т.е программа не выключается пока несколько раз не нажмешь Еscape, кто знает как это дело исправить?
(Offline)
 
Ответить с цитированием