PureBoard

Code: Alles auswählen

#FMODex_VERSION= $40035

Enumeration 1 ;#FMOD_INITFLAGS
  #FMODex_INIT_NORMAL = $0                           ; All platforms - Initialize normally.
  #FMODex_INIT_NONREALTIME = $1                      ; All platforms - Output is driven with System::update.
  #FMODex_INIT_3D_RIGHTHANDED = $2                   ; All platforms - FMOD will treat +X as left, +Y as up and +Z as forwards.
  #FMODex_INIT_DISABLESOFTWARE = $4                  ; All platforms - Disable software mixer to save memory.  Anything created with FMOD_SOFTWARE will fail and DSP will not work.
  #FMODex_INIT_DSOUND_DEFERRED = $100                ; Win32 only - for DirectSound output - 3D commands are batched together and executed at System::update.
  #FMODex_INIT_DSOUND_HRTFNONE = $200                ; Win32 only - for DirectSound output - FMOD_HARDWARE | FMOD_3D buffers use simple stereo panning/doppler/attenuation when 3D hardware acceleration is not present.
  #FMODex_INIT_DSOUND_HRTFLIGHT = $400               ; Win32 only - for DirectSound output - FMOD_HARDWARE | FMOD_3D buffers use a slightly higher quality algorithm when 3D hardware acceleration is not present.
  #FMODex_INIT_DSOUND_HRTFFULL = $800                ; Win32 only - for DirectSound output - FMOD_HARDWARE | FMOD_3D buffers use full quality 3D playback when 3d hardware acceleration is not present.
  #FMODex_INIT_PS2_DISABLECORE0REVERB = $10000       ; PS2 only - Disable reverb on CORE 0 to regain SRAM.
  #FMODex_INIT_PS2_DISABLECORE1REVERB = $20000       ; PS2 only - Disable reverb on CORE 1 to regain SRAM.
  #FMODex_INIT_XBOX_REMOVEHEADROOM = $100000         ; XBox only - By default DirectSound attenuates all sound by 6db to avoid clipping/distortion.  CAUTION.  If you use this flag you are responsible for the final mix to make sure clipping / distortion doesn;t happen.
EndEnumeration

