21 replies to this topic

[supered]

File Name: Pink Floyd - The Wall

File Submitter: supered

File Submitted: 04 Apr 2021

File Category: VPX Originals

Author(s): SuperEd [Ed Vink]
Permission to MOD?: Yes, with approval

This is my contribution to the VPX scene. Originally hosted on vpinball.com , but now uploaded to vpforums.org.
 
This table has music tracks. Please download them using this link (due to copyrights of the soundtrack)
 
PF_Music_b80.7z - Google Drive
 
https://drive.google...z6_vAtQ7Ii/view
 
Have fun!

Click here to download this file

[wiesshund]

I already have this table from vpinball.com

And i highly recommend it!

 

 

*I am Wiesshund, and i approve this message

[Greynurse]

I'm getting weird behavior's with supered's VP10.7 creations. Running Windows 10, the table opens and shuts down from the editor ok. But when I play the table, it locks up on exiting. I have to use the task manager to kill VP10.7. Any ideas anyone? 

Edited by Greynurse, 05 April 2021 - 01:53 PM.

[pedroperes02]

I'm getting weird behavior's with supered's VP10.7 creations. Running Windows 10, the table opens and shuts down from the editor ok. But when I play the table, it locks up on exiting. I have to use the task manager to kill VP10.7. Any ideas anyone? 

Don't use 10.7 for this table

[wiesshund]

 

I'm getting weird behavior's with supered's VP10.7 creations. Running Windows 10, the table opens and shuts down from the editor ok. But when I play the table, it locks up on exiting. I have to use the task manager to kill VP10.7. Any ideas anyone? 

Don't use 10.7 for this table

 

?

 

works perfectly fine here in 10.7

[mrjcrane]

Was scanning the table script, did anyone see a chunk  of code for a keystroke that can advance to the next music track?

[wiesshund]

Was scanning the table script, did anyone see a chunk  of code for a keystroke that can advance to the next music track?

 

I did not notice one, but i was not actually looking really

It changed tracks on it's own based on what the table was doing

[supered]

 

Was scanning the table script, did anyone see a chunk  of code for a keystroke that can advance to the next music track?

 

I did not notice one, but i was not actually looking really

It changed tracks on it's own based on what the table was doing

 

That is correct. When ever you collect all lite hammers, you will earn an album award and it will skip to the next album, and play a track that belongs to the album (one track / album)

You also can start JukeBox mode just hitting the plunger button when NOT IN A GAME. It will random play tracks

I'm getting weird behavior's with supered's VP10.7 creations. Running Windows 10, the table opens and shuts down from the editor ok. But when I play the table, it locks up on exiting. I have to use the task manager to kill VP10.7. Any ideas anyone? 

 

I am using build 10.7 4291 myself, with no issues........ sorry

[Cadorna]

Hi. Thanks for your work, I really enjoy this table. The plunger animation  is not working for me, may I do anything to correct it ?

[dipsydoodle]

Hello all

A great table but does anybody know how to disable the shaker motor on this.

It goes mad with far too much intensity.

All my other tables work fine. I have the shaker at only 30% of it's capacity on a global setting. Otherwise, the cab starts walking. Pink Floyd table seems to override this. Would be grateful for any ideas.......

 

[brucmod]

Great Table. Love the Pup Pack, but F6 for DMD options errors out for with s Variable is Undefined 'ShowDMDOptions'

 

Im trying to remove dmd from the backglass

[QuickSave80]

Hello all

A great table but does anybody know how to disable the shaker motor on this.

It goes mad with far too much intensity.

All my other tables work fine. I have the shaker at only 30% of it's capacity on a global setting. Otherwise, the cab starts walking. Pink Floyd table seems to override this. Would be grateful for any ideas.......

 

Ever find a fix for this? It makes the table unplayable with how much it shakes

[wiesshund]

 

Hello all

A great table but does anybody know how to disable the shaker motor on this.

It goes mad with far too much intensity.

All my other tables work fine. I have the shaker at only 30% of it's capacity on a global setting. Otherwise, the cab starts walking. Pink Floyd table seems to override this. Would be grateful for any ideas.......

 

Ever find a fix for this? It makes the table unplayable with how much it shakes

 

 I think you would need to look at your DOF config for the table in config tool

nothing the table author can fix
 

