20 replies to this topic

[Pmax65]

This table was working right when I installed it last week in my cabinet.

This morning I installed the Loserman76 EM version (which works great) and I found two unexpected issues with this one.

The first issue is incredible for me, because I can't no longer start the game with the start-game pushbutton of the cabinet, I must use the keyboard button 1 instead.

The second issue instead is about the backglass that doesn't close on exit from the table, and it remains active also during the PinballX table selection avoiding the specific table backglass preview.

Could anybody help me with this table?

I'm using VPX 10.7 Rev 133

 

Have a great day.

 

Massimo

 

Fix.

Ok, I finally fixed it by myself, here how I did it in case someone has the same issues.
For the first issue (I still have no idea why it happened), I just forced the "1" character in the keyboard buffer when the StartGame pushbutton is pressed:

The table1_KeyDown original code changed as follows:

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
dim WshShell
Set WshShell = CreateObject("WScript.Shell")
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sub table1_KeyDown(ByVal keycode)
	
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	if keycode=StartGameKey then soundStartButton(): WshShell.SendKeys "1"
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	If KeyDownHandler(keycode) Then Exit Sub

	If keycode = LeftFlipperKey Then lfpress = 1
	If keycode = RightFlipperKey Then rfpress = 1
 
	If keycode = LeftMagnaSave Then bLutActive = True
	If keycode = RightMagnaSave Then 
		If bLutActive Then NextLUT: End If
    End If
    If KeyCode = PlungerKey Then Plunger.Pullback:SoundPlungerPull()

    If keycode = LeftTiltKey Then Nudge 90, 5:SoundNudgeLeft()
    If keycode = RightTiltKey Then Nudge 270, 5:SoundNudgeRight()
    If keycode = CenterTiltKey Then Nudge 0, 3:SoundNudgeCenter()

    If keycode = keyInsertCoin1 or keycode = keyInsertCoin2 or keycode = keyInsertCoin3 or keycode = keyInsertCoin4 Then
                Select Case Int(rnd*3)
                        Case 0: PlaySound ("Coin_In_1"), 0, CoinSoundLevel, 0, 0.25
                        Case 1: PlaySound ("Coin_In_2"), 0, CoinSoundLevel, 0, 0.25
                        Case 2: PlaySound ("Coin_In_3"), 0, CoinSoundLevel, 0, 0.25

    End Select

    End If
    
'------------------------------------------------------
'    if keycode=StartGameKey then soundStartButton()
'------------------------------------------------------
  
  End Sub

In the above codes, the lines between " '+++++++++ " lines have been added and the lines between " '------------ " have been removed, other lines unchanged.

 

For the second issue, I just removed the conditional B2SOn statement from the Table1_exit code:

 

' Thalamus : Exit in a clean and proper way
Sub Table1_exit()
'------------------------------------------------------
'  If B2SOn Then 
'------------------------------------------------------
    Controller.Pause = False
    Controller.Stop
'------------------------------------------------------
'  End If
'------------------------------------------------------
End Sub

The B2SOn variable is not set in the rest of the script, so those Controller assignment and command never executed before (don't ask me why I didn't figured it out last week).

 

Have a great day.

 

Massimo

 

 

Edited by Pmax65, 24 October 2021 - 02:49 PM.