how to put this in function - GameCreators Forum

Author

Message

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 4th Aug 2011 23:39

Link

i made a program to record video and audio from the game, but there is a small problem with this, how can i put this code into the function so i can activate and deactivate it by pressing space key or something, and how can i get this to work and update the screen, the main problem is that when this code is active i don't get screen update

+ Code Snippet

`set key for capturing video
    if keystate(KB_SPACE)
        img=find free image()
        snd=find free sound()
        dir$=dir exe()
        
        make avi "video.avi",1,screen width(),screen height()
        record sound snd
        set camera to image 0,img,screen width(),screen height()
        
        get image img,0,0,screen width(),screen height()
        add image to avi img
    endif
    
    if keystate(KB_ENTER)
        stop recording sound
        save sound "sound.wav",snd
        close avi
     endif

Back to top

Profile PM Email

CumQuaT

AGK Master

16

Years of Service

User Offline

Joined: 28th Apr 2010

Location: Tasmania, Australia

Posted: 5th Aug 2011 02:35

Link

Currently the way you have it, in theory, will only record the screen while the space key is being held down. Perhaps that has something to do with it?

Also, the way you have the code up there, I don't know if your scancode value stored in KB_SPACE is correct. You can just use SPACEKEY() instead:

+ Code Snippet

IF SPACEKEY()
    `Blah blah
ENDIF

Which may help...

Malevolence: The Sword of Ahkranox
www.msoa-game.com
www.facebook.com/malevolencegame

Back to top

Profile PM Email

Max P

16

Years of Service

User Offline

Joined: 23rd Jan 2010

Location:

Posted: 5th Aug 2011 13:38

Link

+ Code Snippet

set camera to image 0,img,screen width(),screen height()

This is the reason your screen won't update. Everything is drawn to the image and not to the screen.

global recording as boolean

do

if spacekey() then startRecording()
if returnkey() then stopRecording()

updateRecording()

Sync
Loop

Function startRecording()
	if recording=1 then exitfunction
	recording = 1

global record_sound as integer

record_sound = find free sound()
        dir$=dir exe()

make avi "video.avi",1,screen width(),screen height()
        record sound record_sound

// not sure if this needs to be done every frame
	// delete the next lines if this is the case
	img=find free image()
	get image img,0,0,screen width(),screen height()
        add image to avi img
	//

endFunction

Function stopRecording()
	if recording=0 then exitfunction
	
	stop recording sound
        save sound "sound.wav", record_sound
        close avi

recording=0
	
endFunction

Function updateRecording()
	if recording=0 then exitfunction

// not sure if this needs to be done every frame
	// delete the next lines if this isn't the case
	img=find free image()
	get image img,0,0,screen width(),screen height()
        add image to avi img
	//

endFunction

+ Code Snippet

global recording as boolean

do

if spacekey() then startRecording()
if returnkey() then stopRecording()

updateRecording()

Sync
Loop

Function startRecording()
	if recording=1 then exitfunction
	recording = 1

	global record_sound as integer

        record_sound = find free sound()
        dir$=dir exe()

	make avi "video.avi",1,screen width(),screen height()
        record sound record_sound

	// not sure if this needs to be done every frame
	// delete the next lines if this is the case
	img=find free image()
	get image img,0,0,screen width(),screen height()
        add image to avi img
	//

endFunction

Function stopRecording()
	if recording=0 then exitfunction
	
	stop recording sound
        save sound "sound.wav", record_sound
        close avi

	recording=0
	
endFunction

Function updateRecording()
	if recording=0 then exitfunction

	// not sure if this needs to be done every frame
	// delete the next lines if this isn't the case
	img=find free image()
	get image img,0,0,screen width(),screen height()
        add image to avi img
	//

endFunction

Back to top

Profile PM

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 5th Aug 2011 23:21

Link

@Max P
I tried your code and even tried to use it with mine and in both cases it crashes to windows

sync on
sync rate 60
set display mode 640,480,32,1

global recording as boolean

global img as integer 
img=find free image()
make avi "video.avi",1,screen width(),screen height()

global snd as integer
snd=find free sound()
record sound snd

do
    if spacekey()=1
        if recording=1
            recording=0
            StopRecording()
        else
            recording=1
            StartRecording()
        endif
    endif
    
    updateRecording()
    Sync
Loop

Function startRecording()
    if recording=1 then exitfunction
    recording = 1
    
    make avi "video.avi",1,screen width(),screen height()
    record sound snd