Enumeration 1 ;#FMOD_MODE
  #FMODex_DEFAULT = $0                       ; FMOD_DEFAULT is a default sound type.  Equivalent to all the defaults listed below.  FMOD_LOOP_OFF, FMOD_2D, FMOD_HARDWARE.
  #FMODex_LOOP_OFF = $1                      ; For non looping sounds. (default).  Overrides FMOD_LOOP_NORMAL / FMOD_LOOP_BIDI.
  #FMODex_LOOP_NORMAL = $2                   ; For forward looping sounds.
  #FMODex_LOOP_BIDI = $4                     ; For bidirectional looping sounds. (only works on software mixed static sounds).
  #FMODex_2D = $8                            ; Ignores any 3d processing. (default).
  #FMODex_3D = $10                           ; Makes the sound positionable in 3D.  Overrides FMOD_2D.
  #FMODex_HARDWARE = $20                     ; Attempts to make sounds use hardware acceleration. (default).
  #FMODex_SOFTWARE = $40                     ; Makes sound reside in software.  Overrides FMOD_HARDWARE.  Use this for FFT,  DSP, 2D multi speaker support and other software related features.
  #FMODex_CREATESTREAM = $80                 ; Decompress at runtime, streaming from the source provided (standard stream).  Overrides FMOD_CREATESAMPLE.
  #FMODex_CREATESAMPLE = $100                ; Decompress at loadtime, decompressing or decoding whole file into memory as the target sample format. (standard sample).
  #FMODex_OPENUSER = $400                    ; Opens a user created static sample or stream.
  #FMODex_OPENMEMORY = $800                  ; "name_or_data" will be interpreted as a pointer to memory instead of filename for creating sounds.
  #FMODex_OPENRAW = $1000                    ; Will ignore file format and treat as raw pcm.  User may need to declare if data is FMOD_SIGNED or FMOD_UNSIGNED ;
  #FMODex_OPENONLY = $2000                   ; Just open the file, dont prebuffer or read.  Good for fast opens for info, or when sound::readData is to be used.
  #FMODex_ACCURATETIME = $4000               ; For FMOD_System_CreateSound - for accurate FMOD_Sound_GetLength / FMOD_Channel_SetPosition on VBR MP3, AAC and MOD/S3M/XM/IT/MIDI files.  Scans file first, so takes longer to open. FMOD_OPENONLY does not affect this.
  #FMODex_MPEGSEARCH = $8000                 ; For corrupted / bad MP3 files.  This will search all the way through the file until it hits a valid MPEG header.  Normally only searches for 4k.
  #FMODex_NONBLOCKING = $10000               ; For opening sounds asyncronously, return value from open function must be polled for when it is ready.
  #FMODex_UNIQUE = $20000                    ; Unique sound, can only be played one at a time ;
  #FMODex_3D_HEADRELATIVE = $40000           ; Make the sound;s position, velocity And orientation relative To the listener;s position, velocity and orientation.
  #FMODex_3D_WORLDRELATIVE = $80000          ; Make the sound;s position, velocity And orientation absolute. (deDefault
  #FMODex_3D_LOGROLLOFF = $100000            ; This sound will follow the standard logarithmic rolloff model where mindistance = full volume, maxdistance = where sound stops attenuating, and rolloff is fixed according to the global rolloff factor.  (default)
  #FMODex_3D_LINEARROLLOFF = $200000         ; This sound will follow a linear rolloff model where mindistance = full volume, maxdistance = silence.
  #FMODex_CDDA_FORCEASPI = $400000           ; For CDDA sounds only - use ASPI instead of NTSCSI to access the specified CD/DVD device.
  #FMODex_CDDA_JITTERCORRECT = $800000       ; For CDDA sounds only - perform jitter correction. Jitter correction helps produce a more accurate CDDA stream at the cost of more CPU time.
  #FMODex_UNICODE = $1000000                 ; Filename is double-byte unicode.
  #FMODex_IGNORETAGS = $2000000              ; Skips id3v2/asf/etc tag checks when opening a sound, to reduce seek/read overhead when opening files (helps with CD performance).
EndEnumeration

Enumeration 1
  #FMODex_CHANNEL_FREE = -1     ; For a channel index, FMOD chooses a free voice using the priority system.
  #FMODex_CHANNEL_REUSE = -2    ; For a channel index, re-use the channel handle that was passed in.
EndEnumeration

;-------------------------
;XIncludeFile "fmodex.pb"   ; <-- mit DLL2PBLib von TS-Soft erstellen
;-------------------------

OpenConsole()

fmodex_Init() ; siehe  fmodex.pb

result = FMODex_System_Create(@system)
Debug "FMODex_System_Create "+Str(result)
Debug "system "+Str(system)

result = FMODex_System_GetVersion(system, @version)
Debug  "FMODex_System_GetVersion "+Str(result)
Debug "Version "+Hex(version)

result = FMODex_System_Init(system, 6, #FMODex_INIT_NORMAL , #Null)
Debug  "FMODex_System_Init "+Str(result)

song.s=OpenFileRequester("Choose music","","FMOD - MP3 | *.mp3",0)

result = FMODex_System_CreateStream(system, song, #FMODex_SOFTWARE | #FMODex_LOOP_NORMAL , 0, @sound)
Debug "sound "+Str(sound)
Debug  "FMODex_System_CreateStream "+Str(result)

result = FMODex_System_PlaySound(system, #FMODex_CHANNEL_FREE, sound, 0, @channel)
Debug "channel "+Str(channel)
Debug  "FMODex_System_PlaySound "+Str(result)

ende$ = Input()

result = FMODex_Sound_Release(sound)
result = FMODex_System_Close(system)
result = FMODex_System_Release(system)