6 replies to this topic

[loserman76]

File Name: Lightning Ball (Gottlieb 1959)

File Submitter: loserman76

File Submitted: 03 Jan 2020

File Category: VPX Recreations

Author(s): Loserman76
GNance
Manufacturer: Gottlieb
Year: 1959
Permission to MOD?: Yes, without approval

Lightning Ball (Gottlieb 1959)
https://www.ipdb.org...ine.cgi?id=1442
 
Build/Coding by Loserman76
Images by GNance
 
With my manual ball lift tables, you can press whatever key you have configured to start a new game (typically a "1") or the "A" key to load the ball to the shooter lane
Alternatively, in the options menu (when a game is not in play, hold the left shift key for 3 seconds to bring it up) you can set it to auto-lift the ball

Click here to download this file

[cestmoi]

Que je suis content d'avoir des nouvelles tables de mr Loserman pour cette nouvelle année !

Merci merci ...

[rockhouse]

excellent and 1959 just gets better

plays excellent but i still hate the gobble holes

[Greynurse]

Thanks Loserman.

 

Your tables really play well and look terrific. I'm studying your scripting for EM table backglasses and hope to publish a few of my own creations before the year is over. Although it will be a trickle compared to your flood. Maintain the rage. I'm sure the whole community appreciates your work.

 

Cheers,

 

Nursie

[Albert]

To get a fallthrough effect for the gobble holes, i set the kicker display to "kickerHoleSimple" and checked "Fall through".

 

This works so far, but now i have a permanent ball rolling sound.

 

Can this be avoided?

Edited by Albert, 04 January 2020 - 05:52 PM.

[Albert]

It's strange: Even if the only command in the Gobbler-Hit-Subs is the "Destroyball" command, the ballrolling sound is still there.

 

So that i have at least the illusion of a fall-through ball i re-did the whole thing . This solution also corrects the problem that a ball which has just fallen into the gobble hole shows up immediately in the "Balls Played Window".

 

You need six new timers. Here are the corrections and additions:

 

Timer3.Interval =50

Timer4.Interval =50

Timer5.Interval =2000

Timer6.Interval =50

Timer7.Interval =50

Timer8.Interval =2000

 

sub Gobbler1_Hit()
Dim tempkickscore
Dim speedx,speedy,finalspeed
speedx=activeball.velx
speedy=activeball.vely
finalspeed=SQR(activeball.velx * activeball.velx + activeball.vely * activeball.vely)
if finalspeed>15 then
Gobbler1.Kick 0,0
activeball.velx=speedx
activeball.vely=speedy
else
if TableTilted=false then
tempkickscore=0
for each obj in CenterLights
if obj.state=1 then tempkickscore=tempkickscore+1
next
tempkickscore=tempkickscore*10
SetMotor(tempkickscore)
If GobblerLight1.state=1 then
AddSpecial
end if
end if
Gobbler1.DestroyBall
Gobbler1.CreateSizedBall 20
Timer6.enabled =1
BallsOnTable=BallsOnTable-1
PlaySound "fx_ballrolling10",-1
DOF 128, DOFPulse
'Pause4Bonustimer.enabled=true
end if
end sub

sub Gobbler2_Hit()
Dim tempkickscore
Dim speedx,speedy,finalspeed
speedx=activeball.velx
speedy=activeball.vely
finalspeed=SQR(activeball.velx * activeball.velx + activeball.vely * activeball.vely)
if finalspeed>15 then
Gobbler2.Kick 0,0
activeball.velx=speedx
activeball.vely=speedy
else
if TableTilted=false then
tempkickscore=0
for each obj in CenterLights
if obj.state=1 then tempkickscore=tempkickscore+1
next
tempkickscore=tempkickscore*10
SetMotor(tempkickscore)
If GobblerLight2.state=1 then
AddSpecial
end if
end if
Gobbler2.DestroyBall
Gobbler2.CreateSizedBall 20
Timer3.enabled =1
BallsOnTable=BallsOnTable-1
PlaySound "fx_ballrolling10",-1
DOF 128, DOFPulse
'Pause4Bonustimer.enabled=true
end if
end sub

Sub Timer3_Timer
Gobbler2.DestroyBall
Gobbler2.CreateSizedBall 15
Timer4.enabled =1
Me.enabled =0
End Sub

Sub Timer4_Timer
Gobbler2.DestroyBall
Timer5.enabled =1
Me.enabled =0
End Sub

Sub Timer5_Timer
Kicker3.CreateSizedBall 20
Kicker3.Kick 0,12
StopSound "fx_ballrolling10"
BallIndicatorCount=BallIndicatorCount+1
If BallLiftOption=1 then
NextBall
Else
Pause4Bonustimer.enabled=true
end if
Me.enabled =0
End Sub

Sub Timer6_Timer
Gobbler1.DestroyBall
Gobbler1.CreateSizedBall 15
Timer7.enabled =1
Me.enabled =0
End Sub

Sub Timer7_Timer
Gobbler1.DestroyBall
Timer8.enabled =1
Me.enabled =0
End Sub

Sub Timer8_Timer
Kicker3.CreateSizedBall 20
Kicker3.Kick 0,12
StopSound "fx_ballrolling10"
BallIndicatorCount=BallIndicatorCount+1
If BallLiftOption=1 then
NextBall
Else
Pause4Bonustimer.enabled=true
end if
Me.enabled =0
End Sub

[Rajo Joey]

Here are my two wheels for this table.
If you want more wheels made by me (nearly 1.000), take a look here: https://mega.nz/#F!IFsxBbCD!04cfuNEJi5hwuYxL6CvQIg
Or download them directly from the PinUp Popper mediadatabase.

The wheels below are reduced in quality, because of the very small uploadsize here.

Attached Files

•  Lightning Ball (Gottlieb 1959).jpg   260.3KB   0 downloads
•  Lightning Ball (Gottlieb 1959) Logo.jpg   100.53KB   0 downloads