51 replies to this topic

[Luger81]

Thank you, LynnInDenver! That worked perfectly!

[LynnInDenver]

You're welcome. I've been using it alongside table mods using PinUp Player to create a PostDMD scoreboard, so that I didn't have to excise the UltraDMD stuff in the process so that I could send the tables back to their author to incorporate into an official release.

[dramaone]

Is there anyway to reduce pixel size in Ultradmd? I have a large dmd and when stretched to fit the pixels are large

 

Thanks

[LynnInDenver]

No, there's no way to reduce the pixels in UltraDMD - it's meant to be used as if you have a traditional DMD, so it only displays as 128x32, regardless of the actual display area resolution. Remember, it was written as an extension of XDMD, and at that time DMD wasn't completely obsolete as a scoreboard method for pinball anyway.

[dramaone]

Thanks, thought as much but was hoping it could be tweaked in the registry. . PS great work on the Jaws and He-man dmd's

[LynnInDenver]

You're welcome. And I'll admit, the resolution issue is part of why I did the PuP work on He-man and Jaws, it just happened that I realized other people would like it as well as an option.

[playab0yyy]

Trying to understand how to enable this GUI mentioned on page 1 of this thread. Found the UltraDMD_Options.vbs in the scripts folder, but have no idea what portion of that needs to be added to the game's script. In that .vbs, is he giving segments of the script along with explanations at the beginning, or is what needs to be copied over the large batch of text that begins just after the 4 options mentioned?

Edited by playab0yyy, 14 April 2020 - 08:54 PM.

[yakuzaronin]

great stuff.  learning alot about ultradmd.  thanks everyone!

Edited by yakuzaronin, 17 May 2020 - 07:36 AM.

[makmak]

is there a way to define the text color only? I am using a background and it gets unwanted coloured as well when I change the DMD color. Sry if stupid question..

[Outhere]

Try This - Go to Post 2
Add the code to the table and set UseFullColor to true
Make sure you search the script in case it's already in there somewhere
I believe if you change DMDColorSelect to a new color I will affect the text only
Set Position and size to match your setup 
 

[makmak]

thx, I have tried several combinations without success (copying all results in error).. My workaround actual is: start another original table , this one has the option (F6) to change DMD text colors. I change it there, then I start my own original table and voila - the wanted color is there, lol. As you can see, I have no clue what the most part of code of my table is doing - a miracle its working. I guess my table is lacking of some general DMD code. Havent had a closer look at this part yet. Well , now I know what to do next weekend...

