Your Digital Media Has Never Looked So Good

 
gaaquarium
Topic Author
Posts: 1
Joined: Mon Feb 20, 2012 7:27 am

HD600 / 2000 Problem

Mon Feb 20, 2012 8:05 am

I'm having a problem getting the HD600 / 2000 to play the following script file. It has been working fine for the past 2 years. I added an additional line of code to trigger another movie but could not get any of the files to play. I reverted back to the original file to start from scratch now that file will not work. Can you look at the script below and tell me why this file will not play? Note: We have tested on (3) HD600 and (1) HD2000 only one of the HD600 has been updated to the latest firmware.

Thanks

debug=false

REM ******************************************
REM Initialize Objects
REM Initialize Video
REM ******************************************

video=CreateObject("roVideoPlayer")
mode=CreateObject("roVideoMode")
serial=CreateObject("roSerialPort", 0, 9600)
p=CreateObject("roMessagePort")
video.SetPort(p)
serial.SetLineEventPort(p)
video.SetAudioMode(1)
video.SetAudioOutput(2)

REM ******************************************
REM Set Constants
REM ******************************************

videomode$="1280x720x60p"
mode.SetMode(videomode$)



REM ******************************************
REM Text object for error output to screen HD2000 ONLY
REM ******************************************
REM Metadata for other text
REM meta2 = CreateObject("roAssociativeArray")
REM meta2.AddReplace("CharWidth", 22)
REM meta2.AddReplace("CharHeight", 35)
REM meta2.AddReplace("BackgroundColor", &H000000) ' Black
REM meta2.AddReplace("TextColor", &HFF0000) ' Red
REM tf2 = CreateObject("roTextField", mode.GetSafeX(), mode.GetSafeY()+568, 40, 5, meta2)


REM *************************************
REM File Names
REM -------------------------------------
REM attract$ / NIK_A.mpg is main attract loop
REM grays$ is the GR Menu attract loop
REM right$ is the RW Menu attract loop
REM *************************************

attract$="NIK_a.mpg"
grays$="GR_A.mpg"
right$="RW_A.mpg"
gr_one$="GR_1.mpg"
gr_two$="GR_2.mpg"
gr_three$="GR_3.mpg"
gr_four$="GR_4.mpg"
gr_five$="GR_5.mpg"
gr_six$="GR_6.mpg"
gr_seven$="GR_7.mpg"
gr_eight$="GR_8.mpg"
rw_one$="RW_1.mpg"
rw_two$="RW_2.mpg"
rw_three$="RW_3.mpg"
rw_four$="RW_4.mpg"
rw_five$="RW_5.mpg"
rw_six$="RW_6.mpg"

video_to_play$=""

video_playing=false


REM *************************************
REM File Names text
REM -------------------------------------
REM The strings herein will be used
REM as the strings sent from the user-pc.
REM NIK_A is the main attract Loop.
REM RW_A is the attract loop for the RW Menu.
REM GR_A is the attract loop for the GR Menu.
REM For instance, if a user sends the command
REM "GR_1" (by pressing the relevant button)
REM this script recognizes that input and
REM follows the designated path under wait_for_serial
REM *************************************

attract_l$="NIK_A"
rw_a$="RW_A"
gr_a$="GR_A"
gr_1$="gr_1"
gr_2$="gr_2"
gr_3$="gr_3"
gr_4$="gr_4"
gr_5$="gr_5"
gr_6$="gr_6"
gr_7$="gr_7"
gr_8$="gr_8"
rw_1$="rw_1"
rw_2$="rw_2"
rw_3$="rw_3"
rw_4$="rw_4"
rw_5$="rw_5"
rw_6$="rw_6"

REM ***************************************
REM Now we wait for a serial command
REM ***************************************

wait_for_serial:
msg=wait(0, p)
if (type(msg)<>"roStreamLineEvent") then goto wait_for_serial
serial.SendLine (msg)

if msg=attract_l$ then
serial.SendLine (msg) 'Debug to see if command made it.
goto loop_file


else if msg=rw_a$ then
video_to_play$=right$
serial.SendLine (msg)
goto loop_file

else if msg=gr_a$ then
video_to_play$=grays$
serial.SendLine (msg)
goto loop_file

else if msg=gr_1$ then
video_to_play=gr_one$
serial.SendLine (msg)
goto Play_File

else if msg=gr_2$ then
video_to_play=gr_two$
serial.SendLine (msg)
goto Play_File

else if msg=gr_3$ then
video_to_play=gr_three$
serial.SendLine (msg)
goto Play_File

else if msg=gr_4$ then
video_to_play=gr_four$
serial.SendLine (msg)
goto Play_File

else if msg=gr_5$ then
video_to_play=gr_five$
serial.SendLine (msg)
goto Play_File

else if msg=gr_6$ then
video_to_play=gr_six$
serial.SendLine (msg)
goto Play_File

else if msg=gr_7$ then
video_to_play=gr_seven$
serial.SendLine (msg)
goto Play_File

else if msg=gr_8$ then
video_to_play=gr_eight$
serial.SendLine (msg)
goto Play_File

else if msg=rw_1$ then
video_to_play=rw_one$
serial.SendLine (msg)
goto Play_File

else if msg=rw_2$ then
video_to_play=rw_two$
serial.SendLine (msg)
goto Play_File

else if msg=rw_3$ then
video_to_play=rw_three$
serial.SendLine (msg)
goto Play_File

else if msg=rw_4$ then
video_to_play=rw_four$
serial.SendLine (msg)
goto Play_File

else if msg=rw_5$ then
video_to_play=rw_five$
serial.SendLine (msg)
goto Play_File

else if msg=rw_6$ then
video_to_play=rw_six$
serial.SendLine (msg)
goto Play_File

endif

Play_File:
video_playing=true
video.SetLoopMode(0)
video.PlayFile(video_to_play$)

wait_for_video_end:
msg=wait(0,p)

if type(msg)="roVideoEvent" then
status=msg.GetInt()
if status <> vidend then goto wait_for_video_end
endif
REM ************************************
REM Loop GR Vids back to GR_A
REM Loop RW Vids back to RW_A
REM ************************************

if video_to_play$= (gr_one$ OR gr_two$ OR gr_three$ OR gr_four$ OR gr_five$ OR gr_six$ OR gr_seven$ OR gr_eight$) then
video_to_play$=grays$
goto loop_file

else if video_to_play$= (rw_one$ OR rw_two$ OR rw_three$ OR rw_four$ OR rw_five$ OR rw_six$) then
video_to_play$=right$
goto loop_file

endif
REM video.StopClear()
REM video_playing=false



REM ***************************************
REM Start Attract Loop
REM Video plays first, and waits for input
REM ***************************************

loop_file:
video_playing=true
video.SetLoopMode(1)
video.PlayFile(video_to_play$)
msg=wait(0,p)
 
RokuLyndon

Re: HD600 / 2000 Problem

Mon Feb 20, 2012 3:30 pm

I noticed your video_to_play variable is often missing the $ that it sometimes has.

Who is online

Users browsing this forum: No registered users and 3 guests