Register    Login    Forum    FAQ    PinSimDB.org

Board index » Future Pinball » Tables WIP




Post new topic Reply to topic  [ 38 posts ]  Go to page Previous  1, 2, 3, 4
Author Message
 Post subject: Re: car hop gottlieb
 Post Posted: Fri May 31, 2019 6:51 am 
Offline
User avatar

Joined: Sat Jan 29, 2011 4:54 pm
Posts: 1410
Location: Italy
bil wrote:
Do you have this kind of problem only with this table or with other tables?


no..Bil,only in this.


Top 
 Profile  
 
 Post subject: Re: car hop gottlieb
 Post Posted: Fri May 31, 2019 7:26 am 
Offline
User avatar

Joined: Wed Dec 29, 2010 6:20 am
Posts: 1919
Hi wild :)

I use the exe VP992
This is the Bodydump Full screen table.
I will put the first 200 pages of the script.
Check that you have the exact same script as me.
It is also possible that this is a rom problem.
Are you sure you have the right rom?


Top 
 Profile  
 
 Post subject: Re: car hop gottlieb
 Post Posted: Fri May 31, 2019 7:28 am 
Offline
User avatar

Joined: Wed Dec 29, 2010 6:20 am
Posts: 1919
'Gottlieb Premier Car Hop 1991 VP Table by Bodydump
'Special thanks to:
'Joep and Destruk for the original table from which I got the solenoid, switch and light numbers from as I could never locate a manual
'JimmyFingers for sounds and sound routines, positional slingshot routines, flipper routines, saucer routines and for tons of help and support
'UncleWilly for his starter table and inspiration over the years
'Eala for some stuff off his parts table
'Bent98 for support and for force feedback config

Option Explicit
Randomize

LoadVPM "01120100", "gts3.vbs", 3.26

Const cController = 3 'Choose Controller: 1-VPM, 2-UVP, 3-B2S

Sub LoadVPM(VPMver, VBSfile, VBSver)
On Error Resume Next
If ScriptEngineMajorVersion < 5 Then MsgBox "VB Script Engine 5.0 or higher required"
ExecuteGlobal GetTextFile(VBSfile)
If Err Then MsgBox "Unable to open " & VBSfile & ". Ensure that it is in the same folder as this table. " & vbNewLine & Err.Description
Select Case cController
Case 1:
Set Controller = CreateObject("VPinMAME.Controller")
If Err Then MsgBox "Can't Load VPinMAME." & vbNewLine & Err.Description
If VPMver>"" Then If Controller.Version < VPMver Or Err Then MsgBox "VPinMAME ver " & VPMver & " required."
If VPinMAMEDriverVer < VBSver Or Err Then MsgBox VBSFile & " ver " & VBSver & " or higher required."
Case 2:
Set Controller = CreateObject("UltraVP.BackglassServ")
Leds.Enabled = 1
Case 3:
Set Controller = CreateObject("B2S.Server")
End Select
On Error Goto 0
End Sub

'Dims
Dim bsTrough, dtLBank, dtRBank, dtTBank, bsLKicker, bsRKicker, mhole, mhole1
Dim plungerIM, RefreshARlight
RefreshARLight = false
Const cGameName = "carhop"

Const UseSolenoids = 1
Const UseLamps = 0
Const UseGI = 0
Const UseSync = 0
Const HandleMechs = 0

'Standard Sounds
Const SSolenoidOn="solon"
Const SSolenoidOff="soloff"
Const SFlipperOn="FlipperUp"
Const SFlipperOff="FlipperDown"
Const sCoin="coin3"


'Table Init****************************************************************************************************************************************************************
Sub Table_Init
vpmInit me
With Controller
.GameName = cGameName
If Err Then MsgBox "Can't start Game" & cGameName & vbNewLine & Err.Description:Exit Sub
.SplashInfoLine="Car Hop Gottlieb/Premier 1990" & vbNewLine & "VP Table by Bodydump"
.HandleKeyboard=0
.ShowTitle=0
.ShowDMDOnly=1
.ShowFrame=0
.HandleMechanics=0
.Hidden=0
On Error Resume Next
.Run GetPlayerHWnd
If Err Then MsgBox Err.Description
On Error Goto 0
End With

