i try with the trial of dark video with this code and i got the same result, the ram up up up
rem Dark Video DarkBASIC Professional sample
rem Based on the 3DVideo sample by The Game Creators
rem Dark Video (C) 2008-2009, Deep Cove Software, Ltd.
rem init
sync on : sync rate 30 : hide mouse
rem switch display mode if available
if check display mode(1024,768,32)=1 then set display mode 1024,768,32
rem set default screen
color backdrop rgb(0,32,32)
rem open our Dark Video movie and get the dimensions
movieId = darkvideo open movie( "sample.dvf" )
movieWidth = darkvideo get movie width( movieId )
movieHeight = darkvideo get movie height( movieId )
rem set the movie volume (between 0-255), no effect of course if there's
rem no audio in the movie.
result = darkvideo set movie volume( movieId, 255 )
rem arbitrary ids we'll use
memBlockId = 32
imageId = 32
rem create a blank 32-bit image of the same dimensions as the Dark Video
rem movie. Dark Video will decode each frame to this image.
make memblock memBlockId, movieWidth * movieHeight * 4 + 12
write memblock dword memBlockId, 0, movieWidth
write memblock dword memBlockId, 4, movieHeight
write memblock dword memBlockId, 8, 32
make image from memblock imageId, memBlockId
delete memblock memBlockId
sprite 1,0,0,imageId
scale sprite 1,200
hide sprite 1
rem main loop
begin=1
disable escapekey
while escapekey()=0
paste sprite 1,0,0
rem begin movie playback
if begin=1
begin=0
result = darkvideo play movie( movieId, imageId, 1, 0 )
endif
if mouseclick() = 1
result = darkvideo stop movie( movieId )
result = darkvideo close movie( movieId )
movieId = darkvideo open movie( "sample.dvf" )
begin = 1
endif
rem move projection around
rem update screen
sync
rem end loop
endwhile
rem stop and close the Dark Video movie. this isn't required
rem but it's good practice. all movies will be stopped
rem and closed at the end of the program automatically.
result = darkvideo stop movie( movieId )
result = darkvideo close movie( movieId )
Hello
