Pup Packs In VR

[Spacegoogie]

Example, my CFTBL Pup works fine outside of VR, In VR I can not see the Pup just static backglass, even when I can see  the Pup  playing on my monitor.

I tried adding lines to the script but nothing would get it to show on the BG in VR?

 

What is it I need to do to add to the script to get a VR table to run its respective Pup pack?

 

I tried adding this to the script but it did not help:

 

"' PuP-Pack VR Support Dim usePUP Dim cPuPPack Dim PuPlayer Dim PUPStatus PUPStatus = False ' Initialize PuP-Pack Sub PuPStart(cPuPPack)

If PUPStatus = True Then Exit Sub

If usePUP = True Then Set PuPlayer = CreateObject("PinUpPlayer.PinDisplay")

If PuPlayer Is Nothing Then usePUP = False PUPStatus = False Else PuPlayer.B2SInit "", cPuPPack ' Initialize PuP-Pack with the folder name PUPStatus = True ' VR-specific: Map PuP screen to backglass primitive PuPlayer.SetScreenEx 1, "BackglassImage" ' Adjust "1" to your  Sub Table1_Init usePUP = True cPuPPack = "CFTBLpup" ' Replace with your PuP-Pack folder name (e.g., "tron_limited") PuPStart(cPuPPack) ' Other table init code here End Sub".

 

Thanks for any help!

[Spacegoogie]

ALso tried: 

 

' PuP-Pack VR Support
Dim usePUP
Dim cPuPPack
Dim PuPlayer
Dim PUPStatus
PUPStatus = False

' Initialize PuP-Pack for VR
Sub PuPStart(cPuPPack)
    If PUPStatus = True Then Exit Sub
    If usePUP = True Then
        Set PuPlayer = CreateObject("PinUpPlayer.PinDisplay")
        If PuPlayer Is Nothing Then
            usePUP = False
            PUPStatus = False
            AddDebugText "PuP Failed to Initialize" ' Debug if PuP fails
        Else
            PuPlayer.B2SInit "", cPuPPack ' Initialize PuP-Pack
            PUPStatus = True
            ' Explicitly set PuP screen to backglass primitive for VR
            PuPlayer.SetScreenEx 1, "BackglassImage", 0, 0, 1920, 1080, 1 ' Screen 1, full size, visible
            AddDebugText "PuP Started on BackglassImage" ' Debug confirmation
        End If
    End If
End Sub

' Start PuP-Pack in table init
Sub Table1_Init
    usePUP = True
    cPuPPack = "CFTBL_pup" ' Replace with your PuP-Pack folder name
    PuPStart(cPuPPack)
    ' Other table init code here
End Sub

' Optional: Debug text subroutine (add if not present)
Sub AddDebugText(txt)
    On Error Resume Next
    vpmTimer.AddTimer 1000, "DebugText """ & txt & """ '"
End Sub

Sub DebugText(txt)
    On Error Resume Next
    If Not IsObject(vpmTimer) Then Exit Sub
    vpmTimer.PulseSw txt
End Sub

 

This did not work as well, Did I type something wrong? 🍻