[dipsydoodle]

 

Hello all

A great table but does anybody know how to disable the shaker motor on this.

It goes mad with far too much intensity.

All my other tables work fine. I have the shaker at only 30% of it's capacity on a global setting. Otherwise, the cab starts walking. Pink Floyd table seems to override this. Would be grateful for any ideas.......

 

Ever find a fix for this? It makes the table unplayable with how much it shakes

 

Sorry for delay in reply. Not found a fix yet. Will keep you posted if I do.

[wiesshund]

 

 

Hello all

A great table but does anybody know how to disable the shaker motor on this.

It goes mad with far too much intensity.

All my other tables work fine. I have the shaker at only 30% of it's capacity on a global setting. Otherwise, the cab starts walking. Pink Floyd table seems to override this. Would be grateful for any ideas.......

 

Ever find a fix for this? It makes the table unplayable with how much it shakes

 

Sorry for delay in reply. Not found a fix yet. Will keep you posted if I do.

 

 

Ask the DOF config guys, as it is a DOF thing not so much a table thing

[dipsydoodle]

 

 

Hello all

A great table but does anybody know how to disable the shaker motor on this.

It goes mad with far too much intensity.

All my other tables work fine. I have the shaker at only 30% of it's capacity on a global setting. Otherwise, the cab starts walking. Pink Floyd table seems to override this. Would be grateful for any ideas.......

 

Ever find a fix for this? It makes the table unplayable with how much it shakes

 

 I think you would need to look at your DOF config for the table in config tool

nothing the table author can fix
 

Hi this is now fixed for me. Like this:

In DOF config', select the pink floyd table in the 'table config' section.

ON the right hand side, there is a section named 'Candidate configuration'.

Scroll down the the shaker config' and remove everything in the cell. Ie, it is blank.

Save config' down at the button and generate new DOF config files.

Use these to overwrite all your DOF config (after backing up of course).

Now there is no shaker at all in Pink Floyd. Next step is how to put it back with less intensity.

for completeness, this is what was removed:

E127 M3000 MAX10000/E126 E105 300/E113/E157 300/E158 300/E159 300/E160 300/E161 300/E162 300/E114 250 5/E116 500 10/E117 1000 20/E118 2000 40/E136 300/E124 250 5

[RichardL]

Hi. Thanks for your work, I really enjoy this table. The plunger animation  is not working for me, may I do anything to correct it ?

There's a relatively simple script fix for that on the download thread here:

https://www.vpforums...&showfile=15580
 

[spisi69]

Can someone help with this code.  The ball keeps getting stuck on the spinning disc, it rarely exits down the ramps. Thanks.

 

 

'******************************************************

' DISC

'******************************************************

 

Dim discPosition, discSpinSpeed, discLastPos, SpinCounter, maxvel

dim spinAngle, degAngle, spinAngle2, degAngle2, startAngle, postSpeedFactor

dim Spinnerball1, Spinnerball2

dim discX, discY

startAngle = 0 '-15

discX = 415

discY = 1246

PostSpeedFactor = 130'90

 

Const cDiscSpeedMult = 32 '35 ' Affects speed transfer to object (deg/sec)

Const cDiscFriction = 0.55  '1.0    ' Friction coefficient (deg/sec/sec)

'Const cDiscMinSpeed = 0.05 ' Object stops at this speed (deg/sec)

Const cDiscMinSpeed = 5 ' use this value if you want to enable DOF for lamp below in script

Const cDiscRadius = 51

 

'Wobble

Const discSpringConst = -100 '-100

Const discSpringAngle = 30

Const discSpringRange = 25

'End Wobble

[spisi69]

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  
'/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
'\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  
'/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
'  High Scores
'\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  
'/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
'\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  
 
	' load em up
 
 
Dim hschecker:hschecker = 0
 
