Wikis > Visual Pinball Knowledge Base > UltraDMD, color and position

The UltraDMD may be positioned and colored for each individual table that uses it (versus a single, global setting).  This is set in the table’s script.  Without this script, setting the position and colors of the UltraDMD  in one table messes up the settings on other tables, etc.

The following script example and explanations were provided by Freelunch – ref :

'---------- UltraDMD Unique Table Color preference -------------
Dim DMDColor, DMDColorSelect, UseFullColor
Dim DMDPosition, DMDPosX, DMDPosY, DMDSize, DMDWidth, DMDHeight 

UseFullColor = "False"                          '  "True" / "False"
DMDColorSelect = "Green"            ' Rightclick on UDMD window to get full list of colours

DMDPosition = True                              ' Use Manual DMD Position, True / False
DMDPosX = 100                                   ' Position in Decimal
DMDPosY = 40                                    ' Position in Decimal

DMDSize = True                                  ' Use Manual DMD Size, True / False
DMDWidth = 512                                  ' Width in Decimal
DMDHeight = 128                                 ' Height in Decimal 

'Note open Ultradmd and right click on window to get the various sizes in decimal 

Sub GetDMDColor
Dim WshShell,filecheck,directory
Set WshShell = CreateObject("WScript.Shell")
If DMDSize then
WshShell.RegWrite "HKCU\Software\UltraDMD\w",DMDWidth,"REG_DWORD"
WshShell.RegWrite "HKCU\Software\UltraDMD\h",DMDHeight,"REG_DWORD"
End if
If DMDPosition then
WshShell.RegWrite "HKCU\Software\UltraDMD\x",DMDPosX,"REG_DWORD"
WshShell.RegWrite "HKCU\Software\UltraDMD\y",DMDPosY,"REG_DWORD"
End if
WshShell.RegWrite "HKCU\Software\UltraDMD\fullcolor",UseFullColor,"REG_SZ"
WshShell.RegWrite "HKCU\Software\UltraDMD\color",DMDColorSelect,"REG_SZ"
End Sub


Facebook Auto Publish Powered By :

Log in with your credentials


Forgot your details?

Create Account