19 replies to this topic

[balater]

File Name: The Games (Gottlieb 1984) Recreation VPX full screen

File Submitter: balater

File Submitted: 24 Aug 2019

File Category: VPX/VPinMAME Recreations

Author(s): balater
Manufacturer: Gottlieb
Year: 1984
Permission to MOD?: Yes, with approval

Graphics of the table created partly on the basis of video and images of the net. And a big thank you to all the authors of sources taken here and there on the net.

Click here to download this file

[KABS]

thank you 

[Thalamus]

Thank you very much @balater !

[Mike DA Spike]

Nice Table. 
Thanks !
 
Only the dip switches not working correct. Does anyone has the manual or only a copy of the dip switches settings for me ?

Edited by Mike DA Spike, 25 August 2019 - 01:18 PM.

[bolt]

Thank you.

[Mike DA Spike]

Thanks to Thalamus for the dipswitches !

This is the correct code :

'Gottlieb System 80B
'added by Inkochnito
'Added Coins chute by Mike da Spike
Sub editDips
	Dim vpmDips : Set vpmDips = New cvpmDips
	With vpmDips
            .AddForm  700,400,"The Games - DIP switches"
            .AddFrame 2,4,190,"Left Coin Chute (Coins/Credit)",&H0000001F,Array("4/1",&H0000000D,"2/1",&H0000000A,"1/1",&H00000000,"1/2",&H00000010) 'Dip 1-5
            .AddFrame 2,80,190,"Right Coin Chute (Coins/Credit)",&H00001F00,Array("4/1",&H00000D00,"2/1",&H00000A00,"1/1",&H00000000,"1/2",&H00001000) 'Dip 9-13
            .AddFrame 2,160,190,"Center Coin Chute (Coins/Credit)",&H001F0000,Array("4/1",&H00D00000,"2/1",&H00A00000,"1/1",&H00000000,"1/2",&H00100000) 'Dip 17-21
            .AddFrame 2,240,190,"3rd coin chute credits control",&H20000000,Array("no effect",0,"add 9",&H20000000)'dip 30        
            .AddFrame 207,4,190,"Maximum credits",49152,Array("8 credits",0,"10 credits",32768,"15 credits",&H00004000,"20 credits",49152)'dip 15&16
            .AddFrame 207,80,190,"Coin chute 1 and 2 control",&H00002000,Array("seperate",0,"same",&H00002000)'dip 14
            .AddFrame 207,126,190,"Playfield special",&H00200000,Array("replay",0,"extra ball",&H00200000)'dip 22
            .AddFrame 207,172,190,"Background sound",&H40000000,Array("disabled",0,"enabled",&H40000000)'dip 31
            .AddFrame 207,218,190,"Playfiel extra ball adjustments",&H80000000,Array("Conservative",0,"Liberal",&H80000000)'dip 32
            .AddFrame 412,4,190,"High game to date awards",&H00C00000,Array("not displayed and no award",0,"displayed and no award",&H00800000,"displayed and 2 replays",&H00400000,"displayed and 3 replays",&H00C00000)'dip 23&24
            .AddFrame 412,80,190,"Balls per game",&H01000000,Array("5 balls",0,"3 balls",&H01000000)'dip 25
            .AddFrame 412,126,190,"Replay limit",&H04000000,Array("no limit",0,"one per game",&H04000000)'dip 27
            .AddFrame 412,172,190,"Novelty",&H08000000,Array("normal",0,"Yes",&H08000000)'dip 28
            .AddFrame 412,218,190,"Game mode",&H10000000,Array("replay",0,"extra ball",&H10000000)'dip 29
	End With
	Dim extra
	extra = Controller.Dip(4) + Controller.Dip(5)*256
	extra = vpmDips.ViewDipsExtra(extra)
	Controller.Dip(4) = extra And 255
	Controller.Dip(5) = (extra And 65280)\256 And 255
End Sub
Set vpmShowDips = GetRef("editDips")

[BorgDog]

Thanks for the table, haven't played this one before.

[bha19]

