Here's an example file.
Code: Select all
@REQUIRE "avcodec"
OpenMusic(1, "Pinball Illusions 034.aac")
duration = GetAttribute(#MUSIC, 1, #ATTRDURATION)
loader$ = GetAttribute(#MUSIC, 1, #ATTRLOADER)
DebugPrint("Loader:", loader$, "Duration:", duration)
InstallEventHandler({OnMusicEnd = Function() DebugPrint("Actual duration:", GetTimer(1)) EndFunction})
StartTimer(1)
PlayMusic(1)
Repeat
WaitEvent
Forever
Code: Select all
Loader: avcodec Duration: 15585
Actual duration: 31237