Converts WAV files to OGG files for reduced size. OGG was recently introduced to DBPro in the latest updates. Needless to say you should be using the latest update that recognizes

If you dont have Blue GUI then you would have to remove the line startBlue.

Replace the line

fileName=openDialog("Open WAV File - CANCEL TO END","WAV Files (*.wav)|*.wav|All Files

with the line

filename="pathname of WAV file to convert"

not sure if this works in DB standard or not

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem ***** Code by Myk *****
startBlue "**","****"
local filename as string
local oggname as string
start:
fileName=openDialog("Open WAV File - CANCEL TO END","WAV Files (*.wav)|*.wav|All Files (*.*)|*.*")
if filename<>""
   oggname=left$(filename,len(filename)-3)+"ogg"
   sync
   text 10,10,"Converting "+realname(filename)+" to "+realname(oggname)+". Please wait..." : sync
   ENCODE to OGG VORBIS filename, oggname
   cls
   text 10,10,"File converted... Hit a key" : sync
   wait key
else
   end
endif
if filename<>"" then goto start


function realname(b$)
l=len(b$)
      for k=0 to l
         c$=mid$(b$,k)
         if c$="" then b=k
      next k
      b$=right$(b$,l-b)
      glob$=b$
endfunction b$