MSX Village forum

I checked the page and saw, that you are having trouble running the script...
 
Here are few tips:
- Picture frames are expected to have name: "F<file number in 32bit hex number>.SC2"
- Sound is expected to have name: "test4.wav"
- Sound format is 8-bit unsigned PCM (mono) without any header. Many programs such as Audacity or Goldwave can be used to get the sound in correct format (RAW-save)
- Copy / Paste the source to Notepad and save as "Convert.vbs"
- Open command prompt and execute: "CSCRIPT //Nologo Convert.vbs" (By default double click on Windows will use WSCRIPT and therefore give you popup before every frame! -> Works, but not very user friendly ;-) )

dim palette(1000)
 
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
 
Set sound = fso.OpenTextFile("12fps.snd", 1, False, tristatefalse)
set evafile=fso.OpenTextFile("Dragon12.ev2",2,True,TristateFalse)
 
jokubyte=0
 
filenumber=0
 
DO
 
 
  filename = "F"+right("00000000"+hex(filenumber),7)+".SC2"
 
  filenumber=filenumber+1
 
  wscript.echo filename
 
 
  if not fso.FileExists (filename) then exit DO
 
  Set picture = fso.OpenTextFile(filename, 1, False, tristatefalse)
  header=picture.read(7)
 
 
  for i=1 to 48
   for x=1 to 11
    data=sound.read(1):sr=sr+1
    evafile.write(data)
    for y=1 to 11
     data=picture.read(1)
     evafile.write(data)
    next
   next
   data=sound.read(1):sr=sr+1
   evafile.write(data)
   for y=1 to 7
    data=picture.read(1)
    evafile.write(data)
   next
  next
 
  for i=&h1800 to &h1B7F
   data=picture.read(1)
  next
 
 
  for i=0 to 31
   palette(i)=asc(picture.read(1))
  next
 
  for i=&h1BA0 to &h1FFF
   data=picture.read(1)
  next
 
 
  for i=1 to 48
   for x=1 to 11
    data=sound.read(1):sr=sr+1
    evafile.write(data)
    for y=1 to 11
     data=picture.read(1)
     evafile.write(data)
    next
   next
   data=sound.read(1):sr=sr+1
   evafile.write(data)
   for y=1 to 7
    data=picture.read(1)
    evafile.write(data)
   next
  next
 
  i=0
  for x=1 to 11
   evafile.write(sound.read(1)):sr=sr+1
   for y=1 to 11
    evafile.write(chr(palette(i)))
    i=i+1
   next
  next
  evafile.write(sound.read(1)):sr=sr+1
  for y=1 to 7
   evafile.write(chr(0))
  next
 
  picture.close
 
  for i=97 to 105
   for x=1 to 11
    evafile.write(sound.read(1)):sr=sr+1
    for y=1 to 11
     evafile.write(chr(0))
    next
   next
   evafile.write(sound.read(1)):sr=sr+1
   for y=1 to 7
    evafile.write(chr(0))
   next
  next
 
   for y=1 to 40+jokubyte
    evafile.write(sound.read(1)):sr=sr+1
   next
 
 
  ' 13879 bytes
  for i=&h3A20+jokubyte to &h3BFD
   evafile.write(chr(0))
  next
 
   evafile.write(chr(jokubyte+&h20)+chr(&h05))
 
  jokubyte=jokubyte xor 1
 
  ' end of frame
 
LOOP
 
evafile.close
sound.close
 
wscript.echo "Sound bytes :" & sr