Jump to content

[New VPX Alert]Flash Gordon Pup Pack


Recommended Posts

  • Content Provider

Flash Gordon Pup Pack


Please find link to Flash Gordon Pup Pack.

 

Its my first real attempt , so be kind :)

Ball Lost 3 is Long, But funny! Let it Run..

 

Link Includes

Pup Pack

Table  ( Old Version )

B2s     ( Old Version )

 

Info in download on how to get pup working with latest table release. Please back up and follow instructions.

 

Thanks to Pinball Picasso , Artwork

Hawkeyez88, Pup Support

Xenonph, Table Lut Mod

Rothbauerw, Original Table I believe

Pritch for that clip :) 

 

If ive missed anyone, please let me know and ill edit this.

 

Fixes in v1.0.1

 

You can now kill TED 2 drain by pressing start

Alternative video for ballost 3 now in folder in pup pack.

Just copy the video file into the ballost folder to overwite.

 

Thanks Hawkeyez88 again.... No more favours to be asked until August :)


 

Link to comment
Share on other sites

  • 3 months later...
  • 1 month later...
7 hours ago, wryker said:

The new table doesn't support/have the script to use the pup....so ...I guess stick w/the old table version?

domloveslobby says yes just copy the pup stuff into the new vpx script.

Start at line 9 right under "randomize" and copy the below and paste in. Then add the pupevent shown below this script

 

'****** PuP Variables ******

Dim usePUP: Dim cPuPPack: Dim PuPlayer: Dim PUPStatus: PUPStatus=false ' dont edit this line!!!

'*************************** PuP Settings for this table ********************************

usePUP   = true               ' enable Pinup Player functions for this table
cPuPPack = "flashgdn"    ' name of the PuP-Pack / PuPVideos folder for this table

'//////////////////// PINUP PLAYER: STARTUP & CONTROL SECTION //////////////////////////

' This is used for the startup and control of Pinup Player

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 'start the Pup-Pack
            PUPStatus=true
        End If
    End If
End Sub

Sub pupevent(EventNum)
    if (usePUP=false or PUPStatus=false) then Exit Sub
    PuPlayer.B2SData "E"&EventNum,1  'send event to Pup-Pack
End Sub

' ******* How to use PUPEvent to trigger / control a PuP-Pack *******

' Usage: pupevent(EventNum)

' EventNum = PuP Exxx trigger from the PuP-Pack

' Example: pupevent 102

' This will trigger E102 from the table's PuP-Pack

' DO NOT use any Exxx triggers already used for DOF (if used) to avoid any possible confusion

'************ PuP-Pack Startup **************

PuPStart(cPuPPack) 'Check for PuP - If found, then start Pinup Player / PuP-Pack

----------------------------------------------------------------

Then at line 306 add the PuPevent so it looks like this;

 

300 '******************************************************
301 '                DRAIN & RELEASE
302 '******************************************************

304 Sub Drain_Hit()
305     RandomSoundDrain drain    
306    Controller.Switch(8) = 1 :PuPevent 800
307 End Sub

 

You line numbers may be slightly different. Thats all there is to it, thanks to @domloveslobby again!

Link to comment
Share on other sites

21 hours ago, Cliffy said:

domloveslobby says yes just copy the pup stuff into the new vpx script.

Start at line 9 right under "randomize" and copy the below and paste in. Then add the pupevent shown below this script

 

'****** PuP Variables ******

Dim usePUP: Dim cPuPPack: Dim PuPlayer: Dim PUPStatus: PUPStatus=false ' dont edit this line!!!

'*************************** PuP Settings for this table ********************************

usePUP   = true               ' enable Pinup Player functions for this table
cPuPPack = "flashgdn"    ' name of the PuP-Pack / PuPVideos folder for this table

'//////////////////// PINUP PLAYER: STARTUP & CONTROL SECTION //////////////////////////

' This is used for the startup and control of Pinup Player

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 'start the Pup-Pack
            PUPStatus=true
        End If
    End If
End Sub

Sub pupevent(EventNum)
    if (usePUP=false or PUPStatus=false) then Exit Sub
    PuPlayer.B2SData "E"&EventNum,1  'send event to Pup-Pack
End Sub

' ******* How to use PUPEvent to trigger / control a PuP-Pack *******

' Usage: pupevent(EventNum)

' EventNum = PuP Exxx trigger from the PuP-Pack

' Example: pupevent 102

' This will trigger E102 from the table's PuP-Pack

' DO NOT use any Exxx triggers already used for DOF (if used) to avoid any possible confusion

'************ PuP-Pack Startup **************

PuPStart(cPuPPack) 'Check for PuP - If found, then start Pinup Player / PuP-Pack

----------------------------------------------------------------

Then at line 306 add the PuPevent so it looks like this;

 

300 '******************************************************
301 '                DRAIN & RELEASE
302 '******************************************************

304 Sub Drain_Hit()
305     RandomSoundDrain drain    
306    Controller.Switch(8) = 1 :PuPevent 800
307 End Sub

 

You line numbers may be slightly different. Thats all there is to it, thanks to @domloveslobby again!

I put that in and though it loads, it just plays the Queen song video clip - nothing else.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
  • Create New...