5 replies to this topic

[WED21]

File Name: Hot Shot (Gottlieb 1973)

File Submitter: WED21

File Submitted: 28 Jun 2017

File Category: VPX Recreations

Author(s): WED21
Manufacturer: Gottlieb
Year: 1973
Permission to MOD?: Yes, without approval

My first build of a table I once owned. I don't have DOF so not sure if it works. If someone wants to code it I will fix it. Many thanks go to:
Zany for the Flipper model and texture

mfuegemann for script help (YOU ARE A GENIUS!) and Fast Draw as template
loserman78, GNance, and Mike Farmer for some images and other parts from their VP9 Hot Shot
JPSalas for the EM Reel images
GTXJoe for the Highscore saving code
Flupper for the physics starting point
Every other author for their amazing work and getting me absolutely hooked on this hobby!!!

Click here to download this file

[vogliadicane]

looks awwwsome!

[Rajo Joey]

A wonderful EM-table. Great to play. The only thing is, that the ball float above the playfield.

But that can be resolved by setting the +20 to +10 in line 1405; that was posted in another forum. Thanks.

 

1405 ballShadow(b).Y = BOT(b).Y + 10

Edited by Joey2001, 16 August 2017 - 02:36 PM.

[Outhere]

Like the Em

My slingshot have no DOF,
The bumper at the top is activating one of my slingshot solenoids and the ball in play does not Advance if no points are made

[Outhere]

Like the Em

My slingshot have no DOF,
The bumper at the top is activating one of my slingshot solenoids and the ball in play does not Advance if no points are made

This what I did for the bumper and slingshots in the script

I changed the lines in red

‘*****BUMPER****
Sub Bumper1_Hit:Addpoints(10):PlaySound SoundFXDOF(“fx_Bumper1”,105,DOFPulse,DOFContactors),0,1,-0.05,0.05:End Sub
‘***************

Sub RightSlingShot_Slingshot
PlaySound SoundFXDOF(“SlingshotRight”,104,DOFPulse,DOFContactors), 0, 1, 0.05, 0.05:Addpoints(10)
RSling.Visible = 0
RSling1.Visible = 1
sling1.TransZ = -20
RStep = 0
RightSlingShot.TimerEnabled = 1
End Sub

Sub RightSlingShot_Timer
Select Case RStep
Case 3:RSLing1.Visible = 0:RSLing2.Visible = 1:sling1.TransZ = -10
Case 4:RSLing2.Visible = 0:RSLing.Visible = 1:sling1.TransZ = 0:RightSlingShot.TimerEnabled = 0:gi1.State = 1:Gi2.State = 1
End Select
RStep = RStep + 1
End Sub

Sub LeftSlingShot_Slingshot
PlaySound SoundFXDOF(“SlingshotRight”,103,DOFPulse,DOFContactors),0,1,-0.05,0.05:Addpoints(10)
LSling.Visible = 0
LSling1.Visible = 1
sling2.TransZ = -20
LStep = 0
LeftSlingShot.TimerEnabled = 1
End Sub

Edited by Outhere, 20 August 2017 - 04:29 PM.

[kiwi]

Thanks, nice table!

 
I have the error "Could not create sound buffer for load", probably because the sounds are of superior quality to 44100 Hz 16 bit, this is on my old PC,

I have not checked yet with the new PC, but I'm sure the table works without errors.
Sounds at 44100 HZ 16 bit are compatible with both old and new PCs.