[New VP10 Alert] Trailer Park Boys - Pin-Ballers (Clairvius 2024)

[clairvius]

View File

Trailer Park Boys - Pin-Ballers (Clairvius 2024)

---

Get ready boys, Avoid a pair of drunk trailer park supervisors and help Ricky, Julian, and Bubbles find their missing stash in my latest table Trailer Park Boys - Pin-Ballers. 

If you are unfamiliar with Trailer Park Boys, Be warned this table has some language that may not be family friendly. 

 

Huge thanks to @marty02 for allowing me to use his Indiana Jones Last Movie table as the base for this Reskin. All credit should go to him as well as @jpsalas for his Serious Sam Table that was used as well. 

 

Hope you enjoy the table, Everything you will need to play is included in the download. No Rom Needed. Table plays with the included B2S, Pup Pack will be released at a later date. 

---

• Submitter
  clairvius
• Submitted
  06/05/24
• Category
  VPX - Pinball Tables

 

[Abhcoide]

 If anyone wants DOF to work on version 1.0.0, you can make the following changes:

 

First, go to line 21 and replace that line with this:

 

Const cGameName = "serioussam_Trailer Park Boys Binballers"
Const HighScoreFileName = "Trailer Park Boys Binballers"

 

What this does, is it redirects the cGameName to look at the DOF settings for Serious Sam.

It also adds a new variable.

 

Then go down to about  1477.  Look for this:

 

'*****************************
'    Load / Save / Highscore
'*****************************

Sub Loadhs
    Dim x
    x = LoadValue(cGameName, "HighScore1")
    If(x <> "")Then HighScore(0) = CDbl(x)Else HighScore(0) = 100000 End If
    x = LoadValue(cGameName, "HighScore1Name")
    If(x <> "")Then HighScoreName(0) = x Else HighScoreName(0) = "AAA" End If
    x = LoadValue(cGameName, "HighScore2")
    If(x <> "")then HighScore(1) = CDbl(x)Else HighScore(1) = 100000 End If
    x = LoadValue(cGameName, "HighScore2Name")
    If(x <> "")then HighScoreName(1) = x Else HighScoreName(1) = "BBB" End If
    x = LoadValue(cGameName, "HighScore3")
    If(x <> "")then HighScore(2) = CDbl(x)Else HighScore(2) = 100000 End If
    x = LoadValue(cGameName, "HighScore3Name")
    If(x <> "")then HighScoreName(2) = x Else HighScoreName(2) = "CCC" End If
    x = LoadValue(cGameName, "HighScore4")
    If(x <> "")then HighScore(3) = CDbl(x)Else HighScore(3) = 100000 End If
    x = LoadValue(cGameName, "HighScore4Name")
    If(x <> "")then HighScoreName(3) = x Else HighScoreName(3) = "DDD" End If
    x = LoadValue(cGameName, "Credits")
    If(x <> "")then Credits = CInt(x)Else Credits = 0:If bFreePlay = False Then DOF 125, DOFOff:End If
    x = LoadValue(cGameName, "TotalGamesPlayed")
    If(x <> "")then TotalGamesPlayed = CInt(x)Else TotalGamesPlayed = 0 End If
End Sub

Sub Savehs
    SaveValue cGameName, "HighScore1", HighScore(0)
    SaveValue cGameName, "HighScore1Name", HighScoreName(0)
    SaveValue cGameName, "HighScore2", HighScore(1)
    SaveValue cGameName, "HighScore2Name", HighScoreName(1)
    SaveValue cGameName, "HighScore3", HighScore(2)
    SaveValue cGameName, "HighScore3Name", HighScoreName(2)
    SaveValue cGameName, "HighScore4", HighScore(3)
    SaveValue cGameName, "HighScore4Name", HighScoreName(3)
    SaveValue cGameName, "Credits", Credits
    SaveValue cGameName, "TotalGamesPlayed", TotalGamesPlayed
End Sub

Sub Reseths
    HighScoreName(0) = "AAA"
    HighScoreName(1) = "BBB"
    HighScoreName(2) = "CCC"
    HighScoreName(3) = "DDD"
    HighScore(0) = 100000
    HighScore(1) = 100000
    HighScore(2) = 100000
    HighScore(3) = 100000
    Savehs
End Sub

' ***********************************************************
'  High Score Initals Entry Functions - based on Black's code
' ***********************************************************

 

Then replace that entire section with this:

 

'*****************************
'    Load / Save / Highscore
'*****************************

Sub Loadhs
    Dim x
    x = LoadValue(HighScoreFileName, "HighScore1")
    If(x <> "")Then HighScore(0) = CDbl(x)Else HighScore(0) = 100000 End If
    x = LoadValue(HighScoreFileName, "HighScore1Name")
    If(x <> "")Then HighScoreName(0) = x Else HighScoreName(0) = "AAA" End If
    x = LoadValue(HighScoreFileName, "HighScore2")
    If(x <> "")then HighScore(1) = CDbl(x)Else HighScore(1) = 100000 End If
    x = LoadValue(HighScoreFileName, "HighScore2Name")
    If(x <> "")then HighScoreName(1) = x Else HighScoreName(1) = "BBB" End If
    x = LoadValue(HighScoreFileName, "HighScore3")
    If(x <> "")then HighScore(2) = CDbl(x)Else HighScore(2) = 100000 End If
    x = LoadValue(HighScoreFileName, "HighScore3Name")
    If(x <> "")then HighScoreName(2) = x Else HighScoreName(2) = "CCC" End If
    x = LoadValue(HighScoreFileName, "HighScore4")
    If(x <> "")then HighScore(3) = CDbl(x)Else HighScore(3) = 100000 End If
    x = LoadValue(HighScoreFileName, "HighScore4Name")
    If(x <> "")then HighScoreName(3) = x Else HighScoreName(3) = "DDD" End If
    x = LoadValue(HighScoreFileName, "Credits")
    If(x <> "")then Credits = CInt(x)Else Credits = 0:If bFreePlay = False Then DOF 125, DOFOff:End Ifrepla
    x = LoadValue(HighScoreFileName, "TotalGamesPlayed")
    If(x <> "")then TotalGamesPlayed = CInt(x)Else TotalGamesPlayed = 0 End If
End Sub


Sub Savehs
    SaveValue HighScoreFileName, "HighScore1", HighScore(0)
    SaveValue HighScoreFileName, "HighScore1Name", HighScoreName(0)
    SaveValue HighScoreFileName, "HighScore2", HighScore(1)
    SaveValue HighScoreFileName, "HighScore2Name", HighScoreName(1)
    SaveValue HighScoreFileName, "HighScore3", HighScore(2)
    SaveValue HighScoreFileName, "HighScore3Name", HighScoreName(2)
    SaveValue HighScoreFileName, "HighScore4", HighScore(3)
    SaveValue HighScoreFileName, "HighScore4Name", HighScoreName(3)
    SaveValue HighScoreFileName, "Credits", Credits
    SaveValue HighScoreFileName, "TotalGamesPlayed", TotalGamesPlayed
End Sub


Sub Reseths
    HighScoreName(0) = "AAA"
    HighScoreName(1) = "BBB"
    HighScoreName(2) = "CCC"
    HighScoreName(3) = "DDD"
    HighScore(0) = 100000
    HighScore(1) = 100000
    HighScore(2) = 100000
    HighScore(3) = 100000
    Savehs
End Sub


' ***********************************************************
'  High Score Initals Entry Functions - based on Black's code
' ***********************************************************

 

Now you have working DOF for a very awesome table.