4 replies to this topic

[GrayGhost]

File Name: JP’s GhostBusters Slimer Back Glass Mod

File Submitter: GrayGhost

File Submitted: 14 Mar 2020

File Category: VPX/VPinMAME - MOD Tables

Author(s): GinSonic,GrayGhost
Manufacturer: Original
Year: 2020
Permission to MOD?: Yes, with approval

Hi all.
 
This is an attempt to pull out all the stops for myself and make a back glass to JPSalas's Excellent pinball called JP's GhostBusters Slimer. 
 
Both Ginsonic and JPSalas were very gracious to allow me to mod there work. Special thanks to them.  
 
This is a mod I have been working on for awhile.
I liked this pinball from the start, and the included back glass by Ginsonic. However there was no DMD or score board for the back glass, so I set out to change that and this the result of that work and sweat.  I used Ginsonics Base to build on, I found Stern’s back glass some were and used there speaker grill and put in my own stylized ideas. You will see many goodies or not goodies depending on ones likes or dislikes. I have made no changes to JP's Script other than what is needed for the Back Glass.

Click here to download this file

[cestmoi]

Merci beaucoup c'est vraiment très beau

Cependant le b2s s'ouvre 2 fois au lancement de la table. Je dois en fermer un, mais c'est un petit peu gênant

que faire svp?

[Greynurse]

Table won't load. It crashes with the message 

"Line1742

Arithmetic operation resulted in an overflow"

 

This is the Subroutine from line 1738:

 

Sub Loadhs
    Dim x
    x = LoadValue(TableName, "HighScore1")
    If(x <> "")Then HighScore(0) = CDbl(x)Else HighScore(0) = 100000 End If
    Controller.B2SSetScore 6, HighScore(0) 'This is "HSTD" High Score To Date On Back Glass
    x = LoadValue(TableName, "HighScore1Name")
    If(x <> "")Then HighScoreName(0) = x Else HighScoreName(0) = "AAA" End If
    x = LoadValue(TableName, "HighScore2")
    If(x <> "")then HighScore(1) = CDbl(x)Else HighScore(1) = 100000 End If
    x = LoadValue(TableName, "HighScore2Name")
    If(x <> "")then HighScoreName(1) = x Else HighScoreName(1) = "BBB" End If
    x = LoadValue(TableName, "HighScore3")
    If(x <> "")then HighScore(2) = CDbl(x)Else HighScore(2) = 100000 End If
    x = LoadValue(TableName, "HighScore3Name")
    If(x <> "")then HighScoreName(2) = x Else HighScoreName(2) = "CCC" End If
    x = LoadValue(TableName, "HighScore4")
    If(x <> "")then HighScore(3) = CDbl(x)Else HighScore(3) = 100000 End If
    x = LoadValue(TableName, "HighScore4Name")
    If(x <> "")then HighScoreName(3) = x Else HighScoreName(3) = "DDD" End If
    x = LoadValue(TableName, "Credits")
    If(x <> "")then Credits = CInt(x)Else Credits = 0 End If

    'x = LoadValue(TableName, "Jackpot")
    'If(x <> "") then Jackpot = CDbl(x) Else Jackpot = 200000 End If
    x = LoadValue(TableName, "TotalGamesPlayed")
    If(x <> "")then TotalGamesPlayed = CInt(x)Else TotalGamesPlayed = 0

End If
End Sub

 

SOLVED!

"Controller.B2SSetScore 6, HighScore(0)" Should read "Controller.B2SSetScore 6, HighScore (0)"

Same applies to line 1062

 

So much for table testing under Windows 7

 

Cheers,

 

Nursie

Edited by Greynurse, 15 March 2020 - 01:30 PM.

[Mike DA Spike]

Very nice addition to JP's table. I really like it.
Thanks for your work !

[dany78]

sorry but i dont see any grill scores in my backglass ....why?