19 replies to this topic

[balater]

File Name: Star Race (Gottlieb 1980) Recreation VPX full screen

File Submitter: balater

File Submitted: 12 Aug 2019

File Category: VPX/VPinMAME Recreations

Author(s): BALATER
Manufacturer: Gottlieb
Year: 1980
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

[Sheltemke]

Beautiful table thank you

[loserman76]

Nice surprise. This is a very nice upgrade on my cab. Hope to see more of your work in the future.

[Thalamus]

Downloaded yesterday and just had a quick run of this game and I must say. I'm impressed. Very nice job Balater, and thank you very much for sharing !

[BobAlbright]

Thank you

[bolt]

Looks very good, thank you.

[Xendo]

I have access to a real one of these that's in near mint condition. If you need images I may be able to get what you need.

Edited by Xendo, 13 August 2019 - 08:58 PM.

[The Loafer]

Considering some of the source images, I'm really impressed with what you've accomplished here, well done! I mean there's a couple of spots you can see the sources just aren't there but they are few and far between and are merged professionally.

Top notch!

[STAT]

I haven't DOF so i just haven't a Sound with Flippers and Bumpers e.g. ... i did a quick check in Script and Sound Files are in Sound Manager,
what could be my Problem ?

[roccodimarco]

I haven't DOF so i just haven't a Sound with Flippers and Bumpers e.g. ... i did a quick check in Script and Sound Files are in Sound Manager,
what could be my Problem ?

This worked for me.  Change line 10 to this :

 

Const cGameName="starrace",UseSolenoids=1,UseLamps=1,UseGI=0,SSolenoidOn="SolOn",SSolenoidOff="SolOff",SFlipperOn="fx_Flipperup",SFlipperOff="fx_Flipperdown"

 

and lines 101 to 115 to this:

 

Sub SolLFlipper(Enabled)

     If Enabled Then

         PlaySound SoundFX("fx_Flipperup",DOFContactors):LeftFlipper.RotateToEnd

     Else

         PlaySound SoundFX("fx_Flipperdown",DOFContactors):LeftFlipper.RotateToStart

     End If

  End Sub

  

Sub SolRFlipper(Enabled)

     If Enabled Then

         PlaySound SoundFX("fx_Flipperup",DOFContactors):RightFlipper.RotateToEnd:RightFlipper1.RotateToEnd

     Else

         PlaySound SoundFX("fx_Flipperdown",DOFContactors):RightFlipper.RotateToStart:RightFlipper1.RotateToStart

     End If

End Sub

 

 

Also the pop bumpers sound effects in the script are "jet" so either swith the sound effect in the sound manger or change the script to match the sound manager 

[roccodimarco]

Great table!  In the new update, is the ball rolling sound effect working yet?  

[balater]

Great table!  In the new update, is the ball rolling sound effect working yet?  

line 483 modifier 2000 per 1000 or less. according to the material.

 

483  Vol = Csng(BallVel(ball) ^2 / 2000)

[vogliadicane]

Good work, thanks a lot!

[roccodimarco]

 

Great table!  In the new update, is the ball rolling sound effect working yet?  

line 483 modifier 2000 per 1000 or less. according to the material.

 

483  Vol = Csng(BallVel(ball) ^2 / 2000)

 

Im sure once Im in front of the script this will make a whole lot more sense.  Right now.... not so much 

[Thalamus]

What he is saying - lower that value and the sound is played louder.

[STAT]

 

I haven't DOF so i just haven't a Sound with Flippers and Bumpers e.g. ... i did a quick check in Script and Sound Files are in Sound Manager,
what could be my Problem ?

 
and lines 101 to 115 to this:
 
Sub SolLFlipper(Enabled)
     If Enabled Then
         PlaySound SoundFX("fx_Flipperup",DOFContactors):LeftFlipper.RotateToEnd:Flipper2.RotateToEnd
     Else
         PlaySound SoundFX("fx_Flipperdown",DOFContactors):LeftFlipper.RotateToStart:Flipper2.RotateToStart
     End If
  End Sub
  
