Извините, ничего не найдено.

Самурай · 19.11.2006, 23:36

Можно ли в блитце видео проигрывать? А то, хотел заставки загрузить... но не знаю как, формат *.avi

Platon · 19.11.2006, 23:46

можно, используй функции из раздела 2D справки DirectShow
OpenMovie
CloseMovie
DrawMovie
MovieWidth
MovieHeight
MoviePlaying

Самурай · 20.11.2006, 00:18

Спасибо, но он пишет:
Memory access violation

HolyDel · 20.11.2006, 01:33

Debug-ер включен?
приводи код, а то х/з из за чего так.

Самурай · 20.11.2006, 01:41

Включен, ему не нравиться, то DrawMovie, то MoviePlaying..
код:

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

OpenMovie s=("33.avi")
DrawMovie s

camera=CreateCamera()

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

;грузим пушку
drum=LoadMesh("gun.3ds")

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

While Not KeyDown( 1 )
RenderWorld
Updateworld
Flip
Wend

End

HolyDel · 20.11.2006, 02:20

MoviePlaying не нашел в твоем коде, выдели жирным

ето, я так понял интродукционный фильм. то есть сначала фильм - потом игра.
делаем так:

s=OpenMovie("33.avi")
; пока проигрывается фильм или никто не нажимает пробел играем фильм
while MoviePlaying(s) or keydown(57)=0
DrawMovie s
flip
wend
дальше идет код игры

p.s. не нашел FreeMovie, если найдеш допиши после Wend/

Самурай · 20.11.2006, 16:11

Я его сменил на DrawMovie

, тока видео все равно не играется, просто черный экран и все....

ЛысыЙ_Чук-Иванчук · 20.11.2006, 19:11

OpenMovie
CloseMovie
DrawMovie
MovieWidth
MovieHeight
MoviePlaying

Вставь любую из каманд в блиц, выдели её, и два раза нажди F1. В хэлпе прикольно(тупой) пример.

Самурай · 21.11.2006, 00:02

У мя нету их в хелпе, поэтому я и создал такую тему

ты не мог бы копернуть примерчик сюда?

HolyDel · 21.11.2006, 02:51

Вот стандартный пример

; Movie Commands Example
; ======================
; This demonstrates the following commands:
;
; OpenMovie
; MovieHeight
; MovieWidth
; MoviePlaying
; DrawMovie

; Some constants to start with
Const WIDTH = 640
Const HEIGHT = 480

; First of all, set up the graphics
Graphics WIDTH, HEIGHT
SetBuffer BackBuffer()
ClsColor 0,0,0
Color 0,255,0

; Next, open the movie file. Feel free to change this to an AVI or MPEG file.
movie=OpenMovie("media/hat.gif")

; check to see if it loaded okay
If movie=0 Then RuntimeError "Error - Movie not loaded!"
If Not(MoviePlaying(movie)) Then RuntimeError "Error - Movie not playing!"

;Now determine the size of the movie
w=MovieWidth(movie) ; the width of the movie
h=MovieHeight(movie) ; the height of the movie

; Now set up the starting position and timing variables
x=(WIDTH-w)/2 ; the x position of the movie on screen
y=(HEIGHT-h-100)/2 ; the y position of the movie on screen
period=100 ; the interval between frames
time=MilliSecs() ; the time of the last frame update

; And here's the main loop
Repeat

; Wait for the specified period

; GIFs have no timing info, and as such will redraw the next frame on each call to DrawMovie.
; AVIs and MPEGs do have timing info, and as such will redraw the most recent frame on each call to DrawMovie.
; Ergo, this time limiter only has an impact, and is only required for GIFs.
Repeat
; do nothing
Until MilliSecs()-time>=period
time=MilliSecs() ; save the current time for the next frame

; Handle keyboard inputs

; CONTROL adjusts the speed with which we do stuff 
If KeyDown(29) Or KeyDown(157) Then
change=5
Else
change=1
End If

; SHIFT means we're dealing with the size
If KeyDown(42) Or KeyDown(54) Then
If KeyDown(203) And w>change-1 Then w=w-change
If KeyDown(205) And x+w+change
If KeyDown(200) And h>change-1 Then h=h-change
If KeyDown(208) And y+h+change
Else
; otherwise it's the position that we're changing
If KeyDown(203) And x>change-1 Then x=x-change
If KeyDown(205) And x+w+change
If KeyDown(200) And y>change-1 Then y=y-change
If KeyDown(208) And y+h+change
EndIf

; +/- to change the animation speed
If ( KeyDown(13) Or KeyDown(78) ) And period>change Then period=period-change
If ( KeyDown(12) Or KeyDown(74) ) And period
<500 Then period=period+change>
; Redraw the screen, by...

Cls ; clear the screen
DrawMovie movie,x,y,w,h ; draw the movie
; draw the instructions
Text 0,0,"Use the arrow keys to reposition the movie." 
Text 0,20,"Hold SHIFT with the arrow keys to resize." 
Text 0,40,"Use + or - or control the animation speed."
Text 0,60,"Hold CONTROL to resize, move, or change speed faster." 
Text 0,80,"Press ESCAPE to exit."
Text 0,100,"Current Command Syntax: DrawMovie(movie, " + x + ","+ y + "," + w + "," + h + ")"
; Flip the buffers
Flip 

Until KeyHit(1) ; Escape to exit

; Remove the movie from memory before closing down
CloseMovie(movie)

End ; bye!

вот ето работает (проверенно):

Graphics 800,600,32,1
SetBuffer BackBuffer()
s=OpenMovie("it's war.mpg")

While MoviePlaying(s) And KeyDown(57)=0
DrawMovie s,0,0,800,600
Text 10,10,MoviePlaying(s)
Wend
CloseMovie s

Graphics3D 800,600,32,1
;далее идет сама игра
End

BoB · 21.11.2006, 03:12

Сообщение от HolyDel

вот ето работает (проверенно):

И у меня даже работает.

Только почему-то видео не показывает(черный экран) и только звук слышно.

21.11.2006, 08:58

кодеки поставьте

Самурай · 21.11.2006, 18:34

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, кто знает как это дело исправить?

HolyDel · 22.11.2006, 01:12

А почему камера, свет создаются в цикле? да и меш тоже грузится.
ето все надо вынести за цикл (точнее перед цикл).

camera=CreateCamera()

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

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

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

While Not KeyDown(1)
RenderWorld
UpdateWorld
Flip
Wend
End

так что-ли.

ZanoZa · 22.11.2006, 17:53

Оооооо....в цикл это жестоко