'Plunger
Set plungerIM = New cvpmImpulseP
With plungerIM
.InitImpulseP swPlunger, IMPowerSetting, IMTime
.Switch 44
.Random 1.5
.InitExitSnd "plunger2", "plunger"
.CreateEvents "plungerIM"
End With
' Nudging
vpmNudge.TiltSwitch = 151
vpmNudge.Sensitivity = 1
vpmNudge.TiltObj = Array(RightSlingShot, LeftSlingShot)

' Trough
Set bsTrough = New cvpmBallStack
With bsTrough
'.InitSw 0, 0, 0, 0, 0, 0, 0, 0 'set trough switches
.InitNoTrough BallRelease, 25, 80, 6 'set kick direction
.InitExitSnd "ballrelease", "SolOn"
.Balls = 1 'set number of balls in trough
End With

' Drop targets
set dtLBank = new cvpmdroptarget
With dtLBank
.initdrop array(array(DT16, DT16a), array(DT26, DT26a), array(DT36, DT36a), array(DT46, DT46a), array(DT56, DT56a)), array(16, 26, 36, 46, 56) 'set wall and switch arrays
.initsnd "DTL", "DTResetL"
End With
set dtRBank = new cvpmdroptarget
With dtRBank
.initdrop array(array(DT17, DT17a), array(DT27, DT27a), array(DT37, DT37a), array(DT47, DT47a), array(DT57, DT57a)), array(17, 27, 37, 47, 57) 'set wall and switch arrays
.initsnd "DTR", "DTResetR"
End With
set dtTBank = new cvpmdroptarget
With dtTBank
.initdrop DT15a, 15 'set wall and switch arrays
.initsnd "DTC", "DTReset"
End With

' Left Saucer
Set bsLKicker = New cvpmBallStack
With bsLKicker
.InitSaucer kicker1, 41, 140, 19 'set kick direction/speed
.InitEntrySnd "kicker_enter", "Solenoid"
.InitExitSnd "scoopexit", "Solenoid"
.KickAngleVar = 2
End With

' Right Saucer
Set bsRKicker = New cvpmBallStack
With bsRKicker
.InitSaucer kicker2, 40, 230, 19 'set kick direction/speed
.InitEntrySnd "kicker_enter", "Solenoid"
.InitExitSnd "scoopexit", "Solenoid"
.KickAngleVar = 2
End With

' Upper Hole (Using low powered Magnet to simulate drop in playfield surface around the saucer)
Set mHole = New cvpmMagnet
With mHole
.InitMagnet Umagnet2, 4
.GrabCenter = 0
.MagnetOn = 1
.CreateEvents "mHole"
End With
Set mHole1 = New cvpmMagnet
With mHole1
.InitMagnet Umagnet1, 3
.GrabCenter = 0
.MagnetOn = 1
.CreateEvents "mHole1"
End With

' Main Timer init
PinMAMETimer.Interval = PinMAMEInterval
PinMAMETimer.Enabled = true

'slingshot init
LeftSling.IsDropped=1:LeftSling2.IsDropped=1:LeftSling3.IsDropped=1
LHammer.IsDropped=1:LHammer2.IsDropped=1:LHammer3.IsDropped=1
RightSling.IsDropped=1:RightSling2.IsDropped=1:RightSling3.IsDropped=1
RHammer.IsDropped=1:RHammer2.IsDropped=1:RHammer3.IsDropped=1
'StandUp Init
Stand1a.IsDropped=1:Stand2a.IsDropped=1:Stand3a.IsDropped=1:Bullseyea.IsDropped=1
'Rollovers
RightOutlaneDown.IsDropped = 1
LeftOutlaneDown.IsDropped = 1
sw14Down.IsDropped = 1
sw34Down.IsDropped = 1
sw42Down.IsDropped = 1
sw55Down.IsDropped = 1

'other inits


End Sub


'Keys*********************************************************************************************************************************************************************

Sub Table_KeyDown(ByVal keycode)
If keycode = LeftFlipperKey Then
Controller.Switch(6) = 1
Controller.Switch(4) = 1
End If
If keycode = RightFlipperkey Then
Controller.Switch(7) = 1
Controller.Switch(5) = 1
End If
If keycode = PlungerKey Then Playsound "PlungerPull":PlungerIM.Pullback:Pcount = 0:PTime.Enabled = 1:Plunger.TimerEnabled=0
If keycode = StartGameKey Then Controller.Switch(3) = 1
If keycode = LeftTiltKey Then LeftNudge 90, 1.6, 20:PlaySound "fx_nudge_left"
If keycode = RightTiltKey Then RightNudge 270, 1.6, 20:PlaySound "fx_nudge_right"
If keycode = CenterTiltKey Then CenterNudge 0, 2.8, 30:PlaySound "fx_nudge_forward"
If vpmKeyDown(keycode) Then Exit Sub
End Sub