Sub Loadhs
    Dim x
    x = LoadValue(cGameName, "HighScore1")
    If(x <> "") Then HighScore(0) = CDbl(x) Else HighScore(0) = 80000 End If
 
    x = LoadValue(cGameName, "HighScore1Name")
    If(x <> "") Then HighScoreName(0) = x Else HighScoreName(0) = "EVI" End If
 
    x = LoadValue(cGameName, "HighScore2")
    If(x <> "") then HighScore(1) = CDbl(x) Else HighScore(1) = 60000 End If
 
    x = LoadValue(cGameName, "HighScore2Name")
    If(x <> "") then HighScoreName(1) = x Else HighScoreName(1) = "EVI" End If
 
    x = LoadValue(cGameName, "HighScore3")
    If(x <> "") then HighScore(2) = CDbl(x) Else HighScore(2) = 40000 End If
 
    x = LoadValue(cGameName, "HighScore3Name")
    If(x <> "") then HighScoreName(2) = x Else HighScoreName(2) = "EVI" End If
 
    x = LoadValue(cGameName, "HighScore4")
    If(x <> "") then HighScore(3) = CDbl(x) Else HighScore(3) = 20000 End If
 
    x = LoadValue(cGameName, "HighScore4Name")
    If(x <> "") then HighScoreName(3) = x Else HighScoreName(3) = "EVI" 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, "TotalGamesPlayed", TotalGamesPlayed
End Sub
 
Sub ResetHS()
    SaveValue cGameName, "HighScore1", 0
    SaveValue cGameName, "HighScore1Name", "EVI"
    SaveValue cGameName, "HighScore2", 0
    SaveValue cGameName, "HighScore2Name", "EVI"
    SaveValue cGameName, "HighScore3", 0
    SaveValue cGameName, "HighScore3Name", "EVI"
    SaveValue cGameName, "HighScore4", 0
    SaveValue cGameName, "HighScore4Name", "EVI"
	Loadhs
	dmdflush
	DMD2 "","HIGH SCORES", "ERASED", 5000, UltraDmd_eNone , ""
	playsound "SFX_Commit",1,nFxVolume
	TimerDmdIntro.enabled = False
	TimerDmdIntro.enabled = True
	dmdintroloop
End Sub
 
 
Sub Savegp
	SaveValue cGameName, "TotalGamesPlayed", TotalGamesPlayed
	vpmtimer.addtimer 1000, "Loadhs'"
End Sub
 
 
' Initials
 
Dim hsbModeActive:hsbModeActive = False
Dim hsEnteredName
Dim hsEnteredDigits(3)
Dim hsCurrentDigit
Dim hsValidLetters
Dim hsCurrentLetter
Dim hsLetterFlash
 
Sub CheckHighscore()
    Dim tmp,a
    tmp = Score(1):a=1
 
    If Score(2)> tmp Then tmp = Score(2):a=2
    If Score(3)> tmp Then tmp = Score(3):a=3
    If Score(4)> tmp Then tmp = Score(4):a=4
 
	DMD2 "","PLAYER "+cstr(a), "GOT HIGHSCORE", 5000, UltraDmd_eNone , ""
 
    If tmp> HighScore(1) Then 'add 1 credit for beating the highscore
        AwardSpecial
    End If
 
    If tmp> HighScore(3) Then
		PlaySound "PFFX_Word_YouGotAHighScore",1,nFxVolume
        'vpmtimer.addtimer 2000, "PlaySound ""SFX_Speech_Initials"" '"
        HighScore(3) = tmp
        'enter player's name
        vpmtimer.addtimer 4000, "HighScoreEntryInit() '"
    Else
        vpmtimer.addtimer 2000, "EndOfBallComplete '"
    End If
End Sub
 
Sub HighScoreEntryInit()
    hsbModeActive = True
    hsLetterFlash = 0
 
    hsEnteredDigits(0) = "A"
    hsEnteredDigits(1) = " "
    hsEnteredDigits(2) = " "
    hsCurrentDigit = 0
 
    hsValidLetters = " ABCDEFGHIJKLMNOPQRSTUVWXYZ<+-0123456789" ' < is used to delete the last letter
    hsCurrentLetter = 1
    DMDFlush
    DMDId "hsc", "sepf-black-background.jpg", "ENTER YOUR NAME:", " ", 999999
    HighScoreDisplayName()
End Sub
 