my code is this only:( i dont remeber where I have stolen and raped it, probably "Diablo Pinball", maybe its outdated...)

 

    Dim UltraDMD

    Sub DMD(background, toptext, bottomtext, duration)
        If turnonultradmd = 0 then exit sub
        UltraDMD.DisplayScene00 background, toptext, 15, bottomtext, 15, 14, duration, 14
        UltraDMDTimer.Enabled = 1 'to show the score after the animation/message
    End Sub

    Sub DMDScore
        If turnonultradmd = 0 then exit sub
        UltraDMD.SetScoreboardBackgroundImage "scoreboard-background.jpg", 15, 15
        UltraDMD.DisplayScoreboard PlayersPlayingGame, CurrentPlayer, Score(1), Score(2), Score(3), Score(4), "Player " & CurrentPlayer, "Ball " & Balls
    End Sub

    Sub DMDScoreNow
        If turnonultradmd = 0 then exit sub
        DMDFlush
        DMDScore
    End Sub

    Sub DMDFLush
        If turnonultradmd = 0 then exit sub
        UltraDMDTimer.Enabled = 0
        UltraDMD.CancelRendering
    End Sub

    Sub DMDScrollCredits(background, text, duration)
        If turnonultradmd = 0 then exit sub
        UltraDMD.ScrollingCredits background, text, 15, 14, duration, 14
    End Sub

    Sub DMDId(id, background, toptext, bottomtext, duration)
        If turnonultradmd = 0 then exit sub
        UltraDMD.DisplayScene00ExwithID id, False, background, toptext, 15, 0, bottomtext, 15, 0, 14, duration, 14
    End Sub

    Sub DMDMod(id, toptext, bottomtext, duration)
        If turnonultradmd = 0 then exit sub
        UltraDMD.ModifyScene00Ex id, toptext, bottomtext, duration
    End Sub

    Sub UltraDMDTimer_Timer 'used for the attrackmode and the instant info.
        If turnonultradmd = 0 then exit sub
        If bInstantInfo Then
            InstantInfo
        ElseIf bAttractMode Then
        ElseIf NOT UltraDMD.IsRendering Then
            DMDScoreNow
        ElseIf bromconfig Then
            romconfig
        End If
    End Sub

    Sub DMD_Init
        If turnonultradmd = 0 then exit sub
        Set UltraDMD = CreateObject("UltraDMD.DMDObject")
        If UltraDMD is Nothing Then
            MsgBox "No UltraDMD found.  This table will NOT run without it."
            Exit Sub
        End If

        UltraDMD.Init
        If turnonultradmd = 0 then exit sub
        If Not UltraDMD.GetMajorVersion = 1 Then
            MsgBox "Incompatible Version of UltraDMD found."
            Exit Sub
        End If

        If UltraDMD.GetMinorVersion <1 Then
        If turnonultradmd = 0 then exit sub
            MsgBox "Incompatible Version of UltraDMD found. Please update to version 1.1 or newer."
            Exit Sub
        End If

        Dim fso:Set fso = CreateObject("Scripting.FileSystemObject")
        Dim curDir:curDir = fso.GetAbsolutePathName(".")

        Dim DirName
        DirName = curDir& "\" &TableName& ".UltraDMD"

        If Not fso.FolderExists(DirName) Then _
                Msgbox "UltraDMD userfiles directory '" & DirName & "' does not exist." & CHR(13) & "No graphic images will be displayed on the DMD"
        UltraDMD.SetProjectFolder DirName

        ' wait for the animation to end
        While UltraDMD.IsRendering = True
        WEnd

    End Sub

 

[Outhere]

Which UltraDMD table has the F6 menu?

[makmak]

Supered's Pink Floyd (first published version, maybe he has changed it with the new version, havent looked at it yet)

[Outhere]

Supered's Pink Floyd (first published version, maybe he has changed it with the new version, havent looked at it yet)

Thanks

[makmak]

The DMDcolorselect changes all colors , also the videos of the background get this color then. Isnt there a single commandline for textcolor besides that gui from ninuzzu that changes colors overall and for text 'globally'? Does this mean my code has no effect on text and overall colors of other users machines? And they maybe have different dmdcolors than i have for my table? Never thought about that...

[makmak]

I have added ninuzzus code incl. his GUI to my code and its working fine (at least on my machine; unfortunately I do not get any feedback anymore to my table, but maybe this is a good sign, given the amount of 100 sth downloads after publishing a new version). So I guess its working for others, too.

[tvguy]

 

Edit: forgot part of code, hopefully you didn't see this before I edited

'---------- 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 

GetDMDColor
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
'---------------------------------------------------

Put this in the table script to configure UltraDMD color and position on table start. Change the values to what you want, this is just my setup from AMH. If you don't understand how to change the code to suit your needs, feel free to ask.

 

 

When I add this code to my table, I receive an error when I compile the script. Is there a specific place where it needs to be added? Are there other variables that need to be added to get this to work? Tried it with two tables and same error both times when compiling.

 

[Outhere]

Be careful because there are a few games that already have it in so check the script before adding

 

I always add after this

Option Explicit
Randomize

You added just this part?
 

'---------- 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 

GetDMDColor
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
'---------------------------------------------------

 

[tgx]

Beating the proverbial dead horse but I have an issue where the DMDColor and DMDPosition works dandy but DMDSize does nothing.

Is it locked?

 

**Nevermind. I see nothing is working.

 

This is the script I have added to the table I am working on. UDMD is 1.4.

I also tried deleting the stored reg values and seeing if that would help.

 

 
'---------- 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

GetDMDColor
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
'---------------------------------------------------

Edited by tgx, 11 October 2020 - 06:46 PM.

[tgx]

I take that back it does seem to set PosX/PosY and DMDColor. It doesn't set height/width via the script.