get image img,0,0,screen width(),screen height()
    add image to avi img
endFunction

Function stopRecording()
    if recording=0 then exitfunction
    
    stop recording sound
    save sound "sound.wav",snd
    close avi

recording=0
    
endFunction

Function updateRecording()
    if recording=0 then exitfunction
    
    get image img,0,0,screen width(),screen height()
    add image to avi img
endFunction

+ Code Snippet

sync on
sync rate 60
set display mode 640,480,32,1

global recording as boolean

global img as integer 
img=find free image()
make avi "video.avi",1,screen width(),screen height()

global snd as integer
snd=find free sound()
record sound snd

do
    if spacekey()=1
        if recording=1
            recording=0
            StopRecording()
        else
            recording=1
            StartRecording()
        endif
    endif
    
    updateRecording()
    Sync
Loop

Function startRecording()
    if recording=1 then exitfunction
    recording = 1
    
    make avi "video.avi",1,screen width(),screen height()
    record sound snd

    get image img,0,0,screen width(),screen height()
    add image to avi img
endFunction

Function stopRecording()
    if recording=0 then exitfunction
    
    stop recording sound
    save sound "sound.wav",snd
    close avi

    recording=0
    
endFunction

Function updateRecording()
    if recording=0 then exitfunction
    
    get image img,0,0,screen width(),screen height()
    add image to avi img
endFunction

the idea was to use one button for starting and stopping recording of the gameplay and that is why i have problems with getting this into a function, try the code from the first post and this post to see the problem.

Back to top

Profile PM Email

Bluespark

15

Years of Service

User Offline

Joined: 18th Mar 2011

Location:

Posted: 6th Aug 2011 02:06

Link

You can use this code to start recording with one spacekey press (holding it won't repeatedly start it):

+ Code Snippet

if spacekey()
   if spacepress=0
      spacepress=1
      CODE
   endif
else
   spacepress=0
endif

Back to top

Profile PM

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 6th Aug 2011 21:13

Link

this code crashes with error sound not found

+ Code Snippet

sync on
sync rate 60
set display mode 640,480,32,1

global recording as boolean
global img as integer
global snd as integer
img=find free image()
snd=find free sound()
do
    if spacekey()
        if recording=0
            recording=1
            
            make avi "video.avi",1,screen width(),screen height()
            record sound snd
            //set camera to image 0,img,screen width(),screen height()
        endif
        
        if recording=1
            recording=0
            
            stop recording sound
            save sound "sound.wav",snd
            close avi
        endif
    endif
    
    while recording=1
        get image img,0,0,screen width(),screen height()
        add image to avi img
    endwhile
    
    sync
loop

i don't know how to fix this, and i didn't been able to test this to see if it solves the problem from the first post

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 7th Aug 2011 00:51 Edited at: 7th Aug 2011 00:52

Link

You guys are forgetting to setup the memblock:

make memblock mem_ID,10
delete memblock mem_ID

Also nruser, your going to encounter a problem with your code. The moment recording starts, it stops will the next argument.

+ Code Snippet

// setup screen
set display mode 640,480,32,0
sync on : sync rate 60

global _keyPress     as byte

// declare screen capture
global _memblock     as integer
global _image        as integer
global _record      as byte

_memblock            = find free memblock()
_image               = find free image()

make memblock _memblock, 10
delete memblock _memblock

// setup object
make object cube 1,1

do
    
    rotate object 1,0,object angle y(1)+0.5,0

    // enable/disable screen capture
    if spacekey() and _keyPress = 0
        _keyPress = 1
        _record = 1-_record
        
        if _record
            make avi "video.avi", 24, screen width(), screen height()
        else
            close avi
        endif
    endif
    
    // update captue
    if _record
        // really really slow btw
        get image _image,0,0, screen width(), screen height(), 1
        add image to avi _image
    endif
    
    if not scancode() then _keyPress = 0
    
    sync
loop

Back to top

Profile PM Email

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 7th Aug 2011 15:58

Link

ok that helped a lot but i still don't see why am i required to use memblock without it program crashes

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 7th Aug 2011 16:27

Link

The Memblock is used to pass data to dlls, some dll required a memblock setup to work. Sparky's collision dll does I believe (or did).

Back to top

Profile PM Email

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 7th Aug 2011 18:07

Link

ok here is the working code

`setup screen
set display mode 640,480,32,1
sync on : sync rate 60

global _keyPress     as byte

`declare screen capture
global _memblock     as integer
global _image        as integer
global _record      as byte

global snd as integer
snd=find free sound()

_memblock=find free memblock()
_image=find free image()

make memblock _memblock,10
delete memblock _memblock

`setup object
make object cube 1,1

do
    
    rotate object 1,0,object angle y(1)+0.5,0

`enable/disable screen capture
    if spacekey() and _keyPress=0
        _keyPress=1
        _record=1-_record
        
        if _record
            StartRecording()
        else
            StopRecording()
        endif
    endif
    
    `update captue
    UpdateRecording()
    
    if not scancode() then _keyPress=0
    
    sync
loop

function StartRecording()
    make avi "video.avi",60, screen width(),screen height()
    record sound snd
endfunction

function StopRecording()
    stop recording sound
    save sound "sound.wav",snd
    close avi
endfunction

function UpdateRecording()
    if _record
        get image _image,0,0, screen width(), screen height(),1
        add image to avi _image
    endif
endfunction

+ Code Snippet

`setup screen
set display mode 640,480,32,1
sync on : sync rate 60

global _keyPress     as byte

`declare screen capture
global _memblock     as integer
global _image        as integer
global _record      as byte

global snd as integer
snd=find free sound()

_memblock=find free memblock()
_image=find free image()

make memblock _memblock,10
delete memblock _memblock

`setup object
make object cube 1,1

do
    
    rotate object 1,0,object angle y(1)+0.5,0

    `enable/disable screen capture
    if spacekey() and _keyPress=0
        _keyPress=1
        _record=1-_record
        
        if _record
            StartRecording()
        else
            StopRecording()
        endif
    endif
    
    `update captue
    UpdateRecording()
    
    if not scancode() then _keyPress=0
    
    sync
loop

function StartRecording()
    make avi "video.avi",60, screen width(),screen height()
    record sound snd
endfunction

function StopRecording()
    stop recording sound
    save sound "sound.wav",snd
    close avi
endfunction

function UpdateRecording()
    if _record
        get image _image,0,0, screen width(), screen height(),1
        add image to avi _image
    endif
endfunction

now the unexpected problem is that when i stop recording i have captured around one second of video and five of sound how can i fix this?

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 7th Aug 2011 18:48 Edited at: 7th Aug 2011 18:48

Link

You can't I think. Due to audio and video being captured independently, well that's my guess. The main issue is get image is just far to slow for this to be any useful. It could slow your program down to 1 fps with tons of object at a low resolution (if was any higher than 800x600 give up). Just imagine, it would take 60 seconds to record one second of video. You'd then have 59 (actually, you wouldn't be able to use any of it) seconds of useless audio.