Great table so thanks for this. I remember playing this at my local arcade years ago. I do think you need to fix the right outlane as the ball gets stuck before it can go down there. If you nudge you either tilt or have the ball go down the inlane. One more thing has anybody gotten the spinner to register a medal. I have only done it twice. When I played in the arcade it was almost too easy but this is darn impossible.I did manage once to get the captive ball to register a medal which is also a bit more difficult then I remember, but that was many years ago.Anyhow this brings back many memories.

Edited by bha19, 25 August 2019 - 07:29 PM.

[bha19]

Here are specific dips for "The Games" and not just system 80 and match and 5 ball work. Inkochchnito does great work:

 

'Gottlieb The Games

'added by Inkochnito

Sub editDips

Dim vpmDips : Set vpmDips = New cvpmDips

With vpmDips

.AddForm 700,400,"The Games - DIP switches"

.AddFrame 2,4,190,"Maximum credits",49152,Array("8 credits",0,"10 credits",32768,"15 credits",&H00004000,"25 credits",49152)'dip 15&16

.AddFrame 2,80,190,"Coin chute 1 and 2 control",&H00002000,Array("seperate",0,"same",&H00002000)'dip 14

.AddFrame 2,126,190,"Playfield special",&H00200000,Array("replay",0,"extra ball",&H00200000)'dip 22

.AddFrame 2,172,190,"Game mode",&H10000000,Array("replay",0,"extra ball",&H10000000)'dip 29

.AddFrame 2,218,190,"Extra ball control",&H80000000,Array("3 medals (3 ball) - 4 medals (5 ball)",0,"2 medals (3 ball) - 3 medals (5 ball)",&H80000000)'dip 32

.AddFrame 205,4,190,"High game to date awards",&H00C00000,Array("not displayed and no award",0,"displayed and no award",&H00800000,"displayed and 2 replays",&H00400000,"displayed and 3 replays",&H00C00000)'dip 23&24

.AddFrame 205,80,190,"Balls per game",&H01000000,Array("5 balls",0,"3 balls",&H01000000)'dip 25

.AddFrame 205,126,190,"Replay limit",&H04000000,Array("no limit",0,"one per game",&H04000000)'dip 27

.AddFrame 205,172,190,"Novelty",&H08000000,Array("normal",0,"extra ball and replay scores points",&H08000000)'dip 28

.AddFrame 205,218,190,"3rd coin chute credits control",&H20000000,Array("no effect",0,"add 9",&H20000000)'dip 30

.AddChk 2,270,140,Array("Match feature",&H02000000)'dip 26

.AddChk 205,270,140,Array("Background sound",&H40000000)'dip 31

.AddLabel 50,290,300,20,"After hitting OK, press F3 to reset game with new settings."

.ViewDips

End With

End Sub

Set vpmShowDips = GetRef("editDips")

Edited by bha19, 25 August 2019 - 07:20 PM.

[Thalamus]

And how is that an improvement to what Mike Da Spike posted ?

[xenonph]

Looks like the only difference is the match feature, although even when I activate match in the dipswitch menu, it is not working.

Do I need to make another adjustment in dipswitch settings, to get match to enable?

[bha19]

Using what I posted does make the match and 5 ball work.You can also set the difficulty on number of medals to activate 3 ball and 5 ball features. I just posted this because it is specifically for The Games

[Thalamus]

Thanks

[Mike DA Spike]

As a template I use the system80b from Inkochnito (thats why I leave it in the comments)

I used the dips and the naming convention from the manual I received from Thalamus.
And yes, sorry, forgot switch 26  it was a hot Sunday morning for me
But for the rest I checked that this was customized for "The Games"

 

