API tools faq
paste
Advertisement
Testaware

SCAL DLL v2.00

Testaware
Oct 6th, 2020 (edited)
2,402
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PureBasic 123.61 KB | None | 0 0
raw download clone embed print report
  1. ; -------------------------------------------------------------------------------------
  2. ; SCAL v2.00 x86-64 DLL - Play-Library for multiple formats [1060 (x86) / 424 (x64)]
  3. ; -------------------------------------------------------------------------------------
  4. ; Peace/TST - 05.10.2020 / Purebasic 5.70
  5. ; https://testaware.wordpress.com
  6. ; -------------------------------------------------------------------------------------
  7. ; Note:  - x64: Doesn't support #C2D_MUSIC_[AMP,BAS,BMF,FCP,MED,S68,SID,TSR,V2M,YMP]
  8. ;        - x86: Install the AmpMaster_x86.dll to playback +626 rare formats
  9. ; -------------------------------------------------------------------------------------
  10.  
  11. EnableExplicit
  12.  
  13. #SCAL_VERSION  =  200   ; * 0.01 -> 2.00
  14.  
  15. XIncludeFile   "Include\i_scal.pbi"
  16.  
  17. Global   RS_SCAL.RS_SCAL
  18.  
  19. ;************************
  20. ;{ *** LIB-INCLUDES *** }
  21.  
  22. IncludePath "Include\"
  23. XIncludeFile   "minizip_include.pbi"
  24.  
  25. IncludePath "Include\MusicLibs\"
  26.  
  27. CompilerIf  #PB_Compiler_Processor  =  #PB_Processor_x86
  28.    ;Import  "winmm_x86.lib"   :  EndImport   ; not needed coz #C2D_MUSIC_MOD
  29.    Import   "dsound_x86.lib"  :  EndImport
  30.    CompilerIf  #IsSID
  31.       Import   "masm32_x86.lib"  :  EndImport
  32.    CompilerEndIf
  33. ;CompilerElse
  34.    ;Import  "winmm.lib" :  EndImport   ; not needed coz #C2D_MUSIC_MOD
  35. CompilerEndIf
  36.  
  37. UseOGGSoundDecoder()
  38. UseFLACSoundDecoder()
  39.  
  40. ;{ #C2D_MUSIC_MOD * Native PureBasic ModPlug Library * }
  41. ; *.669;*.ABC;*.AMF;*.AMS;*.DBM;*.DMF;*.FAR;*.IT;*.J2B;*.MDL;*.MED;*.MID;*.MOD;*.MT2;*.MTM;*.OKT;*.PAT;*.PSM;*.PTM;*.S3M;*.STM;*.ULT;*.UMX;*.WAV;*.XM;*.MMCMP;*.PP
  42. ;InitSound()
  43. ;}
  44. ;{ #C2D_MUSIC_MOV * Native PureBasic Movie Library * }
  45. ; *.MP3;*.WAV;*.WMA...
  46. ;InitMovie()
  47. ;}
  48. ;{ #C2D_MUSIC_FT2 * Thanx to Olav "8bitbubsy" for the opensource FT2PLAY v1.04 * }
  49. ; Copyright (c) 2016-2020, Olav "8bitbubsy" Sørensen
  50. ; https://16-bits.org
  51. ; https://pastebin.com/0TLkMm0A
  52. ; *.FT;*.MOD;*.STK;*.XM
  53. ;Import  "winmm.lib" :  EndImport
  54. CompilerIf  #PB_Compiler_Processor  =  #PB_Processor_x64
  55.    Import   "playFT2_x64.lib"
  56.       ft2play_Close()
  57.       ft2play_GetAmp()        ; 1..32
  58.       ft2play_GetMasterVol()  ; 0..256
  59.       ft2play_GetMixerTicks() ; returns the amount of milliseconds of mixed audio (not realtime)
  60.       ft2play_GetSongName()   ; max 20 chars (21 with '\0'), string is in code page 437
  61.       ft2play_PauseSong(flag)
  62.       ft2play_PlaySong(*moduleData, length, interpolation, volumeramping, freq)  ; returns 1 = playing or 0 = error
  63.       ft2play_SetAmp(factor)           ; 1..32
  64.       ft2play_SetInterpolation(flag)   ; true/false
  65.       ft2play_SetMasterVol(vol)        ; 0..256
  66.       ft2play_SetVolumeRamping(flag)   ; true/false
  67.       ft2play_TogglePause()
  68.    EndImport
  69. CompilerElse
  70.    ImportC  "playFT2_x86.lib"
  71.       ft2play_Close()                  As "_ft2play_Close"
  72.       ft2play_GetAmp()                 As "_ft2play_GetAmp"
  73.       ft2play_GetMasterVol()           As "_ft2play_GetMasterVol"
  74.       ft2play_GetMixerTicks()          As "_ft2play_GetMixerTicks"
  75.       ft2play_GetSongName()            As "_ft2play_GetSongName"
  76.       ft2play_PauseSong(flag)          As "_ft2play_PauseSong"
  77.       ft2play_PlaySong(*moduleData, length, interpolation, volumeramping, freq)  As "_ft2play_PlaySong"
  78.       ft2play_SetAmp(factor)           As "_ft2play_SetAmp"
  79.       ft2play_SetInterpolation(flag)   As "_ft2play_SetInterpolation"
  80.       ft2play_SetMasterVol(vol)        As "_ft2play_SetMasterVol"
  81.       ft2play_SetVolumeRamping(flag)   As "_ft2play_SetVolumeRamping"
  82.       ft2play_TogglePause()            As "_ft2play_TogglePause"
  83.    EndImport
  84. CompilerEndIf
  85. ;}
  86. ;{ #C2D_MUSIC_PT2 * Thanx to Olav "8bitbubsy" for the opensource PT2PLAY v1.60 * }
  87. ; https://16-bits.org
  88. ; https://pastebin.com/pg95YduC
  89. ; *.MOD
  90. #CIA_TEMPO_MODE      =  0
  91. #VBLANK_TEMPO_MODE   =  1
  92. ;Import  "winmm.lib" :  EndImport
  93. CompilerIf  #PB_Compiler_Processor  =  #PB_Processor_x64
  94.    Import   "playPT2_x64.lib"
  95.       pt2play_Close()
  96.       pt2play_GetMasterVol()  ; 0..256
  97.       pt2play_GetMixerTicks() ; returns the amount of milliseconds of mixed audio (not realtime)
  98.       pt2play_GetSongName()   ; max 20 chars (21 with '\0'), string is in code page 437
  99.       pt2play_PauseSong(flag) ; true/false
  100.       pt2play_PlaySong(*moduleData, length, tempoMode, freq)   ; returns 1 = playing or 0 = error
  101.       pt2play_SetMasterVol(vol)     ; 0..256
  102.       pt2play_SetStereoSep(percent) ; 0..100
  103.       pt2play_TogglePause()
  104.    EndImport
  105. CompilerElse
  106.    ImportC  "playPT2_x86.lib"
  107.       pt2play_Close()               As "_pt2play_Close"
  108.       pt2play_GetMasterVol()        As "_pt2play_GetMasterVol"
  109.       pt2play_GetMixerTicks()       As "_pt2play_GetMixerTicks"
  110.       pt2play_GetSongName()         As "_pt2play_GetSongName"
  111.       pt2play_PauseSong(flag)       As "_pt2play_PauseSong"
  112.       pt2play_PlaySong(*moduleData, length, tempoMode, freq)   As "_pt2play_PlaySong"
  113.       pt2play_SetMasterVol(vol)     As "_pt2play_SetMasterVol"
  114.       pt2play_SetStereoSep(percent) As "_pt2play_SetStereoSep"
  115.       pt2play_TogglePause()         As "_pt2play_TogglePause"
  116.    EndImport
  117. CompilerEndIf
  118. ;}
  119. ;{ #C2D_MUSIC_FC4 * Thanx to Olav "8bitbubsy" for the opensource FC14PLAY v1.29 * }
  120. ; https://16-bits.org
  121. ; https://pastebin.com/VHxZ58UC
  122. ; *.FC;*.FC13;*.FC14;*.FC3;*.FC4;*.FCM;*.SMOD
  123. ;Import  "winmm.lib" :  EndImport
  124. CompilerIf  #PB_Compiler_Processor  =  #PB_Processor_x64
  125.    Import   "playFC4_x64.lib"
  126.       fc14play_Close()
  127.       fc14play_GetMasterVol()
  128.       fc14play_GetMixerTicks()   ; returns the amount of milliseconds of mixed audio (not realtime)
  129.       fc14play_PauseSong(flag)   ; true/false
  130.       fc14play_PlaySong(*moduleData, length, freq) ; returns 1 = playing or 0 = error
  131.       fc14play_SetMasterVol(vol)       ; 0..256
  132.       fc14play_SetStereoSep(percent)   ; 0..100
  133.       fc14play_TogglePause()
  134.    EndImport
  135. CompilerElse
  136.    ImportC  "playFC4_x86.lib"
  137.       fc14play_Close()                 As "_fc14play_Close"
  138.       fc14play_GetMasterVol()          As "_fc14play_GetMasterVol"
  139.       fc14play_GetMixerTicks()         As "_fc14play_GetMixerTicks"
  140.       fc14play_PauseSong(flag)         As "_fc14play_PauseSong"
  141.       fc14play_PlaySong(*moduleData, length, freq) As "_fc14play_PlaySong"
  142.       fc14play_SetMasterVol(vol)       As "_fc14play_SetMasterVol"
  143.       fc14play_SetStereoSep(percent)   As "_fc14play_SetStereoSep"
  144.       fc14play_TogglePause()           As "_fc14play_TogglePause"
  145.    EndImport
  146. CompilerEndIf
  147. ;}
  148. ;{ #C2D_MUSIC_AHX * Thanx to Olav "8bitbubsy" for the opensource AHX1PLAY v0.27 * }
  149. ; https://16-bits.org
  150. ; https://pastebin.com/fqwadbj7
  151. ; *.AHX;*.THX
  152. ;Import  "winmm.lib" :  EndImport
  153. CompilerIf  #PB_Compiler_Processor  =  #PB_Processor_x64
  154.    Import   "playAHX_x64.lib"
  155.       ahx1play_PlaySong(*moduleData, length, subsong, freq) ; returns 1 = playing or 0 = error
  156.       ahx1play_GetSongName()                                ; max 64 chars (65 with '\0'), string is in latin1
  157.       ahx1play_Close()
  158.       ahx1play_PauseSong(flag)         ; true/false
  159.       ahx1play_TogglePause()
  160.       ahx1play_GetMixerTicks()         ; returns the amount of milliseconds of mixed audio (not realtime)
  161.       ahx1play_SetStereoSep(percent)   ; 0..100
  162.    EndImport
  163. CompilerElse
  164.    ImportC  "playAHX_x86.lib"
  165.       ahx1play_PlaySong(*moduleData, length, subsong, freq) As "_ahx1play_PlaySong"
  166.       ahx1play_GetSongName()           As "_ahx1play_GetSongName"
  167.       ahx1play_Close()                 As "_ahx1play_Close"
  168.       ahx1play_PauseSong(flag)         As "_ahx1play_PauseSong"
  169.       ahx1play_TogglePause()           As "_ahx1play_TogglePause"
  170.       ahx1play_GetMixerTicks()         As "_ahx1play_GetMixerTicks"
  171.       ahx1play_SetStereoSep(percent)   As "_ahx1play_SetStereoSep"
  172.    EndImport
  173. CompilerEndIf
  174. ;}
  175. ;{ #C2D_MUSIC_STM * Thanx to Olav "8bitbubsy" for the opensource STMPLAY v0.33 * }
  176. ; https://16-bits.org
  177. ; https://pastebin.com/ifXSCZ71
  178. ; *.STM
  179. ;Import  "winmm.lib" :  EndImport
  180. CompilerIf  #PB_Compiler_Processor  =  #PB_Processor_x64
  181.    Import   "playST2_x64.lib"
  182.       st23play_Close()
  183.       st23play_GetMasterVol()    ; 0..256
  184.       st23play_GetMixerTicks()   ; returns the amount of milliseconds of mixed audio (not realtime)
  185.       st23play_GetSongName()     ; max 20 chars (21 with '\0'), string is in code page 437
  186.       st23play_PauseSong(flag)   ; true/false
  187.       st23play_PlaySong(*moduleData, dataLength, useInterpolationFlag, audioFreq)   ; returns 1 = playing or 0 = error
  188.       st23play_SetInterpolation(flag)  ; true/false
  189.       st23play_SetMasterVol(vol)       ; 0..256
  190.       st23play_TogglePause()
  191.    EndImport
  192. CompilerElse
  193.    ImportC  "playST2_x86.lib"
  194.       st23play_Close()                 As "_st23play_Close"
  195.       st23play_GetMasterVol()          As "_st23play_GetMasterVol"
  196.       st23play_GetMixerTicks()         As "_st23play_GetMixerTicks"
  197.       st23play_GetSongName()           As "_st23play_GetSongName"
  198.       st23play_PauseSong(flag)         As "_st23play_PauseSong"
  199.       st23play_PlaySong(*moduleData, dataLength, useInterpolationFlag, audioFreq)   As "_st23play_PlaySong"
  200.       st23play_SetInterpolation(flag)  As "_st23play_SetInterpolation"
  201.       st23play_SetMasterVol(vol)       As "_st23play_SetMasterVol"
  202.       st23play_TogglePause()           As "_st23play_TogglePause"
  203.    EndImport
  204. CompilerEndIf
  205. ;}
  206. ;{ #C2D_MUSIC_S3M * Thanx to Olav "8bitbubsy" for the opensource ST3PLAY v0.91+ (x86) / v0.99 (x64) * }
  207. ; https://16-bits.org
  208. ; https://pastebin.com/AwRXZAw7
  209. ; *.S3M
  210. #SOUNDCARD_GUS    =  0  ;/* Default */
  211. #SOUNDCARD_SBPRO  =  1
  212. ;Import  "winmm.lib" :  EndImport
  213. CompilerIf  #PB_Compiler_Processor  =  #PB_Processor_x64
  214.    Import   "playST3_x64.lib"
  215.       st3play_Close()
  216.       st3play_GetMasterVol()  ; 0..256
  217.       st3play_GetMixerTicks() ; returns the amount of milliseconds of mixed audio (not realtime)
  218.       st3play_GetSongName()
  219.       st3play_PauseSong(flag) ; true/false
  220.       st3play_PlaySong(*moduleData, length, flag, type, freq)  ; returns 1 = playing or 0 = error
  221.       st3play_SetInterpolation(flag)   ; true/false
  222.       st3play_SetMasterVol(vol)        ; 0..256
  223.       st3play_TogglePause()
  224.    EndImport
  225. CompilerElse
  226.    ImportC  "playST3_x86.lib" ; ST3PLAY v0.91 last working for x86
  227.       st3play_Close()                  As "_st3play_Close"
  228.       st3play_GetMixerTicks()          As "_st3play_GetMixerTicks"
  229.       st3play_GetSongName()            As "_st3play_GetSongName"
  230.       st3play_PauseSong(flag)          As "_st3play_PauseSong"
  231.       st3play_PlaySong(*moduleData, length, flag, type, freq)  As "_st3play_PlaySong"
  232.       st3play_SetInterpolation(flag)   As "_st3play_SetInterpolation"
  233.       st3play_SetMasterVol(vol)        As "_st3play_SetMasterVol"
  234.       st3play_TogglePause()            As "_st3play_TogglePause"
  235.    EndImport
  236. CompilerEndIf
  237. ;}
  238. ;{ #C2D_MUSIC_V1M * Thanx to kb^farbrausch for the static libv2.lib v1.0 / Error * }
  239. ; *.V2M 1.0
  240. CompilerIf  #IsV1M
  241.    ;Import  "winmm.lib"    :  EndImport
  242.    ;Import  "dsound.lib"   :  EndImport
  243.    Import   "libv2_x86.lib"
  244.       ssClose()               As "_ssClose@0"
  245.       ssDoTick()              As "_ssDoTick@0"
  246.       ssFadeOut(milliseconds) As "_ssFadeOut@4"
  247.       ssGetTime()             As "_ssGetTime@0"
  248.       ssInit(*module, *hWnd)  As "_ssInit@8"
  249.       ssPlay()                As "_ssPlay@0"
  250.       ssStop()                As "_ssStop@0"
  251.    EndImport
  252. CompilerEndIf
  253. ;}
  254. ;{ #C2D_MUSIC_V2M * Thanx to kb^farbrausch for the static libv2simple.lib v1.5 * }
  255. ; *.V2M 1.5
  256. CompilerIf  #IsV2M
  257.    Prototype   DSIOCALLBACK(*param, *buf.FLOAT, length.l)
  258.    Prototype   PERCENTCALLBACK(percent.f)
  259.    ;Import  "dsound.lib"   :  EndImport
  260.    Import   "libv2simple_x86.lib"
  261.       V2MClose()                                As "_V2MClose@0"
  262.       V2MGetChannelVU(channel, *left, *right)   As "_V2MGetChannelVU@12"
  263.       V2MGetCurrentTime()                       As "_V2MGetCurrentTime@0"
  264.       V2MGetTotalTime()                         As "_V2MGetTotalTime@0"
  265.       V2MInit(*tune, samplerate, *hWnd)         As "_V2MInit@12"
  266.       V2MIsPlaying()                            As "_V2MIsPlaying@0"
  267.       V2MPlay(start=0)                          As "_V2MPlay@4"
  268.       V2MSaveAsWave(a.s, *b.PERCENTCALLBACK)    As "_V2MSaveAsWave@8"
  269.       V2MSetRepeat(status.b)                    As "_V2MSetRepeat@4"
  270.       V2MSetVUMode(mode)                        As "_V2MSetVUMode@4"
  271.       V2MStop(fade=0)                           As "_V2MStop@4"
  272.       ;initializes DirectSound output.
  273.       ;callback: your render callback function
  274.       ;parm: a pointer that'll be supplied to the function on every call
  275.       ;hWnd: window handle of your application (GetForegroundWindow() works quite well :)
  276.       dsInit(*callback.DSIOCALLBACK, *parm, *hWnd) As "_dsInit@12"
  277.       dsClose()               As "_dsClose@0"      ;shuts down DirectSound output
  278.       dsGetCurSmp()           As "_dsGetCurSmp@0"  ;gets sample-exact and latency compensated current play position
  279.       dsSetVolume(vol.f=1.0)  As "_dsSetVolume@4"  ;sets player volume (Default is 1.0)
  280.       ;forces rendering thread to update. On single-core CPUs it's a good idea to
  281.       ;call this once per frame (improves A/V sync And reduces any stuttering),
  282.       ;with more than one CPU it's pretty much useless.
  283.       dsTick() As "_dsTick@0"
  284.       ;lock And unlock the sound thread's thread sync lock. If you want to modify
  285.       ;any of your sound variables outside the render thread, encapsulate that part
  286.       ;of code in between these two functions.
  287.       dsLock()    As "_dsLock@0"
  288.       dsUnlock()  As "_dsUnlock@0"
  289.    EndImport
  290. CompilerEndIf
  291. ;}
  292. ;{ #C2D_MUSIC_XM2 * Thanx to Quantum for the FastTracker2 uFMOD static lib * }
  293. ; *.XM
  294. CompilerIf  #IsXM2
  295.    #XM_RESOURCE         =  0
  296.    #XM_MEMORY           =  1
  297.    #XM_FILE             =  2
  298.    #XM_NOLOOP           =  8
  299.    #XM_SUSPENDED        =  16
  300.    #uFMOD_MIN_VOL       =  0
  301.    #uFMOD_MAX_VOL       =  25
  302.    #uFMOD_DEFAULT_VOL   =  25
  303.    ;Import  "winmm.lib" :  EndImport
  304.    Import   "ufmod_x86.lib"
  305.       uFMOD_GetRowOrder()                       As "_uFMOD_GetRowOrder@0"  ;Returns the current order in hi-order word and row in low-order word
  306.       uFMOD_GetStats()                          As "_uFMOD_GetStats@0"     ;Returns the L RMS volume in hi-order word and R RMS in low-order word
  307.       uFMOD_GetTime()                           As "_uFMOD_GetTime@0"      ;Returns the time in milliseconds since the song was started
  308.       uFMOD_GetTitle()                          As "_uFMOD_GetTitle@0"     ;Returns the track's title
  309.       uFMOD_Jump2Pattern(pat)                   As "_uFMOD_Jump2Pattern@4" ;Jumps to the specified zero based pattern index
  310.       uFMOD_Pause()                             As "_uFMOD_Pause@0"        ;Pauses the currently playing song, if any
  311.       uFMOD_PlaySong(*lpXM, param=0, fdwSong=0) As "_uFMOD_PlaySong@12"    ;Starts playing an XM song, *lpXM -> 0 = Stopp song
  312.       uFMOD_Resume()                            As "_uFMOD_Resume@0"       ;Resumes the currently paused song, if any
  313.       uFMOD_SetVolume(vol)                      As "_uFMOD_SetVolume@4"    ;Sets global volume: 0 - 25
  314.    EndImport
  315. CompilerEndIf
  316. ;}
  317. ;{ #C2D_MUSIC_SID * Thanx to statmat for the titchysid_extras.lib * }
  318. ; *.SID
  319. CompilerIf  #IsSID
  320.    #SID_RESOURCE     =  0  ;Load SID file from a resource
  321.    #SID_MEMORY       =  1  ;Load SID file from provided memory
  322.    ;Options used in SIDOpen()
  323.    #SID_DEFAULT      =  1  ;Play Default subsong, as found in the PSID header
  324.    #SID_NON_DEFAULT  =  2  ;Play specified subsong
  325.    ;Import  "winmm.lib"    :  EndImport   ; Not really needed!
  326.    ;Import  "masm32_x86.lib"  :  EndImport
  327.    Import   "titchysid_extras_x86.lib"
  328.       SIDOpen(*mem, len, mode, options, subsong)   As "_SIDOpen@20"     ;Returns non-zero on success
  329.       SIDClose()                                   As "_SIDClose@0"     ;Close the SID library
  330.       SIDChangeSong(song)                          As "_SIDChangeSong@4";Change to another sub song in the currently playing SID file
  331.       SIDPause()                                   As "_SIDPause@0"     ;Pause the currently playing SID song
  332.       SIDPlay()                                    As "_SIDPlay@0"      ;Start the SID playback
  333.       SIDResume()                                  As "_SIDResume@0"    ;Resume playing the SID song after a pause
  334.       SIDStop()                                    As "_SIDStop@0"      ;Stop the SID playback
  335.    EndImport
  336. ;  Import   "titchysid_x86.lib"
  337. ;     SIDOpen(*mem, len, mode, options, subsong)   As "_SIDOpen@20"     ;Returns non-zero on success
  338. ;     SIDClose()                                   As "_SIDClose@0"     ;Close the SID library
  339. ;  EndImport
  340. CompilerEndIf
  341. ;}
  342. ;{ #C2D_MUSIC_TPT * Not official TINY PT2PLAY v1.60 * }
  343. CompilerIf  #PB_Compiler_Processor  =  #PB_Processor_x64
  344.    Import   "tinyPT2_x64.lib"
  345.       tinypt2play_Close()  As "pt2play_Close"
  346.       tinypt2play_PlaySong(*moduleData, length) As "pt2play_PlaySong"; returns 1 = playing or 0 = error
  347.    EndImport
  348. CompilerElse
  349.    ImportC  "tinyPT2_x86.lib"
  350.       tinypt2play_Close()  As "_pt2play_Close"
  351.       tinypt2play_PlaySong(*moduleData, length) As "_pt2play_PlaySong"
  352.    EndImport
  353. CompilerEndIf
  354. ;}
  355. ;{ #C2D_MUSIC_TFC * Not official TINY FC14PLAY v1.29 * }
  356.  
  357. ; https://16-bits.org
  358. ; https://pastebin.com/VHxZ58UC
  359.  
  360. ; *.FC;*.FC13;*.FC14;*.FC3;*.FC4;*.FCM;*.SMOD
  361.  
  362. ;Import  "winmm.lib" :  EndImport
  363.  
  364. CompilerIf  #PB_Compiler_Processor  =  #PB_Processor_x64
  365.    Import   "tinyFC4_x64.lib"
  366.       tinyfc14play_Close() As "fc14play_Close"
  367.       tinyfc14play_PlaySong(*moduleData, length)   As "fc14play_PlaySong"  ; returns 1 = playing or 0 = error
  368.    EndImport
  369. CompilerElse
  370.    ImportC  "tinyFC4_x86.lib"
  371.       tinyfc14play_Close() As "_fc14play_Close"
  372.       tinyfc14play_PlaySong(*moduleData, length)   As "_fc14play_PlaySong"
  373.    EndImport
  374. CompilerEndIf
  375. ;}
  376. ;{ #C2D_MUSIC_THX * Not official TINY AHX1PLAY v0.27 * }
  377.  
  378. ; https://16-bits.org
  379. ; https://pastebin.com/fqwadbj7
  380.  
  381. ; *.AHX;*.THX
  382.  
  383. ;Import  "winmm.lib" :  EndImport
  384.  
  385. CompilerIf  #PB_Compiler_Processor  =  #PB_Processor_x64
  386.    Import   "tinyAHX_x64.lib"
  387.       tinyahx1play_PlaySong(*moduleData, length, subsong)   As "ahx1play_PlaySong"  ; returns 1 = playing or 0 = error
  388.       tinyahx1play_Close() As "ahx1play_Close"
  389.    EndImport
  390. CompilerElse
  391.    ImportC  "tinyAHX_x86.lib"
  392.       tinyahx1play_PlaySong(*moduleData, length, subsong)   As "_ahx1play_PlaySong"
  393.       tinyahx1play_Close() As "_ahx1play_Close"
  394.    EndImport
  395. CompilerEndIf
  396.  
  397. ;}
  398. ;{ #C2D_MUSIC_TSR * Thanx to unknown? for the tsidreplay.lib * }
  399. ; *.SID
  400. CompilerIf  #IsTSR
  401.    ImportC  "tsidreplay_x86.lib"
  402.       sid_sound_server_replay_init(*mem, len, subsong)   As "_sid_sound_server_replay_init"
  403.       sid_sound_server_replay_play()                     As "_sid_sound_server_replay_play"
  404.       sid_sound_server_replay_stop()                     As "_sid_sound_server_replay_stop"
  405.    EndImport
  406. CompilerEndIf
  407. ;}
  408. ;{ #C2D_MUSIC_FCP * Thanx to SiRioKD for the tFCLIB.lib (FutureComposer 1.4) * }
  409. ; *.FC;*.FC4;*.FC14
  410. CompilerIf  #IsFCP
  411.    ;Import  "winmm.lib"    :  EndImport   ; Not really needed?
  412.    ;Import  "dsound.lib"   :  EndImport
  413.    Import   "tFCLIB_x86.lib"
  414.       FCp_Open(*hWnd)      As "_FCp_Open@4"
  415.       FCp_InitModule(*Ptr) As "_FCp_InitModule@4"
  416.       FCp_Start()          As "_FCp_Start@0"
  417.       FCp_Close()          As "_FCp_Close@0"
  418.    EndImport
  419. CompilerEndIf
  420. ;}
  421. ;{ #C2D_MUSIC_BAS * Thanx to Ghandi for the ripped bassmod.lib * }
  422. ; *.XM;*.IT;*.S3M;*.MOD;*.MTM;*.UMX
  423. CompilerIf  #IsBAS
  424.    #BASS_OK                 = 0   ; all is OK
  425.    #BASS_ERROR_MEM          = 1   ; memory error
  426.    #BASS_ERROR_FILEOPEN     = 2   ; can't open the file
  427.    #BASS_ERROR_DRIVER       = 3   ; can't find a free/valid driver
  428.    #BASS_ERROR_HANDLE       = 5   ; invalid handle
  429.    #BASS_ERROR_FORMAT       = 6   ; unsupported format
  430.    #BASS_ERROR_POSITION     = 7   ; invalid playback position
  431.    #BASS_ERROR_INIT         = 8   ; BASS_Init has not been successfully called
  432.    #BASS_ERROR_ALREADY      = 14  ; already initialized/loaded
  433.    #BASS_ERROR_ILLTYPE      = 19  ; an illegal type was specified
  434.    #BASS_ERROR_ILLPARAM     = 20  ; an illegal parameter was specified
  435.    #BASS_ERROR_DEVICE       = 23  ; illegal device number
  436.    #BASS_ERROR_NOPLAY       = 24  ; not playing
  437.    #BASS_ERROR_NOMUSIC      = 28  ; no MOD music has been loaded
  438.    #BASS_ERROR_NOSYNC       = 30  ; synchronizers have been disabled
  439.    #BASS_ERROR_NOTAVAIL     = 37  ; requested data is not available
  440.    #BASS_ERROR_DECODE       = 38  ; the channel is a "decoding channel"
  441.    #BASS_ERROR_FILEFORM     = 41  ; unsupported file format
  442.    #BASS_ERROR_UNKNOWN      = -1  ; some other mystery error
  443.  
  444.    ; Device setup flags
  445.    #BASS_DEVICE_8BITS       = 1   ; use 8 bit resolution, else 16 bit
  446.    #BASS_DEVICE_MONO        = 2   ; use mono, else stereo
  447.    #BASS_DEVICE_NOSYNC      = 16  ; disable synchronizers
  448.  
  449.    #BASS_MUSIC_RAMP         =       1  ; normal ramping
  450.    #BASS_MUSIC_RAMPS        =       2  ; sensitive ramping
  451.    #BASS_MUSIC_LOOP         =       4  ; loop music
  452.    #BASS_MUSIC_FT2MOD       =      16  ; play .MOD as FastTracker 2 does
  453.    #BASS_MUSIC_PT1MOD       =      32  ; play .MOD as ProTracker 1 does
  454.    #BASS_MUSIC_POSRESET     =     256  ; stop all notes when moving position
  455.    #BASS_MUSIC_SURROUND     =     512  ; surround sound
  456.    #BASS_MUSIC_SURROUND2    =    1024  ; surround sound (mode 2)
  457.    #BASS_MUSIC_STOPBACK     =    2048  ; stop the music on a backwards jump effect
  458.    #BASS_MUSIC_CALCLEN      =    8192  ; calculate playback length
  459.    #BASS_MUSIC_NONINTER     =   16384  ; non-interpolated mixing
  460.    #BASS_MUSIC_NOSAMPLE     = $400000  ; don't load the samples
  461.  
  462.    #BASS_UNICODE            = $80000000
  463.  
  464.    #BASS_SYNC_MUSICPOS      = 0
  465.    #BASS_SYNC_POS           = 0
  466.    #BASS_SYNC_MUSICINST     = 1
  467.    #BASS_SYNC_END           = 2
  468.    #BASS_SYNC_MUSICFX       = 3
  469.    #BASS_SYNC_ONETIME       = $80000000   ; FLAG: sync only once, else continuously
  470.  
  471.    ; BASSMOD_ChannelIsActive return values
  472.    #BASS_ACTIVE_STOPPED     = 0
  473.    #BASS_ACTIVE_PLAYING     = 1
  474.    #BASS_ACTIVE_PAUSED      = 3
  475.  
  476.    ;Import  "winmm.lib"    :  EndImport
  477.    Import   "bassmod_x86.lib"
  478.       BASSMOD_DllMain(*hInstance, fdwReason, lpvReserved)
  479.       BASSMOD_Free()
  480.       BASSMOD_GetVolume()
  481.       BASSMOD_Init(device=-1, freq=44100, flags=0)
  482.       BASSMOD_MusicFree()
  483.       BASSMOD_MusicGetLength(playlen)
  484.       BASSMOD_MusicGetName()
  485.       BASSMOD_MusicLoad(mem, *file, offset=#Null, length=#Null, flags=#BASS_MUSIC_LOOP|#BASS_MUSIC_POSRESET|#BASS_MUSIC_NONINTER|#BASS_MUSIC_CALCLEN) ;mem=#true -> Load from *memory
  486.       BASSMOD_MusicPause()
  487.       BASSMOD_MusicPlay()
  488.       BASSMOD_MusicSetPosition(pos) ; $FFFF0000 | Seconds (max. $0000FFFF)
  489.       BASSMOD_MusicSetVolume(chanins, volume)
  490.       BASSMOD_MusicStop()
  491.       BASSMOD_SetVolume(volume)
  492.    EndImport
  493. CompilerEndIf
  494. ;}
  495. ;{ #C2D_MUSIC_S68 * Thanx to benjihan for the MC68000 Amiga/Atari SC68 libsc68replay.lib * }
  496. ; http://sc68.atari.org/index.html
  497. ; *.SC68
  498. CompilerIf  #IsS68
  499.    #SC68Replay_MEMORY   =  0
  500.    #SC68Replay_FILE     =  1
  501.    ;Import  "winmm.lib" :  EndImport
  502.    ImportC  "libsc68replay_x86.lib"
  503.       sc68replay_Init(*Ptr, Size, Mode)   As "_sc68replay_Init"
  504.       sc68replay_Play()                   As "_sc68replay_Play"
  505.       sc68replay_Stop()                   As "_sc68replay_Stop"
  506.    EndImport
  507. CompilerEndIf
  508. ;}
  509. ;{ #C2D_MUSIC_BMF * Thanx to BeRo^farbraush for the BR404 Software Synthesizer libbr404.lib * }
  510. ; *.BRO
  511. CompilerIf  #IsBMF
  512.    Import   "libbr404_x86.lib"
  513.       SynthCreate(SampleRate, BufferSize, ThreadPlay, SoundOutput)   As "_SynthCreate@16" ; = int Track
  514.       SynthReadBMFSampleRate(*Ptr, Size)                             As "_SynthReadBMFSampleRate@8"
  515.       SynthReadBMF(Track, *Ptr, Size)                                As "_SynthReadBMF@12"
  516.       SynthPlay(Track)                                               As "_SynthPlay@4"
  517.       SynthSetLooping(Track, Looping)                                As "_SynthSetLooping@8"
  518.       SynthEnter(Track)                                              As "_SynthEnter@4"
  519.       SynthStop(Track)                                               As "_SynthStop@4"
  520.       SynthLeave(Track)                                              As "_SynthLeave@4"
  521.       SynthDestroy(Track)                                            As "_SynthDestroy@4"
  522.    EndImport
  523. CompilerEndIf
  524. ;}
  525. ;{ #C2D_MUSIC_MED * MEDPDLL static lib ripped by Peace^TST * }
  526. ; *.MED;*.MMD0;*.MMD1;*.MMD2;*.MMD3 (PP20)
  527. ;Import  "winmm.lib" :  EndImport
  528. ;Import  "dsound.lib":  EndImport
  529. CompilerIf  #IsMED
  530.    Import   "medpdll_x86.lib"
  531.       MEDPDLL_DllMain(*hinstDLL, fdwReason, lpvReserved) As "_MEDPDLL_DllMain@12"
  532.       MEDP_Initialize(*instance, *mainwindow)            As "__MEDP_Initialize@8"
  533.       MEDP_ChangeOption(option, newvalue)                As "__MEDP_ChangeOption@8"
  534.       MEDP_Load(*filename)                               As "__MEDP_Load@4"
  535.       MEDP_IsLoaded()                                    As "__MEDP_IsLoaded@0"
  536.       MEDP_Play()                                        As "__MEDP_Play@0"
  537.       MEDP_Stop()                                        As "__MEDP_Stop@0"
  538.       MEDP_Unload()                                      As "__MEDP_Unload@0"
  539.       MEDP_ModuleLength()                                As "__MEDP_ModuleLength@0"
  540.       MEDP_ModuleTime()                                  As "__MEDP_ModuleTime@0"
  541.       MEDP_PlayPosition()                                As "__MEDP_PlayPosition@0"
  542.       MEDP_SetPlayPosition(pos)                          As "__MEDP_SetPlayPosition@4"
  543.       MEDP_IsPlaying()                                   As "__MEDP_IsPlaying@0"
  544.       MEDP_ModuleName(*buffer, max)                      As "__MEDP_ModuleName@8"
  545.       MEDP_Release()                                     As "__MEDP_Release@0"
  546.    EndImport
  547. CompilerEndIf
  548. ;}
  549. ;{ #C2D_MUSIC_YMP * YmPluginDLL static lib ripped by Peace^TST * }
  550. ; *.YM
  551. CompilerIf  #IsYMP
  552.    Structure RS_ymMusicInfo_t
  553.       *pSongName
  554.       *pSongAuthor
  555.       *pSongComment
  556.       *pSongType
  557.       *pSongPlayer
  558.       musicTimeInSec.l
  559.       musicTimeInMs.l
  560.    EndStructure
  561.    ;Import  "winmm.lib" :  EndImport
  562.    Import   "YmPlugin_x86.lib"
  563.       YMPLUGIN_DllMain(*hinstDLL, fdwReason, lpvReserved)   As "_YMPLUGIN_DllMain@12"
  564.       YM_Close()                    As "__YM_Close@0"
  565.       YM_FFT()                      As "__YM_FFT@0"
  566.       YM_Get_Info(struct)           As "__YM_Get_Info@4"    ; RS_ymMusicInfo_t
  567.       YM_Init()                     As "__YM_Init@0"
  568.       YM_Open(*file, *memory, size) As "__YM_Open@12"       ; file (size=0) or memory (size <>0)
  569.       YM_Pause()                    As "__YM_Pause@0"
  570.       YM_Play()                     As "__YM_Play@0"
  571.       YM_Seek(seconds)              As "__YM_Seek@4"
  572.       YM_SetVolume(vol)             As "__YM_SetVolume@4"   ; 0..255
  573.       YM_Stop()                     As "__YM_Stop@0"
  574.    EndImport
  575. CompilerEndIf
  576. ;}
  577.  
  578. ;#C2D_MUSIC_WAV ; *.WAV
  579. ;#C2D_MUSIC_API ; *.WAV
  580. ;#C2D_MUSIC_OGG ; *.OGG
  581. ;#C2D_MUSIC_FLA ; *.FLAC
  582. ;#C2D_MUSIC_MCI ; *.MID;*.MP3;*.OGG;*.WMA...
  583.  
  584. ;}
  585. ;************************
  586.  
  587. Procedure   StrSize(Value.q, Flags=1)
  588.  
  589.    Protected   nSize.d
  590.  
  591.    Static   t$ ; return param MUST! global or static in dll
  592.  
  593.    If       Value >= 1099511627776
  594.       nSize =  Value /  1099511627776  :  t$ =  "TB"  ;Pow(1024,4)
  595.    ElseIf   Value >= 1073741824
  596.       nSize =  Value /  1073741824     :  t$ =  "GB"  ;Pow(1024,3)
  597.    ElseIf   Value >= 1048576
  598.       nSize =  Value /  1048576        :  t$ =  "MB"  ;Pow(1024,2)
  599.    ElseIf   Value >= 1024
  600.       nSize =  Value /  1024           :  t$ =  "KB"
  601.    Else  ; also negative size / no NbDecimals
  602.       t$ =  FormatNumber(Value, 0) + " Bytes"
  603.       ProcedureReturn   @t$
  604.    EndIf
  605.  
  606.    t$ =  FormatNumber(nSize, 2) + " " + t$
  607.  
  608.    If Flags
  609.       t$ +  " ("  +  FormatNumber(Value, 0)  +  " Bytes)"
  610.    EndIf
  611.  
  612.    ProcedureReturn   @t$
  613.  
  614.    ; *** Not working in PB x86 ***
  615.    ;  Static   *Memory
  616.    ;  If *Memory  =  #Null :  *Memory  =  AllocateMemory(128)  :  EndIf
  617.    ;  StrFormatByteSize_(Value, *Memory, 128)
  618.    ;  ProcedureReturn   PeekS(*Memory)
  619.  
  620. EndProcedure
  621. Procedure   StrAsc(*Memory)
  622.  
  623.    ; correct ascii or unicode strings
  624.  
  625.    Static   *Buffer
  626.  
  627.    If *Buffer
  628.       FreeMemory(*Buffer)
  629.       *Buffer  =  #Null
  630.    EndIf
  631.  
  632.    If *Memory
  633.       If RS_SCAL\StrFormat =  #PB_Ascii
  634.          ProcedureReturn   *Memory
  635.       Else
  636.          *Buffer  =  Ascii(PeekS(*Memory, -1, RS_SCAL\StrFormat))
  637.       EndIf
  638.    EndIf
  639.  
  640.    ProcedureReturn   *Buffer
  641.  
  642. EndProcedure
  643. Procedure$  StrTime(Time)
  644.  
  645.    ; Milliseconds to String: HH:MM:SS,TTT
  646.    ; Flags <> 0 => show rest ms
  647.  
  648.    Static   t$
  649.  
  650.    t$ =  RSet(StrU(Time  / 3600000),      2, "0")  +  ":"   +  ; HH:
  651.          RSet(StrU((Time / 60000) % 60),  2, "0")  +  ":"   +  ; MM:
  652.          RSet(StrU((Time / 1000)  % 60),  2, "0")              ; SS
  653.  
  654.    t$ +  ","   +  LSet(StrU(Time % 1000), 3, "0")  ; ,TTT
  655.  
  656.    ProcedureReturn   t$
  657.  
  658. ;  Protected   t$=Space(64)
  659. ;  StrFromTimeInterval_(@t$, 64, Time, 1000)
  660. ;  ProcedureReturn   t$
  661.  
  662. EndProcedure
  663.  
  664. ;*******************************
  665. ;- *** NetWork ? ***************
  666. CompilerIf  Defined(HTTP_QUERY_CONTENT_LENGTH,     #PB_Constant)  =  0
  667.    #HTTP_QUERY_CONTENT_LENGTH    =  $5
  668. CompilerEndIf
  669. CompilerIf  Defined(INTERNET_FLAG_RELOAD,          #PB_Constant)  =  0
  670.    #INTERNET_FLAG_RELOAD         =  $80000000
  671. CompilerEndIf
  672. CompilerIf  Defined(INTERNET_FLAG_NO_CACHE_WRITE,  #PB_Constant)  =  0
  673.    #INTERNET_FLAG_NO_CACHE_WRITE =  $4000000
  674. CompilerEndIf
  675.  
  676. Structure   RS_NetWork
  677.    *CallBack   ; @Procedure(Param)
  678.    *hInternet  ; iNetConnection
  679.    *hURL       ; iNetURL
  680.    BytesRead.i ; Buffered bytes
  681.    BytesSkip.i ; Skip bytes of "header"!
  682.    Length.i    ; Bytesize of url
  683. EndStructure
  684. Global   RS_NetWork.RS_NetWork
  685.  
  686. Procedure   NetWorkCallBack(*CallBack=0)
  687.    ; *CallBack = @Procedure(Param)
  688.    RS_NetWork\CallBack  =  *CallBack
  689. EndProcedure
  690. Procedure   NetWorkFree()     ; private
  691.  
  692.    With  RS_NetWork
  693.  
  694.       If \hInternet
  695.          InternetCloseHandle_(\hInternet)
  696.       EndIf
  697.  
  698.       ClearStructure(@RS_NetWork, RS_NetWork)
  699.  
  700.    EndWith
  701.  
  702. EndProcedure
  703. Procedure$  NetWorkUrl(Url$)  ; private
  704.  
  705.    ; Encode unsave characters (canonicalize)
  706.    ; https://www.ietf.org/rfc/rfc1738.txt
  707.  
  708.    Protected   *Memory.Character=@Url$, i
  709.  
  710.    Static   t$
  711.  
  712.    t$ =  #Null$
  713.  
  714.    While *Memory\c
  715.       Select   *Memory\c
  716.          Case  ',',' ','!','"','#','$','&','+',';','<','=','>','@','[','\',']','^','_','`','{','|','}','~',$27 ; not '-','%'
  717.            t$ +  "%"   +  Hex(*Memory\c)
  718.         Default
  719.            If *Memory\c   <> '\'   ; no "\/"
  720.               t$ +  Chr(*Memory\c)
  721.            EndIf
  722.      EndSelect
  723.      *Memory  +  SizeOf(Character)
  724.   Wend
  725.  
  726.   ; Canonicalize filename - else error when char + %
  727.   If StrStrI_(@t$, @"%")
  728.      For   i  =  $20   To $FF
  729.         Select   i
  730.            Case  $20 To $2F, $40 To $FF  ; no numbers
  731.               t$ =  ReplaceString(t$, "%" + Chr(i), "%25" + Chr(i), #PB_String_CaseSensitive)
  732.         EndSelect
  733.      Next
  734.   EndIf
  735.  
  736.   ProcedureReturn   t$
  737.  
  738. EndProcedure
  739. Procedure   NetWorkBytes(Length=4096)
  740.   ; Length (BytesToRead) = Number of bytes preloaded from Url$
  741.   If Length   >  #Null
  742.      RS_NetWork\BytesRead =  Length
  743.   EndIf
  744. EndProcedure
  745. Procedure   NetWorkInit(Url$) ; private
  746.  
  747.   ; Return:  Filesize(Url$) or #NULL -> Error
  748.  
  749.   If StrStrI_(@Url$, @"://") =  #Null :  ProcedureReturn   #Null :  EndIf
  750.  
  751.   Protected   *Memory, Length
  752.  
  753.   With  RS_NetWork
  754.  
  755.      NetWorkCallBack(RS_SCAL\CallBack)   ; always set callback!
  756.  
  757.      If \hInternet  <= #Null
  758.         \hInternet  =  InternetOpen_(@"SCAL/1.0", #INTERNET_OPEN_TYPE_PRECONFIG, 0, 0, 0)
  759.      EndIf
  760.  
  761.      \Length  =  #Null
  762.  
  763.      If \hInternet
  764.  
  765.         If \BytesRead  <= #Null
  766.            NetWorkBytes()
  767.         EndIf
  768.  
  769.         ; Encode unsave URL-Characters (canonicalize)
  770.         Url$     =  NetWorkUrl(Url$)
  771.         Length   =  1024  +  Len(Url$)   +  \BytesSkip  ; + space for query content
  772.         *Memory  =  AllocateMemory(Length * SizeOf(Character))
  773.         PokeS(*Memory, Url$)
  774.  
  775.         \hURL =  InternetOpenUrl_(\hInternet, *Memory, 0, 0, #INTERNET_FLAG_RELOAD|#INTERNET_FLAG_NO_CACHE_WRITE|#INTERNET_FLAG_NO_COOKIES, 0)
  776.  
  777.         If \hURL
  778.            If HttpQueryInfo_(\hURL, #HTTP_QUERY_CONTENT_LENGTH, *Memory, @Length, 0)
  779.               \Length  =  StrToInt_(*Memory)
  780.               If GetLastError_()   Or \Length  <= 0  ; Error?
  781.                  \Length  =  #Null
  782.               ElseIf   \BytesSkip  ; <- skip pseudoheader for deceive hoster?
  783.                  InternetReadFile_(\hURL, *Memory, \BytesSkip, @Length)
  784.                  \Length  -  Length
  785.               EndIf
  786.            EndIf
  787.         EndIf
  788.  
  789.         FreeMemory(*Memory)
  790.  
  791.      EndIf
  792.  
  793.      RS_SCAL\NetLength =  \Length  ; global length for SCAL_Struct()
  794.  
  795.      ProcedureReturn   \Length
  796.  
  797.   EndWith
  798.  
  799. EndProcedure
  800. Procedure   NetWorkLoad(Url$)
  801.  
  802.   ; Download Netfile to *Memory
  803.  
  804.   ; Return: Ptr to *Memory
  805.  
  806.   Protected   *Buffer, Length
  807.   Static   *Memory
  808.  
  809.   *Memory  =  #Null
  810.  
  811.   If NetWorkInit(Url$)
  812.  
  813.      With  RS_NetWork
  814.  
  815.         If \Length  >  #Null
  816.  
  817.            *Memory  =  AllocateMemory(\Length)
  818.            *Buffer  =  *Memory
  819.  
  820.            While InternetReadFile_(\hURL, *Buffer, \BytesRead, @Length)
  821.  
  822.               *Buffer  +  Length
  823.  
  824.               ;// If   *CallBack   And   CallFunctionFast(*CallBack, Percent)   :  Break :  EndIf
  825.               If \CallBack
  826.                  If CallFunctionFast(\CallBack, (100.0 / \Length) * (*Buffer - *Memory)) ; Abort?
  827.                     FreeMemory(*Memory)
  828.                     *Memory  =  #Null
  829.                     Break
  830.                  EndIf
  831.               Else
  832.                  Delay(1)
  833.               EndIf
  834.  
  835.               If (Length  <= #Null)   Or (*Buffer >= *Memory  +  \Length)
  836.                  Break
  837.               EndIf
  838.  
  839.            Wend
  840.  
  841.         EndIf
  842.  
  843.         InternetCloseHandle_(\hURL)
  844.  
  845.      EndWith
  846.  
  847.   EndIf
  848.  
  849.   If RS_NetWork\CallBack
  850.      CallFunctionFast(RS_NetWork\CallBack, 100)
  851.   EndIf
  852.  
  853.   ProcedureReturn   *Memory
  854.  
  855. EndProcedure
  856. Procedure   NetWorkSize(Url$)
  857.  
  858.   ; = size of url$
  859.  
  860.   If NetWorkInit(Url$)
  861.      InternetCloseHandle_(RS_NetWork\hURL)
  862.      ProcedureReturn   RS_NetWork\Length
  863.   EndIf
  864.  
  865. EndProcedure
  866. Procedure   NetWorkSkip(Length=0)
  867.   ; Length (skip bytes) of decive header chars
  868.   If Length   >= #Null
  869.      RS_NetWork\BytesSkip =  Length
  870.   EndIf
  871. EndProcedure
  872. Procedure   NetWorkDownload(Url$, File$)
  873.  
  874.   ; Return: Size of saved file, Error = #NULL
  875.  
  876.   If NetWorkInit(Url$) =  #Null :  ProcedureReturn   #Null :  EndIf
  877.  
  878.   Protected   *Memory, Length, hF
  879.   Protected   nSizeLoad, IsAbort
  880.  
  881.   Static   nSizeSave
  882.  
  883.   nSizeSave   =  #Null
  884.  
  885.   With  RS_NetWork
  886.  
  887.      If \Length  >  #Null
  888.  
  889.         *Memory  =  AllocateMemory(\BytesRead)
  890.  
  891.         hF =  CreateFile(#PB_Any, File$)
  892.  
  893.         If hF
  894.  
  895.            While InternetReadFile_(\hURL, *Memory, \BytesRead, @nSizeLoad)
  896.  
  897.               Length      =  WriteData(hF, *Memory, nSizeLoad)
  898.               nSizeSave   +  Length
  899.  
  900.               ;// If   *CallBack   And   CallFunctionFast(*CallBack, Percent)   :  Break :  EndIf
  901.               If \CallBack
  902.                  If CallFunctionFast(\CallBack, (100.0 / \Length) * nSizeSave)  ; %Percent (Abort?)
  903.                     IsAbort  =  #True
  904.                     Break
  905.                  EndIf
  906.               Else
  907.                  Delay(1)
  908.               EndIf
  909.  
  910.               If nSizeSave   >= \Length  Or Length   <  nSizeLoad   ; Length -> WriteError?
  911.                  Break
  912.               EndIf
  913.  
  914.            Wend
  915.  
  916.            FlushFileBuffers(hF)
  917.            CloseFile(hF)
  918.  
  919.         EndIf
  920.  
  921.         FreeMemory(*Memory)
  922.  
  923.      EndIf
  924.  
  925.      InternetCloseHandle_(\hURL)
  926.  
  927.   EndWith
  928.  
  929.   If IsAbort  ; aborted?
  930.      nSizeSave   =  #Null
  931.      DeleteFile_(@File$)
  932.   EndIf
  933.  
  934.   If RS_NetWork\CallBack
  935.      CallFunctionFast(RS_NetWork\CallBack, 100)
  936.   EndIf
  937.  
  938.   ProcedureReturn   nSizeSave
  939.  
  940. EndProcedure
  941. ;*******************************
  942.  
  943. Declare  SCAL_IsFormat(Mode, *Memory.Long, Length)
  944. Declare  SCAL_SetVolume(Percent)
  945.  
  946. Procedure   scal_Init()
  947.  
  948.   Static   IsInit
  949.  
  950.   If IsInit   :  ProcedureReturn   :  EndIf
  951.  
  952.   IsInit   =  1
  953.  
  954.   InitSound()
  955.  
  956.   CompilerIf  #IsMOV
  957.      InitMovie()
  958.   CompilerEndIf
  959.  
  960. EndProcedure
  961. Procedure   scal_Temp(Name$)
  962.  
  963.   ; Creates %TEMP%\Name$
  964.  
  965.   Protected   t$, Path$, i
  966.   Static   IsError
  967.  
  968.   If RS_SCAL\Temp$  :  ProcedureReturn   #True :  EndIf
  969.  
  970.   Path$    =  GetTemporaryDirectory()
  971.   IsError  =  #Null
  972.  
  973.   Repeat
  974.  
  975.      i  +  1
  976.  
  977.      t$ =  Trim(StringField(Name$, i, #PS$))
  978.  
  979.      If Len(t$)
  980.  
  981.         Path$ +  t$ +  #PS$
  982.  
  983.         If FileSize(Path$)   =  -1
  984.            If CreateDirectory(Path$)  =  #Null
  985.               IsError  =  1  :  Break ; ERROR - Can't create directory
  986.            EndIf
  987.         EndIf
  988.  
  989.      EndIf
  990.  
  991.   Until Len(t$)  =  0
  992.  
  993.   If IsError
  994.      RS_SCAL\Temp$  =  GetTemporaryDirectory()
  995.   Else
  996.      RS_SCAL\Temp$  =  Path$
  997.   EndIf
  998.  
  999.   IsError  !  1
  1000.  
  1001.   ProcedureReturn   IsError  ; true if ok
  1002.  
  1003. EndProcedure
  1004. Procedure   scal_Size(File$)
  1005.  
  1006.   Static   Length
  1007.  
  1008.   If StrStrI_(@File$, @"://")   ; Netfile?
  1009.      Length   =  NetWorkSize(File$)
  1010.      If Length   <  #Null :  Length   =  #Null :  EndIf
  1011.      ProcedureReturn   Length
  1012.   EndIf
  1013.  
  1014.   Length   =  FileSize(File$)
  1015.  
  1016.   If Length   <  #Null :  Length   =  #Null :  EndIf
  1017.  
  1018.   ProcedureReturn   Length
  1019.  
  1020. EndProcedure
  1021. Procedure$  scal_Case(a$, b$)
  1022.  
  1023.   ; canonicalize a$ like b$
  1024.  
  1025.   ; some server allows real upper/lower chars only.
  1026.   ; so we have to adapt the upper/lower chars!
  1027.  
  1028.   ; use it align char-cases of "MDAT.?" / "SMPL.?" files
  1029.  
  1030.   Protected   *a.Character   =  @a$
  1031.   Protected   *b.Character   =  @b$
  1032.  
  1033.   While *a\c  And   *b\c
  1034.      If *b\c  &  %0100000
  1035.         *a\c  |  %0100000
  1036.      Else
  1037.         *a\c  &  %1011111
  1038.      EndIf
  1039.      *a +  SizeOf(Character)
  1040.      *b +  SizeOf(Character)
  1041.   Wend
  1042.  
  1043.   ProcedureReturn   a$
  1044.  
  1045. EndProcedure
  1046. Procedure   scal_Copy(File$, Save$)
  1047.  
  1048.   ; Return:   #True = OK, #False = Error
  1049.  
  1050.   Static   IsError
  1051.  
  1052.   If StrStrI_(@File$, @"://")   ; Netfile?
  1053.      IsError  =  NetWorkDownload(File$, Save$)
  1054.      ProcedureReturn   IsError
  1055.   EndIf
  1056.  
  1057.   IsError  =  CopyFile_(@File$, @Save$, #False)
  1058.  
  1059.   ProcedureReturn   IsError
  1060.  
  1061. EndProcedure
  1062. Procedure   scal_Sufx(*Memory, Flags)
  1063.  
  1064.   ; Checks filename first for "*.mod" & second for "mod.*"
  1065.  
  1066.   ; Do NOT check with GetExtensionPart()
  1067.   ; Extension doesn't accept spaces, that's why we must use the stringfield-trick!
  1068.  
  1069.   ; Return:   ptr to semi-quoted extension ";MOD;" etc.
  1070.  
  1071.    Static   t$
  1072.  
  1073.    Protected   File$ =  GetFilePart(PeekS(*Memory, -1, RS_SCAL\StrFormat))
  1074.  
  1075.    If Flags ; MOD.* (like MDAT.*)
  1076.       t$ =  StringField(File$, 1, ".")
  1077.    Else     ; *.MOD (default)
  1078.       t$ =  Trim(PeekS(PathFindExtension_(@File$), -1), ".")   ;StringField(File$, CountString(File$, ".") + 1, ".")
  1079.    EndIf
  1080.  
  1081.    If Len(t$)  =  #Null Or Len(t$)  >  16 Or StrStrI_(@t$, @" ")  ; spaces in extension are NOT allowed!
  1082.       ProcedureReturn   #Null
  1083.    EndIf
  1084.  
  1085.    CharUpper_(@t$)
  1086.  
  1087.    t$ =  ";"   +  t$ +  ";"
  1088.  
  1089.    ProcedureReturn   @t$
  1090.  
  1091. EndProcedure
  1092. Procedure   scal_Down(URL$)
  1093.  
  1094.    ;- Download file + sfx-libs to temporary path
  1095.    ; Return:   <> 0 = OK
  1096.  
  1097.    Protected   File$, t$, i
  1098.  
  1099.    If StrStrI_(@URL$, @"://") =  #Null :  ProcedureReturn   #Null :  EndIf
  1100.  
  1101.    scal_Temp(#SCAL_TempPath$)
  1102.  
  1103.    File$ =  GetFilePart(URL$)
  1104.    For   i  =  $20   To $FF
  1105.       If StrStrI_(@File$, @"%")  =  #Null :  Break :  EndIf
  1106.       File$ =  ReplaceString(File$, "%" + Hex(i), Chr(i), #PB_String_NoCase)
  1107.    Next
  1108.    File$ =  RS_SCAL\Temp$  +  File$
  1109.  
  1110.    RS_SCAL\File$  =  File$
  1111.  
  1112.    ; *** Already downloaded?
  1113.    If scal_Size(URL$)   =  scal_Size(File$)
  1114.       ProcedureReturn   #True
  1115.    EndIf
  1116.  
  1117.    ; *** Download file to #SCAL_TempPath$
  1118.    If scal_Copy(URL$, File$)  =  0
  1119.       ProcedureReturn   #Null
  1120.    EndIf
  1121.  
  1122.    ; =======================================================
  1123.    ;{ *** Check for needed sfx-lib files on server (x86) ***
  1124.    CompilerIf  #IsAMP
  1125.    If StrStrI_(@File$, @"MDAT.")
  1126.  
  1127.       ; MDAT.* =  Amiga TFMX?          -  Needs the SMPL.* sfx-file! Download always with adapted chars
  1128.  
  1129.       t$ =  GetFilePart(URL$, #PB_FileSystem_NoExtension)
  1130.       t$ =  scal_Case("SMPL", t$)   ; adapt upper / lower chars
  1131.  
  1132.       PokeS(StrStrI_(@URL$, @"MDAT."), t$, -1, #PB_String_NoZero)
  1133.       PokeS(StrStrI_(@File$,@"MDAT."), t$, -1, #PB_String_NoZero)
  1134.       scal_Copy(URL$, File$)
  1135.  
  1136.    ElseIf   StrStrI_(PathFindExtension_(@File$), @".TFX")
  1137.  
  1138.       ; *.TFX  =  Amiga TFMX Clone?    -  Needs the *.SAM sfx-file!  Download always with adapted chars
  1139.  
  1140.       t$ =  GetExtensionPart(URL$)
  1141.       t$ =  "."   +  scal_Case("SAM", t$)
  1142.  
  1143.       PathRenameExtension_(@URL$,   @t$)
  1144.       PathRenameExtension_(@File$,  @t$)
  1145.       scal_Copy(URL$, File$)
  1146.  
  1147.    ElseIf   StrStrI_(PathFindExtension_(@File$), @".KDM")
  1148.  
  1149.       ; *.KDM  =  Ken's Digital Music? -  Needs the waves.kwv sfx-file!
  1150.  
  1151.       URL$  =  GetPathPart(URL$) +  "waves.kwv"
  1152.       File$ =  RS_SCAL\Temp$     +  "waves.kwv"
  1153.       If scal_Size(URL$)   <> scal_Size(File$)
  1154.          scal_Copy(URL$, File$)
  1155.       EndIf
  1156.  
  1157.    ElseIf   StrStrI_(@File$, @".MINI2SF")    Or ; =   Nintendo DS Sound?      -  Needs a tagged *.lib sfx-file
  1158.             StrStrI_(@File$, @".MINIDSF")    Or ; =   Dreamcast Sound?        -  Needs a tagged *.lib sfx-file
  1159.             StrStrI_(@File$, @".MINIGSF")    Or ; =   Gameboy Sound?          -  Needs a tagged *.lib sfx-file
  1160.             StrStrI_(@File$, @".MINIPSF")    Or ; =   Playstation Sound?      -  Needs almost a couple of tagged *.lib sfx-files
  1161.             StrStrI_(@File$, @".PSF")        Or ; =   Playstation Sound?      -  Courious yes/no tagged *.lib sfx-files
  1162.             StrStrI_(@File$, @".MINIPSF2")   Or ; =   Playstation2 Sound?     -  Needs a tagged *.lib sfx-file
  1163.             StrStrI_(@File$, @".MINIQSF")    Or ; =   Capcom Q-Sound?         -  Needs a tagged *.lib sfx-file
  1164.             StrStrI_(@File$, @".MINISNSF")   Or ; =   Super Nintendo Sound?   -  Needs a tagged *.lib sfx-file
  1165.             StrStrI_(@File$, @".MINISSF")    Or ; =   Saturn Sound?           -  Needs almost a couple of tagged *.lib sfx-files
  1166.             StrStrI_(@File$, @".SSF")        Or ; =   Saturn Sound?           -  Courious yes/no tagged *.lib sfx-files
  1167.             StrStrI_(@File$, @".MINIUSF")       ; =   Ultra64 Sound?          -  Needs a tagged *.lib sfx-file
  1168.  
  1169.       ; *** Hardcoded [TAG] check for all needed *.lib sfx-files ***
  1170.       ; (too bad, unfortunately there are occasionally incorrect named *.lib's on modland server)
  1171.       If ReadFile(0, File$)
  1172.          While Eof(0)   =  0
  1173.             t$ =  ReadString(0, #PB_Ascii)
  1174.             If StrStrI_(@t$, @"_lib")  And   StrStrI_(@t$, @"=")                 ; [Tag] & _lib=, _lib1=, _lib2=..
  1175.                t$ =  PeekS(CharLower_(StrStrI_(@t$, @"=") + SizeOf(Character)))  ; LCase(StringField(t$, 2, "="))
  1176.                If scal_Size(GetPathPart(URL$) + t$)   <> scal_Size(RS_SCAL\Temp$ + t$) ; Bad solution, but works for now
  1177.                   scal_Copy(GetPathPart(URL$) + t$, RS_SCAL\Temp$ + t$)
  1178.                EndIf
  1179.             EndIf
  1180.          Wend
  1181.          CloseFile(0)
  1182.       EndIf
  1183.  
  1184.    EndIf
  1185.    CompilerEndIf  ;}
  1186.    ; =======================================================
  1187.  
  1188.    ProcedureReturn   #True
  1189.  
  1190. EndProcedure
  1191.  
  1192. CompilerIf  #IsAMP   ; C:\Users\Public\Documents\AmpMaster\
  1193. PrototypeC  pAmp_Close()
  1194. PrototypeC  pAmp_CountAmpFormatsAll()
  1195. PrototypeC  pAmp_CountAmpPlayersAll()
  1196. PrototypeC  pAmp_CountSubSongs(*File.p-Ascii)
  1197. PrototypeC  pAmp_Free()
  1198. PrototypeC  pAmp_GetAmpFormatsStrAll()
  1199. PrototypeC  pAmp_GetAmpInDllsStrAll(*File.p-Ascii)
  1200. PrototypeC  pAmp_GetAmpInDllStr(*File.p-Ascii)
  1201. PrototypeC  pAmp_GetAmpInFormatStr(*InLib.p-Ascii)
  1202. PrototypeC  pAmp_GetError()
  1203. PrototypeC  pAmp_GetErrorStr(Error.i)
  1204. PrototypeC  pAmp_GetFileInfo(*File.p-Ascii, *Title, *Length)
  1205. PrototypeC  pAmp_GetInFlags(*InLib.p-Ascii)
  1206. PrototypeC  pAmp_GetInFormatStr()
  1207. PrototypeC  pAmp_GetInInfoStr()
  1208. PrototypeC  pAmp_GetOutInfoStr()
  1209. PrototypeC  pAmp_GetPercent()
  1210. PrototypeC  pAmp_GetPlayTime()
  1211. PrototypeC  pAmp_GetStopTime()
  1212. PrototypeC  pAmp_GetSubSong(*File.p-Ascii)
  1213. PrototypeC  pAmp_InAbout()
  1214. PrototypeC  pAmp_InConfig()
  1215. PrototypeC  pAmp_InfoBox(*File.p-Ascii)
  1216. PrototypeC  pAmp_Init()
  1217. PrototypeC  pAmp_MusicBox(*File.p-Ascii, Flags.i=1)
  1218. PrototypeC  pAmp_MusicGetLength(Flags.i=0)
  1219. PrototypeC  pAmp_MusicGetOutPosition()
  1220. PrototypeC  pAmp_MusicGetPosition()
  1221. PrototypeC  pAmp_MusicGetTitleStr()
  1222. PrototypeC  pAmp_MusicIsPlaying()
  1223. PrototypeC  pAmp_MusicIsSeekable()
  1224. PrototypeC  pAmp_MusicPause(Pause.i)
  1225. PrototypeC  pAmp_MusicPlay(*File.p-Ascii)
  1226. PrototypeC  pAmp_MusicSetPan(Pan.i)
  1227. PrototypeC  pAmp_MusicSetPosition(Milliseconds.i)
  1228. PrototypeC  pAmp_MusicSetVolume(Volume.i)
  1229. PrototypeC  pAmp_MusicStop()
  1230. PrototypeC  pAmp_Open()
  1231. PrototypeC  pAmp_OutAbout()
  1232. PrototypeC  pAmp_OutConfig()
  1233. PrototypeC  pAmp_Play(*File.p-Ascii, Volume.i=255)
  1234. PrototypeC  pAmp_QuickPlay(*File.p-Ascii, *Path.p-Ascii)
  1235. PrototypeC  pAmp_SetAmpPath(*Path.p-Ascii)
  1236. PrototypeC  pAmp_SetDefaultLength(Milliseconds.i=0)
  1237. PrototypeC  pAmp_SetInDll(*InLib.p-Ascii)
  1238. PrototypeC  pAmp_SetInPath(*Path.p-Ascii)
  1239. PrototypeC  pAmp_SetLength(Milliseconds.i)
  1240. PrototypeC  pAmp_SetOutDll(*OutLib.p-Ascii)
  1241. PrototypeC  pAmp_SetOutPath(*Path.p-Ascii)
  1242. PrototypeC  pAmp_SetSubSong(*File.p-Ascii, SubSong.i)
  1243. PrototypeC  pAmp_SetWindow(*Window)
  1244. PrototypeC  pAmp_VersionStr(Flags.i=0)
  1245.  
  1246. Structure   RS_Amp
  1247.    DLL.i
  1248.    IsPlay.i
  1249.    TimeLength.i
  1250.    TimeLoop.i
  1251.    File$
  1252.    CountSubSongs     .pAmp_CountSubSongs
  1253.    Play              .pAmp_Play
  1254.    Free              .pAmp_Free
  1255.    GetPlayTime       .pAmp_GetPlayTime
  1256.    GetInInfoStr      .pAmp_GetInInfoStr
  1257.    GetSubSong        .pAmp_GetSubSong
  1258.    MusicGetLength    .pAmp_MusicGetLength
  1259.    MusicGetTitle     .pAmp_MusicGetTitleStr
  1260.    MusicIsSeekable   .pAmp_MusicIsSeekable
  1261.    MusicPause        .pAmp_MusicPause
  1262.    MusicSetPosition  .pAmp_MusicSetPosition
  1263.    MusicSetVolume    .pAmp_MusicSetVolume
  1264.    SetAmpPath        .pAmp_SetAmpPath
  1265.    SetSubSong        .pAmp_SetSubSong
  1266. EndStructure
  1267. Global   RS_Amp.RS_Amp
  1268.  
  1269. ProcedureC  AmpMusicFree()
  1270.    With  RS_Amp
  1271.       If \DLL
  1272.          \Free()
  1273.          FreeLibrary_(\DLL)
  1274.          \DLL     =  #Null
  1275.          \IsPlay  =  #Null
  1276.       EndIf
  1277.    EndWith
  1278. EndProcedure
  1279. ProcedureC  AmpMusicInit(Path$=#Null$)
  1280.  
  1281.    ; Default path to AmpMaster -> "C:\Users\Public\Documents\AmpMaster\"
  1282.  
  1283.    If RS_Amp\DLL  :  ProcedureReturn   RS_Amp\DLL  :  EndIf
  1284.  
  1285.    Protected   t${#MAX_PATH}
  1286.  
  1287.    With  RS_Amp
  1288.  
  1289.       If Path$
  1290.  
  1291.          t$ =  Path$
  1292.  
  1293.       Else  ; C:\Users\Public\Documents\ + "AmpMaster\"
  1294.  
  1295.          SHGetFolderPath_(#Null, #CSIDL_COMMON_DOCUMENTS, #Null, #Null, @t$)
  1296.          PathAddBackslash_(@t$)
  1297.  
  1298.          t$ +  "AmpMaster\"
  1299.  
  1300.       EndIf
  1301.  
  1302.       t$ +  "AmpMaster_x86.dll"
  1303.  
  1304.       \DLL  =  LoadLibrary_(@t$)
  1305.  
  1306.       If \DLL
  1307.  
  1308.          \CountSubSongs    =  GetProcAddress_(\DLL, StrAsc(@"Amp_CountSubSongs"))
  1309.          \Play             =  GetProcAddress_(\DLL, StrAsc(@"Amp_Play"))
  1310.          \Free             =  GetProcAddress_(\DLL, StrAsc(@"Amp_Free"))
  1311.          \MusicGetLength   =  GetProcAddress_(\DLL, StrAsc(@"Amp_MusicGetLength"))
  1312.          \MusicGetTitle    =  GetProcAddress_(\DLL, StrAsc(@"Amp_MusicGetTitleStr"))
  1313.          \MusicPause       =  GetProcAddress_(\DLL, StrAsc(@"Amp_MusicPause"))
  1314.          \MusicIsSeekable  =  GetProcAddress_(\DLL, StrAsc(@"Amp_MusicIsSeekable"))
  1315.          \MusicSetPosition =  GetProcAddress_(\DLL, StrAsc(@"Amp_MusicSetPosition"))
  1316.          \MusicSetVolume   =  GetProcAddress_(\DLL, StrAsc(@"Amp_MusicSetVolume"))
  1317.          \GetPlayTime      =  GetProcAddress_(\DLL, StrAsc(@"Amp_GetPlayTime"))
  1318.          \GetInInfoStr     =  GetProcAddress_(\DLL, StrAsc(@"Amp_GetInInfoStr"))
  1319.          \GetSubSong       =  GetProcAddress_(\DLL, StrAsc(@"Amp_GetSubSong"))
  1320.          \SetAmpPath       =  GetProcAddress_(\DLL, StrAsc(@"Amp_SetAmpPath"))
  1321.          \SetSubSong       =  GetProcAddress_(\DLL, StrAsc(@"Amp_SetSubSong"))
  1322.  
  1323.          If Path$
  1324.             Path$ +  "AmpLibs\"  :  \SetAmpPath(StrAsc(@Path$))   ; set path of amplibs
  1325.          EndIf
  1326.  
  1327.       EndIf
  1328.  
  1329.       ProcedureReturn   \DLL
  1330.  
  1331.    EndWith
  1332.  
  1333. EndProcedure
  1334. ProcedureC  AmpMusicPlay(*Memory, SubSong=0)
  1335.  
  1336.    ; *Memory   =  Ptr to @Filename$ only!
  1337.    ; SubSong   =  Number of subsong to play (eg. SID)
  1338.  
  1339.    ; Return: #True = Music is playing or #False = Error!
  1340.  
  1341.    With  RS_Amp
  1342.  
  1343.       \IsPlay     =  #False
  1344.       \TimeLength =  #Null
  1345.       \TimeLoop   =  #Null
  1346.       \File$      =  PeekS(*Memory, -1, RS_SCAL\StrFormat)
  1347.  
  1348.       If AmpMusicInit()
  1349.  
  1350.          \Free()
  1351.  
  1352.          If SubSong  >  0
  1353.             \SetSubSong(StrAsc(@\File$), SubSong)
  1354.          EndIf
  1355.  
  1356.          If \Play(StrAsc(@\File$))  =  0
  1357.             \TimeLength =  \MusicGetLength()
  1358.             If \TimeLength <= 100   Or StrStrI_(@\File$, @".SID") Or StrStrI_(@\File$, @".PSID")   Or StrStrI_(@\File$, @".RSID")
  1359.                \TimeLength =  600000
  1360.             EndIf
  1361.             \TimeLoop   =  \TimeLength +  ElapsedMilliseconds()   +  50 ; <- Time to reset
  1362.             \IsPlay     =  #True
  1363.          EndIf
  1364.  
  1365.          ProcedureReturn   \IsPlay
  1366.  
  1367.       EndIf
  1368.  
  1369.    EndWith
  1370.  
  1371. EndProcedure
  1372. ProcedureC  AmpMusicStop()
  1373.    RS_Amp\Free()  :  RS_Amp\IsPlay  =  #False
  1374. EndProcedure
  1375. ProcedureC  AmpMusicLoop()
  1376.    If RS_Amp\IsPlay  And   ElapsedMilliseconds()   >  RS_Amp\TimeLoop
  1377.       ProcedureReturn   AmpMusicPlay(@RS_Amp\File$)
  1378.    EndIf
  1379. EndProcedure
  1380. ProcedureC  AmpMusicPosition()
  1381.    If RS_Amp\IsPlay
  1382.       ProcedureReturn   RS_Amp\GetPlayTime()
  1383.    EndIf
  1384. EndProcedure
  1385. ProcedureC  AmpMusicVolume(Volume)
  1386.    If RS_Amp\IsPlay
  1387.       ProcedureReturn   RS_Amp\MusicSetVolume(Volume)
  1388.    EndIf
  1389. EndProcedure
  1390. ProcedureC  AmpMusicTitle()
  1391.    If RS_Amp\IsPlay
  1392.       ProcedureReturn   RS_Amp\MusicGetTitle()
  1393.    EndIf
  1394. EndProcedure
  1395. ProcedureC  AmpCountSubSongs(*Memory)
  1396.    ProcedureReturn   RS_Amp\CountSubSongs(StrAsc(*Memory))
  1397. EndProcedure
  1398. ProcedureC  AmpMusicInfo()
  1399.    If RS_Amp\IsPlay
  1400.       ProcedureReturn   RS_Amp\GetInInfoStr()
  1401.    EndIf
  1402. EndProcedure
  1403. ProcedureC  AmpMusicLength()
  1404.    ProcedureReturn   RS_Amp\TimeLength
  1405. EndProcedure
  1406. ProcedureC  AmpMusicPause(Flags)
  1407.    If RS_Amp\IsPlay
  1408.       ProcedureReturn   RS_Amp\MusicPause(Flags)
  1409.    EndIf
  1410. EndProcedure
  1411. ProcedureC  AmpMusicIsSeekable()
  1412.    With  RS_Amp
  1413.       ProcedureReturn   \MusicIsSeekable()
  1414.    EndWith
  1415. EndProcedure
  1416. ProcedureC  AmpMusicSetPosition(Milliseconds)
  1417.    With  RS_Amp
  1418.       If \IsPlay  And   AmpMusicIsSeekable() And   ; no PSID/SID/RSID
  1419.          StrStrI_(@\File$, @".SID")    =  0  And
  1420.          StrStrI_(@\File$, @".PSID")   =  0  And
  1421.          StrStrI_(@\File$, @".RSID")   =  0
  1422.          ProcedureReturn   \MusicSetPosition(Milliseconds)
  1423.       EndIf
  1424.    EndWith
  1425. EndProcedure
  1426. CompilerEndIf
  1427.  
  1428. CompilerIf  #IsS68
  1429. ProcedureC  sc68_Play(*Memory, Length)
  1430.    With  RS_SCAL
  1431.  
  1432.       If Length
  1433.          \ID      =  sc68replay_Init(*Memory, Length, #SC68Replay_MEMORY)
  1434.          \Title$  =  PeekS(*Memory + $48, -1, #PB_Ascii)
  1435.       Else
  1436.          \ID   =  sc68replay_Init(StrAsc(*Memory), #Null, #SC68Replay_FILE)
  1437.       EndIf
  1438.  
  1439.       If \ID
  1440.          sc68replay_Play()
  1441.       EndIf
  1442.  
  1443.       ProcedureReturn   \ID
  1444.  
  1445.    EndWith
  1446. EndProcedure
  1447. ProcedureC  sc68_Free()
  1448.    If RS_SCAL\ID
  1449.       sc68replay_Stop()
  1450.    EndIf
  1451. EndProcedure
  1452. CompilerEndIf
  1453.  
  1454. Procedure   IsAmpMaster()
  1455.  
  1456.    CompilerIf  #IsAMP
  1457.  
  1458.       Static   t${#MAX_PATH}
  1459.  
  1460.       If Len(t$)  =  #Null
  1461.          SHGetFolderPath_(#Null, #CSIDL_COMMON_DOCUMENTS, #Null, #Null, @t$)
  1462.          PathAddBackslash_(@t$)
  1463.          t$ +  "AmpMaster"
  1464.       EndIf
  1465.  
  1466.       ProcedureReturn   Bool(FileSize(t$) =  -2)
  1467.  
  1468.    CompilerElse
  1469.  
  1470.       ProcedureReturn   #False
  1471.  
  1472.    CompilerEndIf
  1473.  
  1474. EndProcedure
  1475. Procedure   Default_Mode(*Memory.Long, Length)
  1476.  
  1477.    ; Autodetect #C2D_MUSIC_[mode]
  1478.  
  1479.    ; *Memory = Pointer to @Filename if Length = 0
  1480.    ; Checks file.extension ?.* and *.?
  1481.  
  1482.    ; Return: Default playback-mode or 0 = Error!
  1483.  
  1484.    Static   Mode
  1485.  
  1486.    Mode  =  #Null
  1487.  
  1488.    If Length   >  #Null ; *** Check memory for default mode (not to be confused with supported mode!) ***
  1489.  
  1490.       If       SCAL_IsFormat(#C2D_MUSIC_FT2, *Memory, Length)  :  Mode  =  #C2D_MUSIC_FT2 ; stabile Sound/Pro/Mod/FastTracker-Replay
  1491.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_PT2, *Memory, Length)  :  Mode  =  #C2D_MUSIC_PT2 ; only Protracker 2.3d
  1492.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_AHX, *Memory, Length)  :  Mode  =  #C2D_MUSIC_AHX
  1493.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_FC4, *Memory, Length)  :  Mode  =  #C2D_MUSIC_FC4
  1494.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_S3M, *Memory, Length)  :  Mode  =  #C2D_MUSIC_S3M
  1495.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_STM, *Memory, Length)  :  Mode  =  #C2D_MUSIC_STM
  1496.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_OGG, *Memory, Length)  :  Mode  =  #C2D_MUSIC_OGG
  1497.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_FLA, *Memory, Length)  :  Mode  =  #C2D_MUSIC_FLA
  1498.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_WAV, *Memory, Length)  :  Mode  =  #C2D_MUSIC_WAV
  1499.  
  1500.       CompilerIf  (#IsSID  +  #IsTSR)
  1501.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_SID, *Memory, Length)  :  Mode  =  #C2D_MUSIC_SID
  1502.       CompilerEndIf
  1503.       CompilerIf  #IsYMP
  1504.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_YMP, *Memory, Length)  :  Mode  =  #C2D_MUSIC_YMP
  1505.       CompilerEndIf
  1506.       CompilerIf  #IsBAS
  1507.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_BAS, *Memory, Length)  :  Mode  =  #C2D_MUSIC_BAS
  1508.       CompilerEndIf
  1509.       CompilerIf  #IsBMF
  1510.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_BMF, *Memory, Length)  :  Mode  =  #C2D_MUSIC_BMF
  1511.       CompilerEndIf
  1512.       CompilerIf  #IsS68
  1513.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_S68, *Memory, Length)  :  Mode  =  #C2D_MUSIC_S68
  1514.       CompilerEndIf
  1515.       CompilerIf  (#IsV2M  +  #IsV1M)
  1516.       ElseIf   SCAL_IsFormat(#C2D_MUSIC_V2M, *Memory, Length)  :  Mode  =  #C2D_MUSIC_V2M
  1517.       CompilerEndIf
  1518.  
  1519.       Else  ; default memory mode
  1520.  
  1521.          Mode  =  #C2D_MUSIC_MOD
  1522.  
  1523.       EndIf
  1524.  
  1525.    Else  ; *** Checks file.extension ?.* and *.? ***
  1526.  
  1527.       Protected   *x, i
  1528.  
  1529.       For   i  =  0  To 1
  1530.  
  1531.          *x =  scal_Sufx(*Memory, i)   :  If *x =  #Null :  Continue :  EndIf
  1532.  
  1533.          If       StrStrI_(?l_FT2, *x) :  Mode  =  #C2D_MUSIC_FT2
  1534.          ElseIf   StrStrI_(?l_PT2, *x) :  Mode  =  #C2D_MUSIC_PT2
  1535.          ElseIf   StrStrI_(?l_S3M, *x) :  Mode  =  #C2D_MUSIC_S3M
  1536.          ElseIf   StrStrI_(?l_STM, *x) :  Mode  =  #C2D_MUSIC_STM
  1537.          ElseIf   StrStrI_(?l_AHX, *x) :  Mode  =  #C2D_MUSIC_AHX
  1538.          ElseIf   StrStrI_(?l_FC4, *x) :  Mode  =  #C2D_MUSIC_FC4
  1539.          ElseIf   StrStrI_(?l_WAV, *x) :  Mode  =  #C2D_MUSIC_WAV
  1540.          ElseIf   StrStrI_(?l_OGG, *x) :  Mode  =  #C2D_MUSIC_OGG
  1541.          ElseIf   StrStrI_(?l_FLA, *x) :  Mode  =  #C2D_MUSIC_FLA
  1542.  
  1543.          CompilerIf  #IsBAS
  1544.          ElseIf   StrStrI_(?l_BAS, *x) :  Mode  =  #C2D_MUSIC_BAS
  1545.          CompilerEndIf
  1546.          CompilerIf  #IsMED
  1547.          ElseIf   StrStrI_(?l_MED, *x) :  Mode  =  #C2D_MUSIC_MED
  1548.          CompilerEndIf
  1549.          CompilerIf  #IsSID
  1550.          ElseIf   StrStrI_(?l_SID, *x) :  Mode  =  #C2D_MUSIC_SID
  1551.          CompilerEndIf
  1552.          CompilerIf  #IsTSR
  1553.          ElseIf   StrStrI_(?l_SID, *x) :  Mode  =  #C2D_MUSIC_TSR
  1554.          CompilerEndIf
  1555.          CompilerIf  #IsYMP
  1556.          ElseIf   StrStrI_(?l_YMP, *x) :  Mode  =  #C2D_MUSIC_YMP
  1557.          CompilerEndIf
  1558.          CompilerIf  #IsS68
  1559.          ElseIf   StrStrI_(?l_SC68, *x):  Mode  =  #C2D_MUSIC_S68
  1560.          CompilerEndIf
  1561.          CompilerIf  #IsV2M
  1562.          ElseIf   StrStrI_(?l_V2M, *x)
  1563.             If IsAmpMaster()
  1564.                Mode  =  #C2D_MUSIC_AMP ; stabile v1.0/1.5 playback
  1565.             Else
  1566.                Mode  =  #C2D_MUSIC_V2M
  1567.             EndIf
  1568.          CompilerEndIf
  1569.          CompilerIf  #IsBMF
  1570.          ElseIf   StrStrI_(?l_BMF, *x) :  Mode  =  #C2D_MUSIC_BMF
  1571.          CompilerEndIf
  1572.  
  1573.          ElseIf   StrStrI_(?l_MCI, *x) :  Mode  =  #C2D_MUSIC_MCI
  1574.          ElseIf   StrStrI_(?l_MOD, *x) :  Mode  =  #C2D_MUSIC_MOD
  1575.  
  1576.          CompilerIf  #IsAMP   ; check at last, coz we don't know if ampmaster is installed?
  1577.          ElseIf   StrStrI_(?l_AMP, *x) :  Mode  =  #C2D_MUSIC_AMP
  1578.          CompilerEndIf
  1579.  
  1580.          EndIf
  1581.  
  1582.          If Mode  :  Break :  EndIf
  1583.  
  1584.          ;Mode =  #C2D_MUSIC_MCI ; pre-set as default
  1585.  
  1586.       Next
  1587.  
  1588.    EndIf
  1589.  
  1590.    ProcedureReturn   Mode
  1591.  
  1592. EndProcedure
  1593.  
  1594. ;- *** Functions ***************
  1595. ProcedureDLL   SCAL_AmpInstall(*URL)
  1596.  
  1597.    ; Only for Windows x86!
  1598.  
  1599.    ; *** ZIP ***
  1600.    ; https://testaware.files.wordpress.com/2020/08/ampmaster200824
  1601.  
  1602.    CompilerIf  #IsAMP
  1603.  
  1604.       scal_Temp(#SCAL_TempPath$) ; create temporary directory for all files
  1605.  
  1606.       Static   IsError
  1607.       Protected   URL$, File$, i, Count
  1608.  
  1609.       ; 2.5KB smaller than -> Install_Path$  =  GetUserDirectory(#PB_Directory_Public)
  1610.       Protected   Install_Path${#MAX_PATH}
  1611.       SHGetFolderPath_(#Null, #CSIDL_COMMON_DOCUMENTS, #Null, #Null, @Install_Path$)
  1612.       PathAddBackslash_(@Install_Path$)
  1613.  
  1614.       If *URL
  1615.          URL$  =  PeekS(*URL, -1, RS_SCAL\StrFormat)
  1616.       Else
  1617.          URL$  =  #SCAL_AmpMaster$  +  ".gif"
  1618.       EndIf
  1619.  
  1620.       If StrStrI_(@URL$, @"://")
  1621.  
  1622.          File$ =  RS_SCAL\Temp$ + GetFilePart(URL$, #PB_FileSystem_NoExtension) + ".zip"
  1623.  
  1624.          If StrStrI_(@URL$, @".GIF")
  1625.             NetWorkSkip(6) ; "GIF89a" -> ; skip to real Arc-Header (6 bytes)
  1626.          Else
  1627.             NetWorkSkip(#Null)
  1628.          EndIf
  1629.  
  1630.          IsError  =  Bool(NetWorkDownload(URL$, File$)=0)
  1631.  
  1632.       Else  ; unpack file-archive
  1633.  
  1634.          File$    =  URL$
  1635.          IsError  =  Bool(FileSize(File$)<=0)   ; file error?
  1636.  
  1637.       EndIf
  1638.  
  1639.       If IsError  =  0
  1640.  
  1641.          Count =  ZIP_GetFilesCount(File$)
  1642.  
  1643.          If Count
  1644.             For   i  =  1  To Count
  1645.                If ZIP_ExtractFile(File$, i, Install_Path$)
  1646.                   If RS_SCAL\CallBack  ; user proc?
  1647.                      If CallFunctionFast(RS_SCAL\CallBack, (100.0 / Count) * (i + 1))  ; 126 Files + 3 Folders
  1648.                         IsError  =  #True
  1649.                         Break
  1650.                      EndIf
  1651.                   EndIf
  1652.                Else
  1653.                   IsError  =  #True
  1654.                   Break
  1655.                EndIf
  1656.             Next
  1657.          Else
  1658.             IsError  =  #True
  1659.          EndIf
  1660.  
  1661.       Else
  1662.  
  1663.          IsError  =  #True
  1664.  
  1665.       EndIf
  1666.  
  1667.       If RS_SCAL\CallBack  :  CallFunctionFast(RS_SCAL\CallBack, 100)   :  EndIf ; user proc?
  1668.  
  1669.       ; *** #True = ALL correct unpacked, #False = ERROR!
  1670.       ProcedureReturn   Bool(IsError=0)
  1671.  
  1672.    CompilerElse
  1673.  
  1674.       If RS_SCAL\CallBack  :  CallFunctionFast(RS_SCAL\CallBack, 100)   :  EndIf ; user proc?
  1675.  
  1676.       ProcedureReturn   #False
  1677.  
  1678.    CompilerEndIf
  1679.  
  1680. EndProcedure
  1681. ProcedureDLL   SCAL_CallBack(*Proc)
  1682.    ; *proc = @Procedurename(Param)
  1683.    ; Param -> downloadstatus 0-100%
  1684.    RS_SCAL\CallBack  =  *Proc ; NetWorkCallBack()
  1685. EndProcedure
  1686. ProcedureDLL   SCAL_Download(*URL, *File, Skip, Flags)
  1687.  
  1688.    ; Return:   Bytesize of download or number of unpacked files
  1689.  
  1690.    Static   Count
  1691.    Protected   i, File$, Path$, URL$
  1692.  
  1693.    If *URL  =  #Null :  ProcedureReturn   #Null :  EndIf
  1694.  
  1695.    URL$  =  PeekS(*URL, -1, RS_SCAL\StrFormat)
  1696.    If StrStrI_(@URL$, @"://") =  #Null :  ProcedureReturn   #Null :  EndIf
  1697.  
  1698.    If *File =  #Null
  1699.       scal_Temp(#SCAL_TempPath$)
  1700.       File$ =  RS_SCAL\Temp$ + GetFilePart(URL$)
  1701.    Else
  1702.       File$ =  PeekS(*File, -1, RS_SCAL\StrFormat)
  1703.    EndIf
  1704.  
  1705.    ; *** already downloaded?
  1706.    Count =  scal_Size(File$)
  1707.    If scal_Size(URL$)   =  Count
  1708.       ProcedureReturn   Count
  1709.    EndIf
  1710.  
  1711.    NetWorkSkip(Skip)
  1712.  
  1713.    i  =  NetWorkDownload(URL$, File$)
  1714.  
  1715.    ; *** Unzip archive?
  1716.    If Flags And   i  >  #Null
  1717.  
  1718.       Count =  ZIP_GetFilesCount(File$)
  1719.  
  1720.       If Count
  1721.  
  1722.          Path$ =  GetPathPart(File$)
  1723.  
  1724.          For   i  =  1  To Count
  1725.             If ZIP_ExtractFile(File$, i, Path$)
  1726.                If RS_SCAL\CallBack  ; user proc?
  1727.                   If CallFunctionFast(RS_SCAL\CallBack, (100.0 / Count) * (i + 1))
  1728.                      Count =  i
  1729.                      Break
  1730.                   EndIf
  1731.                EndIf
  1732.             Else
  1733.                Count =  i
  1734.                Break
  1735.             EndIf
  1736.          Next
  1737.  
  1738.       Else
  1739.  
  1740.          Count =  i  ; bytesize if not packed
  1741.  
  1742.       EndIf
  1743.  
  1744.    Else
  1745.  
  1746.       Count =  i  ; bytesize
  1747.  
  1748.    EndIf
  1749.  
  1750.    If RS_SCAL\CallBack  :  CallFunctionFast(RS_SCAL\CallBack, 100)   :  EndIf ; user proc?
  1751.  
  1752.    ProcedureReturn   Count
  1753.  
  1754. EndProcedure
  1755. ProcedureDLL   SCAL_DownMemory(*URL, *Length.Integer)
  1756.  
  1757.    Static   *Memory
  1758.  
  1759.    If *Memory  >  #Null
  1760.       FreeMemory(*Memory)
  1761.       *Memory  =  #Null
  1762.    EndIf
  1763.  
  1764.    If *URL  <= #Null Or *Length  <= #Null :  ProcedureReturn   #Null :  EndIf
  1765.  
  1766.    *Memory  =  NetWorkLoad(PeekS(*URL, -1, RS_SCAL\StrFormat))
  1767.  
  1768.    If *Memory
  1769.       *Length\i   =  RS_NetWork\Length
  1770.    Else
  1771.       *Length\i   =  #Null
  1772.    EndIf
  1773.  
  1774.    ProcedureReturn   *Memory
  1775.  
  1776. EndProcedure
  1777. ProcedureDLL   SCAL_Formats(Mode, Flags)
  1778.  
  1779.    ; Mode:  #C2D_MUSIC_[MODE] =  Get info of supported formats by Mode
  1780.    ;        < min or > max    =  Get info of all supported formats by SCAL
  1781.  
  1782.    ; Flags: 0  =  Get number of supported formats
  1783.    ;        1  =  Get ptr to unicode formatstrings "AHX;MOD;MP3..."
  1784.  
  1785.    Static   Count
  1786.    Static   TotalMode$, TotalCount
  1787.  
  1788.    Protected   t$, *Memory.Character
  1789.  
  1790.    Select   Mode
  1791.       Case  #SCAL_MIN   To #SCAL_MAX
  1792.  
  1793.          ;{ Mode = #C2D_MUSIC_[MODE] - Calculate supported formats by Engine }
  1794.  
  1795.          Select   Mode
  1796.  
  1797.             Case  #C2D_MUSIC_AHX :  *Memory  =  ?l_AHX
  1798.  
  1799.             CompilerIf  #IsAMP
  1800.             Case  #C2D_MUSIC_AMP :  *Memory  =  ?l_AMP
  1801.             CompilerEndIf
  1802.  
  1803.             Case  #C2D_MUSIC_API :  *Memory  =  ?l_WAV
  1804.  
  1805.             CompilerIf  #IsBAS
  1806.             Case  #C2D_MUSIC_BAS :  *Memory  =  ?l_BAS
  1807.             CompilerEndIf
  1808.  
  1809.             CompilerIf  #IsBMF
  1810.             Case  #C2D_MUSIC_BMF :  *Memory  =  ?l_BMF
  1811.             CompilerEndIf
  1812.  
  1813.             Case  #C2D_MUSIC_FC4 :  *Memory  =  ?l_FC4
  1814.  
  1815.             CompilerIf  #IsFCP
  1816.             Case  #C2D_MUSIC_FCP :  *Memory  =  ?l_FCP
  1817.             CompilerEndIf
  1818.  
  1819.             Case  #C2D_MUSIC_FLA :  *Memory  =  ?l_FLA
  1820.  
  1821.             Case  #C2D_MUSIC_FT2 :  *Memory  =  ?l_FT2
  1822.  
  1823.             Case  #C2D_MUSIC_MCI :  *Memory  =  ?l_MCI
  1824.  
  1825.             CompilerIf  #IsMED
  1826.             Case  #C2D_MUSIC_MED :  *Memory  =  ?l_MED
  1827.             CompilerEndIf
  1828.  
  1829.             Case  #C2D_MUSIC_MOD :  *Memory  =  ?l_MOD
  1830.  
  1831.             CompilerIf  #IsMOV
  1832.             Case  #C2D_MUSIC_MOV :  *Memory  =  ?l_MCI
  1833.             CompilerEndIf
  1834.  
  1835.             Case  #C2D_MUSIC_OGG :  *Memory  =  ?l_OGG
  1836.  
  1837.             Case  #C2D_MUSIC_PT2 :  *Memory  =  ?l_PT2
  1838.  
  1839.             CompilerIf  #IsS68
  1840.             Case  #C2D_MUSIC_S68 :  *Memory  =  ?l_SC68
  1841.             CompilerEndIf
  1842.  
  1843.             CompilerIf  #IsSID
  1844.             Case  #C2D_MUSIC_SID :  *Memory  =  ?l_SID
  1845.             CompilerEndIf
  1846.  
  1847.             Case  #C2D_MUSIC_STM :  *Memory  =  ?l_STM
  1848.  
  1849.             Case  #C2D_MUSIC_S3M :  *Memory  =  ?l_S3M
  1850.  
  1851.             Case  #C2D_MUSIC_TFC :  *Memory  =  ?l_FC4
  1852.  
  1853.             Case  #C2D_MUSIC_THX :  *Memory  =  ?l_AHX
  1854.  
  1855.             Case  #C2D_MUSIC_TPT :  *Memory  =  ?l_PT2
  1856.  
  1857.             CompilerIf  #IsTSR
  1858.             Case  #C2D_MUSIC_TSR :  *Memory  =  ?l_SID
  1859.             CompilerEndIf
  1860.  
  1861.             CompilerIf  #IsV1M
  1862.             Case  #C2D_MUSIC_V1M :  *Memory  =  ?l_V2M
  1863.             CompilerEndIf
  1864.  
  1865.             CompilerIf  #IsV2M
  1866.             Case  #C2D_MUSIC_V2M :  *Memory  =  ?l_V2M
  1867.             CompilerEndIf
  1868.  
  1869.             Case  #C2D_MUSIC_WAV :  *Memory  =  ?l_WAV
  1870.  
  1871.             CompilerIf  #IsXM2
  1872.             Case  #C2D_MUSIC_XM2 :  *Memory  =  ?l_XM2
  1873.             CompilerEndIf
  1874.  
  1875.             CompilerIf  #IsYMP
  1876.             Case  #C2D_MUSIC_YMP :  *Memory  =  ?l_YMP
  1877.             CompilerEndIf
  1878.  
  1879.          EndSelect
  1880.  
  1881.          If Flags And   *Memory
  1882.             ProcedureReturn   *Memory  ; ptr to ;MOD;...
  1883.          EndIf
  1884.  
  1885.          If *Memory  ; count extensions?
  1886.             Count =  -2 ; first ";" + last ";" + #null
  1887.             While *Memory  >  SizeOf(Character)
  1888.                *Memory  =  StrStrI_(*Memory, @";") +  SizeOf(Character)
  1889.                Count +  1
  1890.             Wend
  1891.          Else
  1892.             Count =  #Null
  1893.          EndIf
  1894.  
  1895.          ProcedureReturn   Count
  1896.          ;}
  1897.  
  1898.       Default  ; -1
  1899.  
  1900.          ;{ Mode <= #Null - Calculate ALL supported formats once }
  1901.  
  1902.          If TotalCount
  1903.             If Flags ; String?
  1904.                ProcedureReturn   @TotalMode$
  1905.             EndIf
  1906.             ProcedureReturn   TotalCount
  1907.          EndIf
  1908.  
  1909.          Protected   NewMap   ExtMap.s()
  1910.          Protected   NewList  ExtList.s()
  1911.  
  1912.          *Memory  =  ?l_Start
  1913.          While *Memory  <  ?l_Finish
  1914.             If *Memory\c
  1915.                t$ =  PeekS(*Memory)
  1916.                TotalMode$  +  Trim(t$, ";")  +  ";"   :  *Memory  +  Len(t$)  *  SizeOf(Character)
  1917.             EndIf
  1918.             *Memory  +  SizeOf(Character) ; Null$
  1919.          Wend
  1920.  
  1921.          Repeat
  1922.             TotalCount  +  1  :  t$ =  StringField(TotalMode$, TotalCount, ";")  :  ExtMap(t$)
  1923.          Until Len(t$)  =  #Null
  1924.  
  1925.          ForEach  ExtMap()
  1926.             If MapKey(ExtMap())
  1927.                AddElement(ExtList())   :  ExtList()   =  MapKey(ExtMap())
  1928.             EndIf
  1929.          Next
  1930.  
  1931.          SortList(ExtList(), #PB_Sort_Ascending)
  1932.  
  1933.          TotalCount  =  ListSize(ExtList())
  1934.          TotalMode$  =  ";"   ; ";Format;"
  1935.          ForEach  ExtList()
  1936.             TotalMode$  +  ExtList()   +  ";"
  1937.          Next
  1938.  
  1939.          FreeMap(ExtMap())
  1940.          FreeList(ExtList())
  1941.  
  1942.          If Flags
  1943.             ProcedureReturn   @TotalMode$
  1944.          EndIf
  1945.  
  1946.          ProcedureReturn   TotalCount
  1947.          ;}
  1948.  
  1949.    EndSelect
  1950.  
  1951. EndProcedure
  1952. ProcedureDLL   SCAL_Free()
  1953.  
  1954.    Protected   StrFormat, Freq, *Proc
  1955.    Static   Volume=-1
  1956.  
  1957.    With  RS_SCAL
  1958.  
  1959.       If \ID   ; Is playing active?
  1960.          Select   \Mode
  1961.  
  1962.             Case  #C2D_MUSIC_AHX :  ahx1play_Close()
  1963.             Case  #C2D_MUSIC_API :  PlaySound_(#Null, #Null, #Null)
  1964.             Case  #C2D_MUSIC_FC4 :  fc14play_Close()
  1965.             Case  #C2D_MUSIC_FLA :  If IsSound(0)  :  FreeSound(0)   :  EndIf
  1966.             Case  #C2D_MUSIC_FT2 :  ft2play_Close()
  1967.             Case  #C2D_MUSIC_MCI :  mciSendString_(@"STOP 0", 0, 0, 0)  :  mciSendString_(@"CLOSE 0", 0, 0, 0)
  1968.             Case  #C2D_MUSIC_MOD :  If IsMusic(0)  :  FreeMusic(0)   :  EndIf
  1969.             Case  #C2D_MUSIC_OGG :  If IsSound(0)  :  FreeSound(0)   :  EndIf
  1970.             Case  #C2D_MUSIC_PT2 :  pt2play_Close()
  1971.             Case  #C2D_MUSIC_S3M :  st3play_Close()
  1972.             Case  #C2D_MUSIC_STM :  st23play_Close()
  1973.             Case  #C2D_MUSIC_TFC :  tinyfc14play_Close()
  1974.             Case  #C2D_MUSIC_THX :  tinyahx1play_Close()
  1975.             Case  #C2D_MUSIC_TPT :  tinypt2play_Close()
  1976.             Case  #C2D_MUSIC_WAV :  If IsSound(0)  :  FreeSound(0)   :  EndIf
  1977.  
  1978.             CompilerIf  #IsAMP
  1979.             Case  #C2D_MUSIC_AMP :  AmpMusicFree()
  1980.             CompilerEndIf
  1981.             CompilerIf  #IsBAS
  1982.             Case  #C2D_MUSIC_BAS
  1983.                BASSMOD_MusicStop()
  1984.                BASSMOD_MusicFree()
  1985.                BASSMOD_SetVolume(100)  ; restore digital volume!
  1986.                BASSMOD_Free()
  1987.             CompilerEndIf
  1988.             CompilerIf  #IsBMF
  1989.             Case  #C2D_MUSIC_BMF
  1990.                SynthEnter(\ID)
  1991.                SynthStop(\ID)
  1992.                SynthLeave(\ID)
  1993.                SynthDestroy(\ID)
  1994.             CompilerEndIf
  1995.             CompilerIf  #IsFCP
  1996.             Case  #C2D_MUSIC_FCP :  FCp_Close()
  1997.             CompilerEndIf
  1998.             CompilerIf  #IsMED
  1999.             Case  #C2D_MUSIC_MED
  2000.                MEDP_Stop()
  2001.                MEDP_Unload()
  2002.                MEDP_Release()
  2003.             CompilerEndIf
  2004.             CompilerIf  #IsMOV
  2005.             Case  #C2D_MUSIC_MOV
  2006.                If IsMovie(0)     :  FreeMovie(0)      :  EndIf
  2007.                If \WinID   And   IsWindow(\WinID)
  2008.                   CloseWindow(\WinID)
  2009.                EndIf
  2010.                \WinID   =  #Null
  2011.             CompilerEndIf
  2012.             CompilerIf  #IsS68
  2013.             Case  #C2D_MUSIC_S68 :  sc68_Free() ;sc68replay_Stop()
  2014.             CompilerEndIf
  2015.             CompilerIf  #IsSID
  2016.             Case  #C2D_MUSIC_SID :  SIDClose()
  2017.             CompilerEndIf
  2018.             CompilerIf  #IsTSR
  2019.             Case  #C2D_MUSIC_TSR :  sid_sound_server_replay_stop()
  2020.             CompilerEndIf
  2021.             CompilerIf  #IsV1M
  2022.             Case  #C2D_MUSIC_V1M
  2023.                ssStop()
  2024.                ssClose()
  2025.             CompilerEndIf
  2026.             CompilerIf  #IsV2M
  2027.             Case  #C2D_MUSIC_V2M
  2028.                If \IsPause =  0  ; remember: custom pause!
  2029.                   V2MStop()
  2030.                   dsClose()
  2031.                EndIf
  2032.             CompilerEndIf
  2033.             CompilerIf  #IsXM2
  2034.             Case  #C2D_MUSIC_XM2 :  uFMOD_PlaySong(#Null)
  2035.             CompilerEndIf
  2036.             CompilerIf  #IsYMP
  2037.             Case  #C2D_MUSIC_YMP
  2038.                YM_Stop()
  2039.                YM_Close()
  2040.             CompilerEndIf
  2041.  
  2042.          EndSelect
  2043.       EndIf
  2044.  
  2045.       ; Netfile downloaded?
  2046.       NetWorkFree()
  2047.  
  2048.       ; Intern temporary *buffer?
  2049.       If \IsAlloc And   \Memory
  2050.          FreeMemory(\Memory)
  2051.       EndIf
  2052.  
  2053.       ; AscII or Unicode?
  2054.       If \StrFormat  <= #Null
  2055.          \StrFormat  =  #PB_Unicode ; Default PeekS-Mode if *Memory = @File
  2056.       EndIf
  2057.  
  2058.       ; Set default frequency
  2059.       If \Freq <= #Null
  2060.          \Freq =  44100
  2061.       EndIf
  2062.  
  2063.       ; Set default volume (used in SCAL_Play)
  2064.       If Volume   <  #Null And   \Volume  <= #Null
  2065.          \Volume  =  100
  2066.       EndIf
  2067.  
  2068.       StrFormat   =  \StrFormat
  2069.       Freq        =  \Freq
  2070.       Volume      =  \Volume
  2071.       *Proc       =  \CallBack
  2072.  
  2073.       ClearStructure(@RS_SCAL, RS_SCAL)
  2074.  
  2075.       \Freq       =  Freq
  2076.       \StrFormat  =  StrFormat
  2077.       \Volume     =  Volume   ; -1
  2078.       \CallBack   =  *Proc
  2079.       \NetLength  =  #Null
  2080.  
  2081.       ; Generate *pointers (avoid *ptr=0 error)
  2082.       \File$      =  #Null$
  2083.       \Path$      =  #Null$
  2084.       \Time$      =  #Null$
  2085.       \Title$     =  #Null$
  2086.       \Tracker$   =  #Null$
  2087.  
  2088.    EndWith
  2089.  
  2090. EndProcedure
  2091. ProcedureDLL   SCAL_GetLength(Flags)
  2092.  
  2093.    ; Flags: 0  =  Get timelength in ms
  2094.    ;        1  =  Get ptr to unicode timestring "hh:mm:ss.ttt"
  2095.  
  2096.    ; RETURN: Time in ms or ptr to timestring - #NULL not playing or time not calcuable
  2097.  
  2098.    With  RS_SCAL
  2099.  
  2100.       If Flags
  2101.          If \Time
  2102.             \Time$   =  StrTime(\Time)
  2103.             \Time$   =  RTrim(\Time$, "0")
  2104.             \Time$   =  RTrim(\Time$, ",")
  2105.          Else
  2106.             \Time$   =  PeekS(?s_unknown) ; "?"
  2107.          EndIf
  2108.          ProcedureReturn   @\Time$
  2109.       EndIf
  2110.  
  2111.       ProcedureReturn   \Time
  2112.  
  2113.    EndWith
  2114.  
  2115. EndProcedure
  2116. ProcedureDLL   SCAL_GetMode(Flags)
  2117.  
  2118.    ; Flags: 0  =  Get #ID of playengine
  2119.    ;        1  =  Get *ptr to string char[3] of playengine
  2120.  
  2121.    Static   t$
  2122.  
  2123.    With  RS_SCAL
  2124.  
  2125.       If \ID   =  #Null ; do not check with <= 0
  2126.          If Flags
  2127.             ProcedureReturn   ?s_unknown
  2128.          EndIf
  2129.          ProcedureReturn   #Null
  2130.       EndIf
  2131.  
  2132.       If Flags
  2133.          t$ =  PeekS(PeekI(?mode + \Mode * SizeOf(Integer)))
  2134.          t$ =  StringField(t$, 1, "|")
  2135.          ProcedureReturn   @t$
  2136.          ;ProcedureReturn  (?s_Mode +  (\Mode   -  1) *  4  *  SizeOf(Character))   ; 4 = AHX + 0
  2137.       EndIf
  2138.  
  2139.       ProcedureReturn   \Mode
  2140.  
  2141.    EndWith
  2142.  
  2143. EndProcedure
  2144. ProcedureDLL   SCAL_GetPosition(Flags)
  2145.  
  2146.    ; Flags: 0  =  Get current playposition in ms
  2147.    ;        1  =  Get ptr to timestring (hh:mm:ss.ttt) of current playposition
  2148.  
  2149.    ; RETURN:   Playtime in ms or *ptr to timestring
  2150.  
  2151.    ; - remarked engines calculate a timeline not the real pos of mixerticks!
  2152.    ; - call GetPosition() also to loop song on end
  2153.  
  2154.    Static   Time, t${#MAX_PATH}
  2155.  
  2156.    With  RS_SCAL
  2157.  
  2158.       If \ID   =  #Null ; do not check with <= 0
  2159.          If Flags
  2160.             ProcedureReturn   ?s_unknown
  2161.          EndIf
  2162.          ProcedureReturn   #Null
  2163.       EndIf
  2164.  
  2165.       Select   \Mode
  2166.  
  2167.          ;Case #C2D_MUSIC_AHX :  Time  =  ahx1play_GetMixerTicks()
  2168.          ;Case #C2D_MUSIC_FC4 :  Time  =  fc14play_GetMixerTicks()
  2169.          ;Case #C2D_MUSIC_FT2 :  Time  =  ft2play_GetMixerTicks()
  2170.          ;Case #C2D_MUSIC_PT2 :  Time  =  pt2play_GetMixerTicks()
  2171.          ;Case #C2D_MUSIC_STM :  Time  =  st23play_GetMixerTicks()
  2172.          ;Case #C2D_MUSIC_S3M :  Time  =  st3play_GetMixerTicks()
  2173.  
  2174.          Case  #C2D_MUSIC_OGG, #C2D_MUSIC_FLA, #C2D_MUSIC_WAV
  2175.             Time  =  GetSoundPosition(0, #PB_Sound_Millisecond)
  2176.  
  2177.          Case  #C2D_MUSIC_MCI
  2178.             mciSendString_(@"STATUS 0 POSITION", @t$, #MAX_PATH, 0)
  2179.             StrToInt64Ex_(@t$, #Null, @Time)
  2180.  
  2181.          CompilerIf  #IsV2M
  2182.          Case  #C2D_MUSIC_V2M
  2183.             Time  =  V2MGetCurrentTime()
  2184.          CompilerEndIf
  2185.  
  2186.          CompilerIf  #IsXM2
  2187.          Case  #C2D_MUSIC_XM2
  2188.             Time  =  uFMOD_GetTime()
  2189.          CompilerEndIf
  2190.  
  2191.          CompilerIf  #IsAMP
  2192.          Case  #C2D_MUSIC_AMP
  2193.             Time  =  AmpMusicPosition()
  2194.             If Time  >= RS_Amp\TimeLength
  2195.                RS_Amp\TimeLoop   =  #Null
  2196.                AmpMusicLoop() ; reload file
  2197.                AmpMusicVolume(2.55 * RS_SCAL\Volume)
  2198.             EndIf
  2199.          CompilerEndIf
  2200.  
  2201.          Default
  2202.  
  2203.             Time  =  ElapsedMilliseconds()   -  \TimePlay
  2204.  
  2205.             ; reset time-position & loop media?
  2206.             If \Time And   Time  >= \Time
  2207.  
  2208.                Select   \Mode
  2209.                   Case  #C2D_MUSIC_YMP
  2210.                      CompilerIf  #IsYMP
  2211.                         ; time is -200 ms coz no loop on (real) end
  2212.                         ; some songs work, some not...
  2213.                         YM_Seek(0)
  2214.                      CompilerEndIf
  2215.                   Case  #C2D_MUSIC_MOV
  2216.                      CompilerIf  #IsMOV
  2217.                         MovieSeek(0, 0)
  2218.                      CompilerEndIf
  2219.                EndSelect
  2220.  
  2221.                Time        =  #Null
  2222.                \TimePlay   =  ElapsedMilliseconds()
  2223.  
  2224.             EndIf
  2225.  
  2226.       EndSelect
  2227.  
  2228.       If Time  <  #Null :  Time  =  #Null :  EndIf
  2229.  
  2230.       If Flags ; TimeString?
  2231.          \Time$   =  StrTime(Time)
  2232.          ProcedureReturn   @\Time$
  2233.       EndIf
  2234.  
  2235.       ProcedureReturn   Time
  2236.  
  2237.    EndWith
  2238.  
  2239. EndProcedure
  2240. ProcedureDLL   SCAL_GetSize(Flags)
  2241.  
  2242.    ; Flags: 0 = Integer, 1 = *StrSize
  2243.  
  2244.    With  RS_SCAL
  2245.  
  2246.       If \Length  <= #Null
  2247.          \Length  =  FileSize(\File$)
  2248.       EndIf
  2249.  
  2250.       If \Length  <  #Null
  2251.          \Length  =  #Null
  2252.       EndIf
  2253.  
  2254.       If Flags
  2255.          ProcedureReturn   StrSize(\Length)
  2256.       EndIf
  2257.  
  2258.       ProcedureReturn   \Length
  2259.  
  2260.    EndWith
  2261.  
  2262. EndProcedure
  2263. ProcedureDLL   SCAL_GetSubsongs()
  2264.    With  RS_SCAL
  2265.       ProcedureReturn   \Songs
  2266.    EndWith
  2267. EndProcedure
  2268. ProcedureDLL   SCAL_GetTitle()
  2269.    With  RS_SCAL
  2270.       ProcedureReturn   @\Title$
  2271.    EndWith
  2272. EndProcedure
  2273. ProcedureDLL   SCAL_GetTracker()
  2274.    With  RS_SCAL
  2275.       ProcedureReturn   @\Tracker$
  2276.    EndWith
  2277. EndProcedure
  2278. ProcedureDLL   SCAL_Info(Flags)
  2279.  
  2280.    Protected   t$, Title$="SCAL DLL v" + StrF(#SCAL_VERSION * 0.01, 2)
  2281.  
  2282.    CompilerIf  #IsX86
  2283.       Title$   +  " (x86)"
  2284.    CompilerElse
  2285.       Title$   +  " (x64)"
  2286.    CompilerEndIf
  2287.  
  2288.    With  RS_SCAL
  2289.  
  2290.       ; Sound playing?
  2291.       If \ID   <= #Null :  ProcedureReturn   #Null :  EndIf
  2292.  
  2293.       If \Length  <= #Null
  2294.          \Length  =  SCAL_GetSize(0)
  2295.       EndIf
  2296.  
  2297.       If \File$
  2298.          \File$   =  ReplaceString(\File$, "%20", " ")
  2299.          t$ +  "File:"  +  #TAB$ +  GetFilePart(\File$)  +  #LF$
  2300.          t$ +  "Path:"  +  #TAB$ +  GetPathPart(\File$)  +  #LF$
  2301.       EndIf
  2302.  
  2303.       If \Length        :  t$ +  "Size:"  +  #TAB$ +  PeekS(SCAL_GetSize(1))        +  #LF$  :  EndIf
  2304.  
  2305.       If t$ :  t$ +  #LF$  :  EndIf ; kosmetische Freizeile
  2306.  
  2307.       If \Title$        :  t$ +  "Title:" +  #TAB$ +  \Title$                       +  #LF$  :  EndIf ; PeekS(SCAL_GetTitle())
  2308.  
  2309.       If \Time >  #Null :  t$ +  "Time:"  +  #TAB$ +  PeekS(SCAL_GetLength(1))      +  #LF$  :  EndIf
  2310.  
  2311.       If \Songs   >  1
  2312.          t$ +  "Song:"  +  #TAB$ +  Str(\SubSong + \ZipSong) + "/" + Str(\Songs)    +  #LF$  ; Str(SCAL_GetSubsongs())
  2313.       EndIf
  2314.  
  2315.       t$ +  #LF$  ; kosmetische Freizeile
  2316.  
  2317.       If \Tracker$      :  t$ +  "Type:"  +  #TAB$ +  \Tracker$                     +  #LF$  :  EndIf ; PeekS(SCAL_GetTracker())
  2318.  
  2319.       t$ +  #LF$  +  "Mode:"  +  #TAB$ +  "#C2D_MUSIC_"  +  PeekS(SCAL_GetMode(1))  +  #LF$
  2320.  
  2321.       ProcedureReturn   MessageBox_(GetForegroundWindow_(), @t$, @Title$, Flags)
  2322.  
  2323.    EndWith
  2324.  
  2325. EndProcedure
  2326. ProcedureDLL   SCAL_IsFormat(Mode, *Memory.Long, Length)
  2327.  
  2328.    ; Tiny check file.extension ?.* and *.? or *Memoryblock
  2329.  
  2330.    ; *Memory   =  Pointer to @File or *Memory
  2331.    ; Length    =  Size of *Memory or 0 if *Memory = @File
  2332.  
  2333.    ; Return:   Mode or #NULL if not supported
  2334.  
  2335.    Static   Typ
  2336.  
  2337.    Typ   =  #Null
  2338.  
  2339.    If Length   <= #Null
  2340.  
  2341.       ;{ *File? }
  2342.  
  2343.       Protected   *x, i
  2344.  
  2345.       For   i  =  0  To 1
  2346.  
  2347.          *x =  scal_Sufx(*Memory, i)   :  If *x =  #Null :  Continue :  EndIf
  2348.  
  2349.          Select   Mode
  2350.          Case  #C2D_MUSIC_AHX, #C2D_MUSIC_THX   :  Typ   =  StrStrI_(?l_AHX, *x)
  2351.          Case  #C2D_MUSIC_FC4, #C2D_MUSIC_TFC   :  Typ   =  StrStrI_(?l_FC4, *x)
  2352.          Case  #C2D_MUSIC_PT2, #C2D_MUSIC_TPT   :  Typ   =  StrStrI_(?l_PT2, *x)
  2353.          Case  #C2D_MUSIC_API, #C2D_MUSIC_WAV   :  Typ   =  StrStrI_(?l_WAV, *x)
  2354.          Case  #C2D_MUSIC_MCI, #C2D_MUSIC_MOV   :  Typ   =  StrStrI_(?l_MCI, *x)
  2355.          Case  #C2D_MUSIC_FT2 :  Typ   =  StrStrI_(?l_FT2, *x)
  2356.          Case  #C2D_MUSIC_S3M :  Typ   =  StrStrI_(?l_S3M, *x)
  2357.          Case  #C2D_MUSIC_STM :  Typ   =  StrStrI_(?l_STM, *x)
  2358.          Case  #C2D_MUSIC_FLA :  Typ   =  StrStrI_(?l_FLA, *x)
  2359.          Case  #C2D_MUSIC_OGG :  Typ   =  StrStrI_(?l_OGG, *x)
  2360.          Case  #C2D_MUSIC_MOD :  Typ   =  StrStrI_(?l_MOD, *x)
  2361.  
  2362.          CompilerIf  #IsAMP
  2363.          Case  #C2D_MUSIC_AMP
  2364.             Typ   =  StrStrI_(?l_AMP, *x)
  2365.          CompilerEndIf
  2366.          CompilerIf  #IsBAS
  2367.          Case  #C2D_MUSIC_BAS
  2368.                Typ   =  StrStrI_(?l_BAS, *x)
  2369.          CompilerEndIf
  2370.          CompilerIf  #IsBMF
  2371.          Case  #C2D_MUSIC_BMF
  2372.             Typ   =  StrStrI_(?l_BMF, *x)
  2373.          CompilerEndIf
  2374.          CompilerIf  #IsMED
  2375.          Case  #C2D_MUSIC_MED
  2376.             Typ   =  StrStrI_(?l_MED, *x)
  2377.          CompilerEndIf
  2378.          CompilerIf  #IsFCP
  2379.          Case  #C2D_MUSIC_FCP
  2380.             Typ   =  StrStrI_(?l_FCP, *x)
  2381.          CompilerEndIf
  2382.          CompilerIf  #IsS68
  2383.          Case  #C2D_MUSIC_S68
  2384.             Typ   =  StrStrI_(?l_SC68, *x)
  2385.          CompilerEndIf
  2386.          CompilerIf  (#IsSID  +  #IsTSR)
  2387.          Case  #C2D_MUSIC_SID, #C2D_MUSIC_TSR
  2388.             Typ   =  StrStrI_(?l_SID, *x)
  2389.          CompilerEndIf
  2390.          CompilerIf  (#IsV1M  +  #IsV2M)
  2391.          Case  #C2D_MUSIC_V1M, #C2D_MUSIC_V2M
  2392.             Typ   =  StrStrI_(?l_V2M, *x)
  2393.          CompilerEndIf
  2394.          CompilerIf  #IsXM2
  2395.          Case  #C2D_MUSIC_XM2
  2396.             Typ   =  StrStrI_(?l_XM2, *x)
  2397.          CompilerEndIf
  2398.          CompilerIf  #IsYMP
  2399.          Case  #C2D_MUSIC_YMP
  2400.             Typ   =  StrStrI_(?l_YMP, *x)
  2401.          CompilerEndIf
  2402.  
  2403.          Default  ; < Min or > Max  -> search through all extensions (SCAL Mode)
  2404.  
  2405.             Typ   =  StrStrI_(SCAL_Formats(#Null, 1), *x)   ; fastest check on 2. call!
  2406.  
  2407.          EndSelect
  2408.  
  2409.          If Typ   >  0  :  Break :  EndIf
  2410.  
  2411.       Next
  2412.       ;}
  2413.  
  2414.    Else
  2415.  
  2416.       ;{ *Memory? }
  2417.  
  2418.       Protected   *ID_MOD.Long   =  *Memory  +  $438
  2419.       Protected   *ID_STM.Long   =  *Memory  +  $14
  2420.       Protected   *ID_S3M.Long   =  *Memory  +  $2C
  2421.       Protected   *ID_WAV.Long   =  *Memory  +  $8
  2422.       CompilerIf  #IsYMP
  2423.          Protected   *ID_YMP.Long   =  *Memory  +  $2
  2424.       CompilerEndIf
  2425.  
  2426.       Select   Mode
  2427.          Case  #C2D_MUSIC_PT2, #C2D_MUSIC_TPT
  2428.             Typ   =  Bool(*ID_MOD\l =  #ID_M_K_ Or
  2429.                           *ID_MOD\l =  #ID_MIKI Or
  2430.                           *ID_MOD\l =  #ID_MAKI Or
  2431.                           *ID_MOD\l =  #ID_N_T_)
  2432.  
  2433.          Case  #C2D_MUSIC_FT2
  2434.             Typ   =  Bool(*Memory\l =  #ID_XM)  +
  2435.                      Bool(*ID_MOD\l =  #ID_6CHN Or
  2436.                           *ID_MOD\l =  #ID_8CHN Or
  2437.                           *ID_MOD\l =  #ID_FLT4 Or
  2438.                           *ID_MOD\l =  #ID_FLT8 Or
  2439.                           *ID_MOD\l =  #ID_M_K_ Or
  2440.                           *ID_MOD\l =  #ID_MIKI Or
  2441.                           *ID_MOD\l =  #ID_MAKI Or
  2442.                           *ID_MOD\l =  #ID_N_T_)
  2443.  
  2444.          Case  #C2D_MUSIC_AHX, #C2D_MUSIC_THX
  2445.             Typ   =  Bool(*Memory\l =  #ID_AHX  Or
  2446.                           *Memory\l =  #ID_THX)
  2447.  
  2448.          Case  #C2D_MUSIC_FC4, #C2D_MUSIC_TFC
  2449.             Typ   =  Bool(*Memory\l =  #ID_SMOD Or
  2450.                           *Memory\l =  #ID_FC14)
  2451.  
  2452.          Case  #C2D_MUSIC_S3M
  2453.             Typ   =  Bool(*ID_S3M\l =  #ID_S3M)
  2454.  
  2455.          Case  #C2D_MUSIC_STM
  2456.             Typ   =  Bool(*ID_STM\l =  #ID_STM)
  2457.  
  2458.          Case  #C2D_MUSIC_OGG
  2459.             Typ   =  Bool(*Memory\l =  #ID_OGG)
  2460.  
  2461.          Case  #C2D_MUSIC_FLA
  2462.             Typ   =  Bool(*Memory\l =  #ID_FLAC)
  2463.  
  2464.          Case  #C2D_MUSIC_API, #C2D_MUSIC_WAV
  2465.             Typ   =  Bool(*Memory\l =  #ID_RIFF And
  2466.                           *ID_WAV\l =  #ID_WAVE)
  2467.  
  2468.          Case  #C2D_MUSIC_MOD
  2469.             Typ   =  Bool(*ID_MOD\l =  #ID_M_K_ Or
  2470.                           *ID_MOD\l =  #ID_MIKI Or
  2471.                           *ID_MOD\l =  #ID_MAKI Or
  2472.                           *ID_MOD\l =  #ID_N_T_ Or
  2473.                           *ID_MOD\l =  #ID_6CHN Or
  2474.                           *ID_MOD\l =  #ID_8CHN Or
  2475.                           *ID_MOD\l =  #ID_FLT4 Or
  2476.                           *ID_MOD\l =  #ID_FLT8)   +
  2477.                      Bool(*ID_S3M\l =  #ID_S3M)    +
  2478.                      Bool(*ID_STM\l =  #ID_STM)    +
  2479.                      Bool(*Memory\l =  #ID_XM   Or
  2480.                           *Memory\l =  #ID_IT   Or
  2481.                           *Memory\l =  #ID_UMX  Or
  2482.                           *Memory\l =  #ID_MTM  Or
  2483.                           *Memory\l =  #ID_MT20 Or
  2484.                           *Memory\l =  #ID_MMD0 Or
  2485.                           *Memory\l =  #ID_MMD1 Or
  2486.                           *Memory\l =  #ID_MMD2 Or
  2487.                           *Memory\l =  #ID_MMD3 Or
  2488.                           *Memory\l =  #ID_OKTA)   +
  2489.                      Bool(*Memory\l =  #ID_RIFF And
  2490.                           *ID_WAV\l =  #ID_WAVE)
  2491.  
  2492.          CompilerIf  #IsBAS
  2493.          Case  #C2D_MUSIC_BAS
  2494.             Typ   =  Bool(*Memory\l =  #ID_IT   Or
  2495.                           *Memory\l =  #ID_UMX  Or
  2496.                           *Memory\l =  #ID_MTM)    +
  2497.                      Bool(*Memory\l =  #ID_XM   Or
  2498.                           *ID_MOD\l =  #ID_6CHN Or
  2499.                           *ID_MOD\l =  #ID_8CHN Or
  2500.                           *ID_MOD\l =  #ID_FLT4 Or
  2501.                           *ID_MOD\l =  #ID_FLT8)   +
  2502.                      Bool(*ID_MOD\l =  #ID_M_K_ Or
  2503.                           *ID_MOD\l =  #ID_MIKI Or
  2504.                           *ID_MOD\l =  #ID_MAKI Or
  2505.                           *ID_MOD\l =  #ID_N_T_)   +
  2506.                      Bool(*ID_S3M\l =  #ID_S3M)
  2507.          CompilerEndIf
  2508.          CompilerIf  #IsBMF
  2509.          Case  #C2D_MUSIC_BMF
  2510.             Typ   =  Bool(*Memory\l =  #ID_BMF4)
  2511.          CompilerEndIf
  2512.          CompilerIf  #IsFCP
  2513.          Case  #C2D_MUSIC_FCP
  2514.             Typ   =  Bool(*Memory\l =  #ID_FC14)
  2515.          CompilerEndIf
  2516.          CompilerIf  #IsS68
  2517.          Case  #C2D_MUSIC_S68
  2518.             Typ   =  Bool(*Memory\l =  #ID_SC68)
  2519.          CompilerEndIf
  2520.          CompilerIf  (#IsSID  +  #IsTSR)
  2521.          Case  #C2D_MUSIC_SID, #C2D_MUSIC_TSR
  2522.             Typ   =  Bool(*Memory\l =  #ID_SID)
  2523.          CompilerEndIf
  2524.          CompilerIf  (#IsV2M  +  #IsV1M)
  2525.          Case  #C2D_MUSIC_V1M, #C2D_MUSIC_V2M
  2526.             Typ   =  Bool(*Memory\l =  #ID_V2M  Or
  2527.                           *Memory\l =  #ID_V2M6 Or
  2528.                           *Memory\l =  #ID_V2ME)
  2529.             ; Loosy but important v1.5 sanity check or... crash
  2530.             If Mode  =  #C2D_MUSIC_V2M And   PeekL(*Memory + Length - SizeOf(Long)) <> #Null
  2531.                Typ   =  #Null
  2532.             EndIf
  2533.          CompilerEndIf
  2534.          CompilerIf  #IsXM2
  2535.          Case  #C2D_MUSIC_XM2 :  Typ   =  Bool(*Memory\l =  #ID_XM)
  2536.          CompilerEndIf
  2537.          CompilerIf  #IsYMP
  2538.          Case  #C2D_MUSIC_YMP
  2539.             Typ   =  Bool(*ID_YMP\l =  #ID_LH5  Or
  2540.                           *Memory\l =  #ID_YM6I)
  2541.          CompilerEndIf
  2542.  
  2543.       EndSelect
  2544.       ;}
  2545.  
  2546.    EndIf
  2547.  
  2548.    ProcedureReturn   Bool(Typ > #Null)
  2549.  
  2550. EndProcedure
  2551. ProcedureDLL   SCAL_Pause(Flags)
  2552.  
  2553.    ; Flags: 1 = Pause, 0 = Resume
  2554.  
  2555.    ; Return: 1 = paused, 0 = unpaused or no pause possible by engine
  2556.  
  2557.    Static   Time
  2558.  
  2559.    With  RS_SCAL
  2560.  
  2561.       If \ID   =  #Null :  ProcedureReturn   #Null :  EndIf
  2562.  
  2563.       Flags =  Bool(Flags<>0)
  2564.  
  2565.       If \IsPause =  Flags :  ProcedureReturn   \IsPause :  EndIf
  2566.  
  2567.       \IsPause =  Flags
  2568.  
  2569.       Select   \Mode
  2570.  
  2571.          Case  #C2D_MUSIC_AHX
  2572.             ahx1play_PauseSong(\IsPause)
  2573.  
  2574.          CompilerIf  #IsAMP
  2575.          Case  #C2D_MUSIC_AMP
  2576.             AmpMusicPause(\IsPause)
  2577.          CompilerEndIf
  2578.  
  2579.          CompilerIf  #IsBAS
  2580.          Case  #C2D_MUSIC_BAS
  2581.             If \IsPause
  2582.                BASSMOD_MusicPause()
  2583.             Else
  2584.                BASSMOD_MusicPlay()
  2585.             EndIf
  2586.          CompilerEndIf
  2587.  
  2588.          CompilerIf  #IsBMF
  2589.          Case  #C2D_MUSIC_BMF
  2590.             If \IsPause
  2591.                SynthStop(\ID)
  2592.             Else
  2593.                SynthPlay(\ID)
  2594.             EndIf
  2595.          CompilerEndIf
  2596.  
  2597.          Case  #C2D_MUSIC_FC4
  2598.             fc14play_PauseSong(\IsPause)
  2599.  
  2600.          Case  #C2D_MUSIC_FLA, #C2D_MUSIC_OGG, #C2D_MUSIC_WAV
  2601.             If IsSound(0)
  2602.                If \IsPause
  2603.                   PauseSound(0)
  2604.                Else
  2605.                   ResumeSound(0)
  2606.                EndIf
  2607.             EndIf
  2608.  
  2609.          Case  #C2D_MUSIC_FT2
  2610.             ft2play_PauseSong(\IsPause)
  2611.  
  2612.          Case  #C2D_MUSIC_MCI
  2613.             If \IsPause
  2614.                mciSendString_(@"PAUSE 0", 0, 0, 0)
  2615.             Else
  2616.                mciSendString_(@"RESUME 0",   0, 0, 0)
  2617.             EndIf
  2618.  
  2619.          CompilerIf  #IsMED
  2620.          Case  #C2D_MUSIC_MED
  2621.             If \IsPause
  2622.                MEDP_Stop()
  2623.             Else
  2624.                MEDP_Play()
  2625.             EndIf
  2626.          CompilerEndIf
  2627.  
  2628.          Case  #C2D_MUSIC_MOD
  2629.             If \IsPause
  2630.                StopMusic(0)
  2631.             Else
  2632.                PlayMusic(0)
  2633.             EndIf
  2634.  
  2635.          CompilerIf  #IsMOV
  2636.          Case  #C2D_MUSIC_MOV
  2637.             If \IsPause
  2638.                PauseMovie(0)
  2639.             Else
  2640.                ResumeMovie(0)
  2641.             EndIf
  2642.          CompilerEndIf
  2643.  
  2644.          Case  #C2D_MUSIC_PT2
  2645.             pt2play_PauseSong(\IsPause)
  2646.  
  2647.          Case  #C2D_MUSIC_S3M
  2648.             st3play_PauseSong(\IsPause)
  2649.  
  2650.          CompilerIf  #IsSID
  2651.          Case  #C2D_MUSIC_SID
  2652.             If \IsPause
  2653.                SIDPause()
  2654.             Else
  2655.                SIDResume()
  2656.             EndIf
  2657.          CompilerEndIf
  2658.  
  2659.          Case  #C2D_MUSIC_STM
  2660.             st23play_PauseSong(\IsPause)
  2661.  
  2662.          CompilerIf  #IsV2M   ; Custom Pause
  2663.          Case  #C2D_MUSIC_V2M
  2664.             If \IsPause
  2665.                Time  =  V2MGetCurrentTime()
  2666.                V2MStop()
  2667.                dsClose()
  2668.             Else
  2669.                V2MInit(\Memory, \Freq, GetForegroundWindow_())
  2670.                V2MSetRepeat(1)
  2671.                dsSetVolume(0.01  *  \Volume)
  2672.                V2MPlay(Time)
  2673.             EndIf
  2674.          CompilerEndIf
  2675.  
  2676.          CompilerIf  #IsXM2
  2677.          Case  #C2D_MUSIC_XM2
  2678.             If \IsPause
  2679.                uFMOD_Pause()
  2680.             Else
  2681.                uFMOD_Resume()
  2682.             EndIf
  2683.          CompilerEndIf
  2684.  
  2685.          CompilerIf  #IsYMP
  2686.          Case  #C2D_MUSIC_YMP
  2687.             If \IsPause
  2688.                YM_Pause()
  2689.             Else
  2690.                YM_Play()
  2691.             EndIf
  2692.          CompilerEndIf
  2693.  
  2694.       Default
  2695.  
  2696.          ; #C2D_MUSIC_API, #C2D_MUSIC_FCP, #C2D_MUSIC_S68
  2697.          ; #C2D_MUSIC_SCA, #C2D_MUSIC_TFC, #C2D_MUSIC_THX
  2698.          ; #C2D_MUSIC_TPT, #C2D_MUSIC_TSR, #C2D_MUSIC_V1M
  2699.  
  2700.          \IsPause =  #Null
  2701.          ProcedureReturn   #Null
  2702.  
  2703.       EndSelect
  2704.  
  2705.       ; Timecorrection, coz some mixerticks do a simple timeline
  2706.       Select   \Mode
  2707.          Case  #C2D_MUSIC_AHX,
  2708.                #C2D_MUSIC_BAS,
  2709.                #C2D_MUSIC_BMF,
  2710.                #C2D_MUSIC_FC4,
  2711.                #C2D_MUSIC_FT2,
  2712.                #C2D_MUSIC_PT2,
  2713.                #C2D_MUSIC_MED,
  2714.                #C2D_MUSIC_MOD,
  2715.                #C2D_MUSIC_MOV,
  2716.                #C2D_MUSIC_S3M,
  2717.                #C2D_MUSIC_SID,
  2718.                #C2D_MUSIC_STM,
  2719.                #C2D_MUSIC_YMP
  2720.             If \IsPause
  2721.                Time  =  ElapsedMilliseconds()
  2722.             Else
  2723.                \TimePlay   +  ElapsedMilliseconds()   -  Time
  2724.             EndIf
  2725.       EndSelect
  2726.  
  2727.       ProcedureReturn   \IsPause
  2728.  
  2729.    EndWith
  2730.  
  2731. EndProcedure
  2732. ProcedureDLL   SCAL_Play(Mode, *Memory, Length, SubSong)
  2733.  
  2734.    ; Mode      =  -1 (autoset) or #C2D_MUSIC_[Mode]
  2735.    ; *Memory   =  Ptr to data or @Filename$
  2736.    ; Length    =  Size(End) of data or #Null (*Memory = @Filename$)
  2737.    ; SubSong   =  #Subsong to play (#AMP, #SID, #TSR)
  2738.  
  2739.    ; Return: #True = Music is playing or #False = Error!
  2740.  
  2741.    Protected   IsOK, IsAmp, i, t$, Path$, *x, MDAT$, SMPL$
  2742.    Static   File$ ; *Memory = temporary @File$
  2743.  
  2744.    SCAL_Free() ; always stop if playing
  2745.  
  2746.    With  RS_SCAL
  2747.  
  2748.       ; Check for not-supported engines (*)do NOT check with [SCA] here!
  2749.       If Mode  =  #C2D_MUSIC_V1M Or Mode  =  #C2D_MUSIC_S68
  2750.          ProcedureReturn   #Null
  2751.       EndIf
  2752.  
  2753.       ; Check if *Memory is a ptr to a @Filename
  2754.       If Length   <= #Null
  2755.          \File$   =  PeekS(*Memory, -1, \StrFormat)
  2756.       EndIf
  2757.  
  2758.       ; ==========================================================================
  2759.       ;{ Network file? ("http://...") *** also download all needed sfx-libs ***
  2760.       If Length   <= 0  And   StrStrI_(@\File$, @"://")
  2761.          If scal_Down(\File$)
  2762.             *Memory  =  @\File$
  2763.             Length   =  #Null
  2764.          Else
  2765.             SCAL_Free() :  ProcedureReturn   #Null
  2766.          EndIf
  2767.       EndIf
  2768.       ;}
  2769.       ; ==========================================================================
  2770.  
  2771.       ; ==========================================================================
  2772.       ;{ Check for zipped @File (Extension)
  2773.       If Length   <= #Null
  2774.  
  2775.          *x =  scal_Sufx(@\File$, 0)   ; ";ZIP;" etc.
  2776.  
  2777.          If *x And   StrStrI_(?l_ZIP, *x)
  2778.  
  2779.             scal_Temp(#SCAL_TempPath$)
  2780.  
  2781.             \ZipCount   =  ZIP_GetFilesCount(\File$)
  2782.  
  2783.             If \ZipCount   <= 2  ; Single zipped or TFMX (MDAT+SMPL)?
  2784.                i  =  1  ; First file in archive
  2785.             Else
  2786.                \IsZip   =  1  ; Playing subsongs from zip-archive (flag)
  2787.                ;\Songs  =  \ZipCount;
  2788.                \ZipSong =  SubSong  ; SongNumber of archive-file (for Info)
  2789.                i        =  SubSong  ; SongNumber of archive-file to unpack
  2790.                SubSong  =  #Null    ; No individual subsong when zipped archive
  2791.                If i  <= #Null :  i  =  1  :  EndIf
  2792.             EndIf
  2793.  
  2794.             t$ =  GetFilePart(ZIP_GetFileInfo(\File$, i))
  2795.  
  2796.             If Len(t$)  =  #Null :  SCAL_Free() :  ProcedureReturn   #Null :  EndIf
  2797.  
  2798.             CompilerIf  #IsAMP
  2799.                ; UnZIP always TFMX (almost same names for different songs/sample-banks (MDAT.ingame1...)
  2800.  
  2801.                *x =  PathFindExtension_(@t$)
  2802.  
  2803.                If StrStrI_(@t$, @"MDAT.") Or StrStrI_(@t$, @"SMPL.") Or ; TFMX
  2804.                   StrStrI_(*x,  @".TFX")  Or StrStrI_(*x,  @".SAM")  Or ; TFMX Custom
  2805.                   StrStrI_(*x,  @".KDM")  ; Ken's Digital Music (waves.kwv sfx-bank)
  2806.  
  2807.                   IsAMP =  #True
  2808.  
  2809.                   If ZIP_ExtractFile(\File$, i, \Temp$)  =  #False   ; Error?
  2810.                      SCAL_Free() :  ProcedureReturn   #Null
  2811.                   EndIf
  2812.  
  2813.                   If       StrStrI_(@t$, @"MDAT.") =  @t$   :  PokeS(@t$, "SMPL", -1, #PB_String_NoZero)
  2814.                   ElseIf   StrStrI_(@t$, @"SMPL.") =  @t$   :  PokeS(@t$, "MDAT", -1, #PB_String_NoZero)
  2815.                   ElseIf   StrStrI_(*x,  @".SAM")  :  PathRenameExtension_(@t$, @".TFX")  ; need the song.tfx
  2816.                   ElseIf   StrStrI_(*x,  @".TFX")  :  PathRenameExtension_(@t$, @".SAM")  ; need the sfx-file.sam
  2817.                   ElseIf   StrStrI_(*x,  @".KDM")  :  File$ =  t$ :  t$ =  "waves.kwv"    ; need kwv sfx-bank
  2818.                   EndIf
  2819.  
  2820.                   i  =  ZIP_GetFileNumber(\File$, t$)
  2821.  
  2822.                   If i  <= #Null Or ZIP_ExtractFile(\File$, i, \Temp$)  =  #False   ; Error?
  2823.                      SCAL_Free() :  ProcedureReturn   #Null
  2824.                   EndIf
  2825.  
  2826.                   ; Restore songname!
  2827.                   If       StrStrI_(@t$, @"SMPL.") =  @t$               :  PokeS(@t$, "MDAT", -1, #PB_String_NoZero)
  2828.                   ElseIf   StrStrI_(PathFindExtension_(@t$), @".SAM")   :  PathRenameExtension_(@t$, @".TFX")
  2829.                   ElseIf   StrStrI_(PathFindExtension_(@t$), @".KWV")   :  t$ =  File$
  2830.                   EndIf
  2831.  
  2832.                EndIf
  2833.             CompilerEndIf
  2834.  
  2835.             ; No AMP & Do not UnZip if already unzipped
  2836.             If IsAMP =  #Null And   FileSize(\Temp$ + t$)   <= #Null
  2837.                If ZIP_ExtractFile(\File$, i, \Temp$)  =  #False   ; Error?
  2838.                   SCAL_Free() :  ProcedureReturn   #Null
  2839.                EndIf
  2840.             EndIf
  2841.  
  2842.             ; Update to temporary unzipped filename
  2843.             \File$   =  \Temp$   +  t$
  2844.             \Title$  =  t$
  2845.             *Memory  =  @\File$
  2846.  
  2847.          EndIf
  2848.       EndIf
  2849.       ;}
  2850.       ; ==========================================================================
  2851.  
  2852.       ; ==========================================================================
  2853.       ;{ Check mode-flag (when own-call (*) [SCA] - change to default mode
  2854.       If Bool(Mode = #C2D_MUSIC_SCA Or Mode < #SCAL_MIN Or Mode > #SCAL_MAX)  ; (-1,0) .. Clamp(1 upto 29)
  2855.          If Length   >  #Null
  2856.             Mode  =  Default_Mode(*Memory, Length)
  2857.          Else
  2858.             Mode  =  Default_Mode(@\File$, #Null)
  2859.          EndIf
  2860.          If Mode  <= #Null
  2861.             SCAL_Free() :  ProcedureReturn   #Null
  2862.          EndIf
  2863.       EndIf
  2864.       ;}
  2865.       ; ==========================================================================
  2866.  
  2867.       ; ================================================================================
  2868.       ; Play from memory? Check if file-only mode -> reset to its default support-engine
  2869.       ; ================================================================================
  2870.       If Length   >  #Null
  2871.          Select   Mode  ; this can't play from memory
  2872.             Case  #C2D_MUSIC_AMP,
  2873.                   #C2D_MUSIC_MCI,
  2874.                   #C2D_MUSIC_MED,
  2875.                   #C2D_MUSIC_MOV
  2876.                Mode  =  Default_Mode(*Memory, Length)
  2877.          EndSelect
  2878.       EndIf
  2879.  
  2880.       \Mode =  Mode
  2881.  
  2882.       ; *** @File or *Memory?
  2883.       Select   \Mode
  2884.          Case  #C2D_MUSIC_AMP ; *Memory = @File (ascii)
  2885.          Case  #C2D_MUSIC_API ; *Memory & @File (ascii & utf8)
  2886.          Case  #C2D_MUSIC_BAS ; *Memory & @File (ascii)
  2887.          Case  #C2D_MUSIC_FLA ; *Memory & @File (ascii & utf8)
  2888.          Case  #C2D_MUSIC_MCI ; *Memory = @File (ascii & utf8)
  2889.          Case  #C2D_MUSIC_MED ; *Memory = @File (ascii)
  2890.          Case  #C2D_MUSIC_MOD ; *Memory & @File (ascii & utf8)
  2891.          Case  #C2D_MUSIC_MOV ; *Memory = @File (ascii & utf8)
  2892.          Case  #C2D_MUSIC_OGG ; *Memory & @File (ascii & utf8)
  2893.          Case  #C2D_MUSIC_S68 ; *Memory & @File (ascii)
  2894.          Case  #C2D_MUSIC_WAV ; *Memory & @File (ascii & utf8)
  2895.          Case  #C2D_MUSIC_XM2 ; *Memory & @File (ascii)
  2896.          Case  #C2D_MUSIC_YMP ; *Memory & @File (ascii)
  2897.  
  2898.          Default  ;{ Engines who supports *Memory only? }
  2899.  
  2900.             If Length   <= #Null
  2901.  
  2902.                If ReadFile(0, \File$)
  2903.                   Length   =  Lof(0)
  2904.                   If Length   >  0
  2905.                      \Memory  =  AllocateMemory(Length)
  2906.                      \IsAlloc =  Bool(\Memory>0)   ; flag to free temp *memory
  2907.                      If \IsAlloc
  2908.                         Length   =  ReadData(0, \Memory, Length)
  2909.                      Else
  2910.                         Length   =  #Null
  2911.                      EndIf
  2912.                   EndIf
  2913.                   CloseFile(0)
  2914.                EndIf
  2915.  
  2916.                If  Length  <= #Null
  2917.                   SCAL_Free() :  ProcedureReturn   #Null
  2918.                EndIf
  2919.  
  2920.                *Memory  =  \Memory
  2921.  
  2922.             EndIf
  2923.             ;}
  2924.  
  2925.       EndSelect
  2926.  
  2927.       If Length   >  *Memory  :  Length   -  *Memory  :  EndIf
  2928.  
  2929.       ; *** DEFAULTS ***
  2930.       \ID      =  #True ; ok by default
  2931.       \Memory  =  *Memory
  2932.       \Length  =  Length
  2933.       \SubSong =  SubSong
  2934.  
  2935.       ; *** Default name of Tracker- / Decoder ***
  2936.       If \Mode >= #SCAL_MIN   And   Mode <= #SCAL_MAX
  2937.          \Tracker$   =  StringField(PeekS(PeekI(?mode + \Mode * SizeOf(Integer))), 3, "|")
  2938.       EndIf
  2939.  
  2940.       ; =========================================================================
  2941.       ; Playback the music (na endlich...)
  2942.       ; =========================================================================
  2943.       Select   \Mode
  2944.  
  2945.          Case  #C2D_MUSIC_AHX ;{ *** Play AHX/THX (no HVL) (*Memory)
  2946.             ; http://lclevy.free.fr/exotica/ahx/ahxformat.txt
  2947.             \ID   =  ahx1play_PlaySong(\Memory, \Length, \SubSong - 1, \Freq)
  2948.             If \ID
  2949.                \Title$  =  PeekS(ahx1play_GetSongName(), -1, #PB_Ascii)
  2950.                If \Songs   =  #Null ; no zip archive?
  2951.                   \Songs   =  PeekB(\Memory  +  $D)   +  1
  2952.                EndIf
  2953.             EndIf
  2954.             ;}
  2955.  
  2956.          Case  #C2D_MUSIC_API ;{ *** Play API-Wave (*.WAV) (@File / *Memory)
  2957.             If \Length
  2958.                \ID   =  PlaySound_(\Memory, #Null, #SND_MEMORY|#SND_ASYNC|#SND_LOOP|#SND_NODEFAULT)   ; play from *Memory
  2959.             Else
  2960.                \ID   =  PlaySound_(\Memory, #Null, #SND_FILENAME|#SND_ASYNC|#SND_LOOP|#SND_NODEFAULT) ; play from file -> *Memory = @Filename$
  2961.             EndIf
  2962.             ;}
  2963.  
  2964.          Case  #C2D_MUSIC_FC4 ;{ *** Play FutureComposer 1..4 (FC) (*Memory)
  2965.             \ID   =  fc14play_PlaySong(\Memory, \Length, \Freq)
  2966.             If \ID   And   PeekL(\Memory) =  #ID_SMOD
  2967.                \Tracker$   +  " / SMOD"   ; 1.3
  2968.             EndIf
  2969.             ;}
  2970.  
  2971.          Case  #C2D_MUSIC_FLA ;{ *** Play native FLAC-decoder (*.FLAC) (@File / *Memory)
  2972.             scal_Init()
  2973.             If \Length
  2974.                \ID   =  CatchSound(0, \Memory, \Length)
  2975.             Else
  2976.                \ID   =  LoadSound(0, PeekS(\Memory))
  2977.             EndIf
  2978.             If \ID
  2979.                PlaySound(0, #PB_Sound_Loop)
  2980.                \Time =  SoundLength(0, #PB_Sound_Millisecond)
  2981.             EndIf
  2982.             ;}
  2983.  
  2984.          Case  #C2D_MUSIC_FT2 ;{ *** Play FastTracker I/II (FT/XM) & Amiga Tracker (MOD) (*Memory)
  2985.             \ID   =  ft2play_PlaySong(\Memory, \Length, 0, 1, \Freq)
  2986.             If \ID
  2987.                ft2play_SetAmp(18)
  2988.                If PeekL(\Memory) =  #ID_XM
  2989.                   \Title$     =  PeekS(\Memory + $11, 20, #PB_Ascii)
  2990.                Else
  2991.                   \Tracker$   +  " / Amiga Tracker"
  2992.                   \Title$     =  PeekS(\Memory, 20, #PB_Ascii)
  2993.                EndIf
  2994.             EndIf
  2995.             ;}
  2996.  
  2997.          Case  #C2D_MUSIC_MCI ;{ *** Play Systemfile (*.MP3;*.OGG;*.WAV;*.WMA...) (@File)
  2998.             ; https://www.vbarchiv.net/tipps/tipp_856-alles-ueber-das-multimedia-control-interface-mci-api.html
  2999.             t$ =  "OPEN " + #DQUOTE$ + PeekS(\Memory) + #DQUOTE$ + " TYPE MPEGVIDEO ALIAS 0"
  3000.             If mciSendString_(@t$, 0, 0, 0)  =  #S_OK
  3001.                t$ =  Space(#MAX_PATH)
  3002.                mciSendString_(@"SET 0 TIME FORMAT MILLISECONDS", 0, 0, 0)
  3003.                mciSendString_(@"PLAY 0 REPEAT", 0, 0, 0)
  3004.                mciSendString_(@"STATUS 0 LENGTH", @t$, #MAX_PATH, 0)
  3005.                \Time =  Val(t$)
  3006.             Else
  3007.                \ID   =  #False
  3008.             EndIf
  3009.             ;}
  3010.  
  3011.          Case  #C2D_MUSIC_MOD ;{ *** Play native Tracker (*.XM;*.IT;*.S3M;*.MOD;*.MTM;*.UMX;*.OKT;*.MED + PP20) (@File / *Memory)
  3012.             scal_Init()
  3013.             If \Length
  3014.                \ID   =  CatchMusic(0, \Memory, \Length)
  3015.             Else
  3016.                \ID   =  LoadMusic(0, PeekS(\Memory))
  3017.             EndIf
  3018.             If \ID
  3019.                PlayMusic(0)
  3020.             EndIf
  3021.             ;}
  3022.  
  3023.          Case  #C2D_MUSIC_MOV ;{ *** Play native Movie / Audio (same as MCI) (@File)
  3024.          CompilerIf  #IsMOV
  3025.             scal_Init()
  3026.             If LoadMovie(0, \File$)
  3027.                *Memory  =  GetForegroundWindow_()
  3028.                If MovieWidth(0)  >  0  ; 99 if portable
  3029.                   \WinID   =  OpenWindow(#PB_Any, 40, 40, MovieWidth(0), MovieHeight(0), GetFilePart(\File$), #PB_Window_Tool|#PB_Window_NoGadgets)
  3030.                   *Memory  =  WindowID(\WinID)
  3031.                EndIf
  3032.                If PlayMovie(0, *Memory)
  3033.                   \Time =  (MovieLength(0) / (MovieInfo(0, 0) + 1)) * 1000
  3034.                Else
  3035.                   \ID   =  #False
  3036.                EndIf
  3037.             Else
  3038.                \ID   =  #False
  3039.             EndIf
  3040.          CompilerElse
  3041.             \ID   =  #False
  3042.          CompilerEndIf
  3043.          ;}
  3044.  
  3045.          Case  #C2D_MUSIC_OGG ;{ *** Play native ogg-decoder (*.OGG) (@File / *Memory)
  3046.             scal_Init()
  3047.             If \Length
  3048.                \ID   =  CatchSound(0, \Memory, \Length)
  3049.             Else
  3050.                \ID   =  LoadSound(0, PeekS(\Memory))
  3051.             EndIf
  3052.             If \ID
  3053.                PlaySound(0, #PB_Sound_Loop)
  3054.                \Time =  SoundLength(0, #PB_Sound_Millisecond)
  3055.             EndIf
  3056.             ;}
  3057.  
  3058.          Case  #C2D_MUSIC_PT2 ;{ *** Play ProTracker 2.3D (MOD) (*Memory)
  3059.             If SCAL_IsFormat(#C2D_MUSIC_PT2, \Memory, \Length) ; check, coz pt2 crashes if an error;Default_Mode(\Memory, \Length)  =  #C2D_MUSIC_PT2
  3060.                \ID   =  pt2play_PlaySong(\Memory, \Length, #CIA_TEMPO_MODE, \Freq)
  3061.             Else
  3062.                \ID   =  #False
  3063.             EndIf
  3064.             If \ID
  3065.                \Title$  =  PeekS(pt2play_GetSongName(), -1, #PB_Ascii)
  3066.             EndIf
  3067.             ;}
  3068.  
  3069.          Case  #C2D_MUSIC_S3M ;{ *** Play ScreamTracker III (S3M) (*Memory)
  3070.             \ID   =  st3play_PlaySong(\Memory, \Length, 0, #SOUNDCARD_GUS, \Freq)
  3071.             If \ID
  3072.                \Title$  =  PeekS(st3play_GetSongName(), -1, #PB_Ascii)
  3073.             EndIf
  3074.             ;}
  3075.  
  3076.          Case  #C2D_MUSIC_STM ;{ *** Play Scream Tracker 2.3 (STM) (*Memory)
  3077.             \ID   =  st23play_PlaySong(\Memory, \Length, 0, \Freq)
  3078.             If \ID
  3079.                \Title$  =  PeekS(st23play_GetSongName(), -1, #PB_Ascii)
  3080.             EndIf
  3081.             ;}
  3082.  
  3083.          Case  #C2D_MUSIC_TPT ;{ +++ Tiny ProTracker 2.3D (MOD) (*Memory)
  3084.             If SCAL_IsFormat(#C2D_MUSIC_TPT, \Memory, \Length)
  3085.                \ID   =  tinypt2play_PlaySong(\Memory, \Length)
  3086.             EndIf
  3087.             If \ID
  3088.                \Title$  =  PeekS(\Memory, -1, #PB_Ascii)
  3089.             EndIf
  3090.             ;}
  3091.  
  3092.          Case  #C2D_MUSIC_TFC ;{ +++ Tiny FutureComposer 1..4 (FC) (*Memory)
  3093.             \ID   =  tinyfc14play_PlaySong(\Memory, \Length)
  3094.             If \ID   And   PeekL(\Memory) =  #ID_SMOD
  3095.                \Tracker$   +  " / SMOD"   ; 1.3
  3096.             EndIf
  3097.             ;}
  3098.  
  3099.          Case  #C2D_MUSIC_THX ;{ +++ Tiny AHX (no HVL) (*Memory)
  3100.             \ID   =  tinyahx1play_PlaySong(\Memory, \Length, \SubSong)
  3101.             ;}
  3102.  
  3103.          Case  #C2D_MUSIC_WAV ;{ *** Play native Wave-Decoder (*.WAV) (@File / *Memory)
  3104.             scal_Init()
  3105.             If \Length
  3106.                \ID   =  CatchSound(0, \Memory, \Length)
  3107.             Else
  3108.                \ID   =  LoadSound(0, PeekS(\Memory))
  3109.             EndIf
  3110.             If \ID
  3111.                PlaySound(0, #PB_Sound_Loop)
  3112.                \Time =  SoundLength(0, #PB_Sound_Millisecond)
  3113.             EndIf
  3114.          ;}
  3115.  
  3116.          CompilerIf  #IsAMP   ;{ *** x86 - Play AmpMaster Plugin (933+ formats) (@File)
  3117.          Case  #C2D_MUSIC_AMP
  3118.             If AmpMusicInit()
  3119.  
  3120.                ; Clone to temp & set Subsong - coz we will NOT change the original one by AmpMaster!
  3121.  
  3122.                scal_Temp(#SCAL_TempPath$) ; create temporary directory for all files
  3123.  
  3124.                Path$ =  GetPathPart(\File$)
  3125.                File$ =  GetFilePart(\File$)
  3126.  
  3127.                If StrStrI_(@File$, @"MDAT.")    ; *** MDAT.file ***
  3128.  
  3129.                   MDAT$ =  StringField(File$, 1, ".")
  3130.                   SMPL$ =  scal_Case("SMPL", MDAT$)   ; adapt upper/lower case
  3131.  
  3132.                   File$ =  StringField(File$, 2, ".") ; Filename (no extension)
  3133.  
  3134.                   ; path-check coz don't download again to temp if already downloaded
  3135.                   If (Path$   <> \Temp$)  And   scal_Size(\File$) <> scal_Size(\Temp$  + MDAT$ + File$)
  3136.                      scal_Copy(\File$,                      \Temp$ + MDAT$ + "." + File$)
  3137.                      scal_Copy(Path$ + SMPL$ + "." + File$, \Temp$ + SMPL$ + "." + File$)
  3138.                   EndIf
  3139.  
  3140.                   File$    =  \Temp$   +  MDAT$ +  "."   +  File$
  3141.                   \Memory  =  @File$
  3142.  
  3143.                   \Songs   =  AmpCountSubSongs(\Memory)
  3144.  
  3145.                ElseIf   StrStrI_(@File$, @".MDAT") ; *** file.MDAT (rare) ***
  3146.  
  3147.                   MDAT$ =  GetExtensionPart(File$)
  3148.                   SMPL$ =  scal_Case("SMPL", MDAT$)
  3149.  
  3150.                   PathRemoveExtension_(@File$)  ; no extension (MDAT)
  3151.  
  3152.                   If (Path$   <> \Temp$)  And   scal_Size(\File$) <> scal_Size(\Temp$  + MDAT$ + "." + File$)
  3153.                      scal_Copy(\File$,                      \Temp$ + MDAT$ + "." + File$)
  3154.                      scal_Copy(Path$ + File$ + "." + SMPL$, \Temp$ + SMPL$ + "." + File$)
  3155.                   EndIf
  3156.  
  3157.                   File$    =  \Temp$ + MDAT$ + "." + File$
  3158.                   \Memory  =  @File$
  3159.  
  3160.                   \Songs   =  AmpCountSubSongs(\Memory)
  3161.  
  3162.                ElseIf   StrStrI_(@File$, @".TFX")  ; *** file.TFX (MDAT Clone) ***
  3163.  
  3164.                   MDAT$ =  GetExtensionPart(File$)
  3165.                   SMPL$ =  scal_Case("SAM", MDAT$)
  3166.  
  3167.                   PathRemoveExtension_(@File$)  ; no extension (TFX)
  3168.  
  3169.                   If (Path$   <> \Temp$)  And   scal_Size(\File$) <> scal_Size(\Temp$ + File$ + "." + MDAT$)
  3170.                      scal_Copy(\File$,                      \Temp$ + File$ + "." + MDAT$)
  3171.                      scal_Copy(Path$ + File$ + "." + SMPL$, \Temp$ + File$ + "." + SMPL$)
  3172.                   EndIf
  3173.  
  3174.                   File$    =  \Temp$   +  File$ +  "." + MDAT$
  3175.                   \Memory  =  @File$
  3176.  
  3177.                   \Songs   =  AmpCountSubSongs(\Memory)
  3178.  
  3179.                ElseIf   StrStrI_(@File$, @".SID")  Or
  3180.                         StrStrI_(@File$, @".PSID") Or
  3181.                         StrStrI_(@File$, @".RSID") Or
  3182.                         StrStrI_(@File$, @".TFM")  Or
  3183.                         StrStrI_(@File$, @".TFMX") Or
  3184.                         StrStrI_(@File$, @".GBS")  Or
  3185.                         StrStrI_(@File$, @".NSF")  Or
  3186.                         StrStrI_(@File$, @".FRED") Or StrStrI_(@File$, @"FRED.")
  3187.  
  3188.                   File$    =  \Temp$   +  File$
  3189.                   \Memory  =  @File$
  3190.  
  3191.                   If (Path$   <> \Temp$)  And   scal_Size(File$)  <= #Null
  3192.                      scal_Copy(\File$, File$)
  3193.                   EndIf
  3194.  
  3195.                   \Songs   =  AmpCountSubSongs(\Memory)
  3196.  
  3197.                Else
  3198.  
  3199.                   \SubSong =  0
  3200.  
  3201.                EndIf
  3202.  
  3203.                \ID   =  AmpMusicPlay(\Memory, \SubSong)
  3204.  
  3205.                If \ID
  3206.                   \File$      =  PeekS(\Memory, -1, \StrFormat)
  3207.                   \Time       =  AmpMusicLength()
  3208.                   \Title$     =  PeekS(AmpMusicTitle(),  -1, #PB_Ascii)
  3209.                   \Tracker$   =  PeekS(AmpMusicInfo(),   -1, #PB_Ascii)
  3210.                EndIf
  3211.  
  3212.             Else
  3213.  
  3214.                \ID   =  #False   ; Error!
  3215.  
  3216.             EndIf
  3217.  
  3218.          CompilerEndIf
  3219.          ;}
  3220.  
  3221.          CompilerIf  #IsBAS   ;{ *** x86 - Play Modules (*.XM;*.IT;*.S3M;*.MOD;*.MTM;*.UMX) (@File / *Memory)
  3222.          Case  #C2D_MUSIC_BAS
  3223.             ; http://www.users.on.net/~jtlim/ImpulseTracker/
  3224.  
  3225.             BASSMOD_DllMain(GetModuleHandle_(#Null), #DLL_PROCESS_ATTACH, #Null)
  3226.  
  3227.             \ID   =  BASSMOD_Init(-1, \Freq, #Null)
  3228.  
  3229.             If \ID
  3230.  
  3231.                If \Length  ; play from *memory?
  3232.                   IsOK  =  BASSMOD_MusicLoad(#True, \Memory, 0, \Length)
  3233.                   Select   PeekL(\Memory)
  3234.                      Case  #ID_IT
  3235.                         \Tracker$   +  " / Impulse Tracker 2.14"
  3236.                      Case  #ID_UMX
  3237.                         \Tracker$   +  " / UMX Container"
  3238.                      Case  #ID_MTM
  3239.                         \Tracker$   +  " / Multi Tracker"
  3240.                      Case  #ID_XM
  3241.                         \Tracker$   +  " / Fast Tracker II"
  3242.                   EndSelect
  3243.                Else  ; play from file
  3244.                   \File$   =  PeekS(\Memory, -1, \StrFormat)
  3245.                   IsOK     =  BASSMOD_MusicLoad(#False, StrAsc(\Memory))
  3246.                EndIf
  3247.  
  3248.                If IsOK  And   BASSMOD_MusicPlay()
  3249.                   ;\Time      =  BASSMOD_MusicGetLength(1)  /  176.4 ; = 44100
  3250.                   \Time    =  BASSMOD_MusicGetLength(1)  /  (\Freq   /  250.0)   ; / 2 * 125 BPM
  3251.                   *Memory  =  BASSMOD_MusicGetName()
  3252.                   If *Memory
  3253.                      \Title$  =  PeekS(*Memory, -1, #PB_Ascii)
  3254.                   EndIf
  3255.                Else
  3256.                   \ID   =  #Null ; Error!
  3257.                EndIf
  3258.  
  3259.             EndIf
  3260.          CompilerEndIf
  3261.          ;}
  3262.  
  3263.          CompilerIf  #IsBMF   ;{ *** x86 - Play BeroTracker04 (*.BMF) (*Memory)
  3264.          Case  #C2D_MUSIC_BMF
  3265.             \ID   =  SynthCreate(SynthReadBMFSampleRate(\Memory, \Length), 2048, 1, 1)
  3266.             If \ID
  3267.                SynthReadBMF(\ID, \Memory, \Length)
  3268.                SynthPlay(\ID)
  3269.                SynthSetLooping(\ID, 1)
  3270.             EndIf
  3271.          CompilerEndIf
  3272.          ;}
  3273.  
  3274.          CompilerIf  #IsFCP   ;{ *** x86 - Play FutureComposer 1.4 (*.FC;*.FC14;*.FC4) (*Memory)
  3275.          Case  #C2D_MUSIC_FCP
  3276.             FCp_Open(GetForegroundWindow_())
  3277.             FCp_InitModule(\Memory)
  3278.             FCp_Start()
  3279.          CompilerEndIf
  3280.          ;}
  3281.  
  3282.          CompilerIf  #IsMED   ;{ *** x86 - Play OctaMED (*.MED;*.MMD0;*.MMD1;*.MMD2;*.MMD3;*.MOD + PP20) (@File)
  3283.          Case  #C2D_MUSIC_MED
  3284.             MEDPDLL_DllMain(GetModuleHandle_(#Null), #DLL_PROCESS_ATTACH, #Null)
  3285.             MEDP_Initialize(#Null, GetForegroundWindow_())
  3286.             If MEDP_Load(StrAsc(\Memory)) ; *Memory = always @Filename$
  3287.                If MEDP_IsLoaded()
  3288.                   t$ =  Space(100)
  3289.                   MEDP_Play()
  3290.                   MEDP_ModuleName(@t$, 100)
  3291.                   \Title$  =  PeekS(@t$, -1, #PB_Ascii)
  3292.                   \Time    =  Abs(MEDP_ModuleTime())  *  0.001 ; micro- to milliseconds (dear Andreas - it's buggy)
  3293.                Else
  3294.                   \ID   =  #False
  3295.                EndIf
  3296.             Else
  3297.                \ID   =  #False
  3298.             EndIf
  3299.          CompilerEndIf
  3300.          ;}
  3301.  
  3302.          CompilerIf  #IsS68   ;{ *** x86 - Play SC68 MC68000 Amiga/Atari (*.SC68;*.SNDH + GZIP) (@File / *Memory)
  3303.          Case  #C2D_MUSIC_S68
  3304.             \ID   =  sc68_Play(\Memory, \Length)
  3305.          CompilerEndIf
  3306.          ;}
  3307.  
  3308.          CompilerIf  #IsSID   ;{ *** x86 - Play C64 (*.SID) (*Memory) (need masm32.lib)
  3309.          Case  #C2D_MUSIC_SID
  3310.             If \SubSong
  3311.                \ID   =  SIDOpen(\Memory, \Length, #SID_MEMORY, #SID_NON_DEFAULT, \SubSong)
  3312.             Else
  3313.                \ID   =  SIDOpen(\Memory, \Length, #SID_MEMORY, #SID_DEFAULT, #Null)
  3314.             EndIf
  3315.             If \ID
  3316.                \Title$     =  PeekS(\Memory + $16, -1, #PB_Ascii)
  3317.                If \Songs   =  #Null
  3318.                   \Songs   =  PeekW(\Memory + $E)
  3319.                   \Songs   =  UINT16(\Songs)
  3320.                EndIf
  3321.             EndIf
  3322.          CompilerEndIf
  3323.          ;}
  3324.  
  3325.          CompilerIf  #IsTSR   ;{ *** x86 - Play C64 (*.SID) (*Memory) (no masm32.lib)
  3326.          Case  #C2D_MUSIC_TSR
  3327.             \Title$     =  PeekS(\Memory + $16, -1, #PB_Ascii)
  3328.             If \Songs   =  #Null
  3329.                \Songs      =  PeekW(\Memory + $E)
  3330.                \Songs      =  UINT16(\Songs)
  3331.             EndIf
  3332.             sid_sound_server_replay_init(\Memory, \Length, \SubSong)
  3333.             sid_sound_server_replay_play()
  3334.          CompilerEndIf
  3335.          ;}
  3336.  
  3337.          CompilerIf  #IsV1M   ;{ *** x86 - Play LibV2 1.0 (*.V2M) (*Memory)
  3338.          Case  #C2D_MUSIC_V1M
  3339.             \ID   =  ssInit(\Memory, GetForegroundWindow_())
  3340.             If \ID
  3341.                ssPlay()
  3342.                ssDoTick()
  3343.             EndIf
  3344.          CompilerEndIf
  3345.          ;}
  3346.  
  3347.          CompilerIf  #IsV2M   ;{ *** x86 - Play LibV2 1.5 (*.V2M) (*Memory)
  3348.          Case  #C2D_MUSIC_V2M
  3349.             \ID   =  V2MInit(\Memory, \Freq, GetForegroundWindow_())
  3350.             If \ID
  3351.                V2MSetRepeat(1)
  3352.                V2MPlay()
  3353.                \Time =  V2MGetTotalTime()
  3354.             EndIf
  3355.          CompilerEndIf
  3356.          ;}
  3357.  
  3358.          CompilerIf  #IsXM2   ;{ *** x86 - Play FastTracker II (*.XM) (@File / *Memory)
  3359.          Case  #C2D_MUSIC_XM2
  3360.             If \Length
  3361.                uFMOD_PlaySong(\Memory, \Length, #XM_MEMORY)       ; *memory
  3362.             Else
  3363.                uFMOD_PlaySong(StrAsc(\Memory), #Null, #XM_FILE)   ; @file
  3364.             EndIf
  3365.             \Title$     =  PeekS(uFMOD_GetTitle(), -1, #PB_Ascii)
  3366.          CompilerEndIf
  3367.          ;}
  3368.  
  3369.          CompilerIf  #IsYMP   ;{ *** x86 - Play Atari (*.YM) (@File / *Memory)
  3370.          Case  #C2D_MUSIC_YMP
  3371.             Protected   *RS_ymMusicInfo_t.RS_ymMusicInfo_t  =  AllocateStructure(RS_ymMusicInfo_t)
  3372.  
  3373.             YMPLUGIN_DllMain(GetModuleHandle_(#Null), #DLL_PROCESS_ATTACH, #Null)
  3374.             YM_Init()
  3375.  
  3376.             If \Length  >  0
  3377.                YM_Open(#Null, \Memory, \Length)
  3378.             Else
  3379.                YM_Open(StrAsc(@\File$), #Null, #Null)
  3380.             EndIf
  3381.  
  3382.             YM_Play()
  3383.             YM_Get_Info(*RS_ymMusicInfo_t)
  3384.  
  3385.             \Tracker$   +  " / " +  Trim(PeekS(*RS_ymMusicInfo_t\pSongPlayer, -1, #PB_Ascii), ".") +  " ("  +  PeekS(*RS_ymMusicInfo_t\pSongType, -1, #PB_Ascii)  +  ")"
  3386.             \Title$     =  PeekS(*RS_ymMusicInfo_t\pSongName, -1, #PB_Ascii)
  3387.             \Time       =  *RS_ymMusicInfo_t\musicTimeInSec *  1000  -  200   ; -200 ms coz no loop on (real) end
  3388.  
  3389.             FreeStructure(*RS_ymMusicInfo_t)
  3390.  
  3391.          CompilerEndIf
  3392.          ;}
  3393.  
  3394.          Default
  3395.  
  3396.             \ID   =  #False   ; unknown or play x86 on x64?
  3397.  
  3398.       EndSelect
  3399.  
  3400.       If \ID
  3401.  
  3402.          SCAL_SetVolume(\Volume)
  3403.  
  3404.          If \IsZip   ; restore subsongs from zip-archive?
  3405.             \Songs   =  \ZipCount
  3406.             \SubSong =  \ZipSong
  3407.          EndIf
  3408.  
  3409.          \TimePlay   =  ElapsedMilliseconds()
  3410.  
  3411.       Else
  3412.          SCAL_Free()
  3413.       EndIf
  3414.  
  3415.       ProcedureReturn   \ID
  3416.  
  3417.    EndWith
  3418.  
  3419. EndProcedure
  3420. ProcedureDLL   SCAL_Seek(Position, Flags)
  3421.  
  3422.    ; Position = ms or 0-100%
  3423.    ; Flags = 0 -> seek in ms, 1 -> seek in percent
  3424.  
  3425.    ; Remember: \TimePlay   =  ElapsedMilliseconds()   -  Position
  3426.  
  3427.    Protected   t$
  3428.  
  3429.    With  RS_SCAL
  3430.  
  3431.       ; Playing?
  3432.       If \ID   =  #Null :  ProcedureReturn   #Null :  EndIf
  3433.  
  3434.       If Flags ; Percent?
  3435.          If Position <  0  Or Position >  100
  3436.             Position =  #Null
  3437.          EndIf
  3438.       ElseIf   Position <  0  Or Position >  \Time    ; Milliseconds!
  3439.          Position =  #Null
  3440.       EndIf
  3441.  
  3442.       If Flags ; convert % to ms
  3443.          Position =  \Time *  0.01  *  Position
  3444.       EndIf
  3445.  
  3446.       Select   \Mode
  3447.          Case  #C2D_MUSIC_OGG, #C2D_MUSIC_FLA, #C2D_MUSIC_WAV
  3448.             If IsSound(0)
  3449.                SetSoundPosition(0, Position, #PB_Sound_Millisecond)
  3450.             EndIf
  3451.  
  3452.          Case  #C2D_MUSIC_MCI
  3453.             t$ =  "SEEK 0 TO " + Str(Position)
  3454.             mciSendString_(@t$, 0, 0, 0)
  3455.             mciSendString_(@"PLAY 0 REPEAT", 0, 0, 0)
  3456.  
  3457.          CompilerIf  #IsAMP
  3458.          Case  #C2D_MUSIC_AMP
  3459.             AmpMusicSetPosition(Position)
  3460.          CompilerEndIf
  3461.  
  3462.          CompilerIf  #IsBAS
  3463.          Case  #C2D_MUSIC_BAS
  3464.             \TimePlay   =  ElapsedMilliseconds()   -  Position
  3465.             Position =  $FFFF0000   |  (Position   /  1000)
  3466.             BASSMOD_MusicSetPosition(Position)
  3467.          CompilerEndIf
  3468.  
  3469.          CompilerIf  #IsMED   ; Error
  3470. ;        Case  #C2D_MUSIC_MED
  3471. ;           If Flags ; only percent (coz unknown / buggy? ticks)
  3472. ;              \TimePlay   =  ElapsedMilliseconds()   -  Position
  3473. ;              Position    =  Abs(MEDP_ModuleLength())   *  0.01  *  Position
  3474. ;              MEDP_SetPlayPosition(Position)
  3475. ;           EndIf
  3476.          CompilerEndIf
  3477.  
  3478.          CompilerIf  #IsV2M
  3479.          Case  #C2D_MUSIC_V2M
  3480.             V2MStop()
  3481.             dsClose()
  3482.             V2MInit(\Memory, \Freq, GetForegroundWindow_())
  3483.             V2MSetRepeat(1)
  3484.             dsSetVolume(0.01  *  \Volume)
  3485.             V2MPlay(Position)
  3486.          CompilerEndIf
  3487.  
  3488.          CompilerIf  #IsYMP
  3489.          Case  #C2D_MUSIC_YMP
  3490.             \TimePlay   =  ElapsedMilliseconds()   -  Position
  3491.             Position /  1000
  3492.             YM_Seek(Position)
  3493.          CompilerEndIf
  3494.  
  3495.       EndSelect
  3496.  
  3497.    EndWith
  3498.  
  3499. EndProcedure
  3500. ProcedureDLL   SCAL_SetFreq(Freq)
  3501.    If Freq  <= #Null
  3502.       Freq  =  44100
  3503.    EndIf
  3504.    RS_SCAL\Freq   =  Freq
  3505. EndProcedure
  3506. ProcedureDLL   SCAL_SetString(Format)
  3507.  
  3508.    ; Set stringformat to AscII, UTF8, Unicode
  3509.  
  3510.    ; Format:   ASCII =  1 or #PB_Ascii (24)
  3511.    ;           UTF8  =  3
  3512.    ;           UNICODE  =  any other number (default)
  3513.  
  3514.    ; Tipp = SizeOf(Character))
  3515.  
  3516.    With  RS_SCAL
  3517.       Select   Format
  3518.          Case  1, #PB_Ascii
  3519.             \StrFormat  =  #PB_Ascii
  3520.          Case  3; #PB_UTF8
  3521.             \StrFormat  =  #PB_UTF8
  3522.          Default
  3523.             \StrFormat  =  #PB_Unicode
  3524.       EndSelect
  3525.    EndWith
  3526.  
  3527. EndProcedure
  3528. ProcedureDLL   SCAL_SetVolume(Percent)
  3529.  
  3530.    Protected   t$
  3531.  
  3532.    With  RS_SCAL
  3533.  
  3534.       If Percent  <  0
  3535.          Percent  =  0
  3536.       ElseIf   Percent  >  100
  3537.          Percent  =  100
  3538.       EndIf
  3539.  
  3540.       \Volume  =  Percent
  3541.  
  3542.       ; Playing?
  3543.       If \ID   =  #Null :  ProcedureReturn   :  EndIf
  3544.  
  3545.       Select   \Mode
  3546.          Case  #C2D_MUSIC_FT2 :  ft2play_SetMasterVol(2.56  *  \Volume)
  3547.          Case  #C2D_MUSIC_PT2 :  pt2play_SetMasterVol(2.56  *  \Volume)
  3548.          Case  #C2D_MUSIC_FC4 :  fc14play_SetMasterVol(2.56 *  \Volume)
  3549.          Case  #C2D_MUSIC_STM :  st23play_SetMasterVol(2.56 *  \Volume)
  3550.          Case  #C2D_MUSIC_S3M :  st3play_SetMasterVol(2.56  *  \Volume)
  3551.  
  3552.          Case  #C2D_MUSIC_MCI
  3553.             t$ =  "SETAUDIO 0 VOLUME TO " + Str(10 * \Volume)
  3554.             mciSendString_(@t$, 0, 0, 0)  ; 0 - 1000
  3555.  
  3556.          Case  #C2D_MUSIC_MOD :  MusicVolume(0, \Volume)
  3557.          Case  #C2D_MUSIC_MOV :  MovieAudio(0,  \Volume, 0)
  3558.  
  3559.          Case  #C2D_MUSIC_FLA, #C2D_MUSIC_OGG, #C2D_MUSIC_WAV
  3560.             SoundVolume(0, \Volume)
  3561.  
  3562.          CompilerIf  #IsAMP
  3563.          Case  #C2D_MUSIC_AMP
  3564.             AmpMusicVolume(2.55  *  \Volume)
  3565.          CompilerEndIf
  3566.  
  3567.          CompilerIf  #IsBAS
  3568.          Case  #C2D_MUSIC_BAS
  3569.             BASSMOD_SetVolume(\Volume)
  3570.          CompilerEndIf
  3571.  
  3572.          CompilerIf  #IsV2M
  3573.          Case  #C2D_MUSIC_V2M
  3574.             dsSetVolume(0.01  *  \Volume)
  3575.          CompilerEndIf
  3576.  
  3577.          CompilerIf  #IsXM2
  3578.          Case  #C2D_MUSIC_XM2
  3579.             uFMOD_SetVolume(0.25 *  \Volume)
  3580.          CompilerEndIf
  3581.  
  3582.          CompilerIf  #IsYMP
  3583.          Case  #C2D_MUSIC_YMP
  3584.             YM_SetVolume(2.55 *  \Volume)
  3585.          CompilerEndIf
  3586.  
  3587.       EndSelect
  3588.  
  3589.    EndWith
  3590.  
  3591. EndProcedure
  3592. ProcedureDLL   SCAL_Struct()
  3593.  
  3594.    ; creates temporary directory for all files
  3595.    ; define RS_SCAL\Temp$ even if not exist
  3596.  
  3597.    ; Return: private *structure
  3598.  
  3599.    scal_Temp(#SCAL_TempPath$)
  3600.  
  3601.    ProcedureReturn   @RS_SCAL
  3602.  
  3603. EndProcedure
  3604. ProcedureDLL   SCAL_Table(Mode)
  3605.  
  3606.    ; Mode = #C2D_MUSIC_[ID]
  3607.  
  3608.    ; Return:   ptr to infostring or table
  3609.  
  3610.    Static   *Memory.Integer
  3611.  
  3612.    *Memory  =  ?mode
  3613.  
  3614.    If Mode >= #Null  And   Mode <= #SCAL_MAX
  3615.       *Memory  +  Mode  *  SizeOf(Integer)
  3616.       ProcedureReturn   *Memory\i
  3617.    EndIf
  3618.  
  3619.    ProcedureReturn   *Memory
  3620.  
  3621. EndProcedure
  3622. ProcedureDLL   SCAL_Version()
  3623.    ; 100 = 1.00
  3624.    ProcedureReturn   #SCAL_VERSION
  3625. EndProcedure
  3626.  
  3627. DataSection
  3628.  
  3629.    IncludePath "Include\"
  3630.  
  3631.    l_Start: ; Compare extensions
  3632.  
  3633.    l_AHX:   :  IncludeFile "i_AHX.pbi"
  3634.    l_FC4:   :  IncludeFile "i_FC4.pbi"
  3635.    l_FLA:   :  IncludeFile "i_FLA.pbi"
  3636.    l_FT2:   :  IncludeFile "i_FT2.pbi"
  3637.    l_MOD:   :  IncludeFile "i_MOD.pbi"
  3638.    l_OGG:   :  IncludeFile "i_OGG.pbi"
  3639.    l_PT2:   :  IncludeFile "i_PT2.pbi"
  3640.    l_S3M:   :  IncludeFile "i_S3M.pbi"
  3641.    l_STM:   :  IncludeFile "i_STM.pbi"
  3642.    l_API:   ; same as wav
  3643.    l_WAV:   :  IncludeFile "i_WAV.pbi"
  3644.    l_MOV:   ; same as mci
  3645.    l_MCI:   :  IncludeFile "i_MCI.pbi"
  3646.  
  3647.    CompilerIf  #IsAMP
  3648.    l_AMP:   :  IncludeFile "i_AMP.pbi"
  3649.    CompilerEndIf
  3650.    CompilerIf  #IsBAS
  3651.    l_BAS:   :  IncludeFile "i_BAS.pbi"
  3652.    CompilerEndIf
  3653.    CompilerIf  #IsBMF
  3654.    l_BMF:   :  IncludeFile "i_BMF.pbi"
  3655.    CompilerEndIf
  3656.    CompilerIf  #IsFCP
  3657.    l_FCP:   :  IncludeFile "i_FCP.pbi"
  3658.    CompilerEndIf
  3659.    CompilerIf  #IsMED
  3660.    l_MED:   :  IncludeFile "i_MED.pbi"
  3661.    CompilerEndIf
  3662.    CompilerIf  #IsS68
  3663.    l_SC68:  :  IncludeFile "i_S68.pbi"
  3664.    CompilerEndIf
  3665.    CompilerIf  (#IsSID  +  #IsTSR)
  3666.    l_TSR:   ; same as sid
  3667.    l_SID:   :  IncludeFile "i_SID.pbi"
  3668.    CompilerEndIf
  3669.    CompilerIf  (#IsV1M  +  #IsV2M)
  3670.    l_V1M:   ; same as v2m
  3671.    l_V2M:   :  IncludeFile "i_V2M.pbi"
  3672.    CompilerEndIf
  3673.    CompilerIf  #IsXM2
  3674.    l_XM2:   :  IncludeFile "i_XM2.pbi"
  3675.    CompilerEndIf
  3676.    CompilerIf  #IsYMP
  3677.    l_YMP:   :  IncludeFile "i_YMP.pbi"
  3678.    CompilerEndIf
  3679.  
  3680.    l_ZIP:   :  IncludeFile "i_ZIP.pbi"
  3681.  
  3682.    l_Finish:   :  Data.l   #Null ; End of compare extensions
  3683.  
  3684.    ; Playengines: ID | Processor x86-64 | Trackerinfo/name -> never change order (same as #C2D_MUSIC_[ID])!
  3685.    mode: :  Data.i   ?m0,?m1,?m2,?m3,?m4,?m5,?m6,?m7,?m8,?m9,?m10,?m11,?m12,?m13,?m14,?m15,?m16,?m17,?m18,?m19,?m20,?m21,?m22,?m23,?m24,?m25,?m26,?m27,?m28,?m29
  3686.    m0:   :  Data.s   "AUTO|x86-64|Autodetect"
  3687.    m1:   :  Data.s   "AHX|x86-64|Amiga Abyss' Highest eXperience 1.00-1.27"
  3688.    m2:   :  Data.s   "AMP|x86|AmpMaster_x86.dll"
  3689.    m3:   :  Data.s   "API|x86-64|PlaySound Wave API"
  3690.    m4:   :  Data.s   "BAS|x86|BASSMOD 2.0"
  3691.    m5:   :  Data.s   "BMF|x86|BeRo 404 Tracker"
  3692.    m6:   :  Data.s   "FC4|x86-64|Amiga Future Composer 1.0-1.4"
  3693.    m7:   :  Data.s   "FCP|x86|Amiga Future Composer 1.4"
  3694.    m8:   :  Data.s   "FLA|x86-64|Pure Free Lossless Audio Codec"
  3695.    m9:   :  Data.s   "FT2|x86-64|FastTracker I / II"
  3696.    m10:  :  Data.s   "MCI|x86-64|Media Control Interface"
  3697.    m11:  :  Data.s   "MED|x86|Amiga OctaMED / MEDP 1.0"
  3698.    m12:  :  Data.s   "MOD|x86-64|Pure ModPlug Module"
  3699.    m13:  :  Data.s   "MOV|x86-64|Pure Movie Mediadecoder"
  3700.    m14:  :  Data.s   "OGG|x86-64|Pure OGG Vorbis Decoder"
  3701.    m15:  :  Data.s   "PT2|x86-64|Amiga ProTracker 2.3d"
  3702.    m16:  :  Data.s   "S3M|x86-64|ScreamTracker v3.21"
  3703.    m17:  :  Data.s   "S68|x86|SC68 MC68000 Amiga / Atari"
  3704.    m18:  :  Data.s   "SCA|x86-64|SCAL DLL"
  3705.    m19:  :  Data.s   "SID|x86|C64 TitchySid"
  3706.    m20:  :  Data.s   "STM|x86-64|ScreamTracker v2.2-2.3"
  3707.    m21:  :  Data.s   "TFC|x86-64|Tiny Future Composer 1.0-1.4"
  3708.    m22:  :  Data.s   "THX|x86-64|Tiny Abyss' Highest eXperience 1.00-1.27"
  3709.    m23:  :  Data.s   "TPT|x86-64|Tiny ProTracker 2.3d"
  3710.    m24:  :  Data.s   "TSR|x86|C64 Sid SoundServer"
  3711.    m25:  :  Data.s   "V1M|x86|Farbrausch V2 Synthesizer System v1.0"
  3712.    m26:  :  Data.s   "V2M|x86|Farbrausch V2 Synthesizer System v1.5"
  3713.    m27:  :  Data.s   "WAV|x86-64|Pure WAV Sound Decoder"
  3714.    m28:  :  Data.s   "XM2|x86|uFMOD FastTracker II"
  3715.    m29:  :  Data.s   "YMP|x86|Atari ST YM2149 (LZH-h0)"
  3716.  
  3717.    s_unknown:  :  Data.s   "?"
  3718.  
  3719. EndDataSection
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!