Sub Table_KeyUp(ByVal keycode)
If keycode = LeftFlipperKey Then
Controller.Switch(6) = 0
Controller.Switch(4) = 0
End If
If keycode = RightFlipperkey Then
Controller.Switch(7) = 0
Controller.Switch(5) = 0
End If
If keycode = PlungerKey Then StopSound "PlungerPull":PTime.Enabled = 0:Pcount = 0:PTime2.Enabled = 1:PlungerIM.Fire
If keycode = StartGameKey Then Controller.Switch(3) = 0
If vpmKeyUp(keycode) Then Exit Sub
End Sub
Sub Table_Paused:Controller.Pause = 1:End Sub
Sub Table_unPaused:Controller.Pause = 0:End Sub
Sub Table_Exit:Controller.Stop:End Sub
' Plunger Animation******************************************************************************************************************************************************

' Koadic's Alpha Ramp


Top 
 Profile  
 
 Post subject: Re: car hop gottlieb
 Post Posted: Fri May 31, 2019 7:32 am 
Offline
User avatar

Joined: Wed Dec 29, 2010 6:20 am
Posts: 1919
I played the table 20 minutes but even with the DMD and the voice of the rom, I have difficulty understanding the gameplay !! :roll:
Good luck and have a good day ;)

Bil


Top 
 Profile  
 
 Post subject: Re: car hop gottlieb
 Post Posted: Mon Jun 03, 2019 7:01 am 
Offline
User avatar

Joined: Sat Jan 29, 2011 4:54 pm
Posts: 1410
Location: Italy
ok...Bil,thanks....I have the versions...vp8-VP99_PhysMod5_Updated-vp921-vp994-995-vpx.

all the same problem.....
'Table Init**
Sub Table_Init
vpmInit me
With Controller

Sub Table_KeyUp(ByVal keycode)
If keycode = LeftFlipperKey Then
Controller.Switch(6) = 0
Controller.Switch(4) = 0
End If
If keycode = RightFlipperkey Then
Controller.Switch(7) = 0
Controller.Switch(5) = 0
End If
If keycode = PlungerKey Then StopSound "PlungerPull":PTime.Enabled = 0:Pcount = 0:PTime2.Enabled = 1:PlungerIM.Fire
If keycode = StartGameKey Then Controller.Switch(3) = 0
If vpmKeyUp(keycode) Then Exit Sub
End Sub
Sub Table_Paused:Controller.Pause = 1:End Sub
Sub Table_unPaused:Controller.Pause = 0:End Sub
Sub Table_Exit:Controller.Stop:End Sub


could you send me the rom what do you have?so...I see if this is the problem. please


Top 
 Profile  
 
 Post subject: Re: car hop gottlieb
 Post Posted: Mon Jun 03, 2019 7:22 am 
Offline
User avatar

Joined: Wed Dec 29, 2010 6:20 am
Posts: 1919
Message envoyé ;)


Top 
 Profile  
 
 Post subject: Re: car hop gottlieb
 Post Posted: Mon Jun 03, 2019 8:01 am 
Offline
User avatar

Joined: Sat Jan 29, 2011 4:54 pm
Posts: 1410
Location: Italy
bil wrote:
Message envoyé ;)


Je vous remercie beaucoup :D


Top 
 Profile  
 
 Post subject: Re: car hop gottlieb
 Post Posted: Tue Jun 04, 2019 7:34 am 
Offline
User avatar

Joined: Wed Dec 29, 2010 6:20 am
Posts: 1919
Hi wild ;)
Nouveau message envoyé :)

Bil


Top 
 Profile  
 
Display posts from previous:  Sort by  
 
Post new topic Reply to topic  [ 38 posts ]  Go to page Previous  1, 2, 3, 4

Board index » Future Pinball » Tables WIP


Who is online

Users browsing this forum: No registered users and 8 guests

 
 

 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Jump to:  
cron