/**************************************************************************/
/*** Version of Hollywood-MAL is at least version 10.0! ***/
/**************************************************************************/
@VERSION 10,0
/****************************************/
/*** Information about this app ***/
/****************************************/
@APPTITLE "ROD-Playbox-Player"
@APPVERSION "$VER: ROD-Playbox-Player V1.0.0 (2023.09.09)"
@APPCOPYRIGHT "(C) Copyright 1971-2071 by Magnus Hammarstrom"
@APPAUTHOR "Magnus Hammarstrom"
@APPDESCRIPTION "ROD-Playbox-Player - OSsys:MacOS HDD: ./Golden/ROD_GOLD/Media"
/***************************************/
/*** Display size and background PIX ***/
/***************************************/
@DISPLAY {X=52, Y=52, Borderless = True, DragRegion = {{X=0, Y=0, Width=616, Height=616}}}
@BGPIC 1, "./HD-BGP/5_playbox_round_616x616.png", {LoadAlpha = True}
/**************************/
/*** Keyboard Function ***/
/**************************/
Function
p_EventFunc(msg)
Switch(msg.action)
Case "OnKeyDown":
/***************/
/* Enter key 1 */
/***************/
/* Enter new key */
If msg.key= "1"
p_Show_ROD_Playbox_Player()
EndIf
/*****************/
/* Enter key ESC */
/* Exit program */
/*****************/
If msg.key="ESC"
End()
EndIf
EndSwitch
EndFunction
/********************************/
/*** End of keyboard function ***/
/********************************/
/****************/
/** 2023-09-09 **/
/**********************************************************************/
/*
https://www.hollywood-mal.com/docs/html ... quest.html */
/**********************************************************************/
Function
p_Show_ROD_Playbox_Player()
ROD_Playbox_Player = ListRequest(({Width=600, Height=800}), "6. Rakt Over Disc-1978-2022-Playbox-Player", "Select show", {"None",
"1978-05-19.mp3",
"1978-05-19.mp3",
"1978-05-19.mp3",
"1978-05-19.mp3",
"1978_Clabbe_Tandberg_Station_Cazzette.mp3",
"1978-05-19.mp3",
"1978-05-19.mp3",
"1978-05-19.mp3",
"1978-05-19.mp3",
"1978_Clabbe_Tandberg_Station_Cazzette.mp3",
"1978-05-19.mp3",
"1978-05-19.mp3",
"1978-05-19.mp3",
"1978-05-19.mp3",
"1978-05-19.mp3",
"1978_Clabbe_Tandberg_Station_Cazzette.mp3"})
/**************************/
/*** ***/
/**************************/
If ROD_Playbox_Player = -1
Print("Rakt Over Disc - 1978-2022 - Playbox - Player")
ElseIf ROD_Playbox_Player =1 Execute("./Database/X64PLayer/macos/mpv ./Database/Golden/ROD_GOLD/Media/1978-05-19.mp3")
ElseIf ROD_Playbox_Player =2 Execute("./Database/X64PLayer/macos/mpv ./Database/Golden/ROD_GOLD/Media/1978-05-19.mp3")
ElseIf ROD_Playbox_Player =3 Execute("./Database/X64PLayer/macos/mpv ./Database/Golden/ROD_GOLD/Media/1978-05-19.mp3")
ElseIf ROD_Playbox_Player =4 Execute("./Database/X64PLayer/macos/mpv ./Database/Golden/ROD_GOLD/Media/1978-05-19.mp3")
ElseIf ROD_Playbox_Player =5 Execute("./Database/X64PLayer/macos/mpv ./Database/Golden/ROD_GOLD/Media/1978-05-19.mp3")
ElseIf ROD_Playbox_Player =6 Execute("./Database/X64PLayer/macos/mpv ./Database/Golden/ROD_GOLD/Media/1978_Clabbe_Tandberg_Station_Cazzette.mp3")
/**************************/
/*** ***/
/**************************/
Else
Print(" ")
EndIf
EndFunction
/**************************/
/*** EventHandler ***/
/**************************/
InstallEventHandler({OnKeyDown = p_EventFunc})
/**************************/
/*** EventHandler ***/
/**************************/
EscapeQuit(True)
/****************/
/* */
/****************/
Repeat
WaitEvent
Forever
/****************/
/* End program */
/****************/
/**********************/
/* The End 2023-09-09 */
/**********************/