API tools faq
paste
Advertisement
Testaware

AmpMaster DLL v1.17.9.3 (x86)

Testaware
Aug 30th, 2017
2,452
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PureBasic 45.35 KB | None | 0 0
raw download clone embed print report
  1. ;************************************************************************************************
  2. ;* AmpMasterLibrary DLL (x86) v1.17.9 - 03.09.2017 13:53 - PB 5.44 LTS - Peace^TST
  3. ;* ----------------------------------------------------------------------------------------------
  4. ;* Unit for WinAmp In/Out Dlls x86 - no unicode!
  5. ;* ----------------------------------------------------------------------------------------------
  6. ;* https://testaware.wordpress.com
  7. ;************************************************************************************************
  8. ;EnableExplicit
  9.  
  10. #AMP_VER =  #PB_Compiler_Date
  11.  
  12. #IsAPI   =  1  ;* Windows API -> 1 = on / 0 = off (always off -> coz buggy API)
  13.  
  14. XIncludeFile   "Includes\i_amp_enumeration.pbi"
  15. XIncludeFile   "Includes\i_amp_structures.pbi"
  16. XIncludeFile   "Includes\i_amp_macros.pbi"
  17. XIncludeFile   "Includes\i_amp_player.pbi"
  18. XIncludeFile   "Includes\i_amp_table.pbi"
  19.  
  20. ; *** IDs for Subsongs: *.sid;*.mdat;*.tfm;*.tfx;*.nsf;*.gbs;*.fred
  21. #ID_FR10 =  ID_MAGIC($4E,$FA,$00,$10)  ; FRED10
  22. #ID_FR12 =  ID_MAGIC($4E,$FA,$00,$12)  ; FRED12
  23. #ID_FR4E =  ID_MAGIC($4E,$FA,$00,$4E)  ; FRED4E
  24. #ID_FR78 =  ID_MAGIC($4E,$FA,$00,$78)  ; FRED78
  25. #ID_FRSS =  $F1D4                      ; FRED SubSong (*.fred Word $6000 = 6 Songs $SN = always 0..6=7)
  26. #MAX_FRED=  %1111                      ; Max. Subsongs ($F/15) (random-crap)
  27.  
  28. #ID_GBS1 =  ID_MAGIC('G','B','S', 1 )  ; GBS1   =  *.gbs
  29. #ID_NESM =  ID_MAGIC('N','E','S','M')  ; NESM   =  *.nsf
  30. #ID_PSID =  ID_MAGIC('P','S','I','D')  ; PSID   =  *.sid
  31.  
  32. #ID_TFMX =  ID_MAGIC('T','F','M','X')  ; TFMX   =  mdat.*, *.tfm
  33. #ID_SONG =  ID_MAGIC('-','S','O','N')  ; TFMX-SON(G)
  34. #ID_TMOD =  ID_MAGIC('-','M','O','D')  ; TFMX-MERGED *.tfm
  35. #ID_2001 =  ID_MAGIC(' ', 0,  0,  1 )  ; TFMX-CUSTOM
  36. #ID_AMP0 =  ID_MAGIC('A','M','P', 0 )  ; TFMX-AMP0 = Private Tag (ReSet-SubSong) V1
  37.  
  38. DeclareCDLL Amp_Free()
  39.  
  40. ProcedureDLL   AttachProcess(Instance)
  41.  
  42.    Global   RS_WINAMP.RS_WINAMP        ; Winamp structure
  43.    Global   RS_AMPMASTER.RS_AMPMASTER  ; AmpMaster structure
  44.    Global   RS_AMPTIME.RS_AMPTIME      ; Intern timehandling structure
  45.  
  46.    Global   *i_n  =  ?i_n  ; s. include i_amp_table.pbi
  47.  
  48.    RS_AMPMASTER\ProgramName$  =  ProgramFilename()
  49.  
  50. EndProcedure
  51. ProcedureDLL   DetachProcess(Instance)
  52.    Amp_Free()
  53. EndProcedure
  54.  
  55. ProcedureC  Amp_Dummy(*pointer=#Null, numsamples=#Null, bps=#Null, nch=#Null);, srate=#Null, temp=#Null)
  56.    ProcedureReturn   numsamples
  57. EndProcedure
  58. ProcedureC  Amp_IsFile(*File)
  59.  
  60.    ;*************************************************************
  61.    ; Let's check for avail file to avoid loosy request by plugins
  62.    ; ------------------------------------------------------------
  63.    ; Return:   1 = file exist / 0 = file not found
  64.    ;*************************************************************
  65.    If *File =  #Null :  ProcedureReturn   #False   :  EndIf
  66.  
  67.    Protected   iStatus
  68.  
  69.    iStatus  =  FileSize(PeekS(*File))
  70.  
  71.    ProcedureReturn   Bool(iStatus > #Null)
  72.  
  73. EndProcedure
  74.  
  75. ProcedureCDLL  Amp_VersionStr(Flags.i)
  76.  
  77.    With  RS_AMPMASTER
  78.  
  79.       Protected   t$
  80.  
  81.       t$ =  StrU(Year(#AMP_VER)%1000)  +  "."   +
  82.             StrU(Month(#AMP_VER))      +  "."   +
  83.             StrU(Day(#AMP_VER))
  84.  
  85.       If Flags
  86.          t$ +  RSet(StrU(Hour(#AMP_VER)),    3)       +  ":"   +
  87.                RSet(StrU(Minute(#AMP_VER)),  2, "0")  +  ":"   +
  88.                RSet(StrU(Second(#AMP_VER)),  2, "0")
  89.       EndIf
  90.  
  91.       \Version$   =  #AMP_NAME$  +  " v1."   +  t$ +  " (x86)"
  92.  
  93.       ProcedureReturn   @\Version$
  94.  
  95.    EndWith
  96.  
  97. EndProcedure
  98.  
  99. ProcedureCDLL  Amp_Close()
  100.  
  101.    With  RS_WINAMP
  102.  
  103.       If \In2_DLL
  104.          If RS_AMPMASTER\IsPause
  105.             If \In2_Head\UnPause :  CallCFunctionFast(\In2_Head\UnPause)   :  EndIf
  106.          EndIf
  107.          If RS_AMPMASTER\IsPlay
  108.             If \In2_Head\Stop    :  CallCFunctionFast(\In2_Head\Stop)      :  EndIf
  109.          EndIf
  110.          If \In2_Head\Quit       :  CallCFunctionFast(\In2_Head\Quit)      :  EndIf
  111.       EndIf
  112.  
  113.       If \Out_DLL
  114.          If \Out_Head\Quit :  CallCFunctionFast(\Out_Head\Quit)   :  EndIf
  115.       EndIf
  116.  
  117.       If \In2_DLL :  MA_LibClose(\In2_DLL)   :  EndIf
  118.       If \Out_DLL :  MA_LibClose(\Out_DLL)   :  EndIf
  119.  
  120.    EndWith
  121.  
  122.    With  RS_AMPMASTER
  123.       \IsOpen  =  #False
  124.       \IsPause =  #False
  125.       \IsPlay  =  #False
  126.    EndWith
  127.  
  128.    ClearStructure(@RS_WINAMP, RS_WINAMP)
  129.    ClearStructure(@RS_AMPTIME,RS_AMPTIME)
  130.  
  131. EndProcedure
  132. ProcedureCDLL  Amp_Free()
  133.  
  134.    Amp_Close()
  135.  
  136.    ClearStructure(@RS_AMPMASTER, RS_AMPMASTER)
  137.  
  138. EndProcedure
  139. ProcedureCDLL  Amp_Init()
  140.  
  141.    Amp_Free()
  142.  
  143.    With  RS_AMPMASTER
  144.       \ProgramName$  =  ProgramFilename()
  145.       \Path$         =  GetPathPart(\ProgramName$) +  #DAMP_PATH$
  146.       \OutPath$      =  #DAMP_PATH$
  147.       \InPath$       =  #DAMP_PATH$
  148.       \InDll$        =  #DAMP_InDll$
  149.       \OutDll$       =  #DAMP_OUTDLL$
  150.       \Volume        =  #DAMP_VOLUME
  151.       \DefaultLength =  #DAMP_LENGTH
  152.    EndWith
  153.  
  154. EndProcedure
  155. ProcedureCDLL  Amp_Open()
  156.  
  157.    Protected   In_Ptr
  158.  
  159.    Amp_Close() ; Already open -> close all and clear RS_WINAMP structure
  160.  
  161.    With  RS_AMPMASTER
  162.  
  163.       ; Is path of AmpLibs -> or default -> "AmpLibs\"
  164.       If Len(\Path$)    =  #Null :  \Path$   =  GetPathPart(\ProgramName$) +  #DAMP_PATH$ :  EndIf
  165.       If Right(\Path$, 1)  <> "\":  \Path$   +  "\"   :  EndIf
  166.  
  167.       ; Set in_dll -> or use default one one -> "in_xmp.dll"
  168.       If Len(\InDll$)   =  #Null :  \InDll$  =  #DAMP_INDLL$   :  EndIf
  169.       If Len(\InPath$)  <  2     :  \InPath$ =  \Path$         :  EndIf
  170.  
  171.       ; Set out_dll -> or use default one -> "out_wave.dll"
  172.       If Len(\OutDll$)  =  #Null :  \OutDll$ =  #DAMP_OUTDLL$  :  EndIf
  173.       If Len(\OutPath$) <  2     :  \OutPath$=  \Path$         :  EndIf
  174.  
  175.       \InDll$  =  \InPath$    +  GetFilePart(\InDll$)
  176.       \OutDll$ =  \OutPath$   +  GetFilePart(\OutDll$)
  177.  
  178.       ; Check if in/out avail
  179.       If Amp_IsFile(@\InDll$) =  #False   :  RETURN_ERR(#EAMP_OPEN_INDLL)  :  EndIf
  180.       ;If   Amp_IsFile(@\OutDll$)=  #False   :  RETURN_ERR(#EAMP_OPEN_OUTDLL) :  EndIf
  181.  
  182.       If \WindowID   =  #Null :  \WindowID   =  GetForegroundWindow_()  :  EndIf
  183.  
  184.    EndWith
  185.  
  186.    ;************************************************
  187.    ; Initialize WinAmp In/Out - Libraries
  188.    ;************************************************
  189.    With  RS_WINAMP
  190.  
  191.       ; Set windowhandle -> or use foreground
  192.       \WindowID   =  RS_AMPMASTER\WindowID
  193.  
  194.       SetCurrentDirectory(RS_AMPMASTER\InPath$) ; Must set for sublibs & ini
  195.  
  196.       ; IN_DLL
  197.       ; -------------------------------------------------
  198.       MA_LibOpen(\In2_DLL, RS_AMPMASTER\InDll$)
  199.  
  200.       If \In2_DLL >  #Null
  201.  
  202.          MA_LibPtr(\In2_DLL, \In2_GeInModule2, "winampGetInModule2")
  203.  
  204.          If \In2_GeInModule2
  205.  
  206.             \In2_Head   =  CallCFunctionFast(\In2_GeInModule2)
  207.  
  208.             If \In2_Head   >  #Null
  209.  
  210.                \In2_Head\Version       =  #IN_VER
  211.                \In2_Head\hMainWindow   =  \WindowID
  212.                \In2_Head\hDllInstance  =  \In2_DLL
  213.  
  214.                CallCFunctionFast(\In2_Head\Init)
  215.  
  216.                ;dummy-routines (not used but needed)
  217.                \In2_Head\SAVSAInit     =  @Amp_Dummy()
  218.                \In2_Head\SAVSADeInit   =  @Amp_Dummy()
  219.                \In2_Head\SAAddPCMData  =  @Amp_Dummy()
  220.                \In2_Head\SAGetMode     =  @Amp_Dummy()
  221.                \In2_Head\SAAdd         =  @Amp_Dummy()
  222.                \In2_Head\VSAAddPCMData =  @Amp_Dummy()
  223.                \In2_Head\VSAGetMode    =  @Amp_Dummy()
  224.                \In2_Head\VSAAdd        =  @Amp_Dummy()
  225.                \In2_Head\VSASetInfo    =  @Amp_Dummy()
  226.                \In2_Head\dsp_isactive  =  @Amp_Dummy()
  227.                \In2_Head\dsp_dosamples =  @Amp_Dummy()
  228.                \In2_Head\EQSet         =  @Amp_Dummy()
  229.                \In2_Head\SetInfo       =  @Amp_Dummy()
  230.  
  231.                RS_AMPMASTER\InInfo$ =  PeekS(\In2_Head\description)
  232.  
  233.             EndIf
  234.          EndIf
  235.       EndIf
  236.  
  237.       If \In2_DLL <= #Null Or \In2_Head   <= #Null ; In-Error?
  238.          Amp_Close() :  RETURN_ERR(#EAMP_OPEN_INDLL)
  239.       EndIf
  240.  
  241.       ; OUT_DLL
  242.       ; -------------------------------------------------
  243.       If \In2_Head\UsesOutputPlug   ; does this plug-in use the output plug-ins?
  244.  
  245.          If Amp_IsFile(@RS_AMPMASTER\OutDll$)=  #False   :  RETURN_ERR(#EAMP_OPEN_OUTDLL) :  EndIf
  246.  
  247.          MA_LibOpen(\Out_DLL, RS_AMPMASTER\OutDll$)
  248.  
  249.          If \Out_DLL >  #Null
  250.  
  251.             MA_LibPtr(\Out_DLL, \Out_GetOutModule, "winampGetOutModule")
  252.  
  253.             \Out_Head   =  CallCFunctionFast(\Out_GetOutModule)
  254.  
  255.             If \Out_Head   >  #Null
  256.                \Out_Head\Version       =  #OUT_VER
  257.                \Out_Head\hMainWindow   =  \WindowID
  258.                \Out_Head\hDllInstance  =  \Out_DLL
  259.                CallCFunctionFast(\Out_Head\Init)
  260.             EndIf
  261.  
  262.          EndIf
  263.  
  264.          If \Out_DLL <= #Null Or \Out_Head   <= #Null ; Out-Error?
  265.             Amp_Close() :  RETURN_ERR(#EAMP_OPEN_OUTDLL)
  266.          EndIf
  267.  
  268.          \In2_Head\outMod        =  \Out_Head
  269.  
  270.          RS_AMPMASTER\OutInfo$   =  PeekS(\Out_Head\description)
  271.  
  272.       Else
  273.  
  274.          RS_AMPMASTER\OutInfo$   =  "No use of output plug-ins"
  275.  
  276.       EndIf
  277.  
  278.    EndWith
  279.  
  280.    RS_AMPMASTER\IsOpen  =  #True
  281.  
  282.    RETURN_ERR(#EAMP_OK)
  283.  
  284. EndProcedure
  285.  
  286. ProcedureCDLL  Amp_GetInFlags(*InLib)
  287.  
  288.    With  RS_AMPMASTER
  289.  
  290.       \InFlags =  #FAMP_DEFAULT
  291.  
  292.       If *InLib
  293.  
  294.          Protected   File$ =  GetFilePart(PeekS(*InLib))
  295.  
  296.          Protected   *i_x.RS_INTABLE   =  *i_n
  297.  
  298.          While *i_x\iFLG
  299.  
  300.             If StrCmpNI_(@*i_x\iLIB\s, @File$, Len(File$))  =  #Null
  301.                \InFlags =  PeekI(*i_x\iFLG)
  302.                Break
  303.             EndIf
  304.  
  305.             *i_x  +  SizeOf(RS_INTABLE)
  306.  
  307.          Wend
  308.  
  309.          If \IsPlay
  310.             If RS_WINAMP\In2_Head\is_seekable   =  #Null ; is this stream not seekable?
  311.                \InFlags|#FAMP_NO_SEEK
  312.             EndIf
  313.             If RS_WINAMP\In2_Head\UsesOutputPlug=  #Null ; doesn't this plug-in use output plug-ins?
  314.                \InFlags|#FAMP_NO_OUTPUT|#FAMP_NO_RECORD
  315.             EndIf
  316.          EndIf
  317.  
  318.       EndIf
  319.  
  320.       ProcedureReturn   \InFlags
  321.  
  322.    EndWith
  323.  
  324. EndProcedure
  325. ProcedureCDLL  Amp_GetAmpInFormatStr(*InLib)
  326.  
  327.    ; Returns all supported formats by given *InLib only as string
  328.  
  329.    With  RS_AMPMASTER
  330.  
  331.       Protected   File$ =  GetFilePart(PeekS(*InLib))
  332.       Protected   *i_x.RS_INTABLE   =  *i_n
  333.  
  334.       \InFormats$ =  #Empty$
  335.  
  336.       While *i_x\iFLG
  337.  
  338.          If StrCmpNI_(@*i_x\iLIB\s, @File$, Len(File$))  =  #Null
  339.             \InFormats$ =  *i_x\iEXT\s
  340.             Break
  341.          EndIf
  342.  
  343.          *i_x  +  SizeOf(RS_INTABLE)   ; Next in Table-Ptr
  344.  
  345.       Wend
  346.  
  347.       CharLower_(@\InFormats$)
  348.  
  349.       ProcedureReturn   @\InFormats$
  350.  
  351.    EndWith
  352.  
  353. EndProcedure
  354.  
  355. ;-
  356. ;- *** Play-Stuff ***
  357. ProcedureCDLL  Amp_MusicPlay(*File)
  358.  
  359.    ; Play musicfile, returns 0 if all ok
  360.  
  361.    With  RS_AMPMASTER
  362.  
  363.       If \IsOpen           =  #False   :  RETURN_ERR(#EAMP_INITIALIZE)  :  EndIf
  364.       If Amp_IsFile(*File) =  #False   :  RETURN_ERR(#EAMP_OPEN_FILE)   :  EndIf
  365.  
  366.       \MusicFile$ =  PeekS(*File)
  367.  
  368.       Amp_GetInFlags(@\InDll$)   ; get flags of in_dll
  369.  
  370.       If \InFlags&#FAMP_EX_SFX
  371.          If GetPathPart(\MusicFile$)
  372.             SetCurrentDirectory(GetPathPart(\MusicFile$))   ; Must set for miniusf, minipsf...
  373.          EndIf
  374.       Else
  375.          If GetCurrentDirectory()   <> \InPath$
  376.             SetCurrentDirectory(\InPath$) ; Must set for sublibs & ini
  377.          EndIf
  378.       EndIf
  379.  
  380.       ; Try to get Tag-Title and real length in ms by played file (*File=0 doesn't work for wma)
  381.       CallCFunctionFast(RS_WINAMP\In2_Head\GetFileInfo, *File, @\Buffer, @\MusicTime)
  382.  
  383.       ; Title of musicfile (eg. *.Mod)
  384.       If \Buffer
  385.          \MusicTitle$   =  \Buffer  ; get title
  386.       Else
  387.          \MusicTitle$   =  GetFilePart(\MusicFile$)   ; use filename
  388.       EndIf
  389.  
  390.       \MusicLength   =  \MusicTime  ; length in ms
  391.  
  392.       If CallCFunctionFast(RS_WINAMP\In2_Head\Play, *File)  <> #EAMP_OK ; Error?
  393.          RETURN_ERR(#EAMP_UNKOWN_FORMAT)
  394.       EndIf
  395.  
  396.       CallCFunctionFast(RS_WINAMP\In2_Head\SetVolume, \Volume) ; s. Amp_Init()
  397.       CallCFunctionFast(RS_WINAMP\In2_Head\SetPan,    \Pan)    ; s. Amp_Init()
  398.  
  399.       If RS_WINAMP\In2_Head\is_seekable   =  #Null
  400.          \InFlags|#FAMP_NO_SEEK
  401.       EndIf
  402.       If RS_WINAMP\In2_Head\UsesOutputPlug=  #Null
  403.          \InFlags|#FAMP_NO_OUTPUT|#FAMP_NO_RECORD
  404.       EndIf
  405.  
  406.       \IsPlay  =  #True
  407.  
  408.       ; No real playlength -> use getlength or length as default in ms (#DAMP_LENGTH)
  409.       If \MusicLength   <= 1000  ; length must > 1000ms
  410.  
  411.          \MusicLength   =  CallCFunctionFast(RS_WINAMP\In2_Head\GetLength) ; get playlength
  412.  
  413.          If \MusicLength   <= 1000  ; use default length?
  414.             \MusicLength   =  \DefaultLength ; s. Amp_SetDefaultLength(ms)
  415.          EndIf
  416.  
  417.       EndIf
  418.  
  419.    EndWith
  420.  
  421.    ; set starttime (EleapsedMilliseconds() equ 0)
  422.    With  RS_AMPTIME
  423.       \msStart =  MA_GetTime()
  424.       ;\msStop =  \msStart +  RS_AMPMASTER\MusicLength
  425.    EndWith
  426.  
  427.    RETURN_ERR(#EAMP_OK)
  428.  
  429. EndProcedure
  430. ProcedureCDLL  Amp_MusicPause(Pause.i)
  431.  
  432.    ; set/return status of pause (1=pause/0=unpause)
  433.    With  RS_AMPMASTER
  434.  
  435.       Pause =  Bool(Pause)
  436.  
  437.       If \IsPause <> Pause
  438.  
  439.          \IsPause =  Pause
  440.  
  441.          If \IsPlay
  442.             If \IsPause
  443.  
  444.                CallCFunctionFast(RS_WINAMP\In2_Head\Pause)
  445.  
  446.                RS_AMPTIME\msSleep   =  MA_GetTime()   ; ms until unpause
  447.  
  448.             Else
  449.  
  450.                CallCFunctionFast(RS_WINAMP\In2_Head\UnPause)
  451.  
  452.                RS_AMPTIME\msStart   +  (MA_GetTime()  -  RS_AMPTIME\msSleep)     ; refresh startime
  453.                ;RS_AMPTIME\msStart  =  MA_GetTime()   -  (RS_AMPTIME\msSleep  -  RS_AMPTIME\msStart)
  454.                ;RS_AMPTIME\msStop      =  RS_AMPTIME\msStart   +  RS_AMPMASTER\MusicLength   ; refresh finish
  455.  
  456.             EndIf
  457.          EndIf
  458.  
  459.       EndIf
  460.  
  461.       ProcedureReturn   \IsPause
  462.  
  463.    EndWith
  464.  
  465. EndProcedure
  466. ProcedureCDLL  Amp_MusicStop()
  467.  
  468.    With  RS_AMPMASTER
  469.       If \IsPlay
  470.          \IsPlay  =  #False
  471.          CallCFunctionFast(RS_WINAMP\In2_Head\Stop)
  472.       EndIf
  473.    EndWith
  474.  
  475. EndProcedure
  476. ProcedureCDLL  Amp_MusicSetVolume(Volume.i)
  477.  
  478.    With  RS_AMPMASTER
  479.  
  480.       If \Volume  <> Volume
  481.  
  482.          If Volume   <  #Null
  483.             Volume   =  0
  484.          ElseIf   Volume   >  255
  485.             Volume   =  255
  486.          EndIf
  487.  
  488.          \Volume  =  Volume
  489.  
  490.          If \IsOpen
  491.             CallCFunctionFast(RS_WINAMP\In2_Head\SetVolume, \Volume)
  492.          EndIf
  493.  
  494.       EndIf
  495.  
  496.       ProcedureReturn   \Volume
  497.  
  498.    EndWith
  499.  
  500. EndProcedure
  501. ProcedureCDLL  Amp_MusicSetPan(Pan.i)
  502.  
  503.    With  RS_AMPMASTER
  504.  
  505.       If \Pan  <> Pan
  506.  
  507.          If Pan   <  -127
  508.             Pan   =  -127
  509.          ElseIf   Pan   >  127
  510.             Pan   =  127
  511.          EndIf
  512.  
  513.          \Pan  =  Pan
  514.  
  515.          If \IsOpen
  516.             CallCFunctionFast(RS_WINAMP\In2_Head\SetPan, \Pan)
  517.          EndIf
  518.  
  519.       EndIf
  520.  
  521.       ProcedureReturn   \Pan
  522.  
  523.    EndWith
  524.  
  525. EndProcedure
  526. ProcedureCDLL  Amp_MusicIsPlaying()
  527.  
  528.    With  RS_AMPMASTER
  529.  
  530.       If \IsOpen  =  #Null
  531.          ProcedureReturn   #Null
  532.       ElseIf   RS_WINAMP\In2_Head\UsesOutputPlug
  533.          \IsPlay  =  CallCFunctionFast(RS_WINAMP\Out_Head\IsPlaying)
  534.       EndIf
  535.  
  536.       ProcedureReturn   \IsPlay
  537.  
  538.    EndWith
  539.  
  540. EndProcedure
  541. ProcedureCDLL  Amp_MusicGetLength(Flags.i)
  542.  
  543.    ;**************************************************************************************
  544.    ; Flags:    0=MusicLength  (eg. DefaultLength)
  545.    ;           1=MusicTime    (original length by in_dll)
  546.    ; -------------------------------------------------------------------------------------
  547.    ; Return: total length of music in ms
  548.    ;**************************************************************************************
  549.  
  550.    If Flags
  551.       ProcedureReturn   RS_AMPMASTER\MusicTime
  552.    EndIf
  553.  
  554.    ProcedureReturn   RS_AMPMASTER\MusicLength   ; Fast & full musiclength in ms -> s. Amp_MusicPlay (real length)
  555.  
  556. EndProcedure
  557. ProcedureCDLL  Amp_MusicGetPosition()
  558.    ;**************************************
  559.    ; Return:   current playposition in ms
  560.    ;**************************************
  561.    With  RS_WINAMP
  562.  
  563.       If RS_AMPMASTER\IsPlay
  564.  
  565.          If \In2_Head\is_seekable   And   RS_AMPMASTER\MusicLength   <> RS_AMPMASTER\DefaultLength
  566.             ProcedureReturn   CallCFunctionFast(\In2_Head\GetOutputTime)
  567.          ElseIf   \In2_Head\UsesOutputPlug
  568.             ProcedureReturn   CallCFunctionFast(\Out_Head\GetOutputTime)
  569.          EndIf
  570.  
  571.       EndIf
  572.  
  573.    EndWith
  574.  
  575.    ProcedureReturn   #Null
  576.  
  577. EndProcedure
  578. ProcedureCDLL  Amp_MusicGetOutPosition()
  579.    ;****************************************************
  580.    ; Important:   use this if in_player is a diskwriter!
  581.    ; Return:      written/saved size in ms
  582.    ;****************************************************
  583.    With  RS_AMPMASTER
  584.       If \IsPlay  And   RS_WINAMP\In2_Head\UsesOutputPlug
  585.          ProcedureReturn   CallCFunctionFast(RS_WINAMP\Out_Head\GetOutputTime)
  586.       EndIf
  587.    EndWith
  588.  
  589.    ProcedureReturn   #Null
  590.  
  591. EndProcedure
  592. ProcedureCDLL  Amp_MusicSetPosition(Milliseconds.i)
  593.    ;****************************************
  594.    ; Milliseconds:   position in ms
  595.    ; Return:         real playposition in ms
  596.    ;****************************************
  597.    With  RS_WINAMP
  598.  
  599.       If RS_AMPMASTER\IsOpen
  600.  
  601.          If \In2_Head\is_seekable
  602.  
  603.             If Milliseconds   <  #Null
  604.                Milliseconds   =  0
  605.             ElseIf   Milliseconds   >  RS_AMPMASTER\MusicLength
  606.                Milliseconds   =  RS_AMPMASTER\MusicLength
  607.             EndIf
  608.  
  609.             If RS_AMPMASTER\IsPlay
  610.  
  611.                CallCFunctionFast(\In2_Head\SetOutputTime, Milliseconds)
  612.  
  613.                If \In2_Head\UsesOutputPlug
  614.                   CallCFunctionFast(\Out_Head\Flush, Milliseconds)
  615.                EndIf
  616.  
  617.             EndIf
  618.  
  619.          Else
  620.  
  621.             Milliseconds   =  Amp_MusicGetPosition()  ;CallCFunctionFast(\Out_Head\GetOutputTime)  ; current position in ms
  622.  
  623.          EndIf
  624.  
  625.          ; Refresh starttime
  626.          RS_AMPTIME\msStart   =  MA_GetTime()   -  Milliseconds
  627.  
  628.          ProcedureReturn   Milliseconds
  629.  
  630.       EndIf
  631.  
  632.    EndWith
  633.  
  634. EndProcedure
  635. ProcedureCDLL  Amp_MusicGetTitleStr()
  636.    ProcedureReturn   @RS_AMPMASTER\MusicTitle$
  637. EndProcedure
  638.  
  639. ProcedureCDLL  Amp_InAbout()
  640.  
  641.    If RS_AMPMASTER\IsOpen  =  #False   :  RETURN_ERR(#EAMP_NO_INDLL) :  EndIf
  642.  
  643.    With  RS_WINAMP
  644.       If \In2_DLL And   \In2_Head\About   :  CallCFunctionFast(\In2_Head\About,  \WindowID)  :  EndIf
  645.    EndWith
  646.  
  647. EndProcedure
  648. ProcedureCDLL  Amp_InConfig()
  649.  
  650.    If RS_AMPMASTER\IsOpen  =  #False   :  RETURN_ERR(#EAMP_NO_INDLL) :  EndIf
  651.  
  652.    With  RS_WINAMP
  653.       If \In2_DLL And   \In2_Head\Config  :  CallCFunctionFast(\In2_Head\Config, \WindowID)  :  EndIf
  654.    EndWith
  655.  
  656. EndProcedure
  657.  
  658. ProcedureCDLL  Amp_OutAbout()
  659.  
  660.    If RS_AMPMASTER\IsOpen  =  #False   :  RETURN_ERR(#EAMP_NO_OUTDLL)   :  EndIf
  661.  
  662.    With  RS_WINAMP
  663.       If \Out_DLL And   \Out_Head\About   :  CallCFunctionFast(\Out_Head\About,  \WindowID)  :  EndIf
  664.    EndWith
  665.  
  666. EndProcedure
  667. ProcedureCDLL  Amp_OutConfig()
  668.  
  669.    If RS_AMPMASTER\IsOpen  =  #False   :  RETURN_ERR(#EAMP_NO_OUTDLL)   :  EndIf
  670.  
  671.    With  RS_WINAMP
  672.       If \Out_DLL And   \Out_Head\Config  :  CallCFunctionFast(\Out_Head\Config, \WindowID)  :  EndIf
  673.    EndWith
  674.  
  675. EndProcedure
  676.  
  677. ProcedureCDLL  Amp_InfoBox(*File)
  678.  
  679.    ; Shows in_dll depended informations
  680.  
  681.    If RS_AMPMASTER\IsOpen  =  #False   :  RETURN_ERR(#EAMP_NO_INDLL)    :  EndIf
  682.    If Amp_IsFile(*File)    =  #False   :  RETURN_ERR(#EAMP_OPEN_FILE)   :  EndIf
  683.  
  684.    With  RS_WINAMP
  685.       If \In2_DLL And   \In2_Head\InfoBox
  686.          ProcedureReturn   CallCFunctionFast(\In2_Head\InfoBox, *File, \WindowID)
  687.       EndIf
  688.    EndWith
  689.  
  690.    ProcedureReturn   #Null
  691.  
  692. EndProcedure
  693. ProcedureCDLL  Amp_GetFileInfo(*File, *Title, *Length)
  694.    ;************************************************
  695.    ; File   =  0 -> current played file
  696.    ; Title  =  Buffer{2048} for real title of module
  697.    ; Length =  Integer for time in ms
  698.    ;************************************************
  699.    If RS_AMPMASTER\IsOpen  =  #False   :  RETURN_ERR(#EAMP_NO_INDLL)    :  EndIf
  700.    If Amp_IsFile(*File)    =  #False   :  RETURN_ERR(#EAMP_OPEN_FILE)   :  EndIf
  701.  
  702.    With  RS_WINAMP
  703.       If \In2_DLL And   \In2_Head\GetFileInfo
  704.          CallCFunctionFast(\In2_Head\GetFileInfo, *File, *Title, *Length)
  705.       EndIf
  706.    EndWith
  707.  
  708. EndProcedure
  709.  
  710. ProcedureCDLL  Amp_SetDefaultLength(Milliseconds.i)
  711.    ;**************************************************************
  712.    ; Set default playlength if no calculated musiclength by in_dll
  713.    ; -------------------------------------------------------------
  714.    ; Milliseconds =  length in ms or default length (300000)
  715.    ;**************************************************************
  716.    With  RS_AMPMASTER
  717.  
  718.       If Milliseconds   <= #Null
  719.          Milliseconds   =  #DAMP_LENGTH
  720.       EndIf
  721.  
  722.       \DefaultLength =  Milliseconds
  723.  
  724.    EndWith
  725.  
  726. EndProcedure
  727. ProcedureCDLL  Amp_GetInFormatStr()
  728.  
  729.    ; Return supported tracker + (*.formats;..) by in_dll only (winamp)
  730.  
  731.    If RS_AMPMASTER\IsOpen  =  #False   :  RETURN_ERR(#EAMP_NO_INDLL) :  EndIf
  732.  
  733.    With  RS_AMPMASTER
  734.  
  735.       Protected   NewList  Srt.s()
  736.  
  737.       Protected   i, e$, i$
  738.       Protected   *Ptr.Character =  RS_WINAMP\In2_Head\FileExtensions
  739.  
  740.       If *Ptr
  741.  
  742.          \Formats$   =  #Null$   ; clear string
  743.  
  744.          While *Ptr\c
  745.  
  746.             e$ =  PeekS(*Ptr) :  *Ptr  +  Len(e$)  +  SizeOf(Character)
  747.             i$ =  PeekS(*Ptr) :  *Ptr  +  Len(i$)  +  SizeOf(Character)
  748.  
  749.             i  =  StrStrI_(i$, "(")
  750.  
  751.             AddElement(Srt())
  752.  
  753.             If i
  754.                CharLower_(i)  :  Srt() =  i$
  755.             Else
  756.                CharLower_(@e$):  Srt() =  i$ +  " ("  +  e$ +  ")"   ; eg. in_tfmx.dll
  757.             EndIf
  758.  
  759.          Wend
  760.  
  761.          SortList(Srt(), #PB_Sort_Ascending)
  762.  
  763.          ForEach  Srt()
  764.             \Formats$   +  Srt() +  #LF$
  765.          Next
  766.  
  767.          \Formats$   =  Trim(\Formats$, #LF$)
  768.  
  769.       Else
  770.  
  771.          \Formats$   =  #Empty$  ; must set empty$ coz error if null$
  772.  
  773.       EndIf
  774.  
  775.       FreeList(Srt())
  776.  
  777.       ProcedureReturn   @\Formats$
  778.  
  779.    EndWith
  780.  
  781. EndProcedure
  782.  
  783. ProcedureCDLL  Amp_SetAmpPath(*Path)
  784.  
  785.    ; Set path for in_/out_dll
  786.  
  787.    With  RS_AMPMASTER
  788.  
  789.       If *Path
  790.          \Path$   =  PeekS(*Path)
  791.       Else
  792.          \Path$   =  GetPathPart(\ProgramName$) +  #DAMP_PATH$
  793.       EndIf
  794.  
  795.       If Right(\Path$, 1)  <> "\"   :  \Path$   +  "\"   :  EndIf
  796.  
  797.       \InPath$    =  \Path$
  798.       \OutPath$   =  \Path$
  799.  
  800.    EndWith
  801.  
  802. EndProcedure
  803.  
  804. ProcedureCDLL  Amp_SetInPath(*Path)
  805.  
  806.    ; Set path for in_dll only
  807.  
  808.    With  RS_AMPMASTER
  809.       If *Path
  810.          \InPath$ =  PeekS(*Path)
  811.       Else
  812.          \InPath$ =  GetPathPart(\ProgramName$) +  #DAMP_PATH$
  813.       EndIf
  814.       If Right(\InPath$, 1)   <> "\"   :  \InPath$ +  "\"   :  EndIf
  815.    EndWith
  816.  
  817. EndProcedure
  818. ProcedureCDLL  Amp_SetInDll(*InLib)
  819.  
  820.    ; Set in_dll for musicfile
  821.  
  822.    With  RS_AMPMASTER
  823.       If *InLib
  824.          \InDll$  =  PeekS(*InLib)  :  If GetPathPart(\InDll$) :  \InPath$ =  GetPathPart(\InDll$) :  EndIf
  825.       EndIf
  826.    EndWith
  827.  
  828. EndProcedure
  829. ProcedureCDLL  Amp_SetOutPath(*Path)
  830.  
  831.    ; Set path to out_dll only
  832.  
  833.    With  RS_AMPMASTER
  834.       If *Path
  835.          \OutPath$   =  PeekS(*Path)
  836.       Else
  837.          \OutPath$   =  GetPathPart(\ProgramName$) +  #DAMP_PATH$
  838.       EndIf
  839.       If Right(\OutPath$, 1)  <> "\"   :  \OutPath$   +  "\"   :  EndIf
  840.    EndWith
  841.  
  842. EndProcedure
  843. ProcedureCDLL  Amp_SetOutDll(*OutLib)
  844.  
  845.    ; Set out_dll for musicplay
  846.  
  847.    With  RS_AMPMASTER
  848.       If *OutLib
  849.          \OutDll$ =  PeekS(*OutLib) :  If GetPathPart(\OutDll$)   :  \OutPath$   =  GetPathPart(\InDll$) :  EndIf
  850.       EndIf
  851.    EndWith
  852.  
  853. EndProcedure
  854. ProcedureCDLL  Amp_SetWindow(*Window)
  855.  
  856.    ; Set Window for callback
  857.  
  858.    With  RS_AMPMASTER
  859.       If *Window
  860.          \WindowID   =  *Window
  861.       Else
  862.          \WindowID   =  GetForegroundWindow_()
  863.       EndIf
  864.       RS_WINAMP\WindowID   =  \WindowID
  865.       ;SetActiveWindow_(\WindowID)
  866.    EndWith
  867.  
  868. EndProcedure
  869.  
  870. ProcedureCDLL  Amp_GetAmpInDllStr(*File)
  871.    ;**************************************************************************************
  872.    ; If no in_dll is given, Amp searchs for predefined in_dll by extension (*.MOD & MOD.*)
  873.    ; -------------------------------------------------------------------------------------
  874.    ; Return:   ptr to string of in_dll
  875.    ;**************************************************************************************
  876.    With  RS_AMPMASTER
  877.  
  878.       \InDll$  =  #Empty$
  879.  
  880.       If *File
  881.  
  882.          Protected   File$ =  GetFilePart(PeekS(*File))  ; No spaces allowed (extension can't use it)
  883.          Protected   i     =  CountString(File$, ".") +  1
  884.  
  885.          If i  >  1
  886.  
  887.             Protected   *i_x.RS_INTABLE   =  *i_n
  888.  
  889.             Protected   a$ =  ";"   +  Trim(StringField(File$, i, ".")) +  ";"   ; 1. try -> *.MOD (standard PC)
  890.             Protected   b$ =  ";"   +  Trim(StringField(File$, 1, ".")) +  ";"   ; 2. try -> MOD.* (classic Amiga)
  891.  
  892.             While *i_x\iFLG
  893.                If StrStrI_(@*i_x\iEXT\s, @a$)   Or StrStrI_(@*i_x\iEXT\s, @b$)
  894.                   \InDll$  =  *i_x\iLIB\s :  Break
  895.                EndIf
  896.                *i_x  +  SizeOf(RS_INTABLE)
  897.             Wend
  898.  
  899.          EndIf
  900.       EndIf
  901.  
  902.       ProcedureReturn   @\InDll$
  903.  
  904.    EndWith
  905.  
  906. EndProcedure
  907.  
  908. ProcedureCDLL  Amp_CountAmpFormatsAll()
  909.    ;*************************************************************
  910.    ; Calculates number of all supported formats (*.MOD) by AmpLib
  911.    ; ------------------------------------------------------------
  912.    ; Return: Number of all supported formats
  913.    ;*************************************************************
  914.    With  RS_AMPMASTER
  915.  
  916.       If \nAmpFormatsAll   :  ProcedureReturn   \nAmpFormatsAll   :  EndIf
  917.  
  918.       Protected   i, t$, e$
  919.       Protected   *i_x.RS_INTABLE   =  *i_n
  920.  
  921.       Protected   NewMap   Extensions.s()
  922.  
  923.       While *i_x\iFLG
  924.  
  925.          i  =  #Null
  926.  
  927.          t$ =  Trim(*i_x\iEXT\s, ";")
  928.  
  929.          Repeat
  930.             i  +  1  :  e$ =  StringField(t$, i, ";") :  Extensions(e$) +  1
  931.          Until Len(e$)  =  0
  932.  
  933.          *i_x  +  SizeOf(RS_INTABLE)   ; Next in Table-Ptr
  934.  
  935.       Wend
  936.  
  937.       \nAmpFormatsAll   =  MapSize(Extensions())   -  1  ; No/empty extension (-1)
  938.  
  939.       FreeMap(Extensions())
  940.  
  941.       ProcedureReturn   \nAmpFormatsAll
  942.  
  943.    EndWith
  944.  
  945. EndProcedure
  946. ProcedureCDLL  Amp_CountAmpPlayersAll()
  947.    ;****************************************************************
  948.    ; Calculates number of all supported players (in_*.dll) by AmpLib
  949.    ; ---------------------------------------------------------------
  950.    ; Return: Number of all supported players (in_dlls)
  951.    ;****************************************************************
  952.    With  RS_AMPMASTER
  953.  
  954.       If \nAmpPlayersAll   :  ProcedureReturn   \nAmpPlayersAll   :  EndIf
  955.  
  956.       Protected   *i_x.RS_INTABLE   =  *i_n
  957.  
  958.       While *i_x\iLIB\s
  959.  
  960.          \nAmpPlayersAll   +  1
  961.  
  962.          *i_x  +  SizeOf(RS_INTABLE)   ; Next in Table-Ptr
  963.  
  964.       Wend
  965.  
  966.       ProcedureReturn   \nAmpPlayersAll
  967.  
  968.    EndWith
  969.  
  970. EndProcedure
  971. ProcedureCDLL  Amp_GetAmpFormatsStrAll()
  972.    ;***********************************************************
  973.    ; Generates sorted string of all supported formats by AmpLib
  974.    ; ----------------------------------------------------------
  975.    ; Return: ptr to (very long) formatstring (*.A;*.B;*.C;...)
  976.    ;***********************************************************
  977.    With  RS_AMPMASTER
  978.  
  979.       If Len(\sAmpFormatsAll$)   :  ProcedureReturn   @\sAmpFormatsAll$ :  EndIf
  980.  
  981.       Protected   i, t$, e$
  982.       Protected   *i_x.RS_INTABLE   =  *i_n
  983.  
  984.       Protected   NewMap   Extensions.s()
  985.       Protected   NewList  Srt.s()
  986.  
  987.       While *i_x\iFLG
  988.  
  989.          i  =  #Null
  990.  
  991.          t$ =  Trim(*i_x\iEXT\s, ";")
  992.  
  993.          Repeat
  994.             i  +  1  :  e$ =  StringField(t$, i, ";") :  Extensions(e$) +  1
  995.          Until Len(e$)  =  0
  996.  
  997.          *i_x  +  SizeOf(RS_INTABLE)   ; Next in Table-Ptr
  998.  
  999.       Wend
  1000.  
  1001.       ForEach  Extensions()
  1002.          If MapKey(Extensions())
  1003.             AddElement(Srt()) :  Srt() =  MapKey(Extensions())
  1004.          EndIf
  1005.       Next
  1006.  
  1007.       SortList(Srt(), #PB_Sort_Ascending)
  1008.  
  1009.       ForEach  Srt()
  1010.          \sAmpFormatsAll$  +  ";*." +  Srt()
  1011.       Next
  1012.  
  1013.       CharLower_(@\sAmpFormatsAll$)
  1014.  
  1015.       FreeMap(Extensions())
  1016.       FreeList(Srt())
  1017.  
  1018.       ProcedureReturn   @\sAmpFormatsAll$
  1019.  
  1020.    EndWith
  1021. EndProcedure
  1022. ProcedureCDLL  Amp_GetAmpInDllsStrAll(*File)
  1023.    ;**************************************************************************************
  1024.    ; Generates sorted string of all predefined in_dlls used by extension
  1025.    ; -------------------------------------------------------------------------------------
  1026.    ; Return:   ptr to multi-string of in_dlls (in_xamp.dll;in_oldsk00l.dll;in_bass.dll...)
  1027.    ;**************************************************************************************
  1028.    With  RS_AMPMASTER
  1029.  
  1030.       \InDllsAll$ =  #Empty$
  1031.  
  1032.       If *File
  1033.  
  1034.          Protected   File$ =  GetFilePart(PeekS(*File))  ; No spaces allowed in PB (extensions can't use it)
  1035.          Protected   i     =  CountString(File$, ".") +  1
  1036.  
  1037.          If i  >  1
  1038.  
  1039.             Protected   *i_x.RS_INTABLE   =  *i_n
  1040.  
  1041.             Protected   a$ =  ";"   +  Trim(StringField(File$, i, ".")) +  ";"   ; 1. try -> *.MOD (standard PC)
  1042.             Protected   b$ =  ";"   +  Trim(StringField(File$, 1, ".")) +  ";"   ; 2. try -> MOD.* (classic Amiga)
  1043.  
  1044.             While *i_x\iFLG
  1045.                If StrStrI_(@*i_x\iEXT\s, @a$)   Or StrStrI_(@*i_x\iEXT\s, @b$)
  1046.                   \InDllsAll$ +  *i_x\iLIB\s +  ";"
  1047.                EndIf
  1048.                *i_x  +  SizeOf(RS_INTABLE)
  1049.             Wend
  1050.  
  1051.          EndIf
  1052.       EndIf
  1053.  
  1054.       ProcedureReturn   @\InDllsAll$
  1055.  
  1056.    EndWith
  1057.  
  1058. EndProcedure
  1059.  
  1060. ProcedureCDLL  Amp_GetErrorStr(Error.i)
  1061.  
  1062.    With  RS_AMPMASTER
  1063.  
  1064.       Select   Error
  1065.          Case  #EAMP_OK             :  \ErrorStr$  =  #SAMP_OK$
  1066.          Case  #EAMP_NO_INDLL       :  \ErrorStr$  =  #SAMP_NO_INDLL$
  1067.          Case  #EAMP_NO_OUTDLL      :  \ErrorStr$  =  #SAMP_NO_OUTDLL$
  1068.          Case  #EAMP_OPEN_FILE      :  \ErrorStr$  =  #SAMP_OPEN_FILE$
  1069.          Case  #EAMP_OPEN_INDLL     :  \ErrorStr$  =  #SAMP_OPEN_INDLL$
  1070.          Case  #EAMP_OPEN_OUTDLL    :  \ErrorStr$  =  #SAMP_OPEN_OUTDLL$
  1071.          Case  #EAMP_UNKOWN_FORMAT  :  \ErrorStr$  =  #SAMP_UNKOWN_FORMAT$
  1072.          Case  #EAMP_INITIALIZE     :  \ErrorStr$  =  #SAMP_INITIALIZE$
  1073.          Default
  1074.             \ErrorStr$  =  #SAMP_UNKNOWN$
  1075.       EndSelect
  1076.  
  1077.       ProcedureReturn   @\ErrorStr$
  1078.  
  1079.    EndWith
  1080.  
  1081. EndProcedure
  1082. ProcedureCDLL  Amp_GetError()
  1083.    ProcedureReturn   RS_AMPMASTER\ErrorN
  1084. EndProcedure
  1085.  
  1086. ProcedureCDLL  Amp_GetInInfoStr()
  1087.    ProcedureReturn   @RS_AMPMASTER\InInfo$
  1088. EndProcedure
  1089. ProcedureCDLL  Amp_GetOutInfoStr()
  1090.    ProcedureReturn   @RS_AMPMASTER\OutInfo$
  1091. EndProcedure
  1092.  
  1093. ;-
  1094. ;- *** Sub-Songs ***
  1095. ProcedureCDLL  Amp_SetSubSong(*File, SubSong.i)
  1096.    ;***************************************
  1097.    ; Set number of subsong to replay
  1098.    ; --------------------------------------
  1099.    ; *File:    @Ptr to full Path + Filename
  1100.    ; SubSong:  Number of subsong
  1101.    ; --------------------------------------
  1102.    ; Return:   #EAMP_OK if all ok
  1103.    ;***************************************
  1104.    With  RS_AMPMASTER
  1105.  
  1106.       If Amp_IsFile(*File) =  #False   :  RETURN_ERR(#EAMP_OPEN_FILE)   :  EndIf
  1107.       If SubSong  <= #Null :  SubSong  =  1  :  EndIf
  1108.  
  1109.       Protected   hF, i, TFM_OFFSET
  1110.       Protected   RS_PSID.RS_PSID
  1111.       Protected   RS_TFMX.RS_TFMX, *TFMX.RS_TFMX_AMP
  1112.  
  1113.       \SubSong =  SubSong
  1114.  
  1115.       hF =  OpenFile(#PB_Any, PeekS(*File))
  1116.       If hF
  1117.  
  1118.          \ID   =  ReadLong(hF)
  1119.  
  1120.          Select   \ID
  1121.  
  1122.             ; *** PSID
  1123.             Case  #ID_PSID
  1124.                FileSeek(hF, #Null)
  1125.                If ReadData(hF, @RS_PSID, SizeOf(RS_PSID))   =  SizeOf(RS_PSID)
  1126.                   \NumSongs   =  UINT16(RS_PSID\songs)
  1127.                   If \SubSong <= \NumSongs   And   \SubSong <> UINT16(RS_PSID\startSong)
  1128.                      FileSeek(hF,   OffsetOf(RS_PSID\startSong))
  1129.                      WriteWord(hF,  UINT16(\SubSong))
  1130.                      FlushFileBuffers(hF)
  1131.                   EndIf
  1132.                EndIf
  1133.  
  1134.             ; *** TFMX Hardcoded! Creates a not official TAG -> would be glad if another way to play subsongs in WinAMP!?
  1135.             Case  #ID_TFMX
  1136.  
  1137.                i  =  ReadLong(hF)
  1138.  
  1139.                Select   i
  1140.                   Case  #ID_SONG, #ID_2001, #ID_TMOD  ; Really TFMX-Song?
  1141.  
  1142.                      If i  =  #ID_TMOD :  TFM_OFFSET  =  $14   :  EndIf ; TFM -> Merged MDAT + SMPL?
  1143.  
  1144.                      FileSeek(hF, TFM_OFFSET)
  1145.  
  1146.                      If ReadData(hF, @RS_TFMX, SizeOf(RS_TFMX))   =  SizeOf(RS_TFMX)
  1147.  
  1148.                         *TFMX =  @RS_TFMX\StartPos -  SizeOf(RS_TFMX_AMP)
  1149.  
  1150.                         If *TFMX\ID =  #ID_AMP0 And   *TFMX\NumSongs >= \SubSong
  1151.  
  1152.                            \NumSongs   =  *TFMX\NumSongs
  1153.  
  1154.                            RS_TFMX\StartPos  [0]   =  *TFMX\StartPos ; Get/Restore SubSong[0] Start
  1155.                            RS_TFMX\EndPos    [0]   =  *TFMX\EndPos   ; Get/Restore SubSong[0] End
  1156.                            RS_TFMX\Tempo     [0]   =  *TFMX\Tempo    ; Get/Restore SubSong[0] Tempo
  1157.  
  1158.                            *TFMX\SubSong  =  \SubSong -  1  ; Set SubSong[n] as SubSong[0]
  1159.  
  1160.                            FileSeek(hF,   #TFMX_AMP_OFFSET  +  OffsetOf(RS_TFMX_AMP\SubSong) +  TFM_OFFSET) :  WriteByte(hF,  *TFMX\SubSong) ; Default SubSong
  1161.  
  1162.                            FileSeek(hF,   OffsetOf(RS_TFMX\StartPos) +  TFM_OFFSET) :  WriteData(hF,  @RS_TFMX\StartPos [*TFMX\SubSong],  SizeOf(Word))  ; $100
  1163.                            FileSeek(hF,   OffsetOf(RS_TFMX\EndPos)   +  TFM_OFFSET) :  WriteData(hF,  @RS_TFMX\EndPos   [*TFMX\SubSong],  SizeOf(Word))  ; $140
  1164.                            FileSeek(hF,   OffsetOf(RS_TFMX\Tempo)    +  TFM_OFFSET) :  WriteData(hF,  @RS_TFMX\Tempo    [*TFMX\SubSong],  SizeOf(Word))  ; $180
  1165.  
  1166.                         EndIf
  1167.                      EndIf
  1168.                EndSelect
  1169.  
  1170.             Case  #ID_FR10, #ID_FR12, #ID_FR4E, #ID_FR78 ; Really FRED Song? (*.fred)
  1171.                FileSeek(hF, $40)       ; Min. Offset
  1172.                For   i  =  0  To $80
  1173.                   If ReadWord(hF)&$FFFF   =  #ID_FRSS ; ID SubSongs?
  1174.                      \NumSongs   =  ReadByte(hF)   ; always $60 -> 6 Songs so we set it to 15 (#MAX_FRED)
  1175.                      \NumSongs   =  #MAX_FRED-1
  1176.                      \SubSong -  1
  1177.                      If \SubSong <= \NumSongs
  1178.                         \SubSong << 4  ; Nibblebyte to max. $F0
  1179.                         WriteByte(hF, \SubSong)
  1180.                      EndIf
  1181.                      Break
  1182.                   EndIf
  1183.                Next
  1184.  
  1185.             ; *** NSF
  1186.             Case  #ID_NESM
  1187.                If ReadWord(hF)   =  $011A
  1188.                   \NumSongs   =  ReadByte(hF)
  1189.                   If \SubSong <= \NumSongs
  1190.                      WriteByte(hF, \SubSong)
  1191.                   EndIf
  1192.                EndIf
  1193.  
  1194.             ; *** GBS
  1195.             Case  #ID_GBS1
  1196.                \NumSongs   =  ReadByte(hF)
  1197.                If \SubSong <= \NumSongs
  1198.                   WriteByte(hF, \SubSong)
  1199.                EndIf
  1200.  
  1201.          EndSelect
  1202.  
  1203.          CloseFile(hF)
  1204.       EndIf
  1205.  
  1206.    EndWith
  1207.  
  1208.    RETURN_ERR(#EAMP_OK)
  1209.  
  1210. EndProcedure
  1211. ProcedureCDLL  Amp_GetSubSong(*File)
  1212.    ;***************************************************************************
  1213.    ; Get actual subsong of format:  *.sid;*.mdat;*.tfm;*.tfx;*.nsf;*.gbs;*.fred
  1214.    ; --------------------------------------------------------------------------
  1215.    ; *File:    @Ptr to full Path + Filename
  1216.    ; --------------------------------------------------------------------------
  1217.    ; Return:   Number of actual subsong or < #NULL if error
  1218.    ;***************************************************************************
  1219.    With  RS_AMPMASTER
  1220.  
  1221.       If Amp_IsFile(*File) =  #False   :  RETURN_ERR(#EAMP_OPEN_FILE)   :  EndIf
  1222.  
  1223.       Protected   hF, i, TFM_OFFSET
  1224.  
  1225.       \SubSong =  #Null
  1226.  
  1227.       hF =  OpenFile(#PB_Any, PeekS(*File))
  1228.       If hF
  1229.  
  1230.          \ID   =  ReadLong(hF)
  1231.  
  1232.          Select   \ID
  1233.             Case  #ID_PSID ; *.sid
  1234.                FileSeek(hF, OffsetOf(RS_PSID\startSong))
  1235.                \SubSong =  ReadWord(hF)
  1236.                \SubSong =  UINT16(\SubSong)
  1237.  
  1238.             Case  #ID_TFMX ; mdat.*
  1239.  
  1240.                i  =  ReadLong(hF)
  1241.  
  1242.                Select   i
  1243.                   Case  #ID_SONG, #ID_2001, #ID_TMOD  ; Really TFMX-Song?
  1244.  
  1245.                      If i  =  #ID_TMOD :  TFM_OFFSET  =  $14   :  EndIf ; Merged MDAT + SMPL?
  1246.  
  1247.                      FileSeek(hF, #TFMX_AMP_OFFSET+TFM_OFFSET)
  1248.                      If ReadLong(hF)=  #ID_AMP0       ; You must! have called Amp_CountSubSongs() first (creates AMP0 tag)
  1249.                         \NumSongs   =  ReadByte(hF)
  1250.                         \SubSong    =  ReadByte(hF)   +  1
  1251.                      EndIf
  1252.                EndSelect
  1253.  
  1254.             Case  #ID_FR10, #ID_FR12, #ID_FR4E, #ID_FR78 ; Really FRED Song? (*.fred)
  1255.                FileSeek(hF, $40) ; Min. Offset
  1256.                For   i  =  0  To $80
  1257.                   If ReadWord(hF)&$FFFF   =  #ID_FRSS ; ID SubSongs?
  1258.                      \NumSongs   =  ReadByte(hF)
  1259.                      \SubSong    =  ReadByte(hF)   :  \SubSong    =  (\SubSong   >> 4) &  #MAX_FRED   +  1
  1260.                      Break
  1261.                   EndIf
  1262.                Next
  1263.  
  1264.             Case  #ID_NESM ; *.nsf
  1265.                If ReadWord(hF)=  $011A ; Really NSF-Song?
  1266.                   \NumSongs   =  ReadByte(hF)
  1267.                   \SubSong    =  ReadByte(hF)
  1268.                EndIf
  1269.  
  1270.             Case  #ID_GBS1 ; *.gbs
  1271.                \NumSongs   =  ReadByte(hF)
  1272.                \SubSong    =  ReadByte(hF)
  1273.  
  1274.          EndSelect
  1275.  
  1276.          CloseFile(hF)
  1277.       EndIf
  1278.  
  1279.       ProcedureReturn   \SubSong
  1280.  
  1281.    EndWith
  1282.  
  1283. EndProcedure
  1284. ProcedureCDLL  Amp_CountSubSongs(*File)
  1285.    ;******************************************************************
  1286.    ; Calculate subsongs of *.sid;*.mdat;*.tfm;*.tfx;*.nsf;*.gbs;*.fred
  1287.    ;******************************************************************
  1288.    With  RS_AMPMASTER
  1289.  
  1290.       If Amp_IsFile(*File) =  #False   :  RETURN_ERR(#EAMP_OPEN_FILE)   :  EndIf
  1291.  
  1292.       Protected   hF, i, TFM_OFFSET
  1293.       Protected   RS_TFMX.RS_TFMX
  1294.  
  1295.       \NumSongs   =  #Null
  1296.  
  1297.       hF =  OpenFile(#PB_Any, PeekS(*File))  ; read/write
  1298.       If hF
  1299.  
  1300.          \ID   =  ReadLong(hF)
  1301.  
  1302.          Select   \ID
  1303.             Case  #ID_PSID ; *.sid
  1304.                FileSeek(hF, OffsetOf(RS_PSID\songs))
  1305.                \NumSongs   =  ReadWord(hF)
  1306.                \NumSongs   =  UINT16(\NumSongs)
  1307.  
  1308.             Case  #ID_TFMX
  1309.  
  1310.                i  =  ReadLong(hF)
  1311.  
  1312.                Select   i
  1313.                   Case  #ID_SONG, #ID_2001, #ID_TMOD  ; Really TFMX (Custom) - Song? *.mdat(7), *.tfm, *.tfx
  1314.  
  1315.                      If i  =  #ID_TMOD :  TFM_OFFSET  =  $14   :  EndIf ; Skip merged MDAT + SMPL header of *.tfm?
  1316.  
  1317.                      FileSeek(hF, TFM_OFFSET)
  1318.  
  1319.                      If ReadData(hF, @RS_TFMX, SizeOf(RS_TFMX))   =  SizeOf(RS_TFMX)
  1320.  
  1321.                         FileSeek(hF, #TFMX_AMP_OFFSET+TFM_OFFSET)
  1322.  
  1323.                         If ReadLong(hF)   <> #ID_AMP0 ; Create AMP0 Tag?
  1324.  
  1325.                            \NumSongs   =  1  ; always 1 song!
  1326.  
  1327.                            For   i  =  1  To 31 ; Calculate real NumSongs[2..32]
  1328.                               If (RS_TFMX\StartPos[i] Or RS_TFMX\EndPos[i])   And   RS_TFMX\StartPos[i]<>$FF01 ; Code end of songs?
  1329.                                  If (RS_TFMX\StartPos[i-1]<>RS_TFMX\StartPos[i]  Or RS_TFMX\EndPos[i-1]<>RS_TFMX\EndPos[i])   ; no similar songs
  1330.                                     \NumSongs   +  1
  1331.                                  EndIf
  1332.                               EndIf
  1333.                            Next
  1334.  
  1335.                            FileSeek(hF,   #TFMX_AMP_OFFSET+TFM_OFFSET)  ; Hardcoded Tag RSET
  1336.  
  1337.                            ;i =  #ID_AMP0
  1338.                            WriteLong(hF,  #ID_AMP0)   ; ID-TAG
  1339.                            WriteByte(hF,  \NumSongs)  ; Number of avail songs (1-32)
  1340.  
  1341.                            ;i =  #Null
  1342.                            WriteByte(hF,  #Null)   ; Default SubSong[0-31] always NULL at first time
  1343.                            WriteData(hF,  @RS_TFMX\StartPos,SizeOf(Word))  ; Default StartSong[0]
  1344.                            WriteData(hF,  @RS_TFMX\EndPos,  SizeOf(Word))  ; Default EndSong[0]
  1345.                            WriteData(hF,  @RS_TFMX\Tempo,   SizeOf(Word))  ; Default Tempo[0]
  1346.  
  1347.                         Else  ; AMP0-Tag already exist!
  1348.                            \NumSongs   =  ReadByte(hF)
  1349.                            \SubSong    =  ReadByte(hF)
  1350.                         EndIf
  1351.  
  1352.                      EndIf
  1353.                EndSelect
  1354.  
  1355.             Case  #ID_FR10, #ID_FR12, #ID_FR4E, #ID_FR78 ; Really FRED Song? (*.fred)
  1356. ;              FileSeek(hF, $40)       ; Min. Offset
  1357. ;              For   i  =  0  To $80
  1358. ;                 If ReadWord(hF)&$FFFF   =  #ID_FRSS ; ID SubSongs?
  1359. ;                    \NumSongs   =  ReadByte(hF)
  1360. ;                    \NumSongs   =  UINT8(\NumSongs)  +  1
  1361. ;                    Break
  1362. ;                 EndIf
  1363. ;              Next
  1364.  
  1365.                ; *** NOTE:
  1366.                ; That is constant crap, but no info of variable header! There are not always
  1367.                ; subsongs, or/and wrong calculated by in_oldskool.dll!
  1368.                \NumSongs   =  #MAX_FRED   ; please check the songinfo
  1369.  
  1370.             Case  #ID_NESM
  1371.                If ReadWord(hF)   =  $011A
  1372.                   \NumSongs   =  ReadByte(hF)
  1373.                   \SubSong    =  ReadByte(hF)
  1374.                EndIf
  1375.  
  1376.             Case  #ID_GBS1
  1377.                \NumSongs   =  ReadByte(hF)
  1378.                \SubSong    =  ReadByte(hF)
  1379.  
  1380.          EndSelect
  1381.  
  1382.          CloseFile(hF)
  1383.       EndIf
  1384.  
  1385.       ProcedureReturn   \NumSongs
  1386.  
  1387.    EndWith
  1388.  
  1389. EndProcedure
  1390.  
  1391. ;-
  1392. ;- *** Intern time-handling ***
  1393. ProcedureCDLL  Amp_SetLength(Milliseconds.i)
  1394.    RS_AMPMASTER\MusicLength   =  Milliseconds
  1395. EndProcedure
  1396. ProcedureCDLL  Amp_GetPlayTime()
  1397.  
  1398.    ; return played time in ms
  1399.    With  RS_AMPTIME
  1400.  
  1401.       If RS_AMPMASTER\IsPlay
  1402.          \msPlay  =  MA_GetTime()   -  \msStart
  1403.       EndIf
  1404.  
  1405.       ProcedureReturn   \msPlay
  1406.  
  1407.    EndWith
  1408.  
  1409. EndProcedure
  1410. ProcedureCDLL  Amp_GetStopTime()
  1411.  
  1412.    ; return rest of time until stop
  1413.    With  RS_AMPTIME
  1414.  
  1415.       If RS_AMPMASTER\IsPlay
  1416.  
  1417.          \msStop  =  RS_AMPMASTER\MusicLength   -  (MA_GetTime()  -  \msStart)
  1418.  
  1419.          If \msStop  <  #Null
  1420.             \msStop  =  #Null
  1421.          EndIf
  1422.  
  1423.       EndIf
  1424.  
  1425.       ProcedureReturn   \msStop
  1426.  
  1427.    EndWith
  1428.  
  1429. EndProcedure
  1430. ProcedureCDLL  Amp_GetPercent()
  1431.  
  1432.    ; return percent of played time
  1433.    With  RS_AMPTIME
  1434.  
  1435.       If RS_AMPMASTER\IsPlay
  1436.  
  1437.          \msPercent  =  100.0 /  (RS_AMPMASTER\MusicLength * 0.001)  *  ((MA_GetTime() -  \msStart) * 0.001)
  1438.  
  1439.          If \msPercent  <  #Null
  1440.             \msPercent  =  #Null
  1441.          ElseIf   \msPercent  >  100
  1442.             \msPercent  =  100
  1443.          EndIf
  1444.  
  1445.       EndIf
  1446.  
  1447.       ProcedureReturn   \msPercent
  1448.  
  1449.    EndWith
  1450.  
  1451. EndProcedure
  1452.  
  1453. ;-
  1454. ;- *** Quick replay ***
  1455. ProcedureCDLL  Amp_Play(*File, Volume.i)
  1456.  
  1457.    With  RS_AMPMASTER
  1458.  
  1459.       Amp_Init()
  1460.  
  1461.       Amp_GetAmpInDllStr(*File)
  1462.       If Len(\InDll$)   =  #Null :  RETURN_ERR(#EAMP_NO_INDLL) :  EndIf
  1463.  
  1464.       Amp_SetAmpPath(0)
  1465.       SetCurrentDirectory(\Path$)
  1466.  
  1467.       If Amp_Open()  =  #EAMP_OK
  1468.          \Volume  =  Volume
  1469.          Amp_MusicPlay(*File)
  1470.       EndIf
  1471.  
  1472.       ProcedureReturn   \ErrorN
  1473.  
  1474.    EndWith
  1475.  
  1476. EndProcedure
  1477. ProcedureCDLL  Amp_QuickPlay(*File, *Path)
  1478.  
  1479.    ;If   Amp_IsFile(*File)    =  #False   :  RETURN_ERR(#EAMP_OPEN_FILE)   :  EndIf
  1480.  
  1481.    Protected   t$, RetVal
  1482.  
  1483.    With  RS_AMPMASTER
  1484.  
  1485.       Amp_Init()
  1486.  
  1487.       Amp_GetAmpInDllStr(*File)
  1488.       If Len(\InDll$)   =  #Null :  RETURN_ERR(#EAMP_NO_INDLL) :  EndIf
  1489.  
  1490.       Amp_SetAmpPath(*Path)
  1491.       SetCurrentDirectory(\Path$)
  1492.  
  1493.       If Amp_Open()  =  #EAMP_OK And   Amp_MusicPlay(*File) =  #EAMP_OK
  1494.  
  1495.          Amp_MusicSetVolume(#DAMP_VOLUME)
  1496.  
  1497.          t$ =  RSet(StrU((\MusicLength/(1000*60*60))),2, "0")  +  ":"   +  ; HH:
  1498.                RSet(StrU((\MusicLength/(1000*60))%60),2, "0")  +  ":"   +  ; MM:
  1499.                RSet(StrU((\MusicLength/1000)%60),     2, "0")              ; SS
  1500.  
  1501.          If (\MusicLength%1000)  ; ,TTT -> Rest milliseconds?
  1502.             t$ +  ","   +  RTrim(StrU(\MusicLength%1000), "0")
  1503.          EndIf
  1504.  
  1505.          t$ =  "File:"     +  #TAB$ +  GetFilePart(\MusicFile$)+  #CR$  +  #CR$  +
  1506.                "Plugin:"   +  #TAB$ +  GetFilePart(\InDll$)    +  #CR$  +
  1507.                               #TAB$ +  \InInfo$                +  #CR$  +  #CR$  +
  1508.                ;"Plugout:" +  #TAB$ +  GetFilePart(\OutDll$)   +  #CR$  +
  1509.                ;              #TAB$ +  \OutInfo$               +  #CR$  +  #CR$  +
  1510.                "Time:"     +  #TAB$ +  t$
  1511.       Else
  1512.          t$ =  PeekS(Amp_GetErrorStr(\ErrorN))
  1513.       EndIf
  1514.  
  1515.       Amp_VersionStr(0)
  1516.  
  1517.       MA_MsgBox(\WindowID, t$, \Version$)
  1518.  
  1519.       RetVal   =  \ErrorN
  1520.  
  1521.       Amp_Free()
  1522.  
  1523.       ProcedureReturn   RetVal
  1524.  
  1525.    EndWith
  1526.  
  1527. EndProcedure
  1528. ProcedureCDLL  Amp_MusicBox(*File, iFlags.i)
  1529.  
  1530.    Protected   t$, RetVal
  1531.  
  1532.    If *File :  t$ =  PeekS(*File)   :  EndIf
  1533.  
  1534.    RetVal   =  AmpPlayer::AmpBox(t$, iFlags)
  1535.  
  1536.    ProcedureReturn   RetVal
  1537.  
  1538. EndProcedure
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!