Back to top

Profile PM Email

DVader

22

Years of Service

User Offline

Joined: 28th Jan 2004

Location:

Posted: 7th Aug 2011 19:36

Link

DB hasn't the poke to do this at 60 fps as you are doing. You would have more success lowering your capture rate to 30 or less. I played about with this plugin awhile back and found 15 a reasonable compromise.

+ Code Snippet

Rem Project: AVI test
Rem Created: Sunday, August 22, 2010

Rem ***** Main Source File *****
set display mode 640,480,32,0
sync on
sync rate 15
disable escapekey
for n= 1 to 100
make object cube n,10
position object n,rnd(240),rnd(280),rnd(50)
next n
make memblock 1,10
delete memblock 1

if file exist("capture.avi")=1 then delete file "capture.avi"
make avi "capture.avi",15,1024,768
position camera 100,200,-300
oldtime=hitimer()
speed=6
speed2=4
do
  time=(hitimer()-oldtime)/1000
  for n= 1 to 100  
    turn object right n,speed
    pitch object down n,speed2
    next n
    text 0,0,"Time "+str$(time)
    get image 1,0,0,640,480,1
    add image to avi 1
    
    if escapekey()=1
        close avi
        end
    ENDIF
    sync
LOOP

Here is the code I used at the time. Using get image at 60 fps is asking a lot from DB especially if you have a high res. Lowering your framerate to a lower one and matching it with the avi capture plugin produces fairly good results. I have a timer to test the length of the video against the avi, they seem to match fairly well. Didn't try sound, but I cannot see why it wouldn't work as long as you match your framerates.

http://s6.bitefight.org/c.php?uid=103081

Back to top

Profile PM Website

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 8th Aug 2011 02:19

Link

with 15 in sync rate and in make avi sometimes audio and video have almost exact lenght and sometimes there is 3 or more seconds difference, is there a way to make sound and video record at the same sync event or something like a timer system?

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / how to put this in function