Sub SolRFlipper(Enabled)
     If Enabled Then
         PlaySound SoundFX("fx_Flipperup",DOFContactors):RightFlipper.RotateToEnd:Flipper1.RotateToEnd
     Else
         PlaySound SoundFX("fx_Flipperdown",DOFContactors):RightFlipper.RotateToStart:Flipper1.RotateToStart
     End If
End Sub

 

i changed it to … see above: Flipper 1 and Flipper2 … and now it works, but is also in 1.01

Edited by STAT, 15 August 2019 - 08:55 AM.

[Mustang1961]

"What he is saying - lower that value and the sound is played louder."

 

... it is the divisor   

Edited by Mustang1961, 15 August 2019 - 08:55 AM.

[Mike DA Spike]

If you make an update, can you replace the following  Sub for the dipswitches ?
This will add coins chute control to it. Thanks !

'**********************************************************************************************************
'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,"Star race - DIP switches"
		.AddFrame 2,5,190,"Coin Chute 1 (Coins/Credit)",&H0000000F,Array("1/2",&H00000008,"1/1",&H00000000,"2/1",&H00000009) 'Dip 1-4
		.AddFrame 2,67,190,"Coin Chute 2 (Coins/Credit)",&H000000F0,Array("1/2",&H00000080,"1/1",&H00000000,"2/1",&H00000090) 'Dip 5-8
		.AddFrame 2,129,190,"Coin Chute 3 (Coins/Credit)",&H00000F00,Array("1/2",&H00000800,"1/1",&H00000000,"2/1",&H00000900) 'Dip 9-12
		.AddFrame 2,191,190,"Coin Chute 3 extra credits",&H00001000,Array("no effect",0,"add 9",&H00001000)'dip 13
		.AddFrame 207,5,190,"Maximum credits",49152,Array("8 credits",0,"10 credits",32768,"15 credits",&H00004000,"25 credits",49152)'dip 15&16
		.AddFrame 207,81,190,"Coin chute 1 and 2 control",&H00002000,Array("seperate",0,"same",&H00002000)'dip 14
		.AddFrame 207,127,190,"Playfield special",&H00200000,Array("replay",0,"extra ball",&H00200000)'dip 22
		.AddFrame 207,173,190,"High game to date awards",&H00C00000,Array("not displayed and no award",0,"displayed and no award",&H00800000,"displayed and 2 credits",&H00400000,"displayed and 3 credits",&H00C00000)'dip 23&24
		.AddChk 2,245,190,Array("Match feature",&H00020000)'dip 18
		.AddChk 2,260,190,Array("Sound when scoring",&H01000000)'dip 25
		.AddChk 2,275,190,Array("Replay button tune?",&H02000000)'dip 26
		.AddFrame 412,5,190,"Balls per game",&H00010000,Array("5 balls",0,"3 balls",&H00010000)'dip 17
		.AddFrame 412,51,190,"Replay limit",&H00040000,Array("no limit",0,"one per game",&H00040000)'dip 19
		.AddFrame 412,97,190,"Novelty mode",&H00080000,Array("normal game mode",0,"50,000 points per special/extra ball",&H00080000)'dip 20
		.AddFrame 412,143,190,"Game mode",&H00100000,Array("replay",0,"extra ball",&H00100000)'dip 21
		.AddChk 207,255,190,Array("Coin switch tune?",&H04000000)'dip 27
		.AddChk 207,270,190,Array("Credits displayed?",&H08000000)'dip 28
		.AddChk 207,285,190,Array("Attract features",&H20000000)'dip 30
		.AddLabel 150,340,350,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")

[Rajo Joey]

Thanks for the nice table.

 

I've made two wheels. You find them in my MEGA-account in better quality.
https://mega.nz/#F!I...Ji5hwuYxL6CvQIg

 Star Race (Gottlieb 1980).jpg   344.76KB   2 downloads

 Star Race (Gottlieb 1980) Logo.png   124.22KB   2 downloads

[citizensam]

Hello

 

Love the file! I have a star race machine that plays great but the play field is a little worse for wear. I was wondering if there is a place to get a high res file that I can get printed to overlay my playfield? Its not an easy machine to track down so any information would be amazing.

 

Thanks in advance