' ********** Add Pinup Player support to a Future Pinball table **********
' - this can be copied to the script of any Future Pinball table under Option Explicit
' - this will add support for Pinup Player, but does not include support for PUPDMD framework
' - this is NOT the same as the features of a PinEvent table, nor does this use or require the PinEvent vbs files
' - DO NOT use the name PinEvent when using this code to add PuP to a FP table (PinEvent = TerryRed table and pup-pack releases only)
'/////////////////////// iCOM BAM PLUG-IN - USE COM OBJECTS ////////////////////////////
' The iCOM plug-in for BAM must be installed and enabled in the BAM Plug-ins menu!
' This will allow programs such as DOF, Pinup Player, and more to work directly with Future Pinball.
Dim icom : Set icom = xBAM.Get("icom") ' "icom" is name of "icom.dll" in BAM\Plugins dir
Function CreateObject(className)
Set CreateObject = icom.CreateObject(className)
End Function
'///////////////////////////////////////////////////////////////////////////////////////
'//////////////////// PINUP PLAYER: STARTUP & CONTROL SECTION //////////////////////////
' This is used for the startup and control of Pinup Player
Dim usePUP
Dim cPuPPack
Dim PuPlayer
Dim PUPStatus
PUPStatus=false
Sub PuPStart(cPuPPack)
If PUPStatus=true then Exit Sub
If usePUP=true then
Set PuPlayer = CreateObject("PinUpPlayer.PinDisplay")
If PuPlayer is Nothing Then
AddDebugText "PUP is not installed"
usePUP=false
usePUP_SSF=false
PUPStatus=false
Else
PuPlayer.B2SInit "",cPuPPack 'start the Pup-Pack
PUPStatus=true
AddDebugText "Start PUP"
End If
End If
End Sub
Sub pupevent(EventNum)
if PUPStatus=false then Exit Sub
if usePUP=false then Exit Sub
PuPlayer.B2SData "E"&EventNum,1 'send event to Pup-Pack
End Sub
' Usage: pupevent(EventNum)
' EventNum = PuP Exxx trigger from PuP-Pack
' Example:
' pupevent 102
' This will trigger E102 from the PuP-Pack
'///////////////////////////////////////////////////////////////////////////////////////
'////////////// START PUP-PACK ////////////////
usePUP = true ' enable Pinup Player
cPuPPack = "FP_PUP_PACK" ' name of the PuP-Pack / PuPVideos folder for this table
PuPStart(cPuPPack) ' check for PuP - If found, then start Pinup Player / PuP-Pack
'//////////////////////////////////////////////