Champions League 2018 uses a shared script located in Visual Pinball's scripts folder, called 'UltraDMD_Options.vbs'. You need to modify this file to add support for this GameName feature. If you replace the corresponding lines in the file by the one provided below, it will pass the game name to FlexDMD.
With this, Champion's league 2018 have a game name of 'uefa_cl18' and 2017 has a game name of 'uefa_cl17', which are given to FlexDMD and hence can be used in dmddevice.ini
'Function to initialize UltraDMD
Function LoadUltraDMD(ProjectFolderName,TableOptName)
Dim FlexDMD
Set FlexDMD = CreateObject("FlexDMD.FlexDMD")
FlexDMD.GameName = TableOptName
Set UltraDMD = FlexDMD.NewUltraDMD()
' Set UltraDMD = CreateObject("UltraDMD.DMDObject")
' A Major version change indicates the version is no longer backward compatible
If Not UltraDMD.GetMajorVersion = 1 Then
MsgBox "Incompatible Version of UltraDMD found."
QuitPlayer:Exit Function
End If
'Check if UMD v1.4 is running
If UltraDMD.GetMinorVersion<4 AND optUseFullColor=1 Then
MsgBox "Full Color not supported. Please upgrade to UltraDMD v1.4" & VbCrLf & "Exiting so changes will take effect..."
Dim WshShell:Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\UltraDMD\fullcolor","False","REG_SZ"
SaveValue TableOptName, "DMD Options", 1
QuitPlayer:Exit Function
End If
UltraDMD.Init
'Sets the project folder and video stretch mode
Dim fso,curDir
Set fso = CreateObject("Scripting.FileSystemObject")
curDir = fso.GetAbsolutePathName(".")
UltraDMD.SetProjectFolder curDir & "\"& ProjectFolderName &".UltraDMD"
If NOT fso.FolderExists(curDir & "\"& ProjectFolderName &".UltraDMD") Then
MsgBox ProjectFolderName & ".UltraDMD" & " not found." & VbCrLf & "Please copy it in the same folder as this table" & VbCrLf & "DMD animations can't be shown!!"
End If
UltraDMD.SetVideoStretchMode UltraDMD_VideoMode_Middle
End Function
'Function to reset the DMD color settings and close UltraDMD on table exit
Function ExitUltraDMD
On Error Resume Next
If UltraDMD.IsRendering Then UltraDMD.CancelRendering
UltraDMD.Uninit
If Error.Number<>0 Then UltraDMD = Null:Exit Function
Dim WshShell:Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\UltraDMD\color",DMDOldColor,"REG_SZ"
WshShell.RegWrite "HKCU\Software\UltraDMD\fullcolor",DMDOldFullColor,"REG_SZ"
UltraDMD = Null
End Function
Edited by vbousquet, 30 March 2020 - 08:25 PM.




Top











are all trademarks of VPFORUMS.