And I also like the coins chute control, because on my pin I use coins for the credits and maybe other people too. (always handy when my grand kids are coming. I give them some money (50 cents and euro's) and they can decide if they want to play on the cabinet or to save it for there own. 

Edited by Mike DA Spike, 26 August 2019 - 12:16 PM.

[balater]

Thank you for your questions and your solutions. The following code will be put in the next update

 

 

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

'Gottlieb System 80B

'added by Inkochnito

'Added Coins chute by Mike da Spike

Sub editDips

Dim vpmDips : Set vpmDips = New cvpmDips

With vpmDips

.AddForm  700,400,"The Games - DIP switches"

            .AddFrame 2,4,190,"Left Coin Chute (Coins/Credit)",&H0000001F,Array("4/1",&H0000000D,"2/1",&H0000000A,"1/1",&H00000000,"1/2",&H00000010) 'Dip 1-5

            .AddFrame 2,80,190,"Right Coin Chute (Coins/Credit)",&H00001F00,Array("4/1",&H00000D00,"2/1",&H00000A00,"1/1",&H00000000,"1/2",&H00001000) 'Dip 9-13

            .AddFrame 2,159,190,"Center Coin Chute (Coins/Credit)",&H001F0000,Array("4/1",&H00D00000,"2/1",&H00A00000,"1/1",&H00000000,"1/2",&H00100000) 'Dip 17-21

            .AddFrame 2,238,190,"3rd coin chute credits control",&H20000000,Array("no effect",0,"add 9",&H20000000)'dip 30        

            .AddFrame 207,4,190,"Maximum credits",49152,Array("8 credits",0,"10 credits",32768,"15 credits",&H00004000,"20 credits",49152)'dip 15&16

            .AddFrame 207,80,190,"Coin chute 1 and 2 control",&H00002000,Array("seperate",0,"same",&H00002000)'dip 14

            .AddFrame 207,126,190,"Playfield special",&H00200000,Array("replay",0,"extra ball",&H00200000)'dip 22

            .AddFrame 207,172,190,"Background sound",&H40000000,Array("disabled",0,"enabled",&H40000000)'dip 31

.AddFrame 207,218,190,"Playfiel extra ball adjustments",&H80000000,Array("Conservative",0,"Liberal",&H80000000)'dip 32

            .AddFrame 412,4,190,"High game to date awards",&H00C00000,Array("not displayed and no award",0,"displayed and no award",&H00800000,"displayed and 2 replays",&H00400000,"displayed and 3 replays",&H00C00000)'dip 23&24

            .AddFrame 412,80,190,"Balls per game",&H01000000,Array("5 balls",0,"3 balls",&H01000000)'dip 25

            .AddFrame 412,126,190,"Replay limit",&H04000000,Array("no limit",0,"one per game",&H04000000)'dip 27

            .AddFrame 412,172,190,"Novelty",&H08000000,Array("normal",0,"Yes",&H08000000)'dip 28

            .AddFrame 412,218,190,"Game mode",&H10000000,Array("replay",0,"extra ball",&H10000000)'dip 29

.AddChk 211,270,140,Array("Match feature",&H02000000)'dip 26

.AddLabel 180,290,300,20,"After hitting OK, press F3 to reset game with new settings."

 

End With

Dim extra

extra = Controller.Dip(4) + Controller.Dip(5)*256

extra = vpmDips.ViewDipsExtra(extra)

Controller.Dip(4) = extra And 255

Controller.Dip(5) = (extra And 65280)\256 And 255

End Sub

Set vpmShowDips = GetRef("editDips")

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

Edited by balater, 26 August 2019 - 02:35 PM.

[Mike DA Spike]

Thanks!
Maybe remove the folowing typo of me (I always make typos, I program a lot at work and the typos are my signature )
AddFrame 207,218,190,"Playfiel extra ball adjustments",&H80000000,Array("Conservative",0,"Liberal",&H80000000)'dip 32

Make "playfield" from it

[bha19]

Don't forget to fix the right outlane in the next update so the ball can fit through it.

[BorgDog]

Don't forget to fix the right outlane in the next update so the ball can fit through it.

 

that's mainly due to the mini-post rubbers being way to big.  they should be about 7/16" diameter

[STAT]

Thanks for the Update

[ryesteve]

Anyone know how to fix the spinner so that you can clear the events associated with it?  No matter how hard you rip it, it lights every light up to the next to last one, then they all go out again.