Sub EnterHighScoreKey(keycode)
    If keycode = LeftFlipperKey Then
		DOF 182, DOFPulse 'left to right
        Playsound "SFX_Electra1",1,nFxVolume
        hsCurrentLetter = hsCurrentLetter - 1
        if(hsCurrentLetter = 0) then
            hsCurrentLetter = len(hsValidLetters)
        end if
        HighScoreDisplayName()
    End If
 
    If keycode = RightFlipperKey Then
		DOF 181, DOFPulse 'right to Left
        Playsound "SFX_Faulty",1,nFxVolume
        hsCurrentLetter = hsCurrentLetter + 1
        if(hsCurrentLetter> len(hsValidLetters) ) then
            hsCurrentLetter = 1
        end if
        HighScoreDisplayName()
    End If
 
    If keycode = StartGameKey OR keycode = PlungerKey Then
        if(mid(hsValidLetters, hsCurrentLetter, 1) <> "<") then
            playsound "SFX_Commit",1,nFxVolume
            hsEnteredDigits(hsCurrentDigit) = mid(hsValidLetters, hsCurrentLetter, 1)
            hsCurrentDigit = hsCurrentDigit + 1
            if(hsCurrentDigit = 3) then
                HighScoreCommitName()
            else
                HighScoreDisplayName()
            end if
        else
            playsound "SFX_Commit"
            hsEnteredDigits(hsCurrentDigit) = " "
            if(hsCurrentDigit> 0) then
                hsCurrentDigit = hsCurrentDigit - 1
            end if
            HighScoreDisplayName()
        end if
    end if
End Sub
 
Sub HighScoreDisplayName()
    Dim i, TempStr
 
    TempStr = " >"
    if(hsCurrentDigit> 0) then TempStr = TempStr & hsEnteredDigits(0)
    if(hsCurrentDigit> 1) then TempStr = TempStr & hsEnteredDigits(1)
    if(hsCurrentDigit> 2) then TempStr = TempStr & hsEnteredDigits(2)
 
    if(hsCurrentDigit <> 3) then
        if(hsLetterFlash <> 0) then
            TempStr = TempStr & "_"
        else
            TempStr = TempStr & mid(hsValidLetters, hsCurrentLetter, 1)
        end if
    end if
 
    if(hsCurrentDigit <1) then TempStr = TempStr & hsEnteredDigits(1)
    if(hsCurrentDigit <2) then TempStr = TempStr & hsEnteredDigits(2)
 
    TempStr = TempStr & "< "
    DMDMod "hsc", "ENTER YOUR NAME:", Mid(TempStr, 2, 5), 999999
End Sub
 
Sub HighScoreCommitName()
    hsbModeActive = False
    PlaySound "SFX_Commit",1,nFxVolume
    hsEnteredName = hsEnteredDigits(0) & hsEnteredDigits(1) & hsEnteredDigits(2)
    if(hsEnteredName = "   ") then
        hsEnteredName = "YOU"
    end if
 
    HighScoreName(3) = hsEnteredName
    SortHighscore
	savehs
    DMDFlush
    vpmtimer.addtimer 2000, "EndOfBallComplete '"
End Sub
 
Sub SortHighscore
    Dim tmp, tmp2, i, j
    For i = 0 to 3
        For j = 0 to 2
            If HighScore(j) <HighScore(j + 1) Then
                tmp = HighScore(j + 1)
                tmp2 = HighScoreName(j + 1)
                HighScore(j + 1) = HighScore(j)
                HighScoreName(j + 1) = HighScoreName(j)
                HighScore(j) = tmp
                HighScoreName(j) = tmp2
            End If
        Next
    Next
End Sub

So, on this table when you get a high score, that score becomes the high score for 2nd, 3rd,4th and 5th. If you get 3rd high score and enter your initials, your initials are registered, but not the score. All 5 scores are the same (the highest one). It registers the initials for 2nd-4th correctly, just not the score. Any help here would be appreciated, I have 3 friends coming over this weekend and I told them I have Pink Floyd The Wall!!!  I'd like for them to be able to post up some high scores!

Edited by spisi69, 16 February 2023 - 11:13 PM.

[spisi69]

So, I noticed that at the end of a game, let's say you are player 3, it will say "player 1 enter your initials". During the game it calls out the players correctly (when i's their turn). But when it comes to entering your name it's screwy. It will call player 2 player 1, player 4 player 2..... somethings off here. Please help. Thanks.

 

Edit: In one player games, everything works as it should, it's in multiplayer when things go awry.  I think that in multiplayer, when the first players game is over, the script assigns the player number of the player with the highest score at that moment (99% sure of this)...

Edited by spisi69, 17 February 2023 - 11:13 AM.